equal
deleted
inserted
replaced
6391 // Mirrored duck |
6391 // Mirrored duck |
6392 // Pos 1 or 2: Duck is on water (not Sea world edge) |
6392 // Pos 1 or 2: Duck is on water (not Sea world edge) |
6393 if Gear^.Pos = 1 then |
6393 if Gear^.Pos = 1 then |
6394 Gear^.dX:= cWindSpeed * 500 |
6394 Gear^.dX:= cWindSpeed * 500 |
6395 else if Gear^.Pos = 2 then |
6395 else if Gear^.Pos = 2 then |
6396 Gear^.dX:= -cWindSpeed * 500; |
6396 Gear^.dX:= -cWindSpeed * 500 |
|
6397 else if Gear^.Pos = 3 then |
|
6398 Gear^.dY:= cWindSpeed * 500 |
|
6399 else if Gear^.Pos = 4 then |
|
6400 Gear^.dY:= -cWindSpeed * 500; |
6397 |
6401 |
6398 // Rotate duck and change direction when reaching Sea world edge (Pos 3 or 4) |
6402 // Rotate duck and change direction when reaching Sea world edge (Pos 3 or 4) |
6399 if WorldEdge = weSea then |
6403 if WorldEdge = weSea then |
6400 begin |
6404 begin |
6401 // Left edge |
6405 // Left edge |
6405 Gear^.Pos:= 3; |
6409 Gear^.Pos:= 3; |
6406 if Gear^.Tag = 1 then |
6410 if Gear^.Tag = 1 then |
6407 Gear^.Angle:= 90 |
6411 Gear^.Angle:= 90 |
6408 else |
6412 else |
6409 Gear^.Angle:= 270; |
6413 Gear^.Angle:= 270; |
6410 Gear^.dY:= Gear^.dX; |
6414 Gear^.dY:= cWindSpeed * 500; |
6411 Gear^.dX:= _0; |
6415 Gear^.dX:= _0; |
6412 end |
6416 end |
6413 // Right edge |
6417 // Right edge |
6414 else if (RightX <= hwRound(Gear^.X) + Gear^.Karma) and (Gear^.Pos < 3) then |
6418 else if (RightX <= hwRound(Gear^.X) + Gear^.Karma) and (Gear^.Pos < 3) then |
6415 begin |
6419 begin |
6417 Gear^.Pos:= 4; |
6421 Gear^.Pos:= 4; |
6418 if Gear^.Tag = 1 then |
6422 if Gear^.Tag = 1 then |
6419 Gear^.Angle:= 270 |
6423 Gear^.Angle:= 270 |
6420 else |
6424 else |
6421 Gear^.Angle:= 90; |
6425 Gear^.Angle:= 90; |
6422 Gear^.dY:= -Gear^.dX; |
6426 Gear^.dY:= -cWindspeed * 500; |
6423 Gear^.dX:= _0; |
6427 Gear^.dX:= _0; |
6424 end; |
6428 end; |
6425 end; |
6429 end; |
6426 |
6430 |
6427 if Gear^.Pos <> 0 then |
6431 if Gear^.Pos <> 0 then |