equal
deleted
inserted
replaced
470 inc(hiTicks) // we do not recieve a message for this |
470 inc(hiTicks) // we do not recieve a message for this |
471 end; |
471 end; |
472 AddRandomness(CheckSum); |
472 AddRandomness(CheckSum); |
473 ScriptCall('onGameTick'); |
473 ScriptCall('onGameTick'); |
474 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20'); |
474 if GameTicks mod 20 = 0 then ScriptCall('onGameTick20'); |
|
475 |
475 inc(GameTicks) |
476 inc(GameTicks) |
476 end; |
477 end; |
477 |
478 |
478 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn |
479 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn |
479 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here. |
480 //If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here. |
654 snowRight:= max(LAND_WIDTH,4096)+512; |
655 snowRight:= max(LAND_WIDTH,4096)+512; |
655 snowLeft:= -(snowRight-LAND_WIDTH); |
656 snowLeft:= -(snowRight-LAND_WIDTH); |
656 |
657 |
657 if (not hasBorder) and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
658 if (not hasBorder) and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
658 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
659 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
659 AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LongInt(LAND_HEIGHT + GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0); |
660 AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LAND_HEIGHT + LongInt(GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0); |
660 end; |
661 end; |
661 |
662 |
662 |
663 |
663 procedure ShotgunShot(Gear: PGear); |
664 procedure ShotgunShot(Gear: PGear); |
664 var t: PGear; |
665 var t: PGear; |