* /window: Geçersiz parametre (Satır 78, script6.txt)
başka kod değil o satırdan uyarı veriyor ama nedenini anlamadım istersen kodun tamamını kopya ediim bi göz atın size zahmet
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:29 -->-> Daha önceki mesaj 13:27 --
alias deb {
debug -i db debg debg
}
alias debg {
tokenize 32 $1-
echo -s : $1-
}
on ^*:snotice:*: {
if (*client*connect*on*port* iswm $1-) {
tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))
$iif(!$window(@giris-cıkıs), window -fen @giris-cıkıs arial 14)
echo 5 @giris-cıkıs $1-
}
halt
}
alias po {
return 1046 1080 1182 1183 1184 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
set %prx $ticks
.dns $1
set %ip $1 | var %pi = 1
while (%pi <= $gettok($po,0,32)) {
var %ki = $gettok($po,%pi,32)
sockopen $+(prx-,$1,-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki
inc %pi
}
;echo 4 Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:*prx-*: {
if ($sockerr) { sockclose $sockname | return }
;echo 2 IP: $sock($sockname).ip $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\KAPALI: $portfree($sockerr) 4HATA\WS_Err: $sock($sockname).wserr 4MESAJ\WS_Msg: $sock($sockname).wsmsg
if ($portfree($sockerr)) {
var %ipsikim $sock($sockname).ip
gzline $+(*@,$sock($sockname).ip) +$ 14,1 Proxy yasaktır. Lütfen sohbet kurallarına uyunuz! %Logo
sockclose $+(*,$sock($sockname).ip,*)
$iif(!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-sik),window -fen @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-sik arial 14,echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-sik GzlineD %ipsikim Proxy taramasından geçemeyen ip pasif edildi. )
return
}
.sockclose $sockname
}
on *:sockread:prx-*:{
if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :—> $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *:dns:{
if (%prx) {
var %di = $dns(0)
while (%di > 0) {
echo 2 $chr(32) 2DNS: $dns(%di) 2ADRES: $dns(%di).addr \ $dns(%di).ip
dec %di
}
unset %prx | unset %ip
halt
}
unset %prx | unset %ip
}