home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss8.lua < prev    next >
Text File  |  2003-09-12  |  1KB  |  38 lines
  1. -- Sven Siggelkow 2003
  2.  
  3. levelw = 20
  4. levelh = 13
  5. create_world(levelw, levelh)
  6. oxyd_default_flavor = "d"
  7. set_actor("ac-blackball", 10, 6.5, {player=0})
  8. draw_checkerboard_floor( "fl-inverse", "fl-ice_001", 0, 0,levelw,levelh)
  9. function renderLine( line, pattern)
  10.     for i=1, strlen(pattern) do
  11.       local c = strsub( pattern, i, i)
  12.       if c ==   "#" then
  13.          set_floor("fl-abyss",i-1,line)
  14.       elseif c =="m" then                                                               
  15.          set_item("it-landmine",i-1,line, {targetx="1.5",targety="8.5",strength=0})
  16.       elseif c=="O" then
  17.      oxyd(i-1,line) 
  18.         end
  19.     end
  20. end
  21. --              01234567890123456789
  22. renderLine(00, "####################")
  23. renderLine(01, "####     m  m   ####")
  24. renderLine(02, "##Om  m       m  O##")
  25. renderLine(03, "##mm      m     m ##")
  26. renderLine(04, "##        m   m   ##")  
  27. renderLine(05, "# m    m           #")
  28. renderLine(06, "#   m       m      #")
  29. renderLine(07, "#      m  m  m  m  #")
  30. renderLine(08, "## m              ##")
  31. renderLine(09, "##m  m    m     m ##")
  32. renderLine(10, "##Om      m      O##")
  33. renderLine(11, "####   m    m   ####")
  34. renderLine(12, "####################")
  35. --              01234567890123456789
  36.                               
  37. oxyd_shuffle()
  38.