changeset 3971 | 5c82ee165ed5 |
parent 3965 | 09eea558ba83 |
child 3974 | 91ac041ecb20 |
child 3975 | 3f605cca9215 |
3970:0f6e3219c108 | 3971:5c82ee165ed5 |
---|---|
3340 |
3340 |
3341 procedure doStepPortal(Gear: PGear); |
3341 procedure doStepPortal(Gear: PGear); |
3342 var |
3342 var |
3343 iterator, conPortal: PGear; |
3343 iterator, conPortal: PGear; |
3344 s, acptRadius, nx, ny, ox, oy, poffs, noffs, pspeed, nspeed: hwFloat; |
3344 s, acptRadius, nx, ny, ox, oy, poffs, noffs, pspeed, nspeed: hwFloat; |
3345 noTrap, hasdxy: Boolean; |
3345 hasdxy: Boolean; |
3346 begin |
3346 begin |
3347 doPortalColorSwitch(); |
3347 doPortalColorSwitch(); |
3348 |
3348 |
3349 // destroy portal if ground it was attached too is gone |
3349 // destroy portal if ground it was attached too is gone |
3350 if ((Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0) |
3350 if ((Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0) |