i've a Proxy Scan and Checker script, but in mirc language. i want this script to translate to tcl so i can use it in my eggdrop. somebody please help me.
here is proxy checker script :
#proxychk on
on *:text:!proxychk*:#: {
if ($4) { //msg # [ $+ $rand(1,7) $+ $nick $+ ] Unknown parameter: $4- | halt }
if ($2 = $null) || ($3 = $null) || ($3 isalpha) { //msg # [ $+ $rand(1,7) $+ $nick $+ ] : The right command is: !proxychk Ip Port | halt }
sockopen proxychk $2 $3
set %pcip $2
set %pcport $3
set %pcchan $chan
set %pcnick $nick
.notice %pcnick I am checking your proxy now ( $+ %pcip %pcport $+ ), Please Wait.............
}
on 1:sockopen:proxychk: {
if ($sockerr > 0) { //msg %pcchan [ $+ $rand(1,1) $+ %pcnick $+ ] 18!proxychk %pcip %pcport 15: Is Not Working %zapub | unset %pcip | unset %pcport | unset %pcnick | return }
//msg %pcchan [ $+ $rand(1,1) $+ %pcnick $+ ] 18!proxychk %pcip %pcport 15: Is Working %zapub
unset %pcip | unset %pcport | unset %pcnick
sockclose proxychk
}
#proxychk end
