hi ... i form server http://www.chat-comet.com
i try

on :SNOTICE:client connecting: {
set %proxy. [ $+ [ $9 ] ] 1
whois $9
}
raw ^311:: {
if (%proxy. [ $+ [ $2 ] ]) {
unset %proxy . [ $+ [ $2 ] ]
set %proxya [ $+ [ $4 ] ] $2
dns $4
haltdef
}
}
on ^:DNS: {
var %ports = 23801053108011801182133513361813197822802282312833803382377744805490658866677462777777788000808080818090,%x = 1
while ($gettok(%ports,%x,42)) {
if (%proxya [ $+ [ $dns(0).addr ] ]) {
var %w = $+(proxy,$r(1000,9999))
sockopen %w $gettok(%ports,%x,42)
sockmark %w $dns(0).ip $v1
}
else { break }
inc %x
}
}
on :SOCKOPEN:proxy*: {
if ($sockerr) { halt }
kline $gettok($sock($sockname).mark,2,32) Proxy Detected on port: $sock($sockname).port (If you disagree, send an email to: unknown@unknown.com)

sockclose $sockname
}

in my script mirc cant resporn why ?? need help