equal
deleted
inserted
replaced
3592 r0 := GetRandom(21); |
3592 r0 := GetRandom(21); |
3593 r1 := GetRandom(21); |
3593 r1 := GetRandom(21); |
3594 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0); |
3594 doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0); |
3595 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0); |
3595 doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0); |
3596 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
3596 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound); |
3597 for r0:= 0 to 10 do |
3597 for r0:= 0 to 4 do |
3598 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
3598 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote); |
3599 Gear^.dY := -_1; |
3599 Gear^.dY := -_1; |
3600 Gear^.Pos := Gear^.Pos + 1; |
3600 Gear^.Pos := Gear^.Pos + 1; |
3601 end |
3601 end |
3602 else |
3602 else |