home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp80.lua < prev    next >
Encoding:
Text File  |  2003-09-24  |  1.3 KB  |  43 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #080
  3. -- 
  4.  
  5. levelw = 20
  6. levelh = 13
  7. create_world(levelw, levelh)
  8.  
  9. fill_floor("fl-bluegray", 0,0, level_width,level_height)
  10.  
  11. enigma.AddConstantForce(0,20)
  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-rock6",i-1,line)
  18.       elseif c=="H" then
  19.          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, "#        #H#       #")
  30. renderLine(06, "#        #H#       #")
  31. renderLine(07, "#        #H#       #")
  32. renderLine(08, "#                  #")
  33. renderLine(09, "#                  #")
  34. renderLine(10, "#                  #")
  35. renderLine(11, "#                  #")
  36. renderLine(12, "####################")
  37. --              01234567890123456789
  38.  
  39. set_actor("ac-whiteball-small", 2.5, 11.5, {player=0, mouseforce=1})
  40. set_actor("ac-whiteball-small",7.5, 11.5, {player=0, mouseforce=1})
  41. set_actor("ac-whiteball-small", 13.5, 11.5, {player=0, mouseforce=1})
  42. set_actor("ac-whiteball-small",17.5, 11.5, {player=0, mouseforce=1})
  43.