46
mIRC/pawn Scripting / Re: Omg Banlist WTF
« on: July 09, 2008, 01:03:32 pm »Quote
alias vcmp.ban {
write baninfo.txt Admin: $chr(91) $2 $chr(93) Banned: $chr(91) $vcmp.hgetname($vcmp.nameid($1)) $chr(93) Reason: $chr(91) $3- $chr(93) DateBan: $chr(91) $fulldate $chr(93) TimeBan: $chr(91) $time(HH:nn) $chr(93) IP: $chr(91) $vcmp.hgetip($vcmp.nameid($1)) $chr(93)
vcmp.adminchat ** Banning $$vcmp.hgetname($vcmp.nameid($1)) Reason: $iif($3,$v1,None)
.timer. $+ $$vcmp.nameid($1) $+ .ban -m 1 250 vcmp.command ban $vcmp.nameid($1)
}
Quote
elseif ($1 == !banlist) {
var %a = 1
while (%a <= 100) {
notice $nick $chan : $read($scriptdirbaninfo.txt,%a)
inc %a
}
}
Quote
elseif ($2 == !ban) {
if ($hget(vcmp,loggedin. $+ %id) < 3) { vcmp.adminmsg %id You Must Be Admin Level 2 Or Higher To Attempt This Command. }
elseif (!$vcmp.nameid($3)) { vcmp.adminmsg %id Error: Invalid ID. }
elseif ($hget(vcmp,loggedin. $+ %id) < $hget(vcmp,loggedin. $+ $vcmp.nameid($3))) { vcmp.adminmsg %id You can't ban someone higher level admin than you... }
else { $vcmp.ban($vcmp.nameid($3),$1,$4) }
}