perty
Posted by CrashB
Friday, April 16, 2004
Description: steal this and I will not kill you
var %item $2
var %data $3-
var %file $+(",$scriptdir,$1,.dat")
var %return $null
var %save $null
if $hget(rax) != $null {
hfree rax
}
hmake rax
if $exists(%file) == $true {
hload rax %file
}
if $prop == del {
hdel rax %item
var %save 1
}
elseif $prop == get {
var %return $hget(rax,[ %item ])
}
else {
hadd rax %item %data
var %save 1
}
if %save == 1 {
hsave -o rax %file
}
hfree rax
return %return