308 tValue = wepAmmo[2] |
308 tValue = wepAmmo[2] |
309 end |
309 end |
310 |
310 |
311 DeleteVisualGear(vTag[i]) |
311 DeleteVisualGear(vTag[i]) |
312 vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false) |
312 vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false) |
313 g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i]) |
|
314 SetVisualGearValues ( |
313 SetVisualGearValues ( |
315 vTag[i], --id |
314 vTag[i], --id |
316 -(ScreenWidth/2) + xOffset, --xoffset |
315 -(ScreenWidth/2) + xOffset, --xoffset |
317 ScreenHeight - yOffset, --yoffset |
316 ScreenHeight - yOffset, --yoffset |
318 0, --dx |
317 0, --dx |
319 0, --dy |
318 0, --dy |
320 zoomL, --zoom |
319 zoomL, --zoom |
321 1, --~= 0 means align to screen |
320 1, --~= 0 means align to screen |
322 g7, --frameticks |
321 nil, --frameticks |
323 tValue, --value |
322 tValue, --value |
324 240000, --timer |
323 240000, --timer |
325 tCol --GetClanColor( GetHogClan(CurrentHedgehog) ) |
324 tCol --GetClanColor( GetHogClan(CurrentHedgehog) ) |
326 ) |
325 ) |
327 |
326 |
680 -- randomly create new barrels mines on the map every turn (can be disabled by setting mine/barrels to 0 in scheme) |
679 -- randomly create new barrels mines on the map every turn (can be disabled by setting mine/barrels to 0 in scheme) |
681 for i = 0, barrelSpawn-1 do |
680 for i = 0, barrelSpawn-1 do |
682 gear = AddGear(100, 100, gtExplosives, 0, 0, 0, 0) |
681 gear = AddGear(100, 100, gtExplosives, 0, 0, 0, 0) |
683 SetHealth(gear, 100) |
682 SetHealth(gear, 100) |
684 if FindPlace(gear, false, 0, LAND_WIDTH, false) ~= nil then |
683 if FindPlace(gear, false, 0, LAND_WIDTH, false) ~= nil then |
685 tempE = AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false) |
684 AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false) |
686 end |
685 end |
687 end |
686 end |
688 for i = 0, mineSpawn-1 do |
687 for i = 0, mineSpawn-1 do |
689 gear = AddGear(100, 100, gtMine, 0, 0, 0, 0) |
688 gear = AddGear(100, 100, gtMine, 0, 0, 0, 0) |
690 if FindPlace(gear, false, 0, LAND_WIDTH, false) ~= nil then |
689 if FindPlace(gear, false, 0, LAND_WIDTH, false) ~= nil then |
691 tempE = AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false) |
690 AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false) |
692 end |
691 end |
693 end |
692 end |
694 |
693 |
695 -- randomly spawn time extension crates / flamer fuel on the map |
694 -- randomly spawn time extension crates / flamer fuel on the map |
696 r = GetRandom(100) |
695 r = GetRandom(100) |
779 --------------- |
778 --------------- |
780 -- new trail code |
779 -- new trail code |
781 --------------- |
780 --------------- |
782 -- the trail lets you know you have 5s left to pilot, akin to birdy feathers |
781 -- the trail lets you know you have 5s left to pilot, akin to birdy feathers |
783 if (TimeLeft <= 5) and (TimeLeft > 0) then |
782 if (TimeLeft <= 5) and (TimeLeft > 0) then |
784 tempE = AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmoke, 0, false) |
783 local tempE = AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmoke, 0, false) |
785 g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) |
784 SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(CurrentHedgehog)) ) |
786 SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, GetClanColor(GetHogClan(CurrentHedgehog)) ) |
|
787 end |
785 end |
788 -------------- |
786 -------------- |
789 |
787 |
790 dx, dy = GetGearVelocity(CurrentHedgehog) |
788 dx, dy = GetGearVelocity(CurrentHedgehog) |
791 |
789 |