קוד:
on *:text:*:%Chan: {
if (!%Flood) {
if (($1 == !Commands) || ($1 == !help)) && (!$2) {
msg %Chan %Style1 Commands: !Status , !Credits %Style2 | set -u5 %Flood 1
}
if ($1 == !Status) && (!$2) {
sockclose Vent | sockopen Vent www.Ventrilo.com 80 | set -u10 %Flood 1
}
if ($1 == $+($chr(33),$chr(99),$chr(114),$chr(101),$chr(100),$chr(105),$chr(116),$chr(115))) && (!$2) {
msg %Chan %style1 $+($chr(66),$chr(111),$chr(84),$chr(32),$chr(66),$chr(89),$chr(32),$chr(68),$chr(111),$chr(68),$chr(97),$chr(45),$chr(74),$chr(97),$chr(78),$chr(97)) %style2
set -u5 %Flood 1
}
}
}
on *:sockopen:Vent: {
sockwrite -nt $sockname GET /status.php?hostname= $+ %ip $+ &port= $+ %port HTTP/1.1
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Accept-Language: he
sockwrite -nt $sockname Host: www.Ventrilo.com
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -tn $sockname $crlf
}
on *:SOCKREAD:Vent:{
var %var
sockread %var
if (>A< isin %var) { set %nick 1 }
elseif (<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%nick) { set %nicks %nicks $remove(%var,<td width="20%" bgcolor="#FFFFFF"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %nick }
elseif (<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis"> isin %var) && (%nick) { set %nicks %nicks $remove(%var,<td width="20%" bgcolor="#FFFFCC"><font color="#000000"><div style="overflow:hidden;text-overflow:ellipsis">,</div></font></td>) | unset %nick }
elseif (Auth isin %var) { set %Auth 1 }
elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%Auth) { set %Auths $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | unset %Auth }
elseif (Name isin %var) { set %name 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%name) { set %names $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | mode %chan +m | msg %Chan %Style1 (Name: $+ %Names $+ ) %Style2 | msg %Chan %Style1 (Auth: $+ %Auths $+ ) %Style2 | unset %name }
elseif (Client Count isin %var) { set %ss 1 }
elseif (<td width="75%" bgcolor="#DDDDFF"> isin %var) && (%ss) { set %Users $remove(%var,<td width="75%" bgcolor="#DDDDFF">,</td>) | msg %Chan %Style1 (Ip: $+ %Ip $+ ) %Style2 | msg %Chan %Style1 (Port: $+ %port $+ ) %Style2 | unset %ss }
elseif (Max Clients isin %var) { set %Max 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Max) { set %Maxs $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | msg %Chan %Style1 (Users: $+ $remove($chr(40) $+ %Users $+ $chr(47) $+ %Maxs $+ $chr(41),$chr(32)) %Style2 | unset %max }
elseif (Comment isin %var) { set %Comment 1 }
elseif (<td width="75%" bgcolor="#FFFFFF"> isin %var) && (%Comment) { set %Comments $remove(%var,<td width="75%" bgcolor="#FFFFFF">,</td>) | msg %Chan %Style1 (Comment: $+ %Comments $+ ) %Style2 | timer 1 4 msg %Chan %Style1 (Admins: $+ %Nicks $+ ) ( $+ $numtok(%nicks,32) $+ ) %Style2 | timer 1 5 mode %Chan -m | Msg %Chan %Style1 (Version:3.0) %Style2 | unset %Comment | unset %nicks }
}
menu * {
.Setting
..set Chan: set %Style1 14,1[9 « 0 | set %Style2 9,1 » 14 ] | set %Chan $$?="Enter Channel"
..set IP: set %IP $$?="Enter IP" | unset %nicks | unset %names | unset %Comments
..set Port: set %Port $$?="Enter Port"
}
נ.ב הבוט עובד רק על וונט 3.0 
[פרסום] בוט מידע על וונט [3.0]
