on *:TEXT:!cast aids*:#:{
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! !Register }
elseif ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with !Login PassYouMade! }
elseif ($readini($nick $+ .ini,$nick,money) < 1000) { /msg $chan $nick does not have enough credits to cast Aids! }
else {
Writeini $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - 1000)
describe $chan begins to cast AIDS.
msg $chan $nick has spent 1000 credits to cast 1,44,1AIDS!
if ($r(1,4) == 1) { msg $chan AIDs failed to cast. }
else {
.Writeini $3 $+ .ini $3 aids yes
.timeraids1 1 5 describe $chan has successfully casted AIDS on $3!
set $+(%,aids,.,$3) $readini($3 $+ .ini,$3,aids)
while $($+(%,aids,.,$3),2) == yes {
timeraids2 1 10 msg $chan 1,44,1 $3 has 5 minutes till AIDS will take affect.
timeraids3 1 70 msg $chan 1,44,1 $3 has 4 minutes remaining till consumed by the AIDS effect.
timeraids4 1 130 msg $chan 1,44,1 $3 has only 3 minutes remaining.
timeraids5 1 190 msg $chan 1,44,1 $3 has only 2 minutes left! GASP!
timeraids6 1 250 msg $chan 1,44,1 $3 has only 1 minute left! Please apply the !cure soon.
timeraids7 1 310 kick $chan $3 $(|,) msg $chan 1,44,1 $3 HAS DIED OF AIDS!
}
}
}
}
on *:text:!cure*:#:{
if $readini($nick $+ .ini,$nick,money) < 1000 {
.msg $chan Sorry $nick $+ , You don't have enough credits to cure Aids!
}
else {
Writeini $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - 1000)
var %nick = $iif($2,$2,$nick)
if $readini(%nick $+ .ini,%nick,aids) != yes {
.msg $chan $nick just wasted 1000 credits to cure someone that doesn't have AIDS
}
else {
.msg $chan $nick just spent 1000 credits to cure %nick of AIDS
unset $+(%,aids,.,%nick)
.remini $3 $+ .ini $3 aids
.timeraids? off
}
}
}