home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried73.lua < prev    next >
Encoding:
Text File  |  2003-03-04  |  1.4 KB  |  46 lines
  1. --Siegfried Fennig 04.03.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "a"
  9. fill_floor("fl-samba", 0,0, level_width,level_height)
  10.  
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c =="#" then
  15.          fill_floor("fl-abyss", i-1,line, 1,1)
  16.       elseif c == "s" then
  17.          set_stone("st-scissors",i-1,line)
  18.       elseif c == "h" then
  19.          set_item("it-hollow",i-1,line)
  20.         end
  21.     end
  22. end
  23. --              01234567890123456789
  24. renderLine(00, "####################")
  25. renderLine(01, "####################")
  26. renderLine(02, "####################")
  27. renderLine(03, "####################")
  28. renderLine(04, "#  #####h########  #")
  29. renderLine(05, "#  ###        ###  #")
  30. renderLine(06, "       s    s       ")
  31. renderLine(07, "#  ###        ###  #")
  32. renderLine(08, "#  ########h#####  #")
  33. renderLine(09, "####################")
  34. renderLine(10, "####################")
  35. renderLine(11, "####################")
  36. renderLine(12, "####################")
  37. --              01234567890123456789
  38.  
  39. local st1=set_stone("st-rubberband", 0, 6)
  40. local st2=set_stone("st-rubberband",19, 6)
  41.  
  42. local ac1=set_actor("ac-whiteball-small",  2.5,6.5, {player=0, mouseforce=1})
  43. local ac2=set_actor("ac-whiteball-small", 17.5,6.5, {player=0, mouseforce=1})
  44.  
  45. AddRubberBand( ac1, st1, 4, 1)
  46. AddRubberBand( ac2, st2, 4, 1)