( General Resource Editor for Furryfaire - (C) 2007 Alynna Trypnotk - All rights reserved. Player commands: @rset Display your current resource roll information @rset #on Automatically roll your resource rolls when staff commits them @rset #off Turn off automatic resource rolls Wiz commands: @rset See someone elses resource roll @rclear Clear resource roll information @rlist See all resource rolls currently set on everyone @rset ==== Set a player's resource roll. @rcommit Give everyone their resources. ) $include $lib/alynna $include $lib/rp $include $lib/rps/dice lvar param : resource.help prog 2 16 program_getlines me @ 1 array_make array_notify ; : resource.list me @ mlevel 5 < if "^RED^Permission denied." .tell exit then "Resource rolls currently registered" header tellme #-1 "*" "P" find_array foreach var! target pop target @ "resource/skill" getstat not if continue then { target @ "resource/disable" getstat not if "^GREEN^" else "^RED^" then { target @ " (" target @ "resource/skill" getstatstr capitalize ")" }cat 30 lj "^PURPLE^" { "MinSucc: " target @ "resource/minsucc" getstat }cat 15 lj "^YELLOW^" { "AddlSucc: " target @ "resource/addsucc" getstat }cat 15 lj "^CYAN^" { "BonusDie: " target @ "resource/bonusdie" getstat }cat 15 lj }tell repeat "Resource v1.0" footer tellme ; : resource.commit var info var succs var target me @ mlevel 5 < if "^RED^Permission denied." .tell exit then #-1 "*" "P" find_array foreach target ! pop target @ "resource/skill" getstat not if continue then target @ mresources not if continue then target @ "resource/disable" getstat if continue then { "Resources: " target @ mresources "; " "Skill: " target @ "resource/skill" getstat "; " "MinSucc: " target @ "resource/minsucc" getstat "; " "AddlSucc: " target @ "resource/addsucc" getstat "; " "BonusDie: " target @ "resource/bonusdie" getstat "; " "Roll: " target @ mresources target @ { "social" target @ "resource/skill" getstatstr target @ "resource/bonusdie" getstatint tostr "d12" strcat target @ "resource/addsucc" getstatint tostr }array roll succs ! swap pop "; " succs @ target @ "resource/minsucc" getstat toint < if target @ "resource/minsucc" getstat toint succs ! then target @ "m/resources" over over getstat -- succs @ + setstat "Resources earned: " succs @ "." }cat 1 unparse_ansi var! info "$AVATAR" match { "p #mail " target @ "=Results of your resource roll: " info @ }cat force "$AVATAR" match { "!wc #" target @ ": " info @ }cat force repeat ; : resource.pset me @ var! target target @ "resource/skill" getstat var! skill target @ "resource/minsucc" getstat var! minsucc target @ "resource/addsucc" getstat var! addsucc target @ "resource/bonusdie" getstat var! bonusdie { target @ "'s resource roll: social+" skill @ "+" bonusdie @ "d12+" addsucc @ "!" target @ mresources " (" minsucc @ " minimum successes)" target @ "resource/disable" getstat if " (^RED^Disabled^ ^)" else " (^GREEN^Enabled^ ^)" then }cat "Resource" pretty tellme ; : resource.set param @ "#on" smatch if me @ "resource/disable" 0 setstat { "Automated resource rolls are now ^GREEN^ON^ ^." }cat "Resource" pretty tellme exit then param @ "#off" smatch if me @ "resource/disable" 1 setstat { "Automated resource rolls are now ^RED^OFF^ ^." }cat "Resource" pretty tellme exit then param @ not if resource.pset exit then me @ mlevel 5 < if resource.pset exit then param @ not if resource.help exit then param @ "=" explode_array var! params params @ 0 [] var! target params @ 1 [] var! skill params @ 2 [] var! minsucc params @ 3 [] var! addsucc params @ 4 [] var! bonusdie target @ resolver target ! target @ int 0 < if { "Couldn't find the requested target." }tell exit then skill @ if { "skills" skill @ "type" }rpinfo { "*Income Skill*" }cat smatch not if { "The skill specified is not an income skill." }tell exit then target @ "resource/skill" skill @ setstat target @ "resource/minsucc" minsucc @ setstat target @ "resource/addsucc" addsucc @ setstat target @ "resource/bonusdie" bonusdie @ setstat then target @ "resource/skill" getstat skill ! target @ "resource/minsucc" getstat minsucc ! target @ "resource/addsucc" getstat addsucc ! target @ "resource/bonusdie" getstat bonusdie ! { target @ "'s resource roll: social+" skill @ "+" bonusdie @ "d12+" addsucc @ "!" target @ mresources " (" minsucc @ " minimum successes)" target @ "resource/disable" getstat if " (^RED^Disabled^ ^)" else " (^GREEN^Enabled^ ^)" then }cat "Resource" pretty tellme ; : resource.clear me @ mlevel 5 < if "^RED^Permission denied." .tell exit then param @ resolver var! target target @ int 0 < if { "Couldn't find the requested target." }tell exit then target @ "/@rp/resource/" remove_prop { "^YELLOW^Cleared " target @ "'s resource roll information." }tell ; : main param ! param @ "#help" smatch if resource.help exit then command @ "@rcommit" smatch if resource.commit exit then command @ "@rset" smatch if resource.set exit then command @ "@rclear" smatch if resource.clear exit then command @ "@rlist" smatch if resource.list exit then resource.help ;