home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / old_apps / comm / slum.scr < prev    next >
Text File  |  2001-02-10  |  5KB  |  267 lines
  1. when "Darkman drops","=x^m"
  2. when "moves to attack you","=x^m"
  3.  
  4. ;Slums MajorMUD Script for MajorMUD!
  5. ;by Death Star       
  6. ;monster table, add new monsters if need be
  7. ;ex. newmnstr="boogie"
  8. orc=" orc"
  9. thg=" thug"
  10. bdy=" bodyguard"
  11. mer=" mercenary"
  12. cul=" cultist"
  13. ;change the } to / if you have spells, ex. h1="{HP=1/"
  14. h1="{HP=1/"
  15. h2="{HP=2/"
  16. h3="{HP=3/"
  17. h4="{HP=4/"
  18. h5="{HP=5/"
  19. h6="{HP=6/"
  20. h7="{HP=7/"
  21. h8="{HP=8/"
  22. h9="{HP=9/"
  23. h10="{HP=10/"
  24. h11="{HP=11/"
  25. h12="{HP=12/"
  26. h13="{HP=13/"
  27. h14="{HP=14/"
  28. h15="{HP=15/"
  29. h16="{HP=16/"
  30. h17="{HP=17/"
  31. h18="{HP=18/"
  32. h19="{HP=19/"
  33. h20="{HP=20/"
  34. h21="{HP=21/"
  35. h22="{HP=22/"
  36. h23="{HP=23/"
  37. h24="{HP=24/"
  38. h25="{HP=25/"
  39. h26="{HP=26/"
  40. h27="{HP=27/"
  41. h28="{HP=28/"
  42. h29="{HP=29/"
  43. h30="{HP=30/"
  44. ;put your total amount of Hit points here, ex. htotal="{HP=50/"
  45.   htotal="{HP=62/"
  46. ;put your healing command here, if yer a warrior just put 
  47. ;hcomnd="Rest" or if you have a healing spell, hcomnd="C Rgen"
  48.   hcomnd="drink minor^mC mihl^mRest^m" 
  49. place="Slum Entrance"
  50. INTEGER test3
  51.  
  52. procedure reset
  53.   test1="0"
  54.   test="0"
  55. endproc
  56.  
  57. procedure placecheck
  58.   delay 10
  59.   put ""
  60.   waitfor place, 1
  61.     switch found 
  62.       case 1: test3=test3
  63.     endswitch
  64.   if found
  65.     test1="1"
  66.   else
  67.     put "'[-fr]Not at Slum Entrance![]"
  68.     delay 10
  69.     put "'[-fr]Halting Execution.[]"
  70.     repeat
  71.       delay 50
  72.     until 1=2
  73.   endif
  74.   delay 10
  75. endproc       
  76.  
  77. procedure healstuff
  78.   repeat
  79.     test2="0"
  80.     put hcomnd
  81.     delay 30
  82.     put hcomnd
  83.     delay 30
  84.     put hcomnd
  85.     ;change this delay to 100,200, or 300 if you are using Rest
  86.     ;as the hcomnd
  87.     delay 300
  88.     put ""
  89.     waitfor htotal, 1
  90.       switch found
  91.         case 1: test2="1"
  92.       endswitch
  93.   until test2="1"
  94. endproc
  95.  
  96. procedure main
  97.   waitfor "Obvious exits:"  
  98.   put ""
  99.   ;also change this for new monsters
  100.   ;ex. waitfor orc,thg,bdy,mer,cul,newmnstr
  101.   waitfor orc,thg,bdy,mer,cul,"do not see", 1
  102.     switch found
  103.       case 1: put "a ",orc
  104.       case 2: put "a ",thg
  105.       case 3: put "a ",bdy
  106.       case 4: put "a ",mer
  107.       case 5: put "a ",cul
  108.       ;add new case for new monsters
  109.       ;ex. case 7: put "a ",newmnstr
  110.     endswitch       
  111.   if found
  112.     test="1"
  113.   else
  114.     test="0"
  115.     put ""
  116.     ;change here for what hps you want to heal at
  117.     ;right now its 1-30 hps
  118.     waitfor h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23,h24,h25,h26,h27,h28,h29,h30, 1
  119.     if found
  120.       healstuff
  121.     else
  122.       test3=test3                                 
  123.     endif
  124.   endif
  125.   if test="1"
  126.     repeat
  127.       test1="0"
  128.       waitfor "just killed","drop to the","You gain","You say","combat Off*", 1
  129.         switch found
  130.           case 1: test1="1"
  131.           case 2: put "get sil^m"
  132.           case 3: test1="1"
  133.           case 4: test1="1"                  
  134.           case 5: test1="1"                                  
  135.           case 6: test1="1"
  136.         endswitch
  137.     until found
  138.   endif
  139. endproc
  140.  
  141. procedure drop
  142.   put "hide 100 sil^m hide 100 copp^m"
  143.   main
  144.   test3=test3+1
  145. endproc
  146.  
  147. procedure south
  148.   put "S"
  149.   main
  150.   test3=test3+1
  151. endproc
  152.  
  153. procedure north
  154.   put "N"
  155.   main
  156.   test3=test3+1
  157. endproc
  158.  
  159. procedure west
  160.   put "W"
  161.   main
  162.   test3=test3+1
  163. endproc
  164.  
  165. procedure east
  166.   put "E"
  167.   main
  168.   test3=test3+1
  169. endproc
  170.  
  171. procedure southeast
  172.   put "SE"
  173.   main
  174.   test3=test3+1
  175. endproc
  176.  
  177. procedure southwest
  178.   put "SW"
  179.   main
  180.   test3=test3+1
  181. endproc
  182.       
  183. procedure northeast
  184.   put "NE"
  185.   main
  186.   test3=test3+1
  187. endproc
  188.  
  189. procedure up
  190.   put "U"
  191.   main
  192.   test3=test3+1
  193. endproc
  194.  
  195. procedure down
  196.   put "D"
  197.   main
  198.   test3=test3+1
  199. endproc
  200.            
  201. procedure bank
  202.   delay 15
  203.   put "N^MN"
  204.   delay 20
  205.   put "S"
  206.   delay 30
  207. endproc
  208.  
  209. placecheck
  210. repeat
  211.   reset
  212.   test3=0
  213.   repeat
  214.     reset
  215.     south
  216.   until test3=4
  217.   test3=0
  218.   repeat 
  219.     reset
  220.     east    
  221.   until test3=5
  222.   put "SE"
  223.   delay 30
  224.   put "NE"
  225.   delay 30
  226.   reset
  227.   southeast
  228.   test3=0
  229.   repeat
  230.     reset
  231.     south
  232.   until test3=7
  233.   reset
  234.   southwest
  235.   test3=0
  236.   repeat
  237.     reset
  238.     south
  239.   until test3=4
  240.   test3=0
  241.   repeat 
  242.     reset
  243.     west
  244.   until test3=10
  245.   reset
  246.   north
  247.   reset
  248.   west
  249.   test3=0
  250.   repeat
  251.     reset
  252.     north
  253.   until test3=4
  254.   test3=0
  255.   repeat
  256.     reset
  257.     east
  258.   until test3=4
  259.   test3=0
  260.   repeat
  261.     reset
  262.     north
  263.   until test3=11
  264.   bank
  265. until 1=0
  266.                       
  267.