Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- initevents
- event property #lobjectid
- gosub getArmourProperty luck #property
- set %luck %return
- gosub getArmourProperty physical #property
- set %phys %return
- gosub getArmourProperty fire #property
- set %fire %return
- gosub getArmourProperty cold #property
- set %cold %return
- gosub getArmourProperty poison #property
- set %poison %return
- gosub getArmourProperty energy #property
- set %energy %return
- gosub getArmour Property reagent #property
- set %reagent %return
- gosub getArmourProperty mage #property
- set %mage %return
- display ok Luck: %luck , $ Physical: %phys , $ Fire: %fire , $ Cold: %cold , $
- + , #spc , Poison: %poison , $ Energy: %energy , $ Lower Reg: %reagent , $
- + , #spc , Mage: %mage
- halt
- sub getArmourProperty
- ; %1 = luck
- ; %2 = ID
- ; event property %2
- if %1 = mage 2
- set %return %1 in %2
- return
- if %1 notin %2 2
- set %return #false
- return
- str len %1
- set %charlen #strres
- set %return %2
- str pos %return %1
- set %id$no #strres
- find_dollar:
- str pos %return $
- if #strres < %id$no
- {
- str del %return #strres 1
- set %return #strres
- goto find_dollar
- }
- str left %return #strres
- set %return #strres
- str pos %return %1
- set %alpha #strres - 1
- str del %return 1 %alpha
- set %return #strres
- set %charlen %charlen + 1
- str del %return 1 %charlen
- set %return #strres
- if $ in %return 3
- str pos %return $
- str del %return #strres 1
- set %return #strres
- if resist in %return 2
- str del %return 1 7
- set %return #strres
- if requirement in %return 2
- str del %return 1 12
- set %return #strres
- if % in %return 3
- str pos %return %
- str del %return #strres 1
- set %return #strres
- return
Add Comment
Please, Sign In to add comment