equal
deleted
inserted
replaced
1312 if missionTex <> nil then FreeTexture(missionTex); |
1312 if missionTex <> nil then FreeTexture(missionTex); |
1313 end; |
1313 end; |
1314 |
1314 |
1315 procedure ShakeCamera(amount: LongWord); |
1315 procedure ShakeCamera(amount: LongWord); |
1316 begin |
1316 begin |
|
1317 if isCursorVisible then exit; |
1317 amount:= Max(1, amount); |
1318 amount:= Max(1, amount); |
1318 WorldDx:= WorldDx - amount + LongInt(getRandom(1 + amount * 2)); |
1319 //WorldDx:= WorldDx - amount + LongInt(getRandom(1 + amount * 2)); |
1319 WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2)); |
1320 //WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2)); |
|
1321 CursorPoint.X:= CursorPoint.X - amount + LongInt(getRandom(1 + amount * 2)); |
|
1322 CursorPoint.Y:= CursorPoint.Y - amount + LongInt(getRandom(1 + amount * 2)) |
1320 end; |
1323 end; |
1321 |
1324 |
1322 |
1325 |
1323 procedure onFocusStateChanged; |
1326 procedure onFocusStateChanged; |
1324 begin |
1327 begin |