Guest User

Untitled

a guest
Jan 17th, 2019
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.92 KB | None | 0 0
  1. initevents
  2.  
  3.  
  4. event property #lobjectid
  5.  
  6.  
  7. gosub getArmourProperty luck #property
  8.  
  9.  
  10. set %luck %return
  11.  
  12.  
  13. gosub getArmourProperty physical #property
  14.  
  15.  
  16. set %phys %return
  17.  
  18.  
  19. gosub getArmourProperty fire #property
  20.  
  21.  
  22. set %fire %return
  23.  
  24.  
  25. gosub getArmourProperty cold #property
  26.  
  27.  
  28. set %cold %return
  29.  
  30.  
  31. gosub getArmourProperty poison #property
  32.  
  33.  
  34. set %poison %return
  35.  
  36.  
  37. gosub getArmourProperty energy #property
  38.  
  39.  
  40. set %energy %return
  41.  
  42.  
  43. gosub getArmour Property reagent #property
  44.  
  45.  
  46. set %reagent %return
  47.  
  48.  
  49. gosub getArmourProperty mage #property
  50.  
  51.  
  52. set %mage %return
  53.  
  54.  
  55.  
  56.  
  57.  
  58. display ok Luck: %luck , $ Physical: %phys , $ Fire: %fire , $ Cold: %cold , $
  59.  
  60.  
  61. + , #spc , Poison: %poison , $ Energy: %energy , $ Lower Reg: %reagent , $
  62.  
  63.  
  64. + , #spc , Mage: %mage
  65.  
  66.  
  67. halt
  68.  
  69.  
  70.  
  71.  
  72.  
  73. sub getArmourProperty
  74.  
  75.  
  76. ; %1 = luck
  77.  
  78.  
  79. ; %2 = ID
  80.  
  81.  
  82. ; event property %2
  83.  
  84.  
  85. if %1 = mage 2
  86.  
  87.  
  88. set %return %1 in %2
  89.  
  90.  
  91. return
  92.  
  93.  
  94. if %1 notin %2 2
  95.  
  96.  
  97. set %return #false
  98.  
  99.  
  100. return
  101.  
  102.  
  103. str len %1
  104.  
  105.  
  106. set %charlen #strres
  107.  
  108.  
  109. set %return %2
  110.  
  111.  
  112. str pos %return %1
  113.  
  114.  
  115. set %id$no #strres
  116.  
  117.  
  118. find_dollar:
  119.  
  120.  
  121. str pos %return $
  122.  
  123.  
  124. if #strres < %id$no
  125.  
  126.  
  127. {
  128.  
  129.  
  130. str del %return #strres 1
  131.  
  132.  
  133. set %return #strres
  134.  
  135.  
  136. goto find_dollar
  137.  
  138.  
  139. }
  140.  
  141.  
  142. str left %return #strres
  143.  
  144.  
  145. set %return #strres
  146.  
  147.  
  148. str pos %return %1
  149.  
  150.  
  151. set %alpha #strres - 1
  152.  
  153.  
  154. str del %return 1 %alpha
  155.  
  156.  
  157. set %return #strres
  158.  
  159.  
  160. set %charlen %charlen + 1
  161.  
  162.  
  163. str del %return 1 %charlen
  164.  
  165.  
  166. set %return #strres
  167.  
  168.  
  169. if $ in %return 3
  170.  
  171.  
  172. str pos %return $
  173.  
  174.  
  175. str del %return #strres 1
  176.  
  177.  
  178. set %return #strres
  179.  
  180.  
  181. if resist in %return 2
  182.  
  183.  
  184. str del %return 1 7
  185.  
  186.  
  187. set %return #strres
  188.  
  189.  
  190. if requirement in %return 2
  191.  
  192.  
  193. str del %return 1 12
  194.  
  195.  
  196. set %return #strres
  197.  
  198.  
  199. if % in %return 3
  200.  
  201.  
  202. str pos %return %
  203.  
  204.  
  205. str del %return #strres 1
  206.  
  207.  
  208. set %return #strres
  209.  
  210.  
  211. return
Add Comment
Please, Sign In to add comment