home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp16.lua < prev    next >
Text File  |  2003-07-29  |  5KB  |  107 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #016
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  8.  
  9. set_actor("ac-blackball", 2.5,1.5, {player=0})
  10. fill_floor("fl-water",0,0,levelw,levelh)
  11. fill_floor("fl-sand",1,0,levelw-3,levelh)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c ==   "#" then
  17.          set_stone("st-door_b", i-1,line)
  18.       elseif c=="1" then
  19.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_1"})
  20.       elseif c=="2" then
  21.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_2"})         
  22.       elseif c=="3" then
  23.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_3"})
  24.       elseif c=="4" then
  25.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_4"})    
  26.       elseif c=="5" then
  27.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_5"})
  28.       elseif c=="6" then
  29.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_6"})         
  30.       elseif c=="7" then
  31.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_7"})
  32.       elseif c=="8" then
  33.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_8"})    
  34.       elseif c=="9" then
  35.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_9"})
  36.       elseif c=="a" then
  37.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_10"})         
  38.       elseif c=="b" then
  39.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_11"})
  40.       elseif c=="c" then
  41.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_12"})    
  42.       elseif c=="d" then
  43.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_13"})
  44.       elseif c=="e" then
  45.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_14"})         
  46.       elseif c=="f" then
  47.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_15"})
  48.       elseif c=="g" then
  49.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_16"})    
  50.       elseif c=="h" then
  51.          set_item("it-trigger", i-1,line, {invisible=1,action="open", target="door_17"})    
  52.       elseif c=="J" then
  53.          set_stone("st-door_b", i-1,line, {name="door_1", type="v"})
  54.       elseif c=="K" then
  55.          set_stone("st-door_b", i-1,line, {name="door_2", type="v"})         
  56.       elseif c=="L" then
  57.          set_stone("st-door_b", i-1,line, {name="door_3", type="v"})
  58.       elseif c=="M" then
  59.          set_stone("st-door_b", i-1,line, {name="door_4", type="v"})    
  60.       elseif c=="N" then
  61.          set_stone("st-door_b", i-1,line, {name="door_5", type="v"})
  62.       elseif c=="P" then
  63.          set_stone("st-door_b", i-1,line, {name="door_6", type="v"})         
  64.       elseif c=="Q" then
  65.          set_stone("st-door_b", i-1,line, {name="door_7", type="v"})
  66.       elseif c=="R" then
  67.          set_stone("st-door_b", i-1,line, {name="door_8", type="v"})    
  68.       elseif c=="I" then
  69.          set_stone("st-door_b", i-1,line, {name="door_9", type="v"})
  70.       elseif c=="A" then
  71.          set_stone("st-door_b", i-1,line, {name="door_10", type="v"})         
  72.       elseif c=="B" then
  73.          set_stone("st-door_b", i-1,line, {name="door_11", type="v"})
  74.       elseif c=="C" then
  75.          set_stone("st-door_b", i-1,line, {name="door_12", type="v"})    
  76.       elseif c=="D" then
  77.          set_stone("st-door_b", i-1,line, {name="door_13", type="v"})
  78.       elseif c=="E" then
  79.          set_stone("st-door_b", i-1,line, {name="door_14", type="v"})         
  80.       elseif c=="F" then
  81.          set_stone("st-door_b", i-1,line, {name="door_15", type="v"})
  82.       elseif c=="G" then
  83.          set_stone("st-door_b", i-1,line, {name="door_16", type="v"})    
  84.       elseif c=="H" then
  85.          set_stone("st-door_b", i-1,line, {name="door_17", type="v"})          
  86.       elseif c=="O" then
  87.      oxyd(i-1,line)
  88.         end
  89.     end  
  90. end
  91. --               01234567890123456789
  92. renderLine(00 , " #################  ")
  93. renderLine(01 , " #   #   #   #   #  ")
  94. renderLine(02 , " # O9I9OaAaObBbO #  ")
  95. renderLine(03 , " # 1 # 2 # 3 # 4 #  ")
  96. renderLine(04 , " ##J###K###L###M##  ")  
  97. renderLine(05 , " # 1 # 2 # 3 # 4 #  ")
  98. renderLine(06 , " # OcCcOdDdOeEeO #  ")
  99. renderLine(07 , " # 5 # 6 # 7 # 8 #  ")
  100. renderLine(08 , " ##N###P###Q###R##  ")
  101. renderLine(09 , " # 5 # 6 # 7 # 8 #  ")
  102. renderLine(10 , " # OfFfOgGgOhHhO #  ")
  103. renderLine(11 , " #   #   #   #   #  ")
  104. renderLine(12 , " #################  ")
  105. --               01234567890123456789
  106. oxyd_shuffle()
  107.