equal
deleted
inserted
replaced
145 |
145 |
146 WorldDx: LongInt; |
146 WorldDx: LongInt; |
147 WorldDy: LongInt; |
147 WorldDy: LongInt; |
148 |
148 |
149 hiTicks: Word; |
149 hiTicks: Word; |
|
150 |
|
151 LuaGoals : shortstring; |
150 |
152 |
151 const |
153 const |
152 cHHFileName = 'Hedgehog'; |
154 cHHFileName = 'Hedgehog'; |
153 cCHFileName = 'Crosshair'; |
155 cCHFileName = 'Crosshair'; |
154 cThemeCFGFilename = 'theme.cfg'; |
156 cThemeCFGFilename = 'theme.cfg'; |
2000 PosCount: 1; |
2002 PosCount: 1; |
2001 PosSprite: sprWater; |
2003 PosSprite: sprWater; |
2002 ejectX: 0; |
2004 ejectX: 0; |
2003 ejectY: 0), |
2005 ejectY: 0), |
2004 |
2006 |
|
2007 // Tardis (just a copy of teleport til nemo arives) |
|
2008 (NameId: sidTardis; |
|
2009 NameTex: nil; |
|
2010 Probability: 200; |
|
2011 NumberInCase: 1; |
|
2012 Ammo: (Propz: ammoprop_ForwMsgs or |
|
2013 ammoprop_NoCrosshair or |
|
2014 ammoprop_NeedTarget or |
|
2015 ammoprop_AttackingPut or |
|
2016 ammoprop_Utility or |
|
2017 ammoprop_DontHold; |
|
2018 Count: 2; |
|
2019 NumPerTurn: 0; |
|
2020 Timer: 0; |
|
2021 Pos: 0; |
|
2022 AmmoType: amTardis; |
|
2023 AttackVoice: sndNone); |
|
2024 Slot: 7; |
|
2025 TimeAfterTurn: 0; |
|
2026 minAngle: 0; |
|
2027 maxAngle: 0; |
|
2028 isDamaging: false; |
|
2029 SkipTurns: 0; |
|
2030 PosCount: 2; |
|
2031 PosSprite: sprAmTeleport; |
|
2032 ejectX: 0; |
|
2033 ejectY: 0), |
|
2034 |
2005 // Structure |
2035 // Structure |
2006 (NameId: sidStructure; |
2036 (NameId: sidStructure; |
2007 NameTex: nil; |
2037 NameTex: nil; |
2008 Probability: 0; |
2038 Probability: 0; |
2009 NumberInCase: 1; |
2039 NumberInCase: 1; |
2322 vobSDFrameTicks:= 0; |
2352 vobSDFrameTicks:= 0; |
2323 vobSDFramesCount:= 0; |
2353 vobSDFramesCount:= 0; |
2324 vobSDCount:= 30 * cScreenSpace div LAND_WIDTH; |
2354 vobSDCount:= 30 * cScreenSpace div LAND_WIDTH; |
2325 vobSDVelocity:= 0; |
2355 vobSDVelocity:= 0; |
2326 vobSDFallSpeed:= 0; |
2356 vobSDFallSpeed:= 0; |
|
2357 |
|
2358 LuaGoals:= ''; |
2327 end; |
2359 end; |
2328 |
2360 |
2329 procedure freeModule; |
2361 procedure freeModule; |
2330 begin |
2362 begin |
2331 // re-init flags so they will always contain safe values |
2363 // re-init flags so they will always contain safe values |