$include $lib/alynna $include $lib/rp lvar target lvar param : +mate/propose { "^PURPLE^So you want to pop the question to " target @ "? ^YELLOW^(Y/n)" }tell read "y*" smatch not if { "^RED^You abort your mateship at the last moment." }tell exit then me @ { "mate/" target @ }cat "?" setstat target @ { "mate/" me @ }cat "." setstat me @ { "^PURPLE^You offer a mate ball to " target @ ansi_name "! ^RED^<3 <3 <3" }cat ansi_notify target @ { "^PURPLE^" me @ ansi_name " has offered a Mate Ball to you! ^RED^<3 <3 <3" }cat ansi_notify target @ { "^GREEN^Use +mate/accept " me @ " to trade mate balls and become their mate." }cat ansi_notify target @ { "^RED^Use +mate/reject " me @ " to turn them down gently." }cat ansi_notify ; SAFECALL +mate/propose : +mate/accept me @ { "mate/" target @ }cat getstatstr "." instring if me @ { "mate/" target @ }cat "!" setstat target @ { "mate/" me @ }cat "!" setstat me @ { "k/Mate Ball (" target @ ")" }cat "MateBall" setstat target @ { "k/Mate Ball (" me @ ")" }cat "MateBall" setstat me @ { "^PURPLE^You have accepted " target @ ansi_name "'s^PURPLE^ mating proposal. You are now mates!^RED^<3 <3 <3" }cat ansi_notify target @ { "^PURPLE^" me @ ansi_name "^PURPLE^ has accepted your mating proposal! We are now mates!^RED^<3 <3 <3" }cat ansi_notify else { "^GRAY^" target @ " has not proposed to you. Creepy..." }tell then ; SAFECALL +mate/accept : +mate/reject me @ { "mate/" target @ }cat getstatstr "." instring if me @ { "mate/" target @ }cat 0 setstat target @ { "mate/" me @ }cat 0 setstat me @ { "^RED^You have rejected " target @ ansi_name "'s^RED^ mating proposal." }cat ansi_notify target @ { "^RED^" me @ ansi_name "^PURPLE^ has rejected your mating proposal." }cat ansi_notify else { "^GRAY^" target @ " has not proposed to you. Creepy..." }tell then ; SAFECALL +mate/reject : +mate/divorce { "^RED^So you want to kick " target @ " to the curb? ^YELLOW^(y/N)" }tell read "y*" smatch not if { "^GREEN^You abort your divorce at the last moment." }tell exit then me @ { "mate/" target @ }cat 0 setstat target @ { "mate/" me @ }cat 0 setstat me @ { "k/Mate Ball (" target @ ")" }cat 0 setstat target @ { "k/Mate Ball (" me @ ")" }cat 0 setstat me @ { "^RED^You dump " target @ ansi_name "^RED^! :( :( :(" }cat ansi_notify target @ { "^RED^" me @ ansi_name "^RED^ kicks you to the curb! Divorced! :( :( :(" }cat ansi_notify ; SAFECALL +mate/divorce : +mate { "^YELLOW^Parallelizing +mate tree search seeking '" param @ "'" }cat header tellme 2 dbtop int -- 1 for dbref var! target target @ player? target @ thing? target @ "Z" flag? and or not if continue then target @ "/@rp/mate/" propdir? not if continue then { "^CYAN^" target @ name 20 lj "\r" target @ "/@rp/mate/" array_get_propvals foreach var! status var! target2 status @ "!" instring if "^ ^ -> ^RED^Mated to ^ ^" else status @ "?" instring if "^ ^ -> ^YELLOW^Proposing to ^ ^" else "^ ^ -> ^YELLOW^Proposal from^ ^" then then "^ ^ -> ^PURPLE^" target2 @ "\r" repeat " \r" }cat var! line param @ if line @ param @ instring if line @ tellme then else line @ tellme then repeat "+mate 1.0" footer tellme ; SAFECALL +mate : main param ! param @ "#help" smatch if { "Mate ball program, trade mating balls between 2 or more partners." }tell { "(C) 2007-15007 Alynna Trypnotk, Pokemon Dynasty - All rights reserved." }tell { " " }tell { " +mate/propose - Pop the big question! Ask someone to be their mate" }tell { " +mate/accept - Accept the person's request and trade mate balls." }tell { " +mate/reject - Reject the person's request to become mates." }tell { " +mate/divorce - Divorce someone who you have mated. Aww." }tell exit then command @ "+mate" smatch not if param @ not if { "Syntax: " command @ " " }tell exit then param @ match target ! target @ int 0 < if param @ pmatch target ! target @ int 0 < if { "^YELLOW^I don't know who you mean!" }tell exit then then then prog command @ cancall? if prog command @ call else { "Mate ball program, trade mating balls between 2 or more partners." }tell { "(C) 2007-15007 Alynna Trypnotk, Pokemon Dynasty - All rights reserved." }tell { " " }tell { " +mate/propose - Pop the big question! Ask someone to be their mate" }tell { " +mate/accept - Accept the person's request and trade mate balls." }tell { " +mate/reject - Reject the person's request to become mates." }tell { " +mate/divorce - Divorce someone who you have mated. Aww." }tell then ;