home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / weapons / Pandemic.lua < prev    next >
Encoding:
Text File  |  2010-03-11  |  1.5 KB  |  48 lines
  1. --------------------------------------------------------------------------------
  2. -- Weapon Pandemic
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, September 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.pandemic={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.pandemic.gfx_wpn=loadgfx("weapons/pandemic.png")                            -- Weapon Image
  13. setmidhandle(cc.pandemic.gfx_wpn)
  14. cc.pandemic.sfx_attack=loadsfx("pandemic.ogg")                                -- pandemic Sound
  15.  
  16. --------------------------------------------------------------------------------
  17. -- Weapon: Pandemic
  18. --------------------------------------------------------------------------------
  19.  
  20. cc.pandemic.id=addweapon("cc.pandemic","Pandemic",cc.pandemic.gfx_wpn,0,2)    -- Add Weapon (0 uses, first in round 2)
  21.  
  22. function cc.pandemic.draw()                                                    -- Draw
  23.     -- Do nothing
  24. end
  25.  
  26. function cc.pandemic.attack(attack)                                            -- Attack
  27.     if (weapon_shots<=0) then
  28.         if (attack==1) then
  29.             -- No more weapon switching!
  30.             useweapon(0)
  31.             weapon_shots=weapon_shots+1
  32.             -- Effect
  33.             playsound(cc.pandemic.sfx_attack)
  34.             setbgcolor(0,255,0,1.0,0.005)
  35.             -- Poison all Players
  36.             players=playertable()
  37.             for i=1,#players,1 do
  38.                 if getplayerhealth(players[i])>0 and players[i]~=playercurrent() then
  39.                     playerstate(players[i],state_poisoned,1)
  40.                     particle(p_ring,getplayerx(players[i]),getplayery(players[i]))
  41.                     particlecolor(0,255,0)
  42.                 end
  43.             end
  44.             -- End Turn
  45.             endturn()
  46.         end
  47.     end
  48. end