home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss5.lua < prev    next >
Encoding:
Text File  |  2003-10-07  |  4.6 KB  |  126 lines
  1. -- Smutty Smurf 2003
  2.  
  3. levelw = 39
  4. levelh = 13
  5. enigma.ConserveLevel = FALSE        -- dh
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "c"
  8. set_actor("ac-blackball", 10,6.5, {player=0})
  9.  
  10. fill_floor("fl-water",0,1,1,13)
  11. fill_floor("fl-concrete",1,0,19,13)
  12. fill_floor("fl-abyss",20,0,19,13)
  13.  
  14.  
  15. function renderLine( line, pattern)
  16.     for i=1, strlen(pattern) do
  17.       local c = strsub( pattern, i, i)
  18.       if c ==   "#" then
  19.          set_stone("st-blue-sand", i-1,line)
  20.       elseif c =="C" then                                
  21.          set_stone("st-stone_break", i-1,line) 
  22.       elseif c =="A" then
  23.          set_floor("fl-bridge", i-1,line,{type="x",name="bridge"})
  24.          enigma.SendMessage(enigma.GetNamedObject("bridge"), "close", nil)        
  25.       elseif c =="E" then
  26.          set_stone("st-blocker", i-1,line,{name="exit"})            
  27.       elseif c=="W" then
  28.      set_stone("st-window", i-1,line)    
  29.       elseif c=="S" then
  30.          set_stone("st-switch_black", i-1,line, {action="trigger", target="exit"})              
  31.       elseif c=="T" then
  32.          set_stone( "st-timer", i-1,line, {action="callback", target="breakdam"})      
  33.       elseif c=="D" then
  34.          document(i-1,line, "Flood Control Dam #3 seems rather unstable. Be quick or be dead.")                 
  35.       elseif c=="O" then                                                               
  36.      oxyd(i-1,line)         
  37.         end
  38.     end  
  39. end
  40. --               012345678901234567890123456789012345678
  41. renderLine(00 , "##################S###################T")
  42. renderLine(01 , "C                #W#                  #")
  43. renderLine(02 , "C                  #                  #")
  44. renderLine(03 , "C                  #                  #")
  45. renderLine(04 , "C                  #                  #")  
  46. renderLine(05 , "C                  #                  #")
  47. renderLine(06 , "CD                 EAAA               #")
  48. renderLine(07 , "C                  #  AAA             #")
  49. renderLine(08 , "C                  #    AAA           #")
  50. renderLine(09 , "C                  #      AAA         #")
  51. renderLine(10 , "C                  #        AAA       #")
  52. renderLine(11 , "C                  #          AAAAAAAAO")
  53. renderLine(12 , "###########O###########################") 
  54. --               012345678901234567890123456789012345678
  55.  
  56. x=0
  57.  
  58. function breakdam()
  59. x=x+1
  60. if x==1 then 
  61. draw_stones("st-stone_break",{0,1},{0,1},11)
  62. elseif x==2 then 
  63.   enigma.KillStone(0,1)
  64.   enigma.KillStone(0,2)
  65.   enigma.KillStone(0,3)
  66.   enigma.KillStone(0,4)
  67.   enigma.KillStone(0,5)
  68.   enigma.KillStone(0,6)
  69.   enigma.KillStone(0,7)
  70.   enigma.KillStone(0,8)      
  71.   enigma.KillStone(0,9)
  72.   enigma.KillStone(0,10)
  73.   enigma.KillStone(0,11)        
  74. elseif x==3 then 
  75.   draw_floor("fl-water",{1,1},{0,1},11)                                                
  76.   draw_floor("fl-water",{2,1},{0,1},11)  
  77.   draw_floor("fl-water",{3,1},{0,1},11)  
  78. elseif x==4 then
  79.   draw_floor("fl-water",{4,1},{0,1},11)  
  80.   draw_floor("fl-water",{5,1},{0,1},11)  
  81.   draw_floor("fl-water",{6,1},{0,1},11)  
  82.   draw_floor("fl-water",{7,1},{0,1},11)  
  83.   draw_floor("fl-water",{8,1},{0,1},11)  
  84. elseif x==5 then
  85.   draw_floor("fl-water",{9,1},{0,1},11)  
  86.   draw_floor("fl-water",{10,1},{0,1},11)  
  87.   draw_floor("fl-water",{11,1},{0,1},11)  
  88.   draw_floor("fl-water",{12,1},{0,1},11)  
  89.   draw_floor("fl-water",{13,1},{0,1},11)  
  90. elseif x==6 then
  91.   draw_floor("fl-water",{14,1},{0,1},11)  
  92.   draw_floor("fl-water",{15,1},{0,1},11)  
  93.   draw_floor("fl-water",{16,1},{0,1},11)  
  94.   draw_floor("fl-water",{17,1},{0,1},11)  
  95.   draw_floor("fl-water",{18,1},{0,1},11)  
  96.   draw_floor("fl-water",{19,1},{0,1},11)  
  97. elseif x==7 then
  98.   draw_floor("fl-water",{20,1},{0,1},11)  
  99.   draw_floor("fl-water",{21,1},{0,1},11)  
  100.   draw_floor("fl-water",{22,1},{0,1},11)  
  101.   draw_floor("fl-water",{23,1},{0,1},11)  
  102.   draw_floor("fl-water",{24,1},{0,1},11)  
  103.   draw_floor("fl-water",{25,1},{0,1},11)  
  104. elseif x==8 then
  105.   draw_floor("fl-water",{26,1},{0,1},11)  
  106.   draw_floor("fl-water",{27,1},{0,1},11)  
  107.   draw_floor("fl-water",{28,1},{0,1},11)  
  108.   draw_floor("fl-water",{29,1},{0,1},11)  
  109.   draw_floor("fl-water",{30,1},{0,1},11)  
  110.   draw_floor("fl-water",{31,1},{0,1},11)  
  111.   draw_floor("fl-water",{32,1},{0,1},11)  
  112. elseif x==9 then
  113.   draw_floor("fl-water",{33,1},{0,1},11)  
  114.   draw_floor("fl-water",{34,1},{0,1},11)  
  115.   draw_floor("fl-water",{35,1},{0,1},11)  
  116.   draw_floor("fl-water",{36,1},{0,1},11)  
  117.   draw_floor("fl-water",{37,1},{0,1},11)  
  118.   draw_floor("fl-water",{38,1},{0,1},11)  
  119.   draw_floor("fl-water",{39,1},{0,1},11)  
  120.   end
  121. end
  122.  
  123.  
  124.  
  125.  
  126.