on *:text:*:*: {
var %vars = $getinfo($nick)
var %local = $tempget($gettok(%vars,1,32)), %response = $tempget($gettok(%vars,2,32))
if ($1 == %local) {
.msg $iif($chan,$chan,$nick) %response
}
}
alias -l getinfo {
var %varname1 = $tempvar(get1), %varname2 = $tempvar(get2)
if ($hget(info,$1)) {
tempset %varname1 $gettok($v1,1,32)
tempset %varname2 $gettok($v1,2-,32)
}
return %varname1 %varname2
}
alias tempvar {
var %tmp = $+(%,temp.,$md5($rand(1,10000) $ticks $1))
while ($var( [ %tmp ] ,1)) %tmp = $+(%,temp.,$md5($rand(1,10000) $ticks $1))
return %tmp
}
alias tempset set -u0 $1-
alias tempget return $eval($iif($left($1,1) == %,$1,$+(%,$1)),2)