[script] n0=; Simple Ventrilo Status Script by Fean0r n1=; v1.1 n2=; www.c4sites.co.uk/vwhois/ n3=; Added reaction to .vent ip port when typed in a channel (EG: .vent 12.123.123.12 1234) n4=; n5=on 1:load:{ .echo -a c4 vent whois Loaded type /c4vent or use the menu bar to open the dialog. | .disable #c4venttext } n6=on 1:unload:{ .unset %c4v* | .unset %c4his* | .remove " $+ $scriptdirvent.html $+ " | .echo -a c4 vent whois Unloaded } n7=menu menubar { n8= - n9= c4 Ventrilo Whois n10= .Open Ventrilo Whois:{ /c4vent } n11= .- n12= .Channel Ventrilo Whois ( $+ $group(#c4venttext).status $+ ) n13= ..Turn ON:{ .enable #c4venttext | echo -a Channel Ventrilo Whois ON. } n14= .. Turn OFF:{ .disable #c4venttext | echo -a Channel Ventrilo Whois OFF. } n15= - n16=} n17=#c4venttext off n18=on *^:TEXT:*:#:{ n19= if ($1 == .vent) { n20= if (!%c4hreq) { n21= .ignore -pcntikdu5 $nick n22= if (!$2) { /msg $nick No Vent Server IP or Port Found (.vent ). - Auto Ignore for 5 Seconds | halt } n23= if (!$3) { /msg $nick No Vent Server Port Found (.vent ). - Auto Ignore for 5 Seconds | halt } n24= /c4ventline $2 $3 # $nick n25= .set %c4hreq YES n26= } n27= } n28=} n29=#c4venttext end n30=alias c4ventline { n31= if (!$4) { .echo -a No Username Found. | .unset %c4hreq | halt } n32= if (!$1) { /msg $4 No Vent Server IP or Port Found. - Auto Ignore for 5 Seconds | .unset %c4hreq | halt } n33= if (!$2) { /msg $4 No Vent Server Port Found. - Auto Ignore for 5 Seconds | .unset %c4hreq | halt } n34= if (!$3) { /msg $4 No Channel Found.- Auto Ignore for 5 Seconds | .unset %c4hreq | halt } n35= .set %c4vline ON n36= .set %c4vstart NO n37= .set %c4vchan $3 n38= .set %c4vuser $4 n39= %c4ventip = $1 n40= %c4ventport = $2 n41= .remove " $+ $scriptdirvent.html $+ " n42= .sockopen c4ventwhois ventrilo.com 80 n43=} n44=alias c4vent { if ($dialog(c4vent).title != $null) { .echo -s Dialog Aleady Open | .dialog -v c4vent | halt } | .dialog -md c4vent c4vent | .dialog -v c4vent } n45=alias vwhois { n46= if (!$1) { echo -a No Vent Server IP or Port Found - Use: /vwhois ip port | halt } n47= if (!$2) { echo -a No Vent Server Port Found - Use: /vwhois ip port | halt } n48= if ($1 != $gettok(%c4hist1,1,58)) && ($1 != $gettok(%c4hist2,1,58)) && ($1 != $gettok(%c4hist3,1,58)) && ($1 != $gettok(%c4hist4,1,58)) && ($1 != $gettok(%c4hist5,1,58)) { n49= .set %c4hist5 %c4hist4 n50= .set %c4hist4 %c4hist3 n51= .set %c4hist3 %c4hist2 n52= .set %c4hist2 %c4hist1 n53= .set %c4hist1 $1 $+ $chr(58) $+ $2 n54= .did -r c4vent 7 n55= if (%c4hist1) { .did -a c4vent 7 %c4hist1 } n56= if (%c4hist2) { .did -a c4vent 7 %c4hist2 } n57= if (%c4hist3) { .did -a c4vent 7 %c4hist3 } n58= if (%c4hist4) { .did -a c4vent 7 %c4hist4 } n59= if (%c4hist5) { .did -a c4vent 7 %c4hist5 } n60= } n61= .set %c4vstart NO n62= %c4ventip = $1 n63= %c4ventport = $2 n64= .remove " $+ $scriptdirvent.html $+ " n65= .sockopen c4ventwhois ventrilo.com 80 n66=} n67=on *:sockopen:c4ventwhois:{ n68= if ($sockerr) { echo -a Error connecting $sockname to $sock($sockname).ip | return } n69= sockwrite -tn $sockname GET /status.php?hostname= $+ %c4ventip $+ &port= $+ %c4ventport HTTP/1.1 n70= sockwrite -n $sockname Host: ventrilo.com n71= sockwrite -n $sockname Connection: Keep-Alive n72= sockwrite $sockname $crlf n73=} n74=on *:sockread:c4ventwhois:{ var %d | :n | sockread %d | tokenize 32 %d | if (!$sockbr) return | if (%d) /c4ventdis %d | goto n } n75=alias c4ventdis { n76= if ($1- == ) { .set %c4vstart YES } n77= if (%c4vstart == NO) { .return } n78= %c4venttemp = $replace($1-,href=",href="http://www.ventrilo.com/) n79= %c4venttemp = $replace(%c4venttemp,src=",src="http://www.ventrilo.com/) n80= if (%c4venttemp) { n81= if ($left(%c4venttemp,1) == $chr(60)) { /write " $+ $scriptdirvent.html $+ " %c4venttemp } n82= } n83= if ( isin %c4venttemp) { n84= if (%c4vline) { .c4vendline | halt } n85= if (!%c4vline) { .c4vend | halt } n86= } n87=} n88=alias c4vend { n89= .did -ra c4vent 12 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,68),5,34), ,> ) n90= .did -ra c4vent 14 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,72),5,34), ,> ) n91= .did -ra c4vent 16 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,76),5,34), ,> ) n92= .did -ra c4vent 18 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,80),5,34), ,> ) n93= .did -ra c4vent 20 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,84),5,34), ,> ) n94= .did -ra c4vent 22 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,88),5,34), ,> ) n95= .did -ra c4vent 24 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,92),5,34), ,> ) n96= .did -ra c4vent 26 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,96),5,34), ,> ) n97= .did -ra c4vent 28 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,100),5,34), ,> ) n98= .did -ra c4vent 30 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,104),5,34), ,> ) n99= .did -ra c4vent 32 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,108),5,34), ,> ) n100= .did -ra c4vent 34 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,112),5,34), ,> ) n101= .set %c4vline 127 n102= :loop n103= if (
isin $read( $+ " $+ $scriptdir $+ vent.html $+ " $+ , $+ %c4vline $+ )) { .c4vuser %c4vline | .set %c4vline $calc(%c4vline + 9) | goto loop } n104= .sockclose c4ventwhois n105= .unset %c4v* n106=} n107=alias c4vendline { n108= if (!$remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,68),5,34), ,> )) { /msg %c4chan %c4vuser - Error, No Data Returned | goto end } n109= .set %c4vdisline Name: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,68),5,34), ,> ) n110= .set %c4vdisline %c4vdisline $chr(187) Phonetic: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,72),5,34), ,> ) n111= .set %c4vdisline %c4vdisline $chr(187) Comment: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,76),5,34), ,> ) n112= .set %c4vdisline %c4vdisline $chr(187) Auth: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,80),5,34), ,> ) n113= .set %c4vdisline %c4vdisline $chr(187) Max Clients: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,84),5,34), ,> ) n114= .set %c4vdisline %c4vdisline $chr(187) Voice Codex: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,88),5,34), ,> ) n115= .set %c4vdisline %c4vdisline $chr(187) Voice Format: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,92),5,34), ,> ) n116= .set %c4vdisline %c4vdisline $chr(187) Uptime: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,96),5,34), ,> ) n117= .set %c4vdisline %c4vdisline $chr(187) Platform: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,100),5,34), ,> ) n118= .set %c4vdisline %c4vdisline $chr(187) Version: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,104),5,34), ,> ) n119= .set %c4vdisline %c4vdisline $chr(187) Channel Count: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,108),5,34), ,> ) n120= .set %c4vdisline %c4vdisline $chr(187) Client Count: $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ ,112),5,34), ,> ) n121= /msg %c4vchan %c4vuser Please find your whois reply for %c4ventip %c4ventport n122= /msg %c4vchan %c4vdisline n123= :end n124= .sockclose c4ventwhois n125= .unset %c4v* n126= .unset %c4hreq n127=} n128=alias c4vuser { n129= .did -a c4vent 42 $remove($gettok($read( $+ " $+ $scriptdir $+ vent.html $+ " $+ , $+ $calc($1 + 5)),9,34), ,> ,,> ,,> ,,> ,,> ,,> ,,> ,