| WeiLSiDe | 08 Ekim 2008 18:26 |
Bu Kodun Sorunu Nedir?
Kod:
;[read write data/setting.ini]
alias _vr {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
return $readini data\setting.ini $1 $2
}
alias _vw {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
writeini data\setting.ini $1 $2 $3-
}
alias _vrem {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
remini data\setting.ini $1 $2
}
alias clone.scan {
if ($chan(0) <= 0) { echo -a $+ $colour(info2) $+ %logo 10Clone Tarayıcısını Çalıştırmak için Kanala Girmeniz GerekLidir. | beep | halt }
if $dialog(clone.s) == $null) { set %csc $chan | dialog -m clone.s clone.s }
}
dialog clone.s {
title ""
size -1 -1 295 240
option pixels
list 9, 10 10 270 130,extsel,hsbar
button "Kapat", 2, 130 210 50 20, ok
button "At", 18, 10 180 50 20, disable
button "YeniLe", 16, 130 180 50 20
button "Uyar", 19, 70 180 50 20, disable
text "KanaL:", 144, 190 125 70 15
combo 10, 190 140 100 100, drop
edit "", 142, 75 210 45 20,autohs read
text "Tamamlandı", 143, 5 215 70 15
check "Ban Clone", 69, 20 152 75 20
check "Clon Kanala Girince Başlat", 70, 20 132 145 20
box "AyarLar:", 71, 10 120 170 55
text "CLone Scan v1", 146, 195 180 100 15
button "Ana Sayfa", 148, 212 202 60 20
box "", 147, 185 170 105 60
}
on *:dialog:clone.s:init:*:{
dialog -t clone.s Clone Scan on %csc
chan.cs
did -c clone.s 10 1
did -z clone.s 9
if ($_vr(clonescan,ban) == on) did -c clone.s 69
if ($_vr(clonescan,launch) == on) did -c clone.s 70
_clone
}
on *:dialog:clone.s:sclick:*:{
if ($did == 1) unset %csc
if ($did == 10) { set %csc $did(clone.s,10).text | _clone | dialog -t clone.s Clone Scan on %csc }
if ($did == 16) { _clone | chan.cs }
if ($did == 69) {
if ($_vr(clonescan,ban) == off) { _vw clonescan ban on | did -c clone.s 69 }
else { _vw clonescan ban off | did -u clone.s 69 }
}
if ($did == 70) {
if ($_vr(clonescan,launch) == off) { _vw clonescan launch on | did -c clone.s 70 }
else { _vw clonescan launch off | did -u clone.s 70 }
}
if ($did == 148) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($did == 18) {
if ($did(9,$did(9).sel) != $null) && (*!*@ !isin $did(9,$did(9).sel)) {
if ($me isop %csc) {
var %ck = 0
var %cc = $numtok($did(9,$did(9).sel),32)
:loop
inc %ck 1
if ($_vr(clonescan,ban) == on) { mode %csc +b $address($remove($gettok($did(9,$did(9).sel),1,32),$chr(44)),2) }
kick %csc $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) Clone $chr(35) $+ %ck of %cc
if (%ck >= %cc) goto end
goto loop
:end
_clone
}
}
}
if ($did == 19) {
if ($did(9,$did(9).sel) != $null) && (*!*@ !isin $did(9,$did(9).sel)) {
var %ck = 0
var %cc = $numtok($did(9,$did(9).sel),32)
:loop
inc %ck 1
notice $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) $remove($gettok($did(9,$did(9).sel), %ck ,32),$chr(44)) $+ , 10Lütfen Clonelerinizi4 %csc 10Kanalından Çıkarın Aksi Taktirde Atılacaksınız!
if (%ck >= %cc) goto end
goto loop
:end
}
}
}
alias chan.cs {
did -r clone.s 10
var %channum = 0
:findchan
inc %channum 1
var %csc = $chan(%channum)
if (%csc == $null) { goto end }
did -a clone.s 10 %csc
goto findchan
:end
}
alias _clone {
did -r clone.s 9,142
if ($me isop %csc) did -e clone.s 18,19
elseif ($me !isop %csc) did -b clone.s 18,19
var %n = 0 | var %nm = $nick(%csc,0,a) | var %s = $ctime
:next
var %st = $address($nick(%csc,%nm),2)
if (%clone. [ $+ [ %st ] ] == $null) {
set %clone. [ $+ [ %st ] ] $nick(%csc,%nm)
}
else {
set %clone. [ $+ [ %st ] ] %clone. [ $+ [ %st ] ] $+ , $nick(%csc,%nm)
if (%cn == $null) {
var %cn = %st
inc %n 1
}
elseif (%st !isin %cn) {
var %cn = %cn %st
inc %n 1
}
}
dec %nm 1
if (%nm > 0) goto next
var %e = $ctime
if (%cn != $null) {
:displaynext
did -a clone.s 9 %clone. [ $+ [ $gettok(%cn,%n,32) ] ] | did -a clone.s 9 $gettok(%cn,%n,32) | did -a clone.s 9
dec %n
if (%n > 0) goto displaynext
}
else { did -a clone.s 9 %csc Kanalında Hiçbir Clone Bulunamadı | did -b clone.s 9 }
var %e = %e - %s
did -a clone.s 142 $duration(%e)
unset %clone.*
did -z clone.s 9
}
on *:JOIN:#: {
updatenl
unset %c3
:loop
inc %c3
var %c4 = $ialchan($address($nick,2),$chan,%c3).nick
if (%c4 == $nick) { goto loop }
if (%c4 == $null) { goto end }
if ($_vr(clonescan,launch) == on) { beep | clone.scan }
goto loop
:end
}
Elimden Geldiği kadar Düzeltmeye çalıştım ama Sanıyorum başarılı olamadım.
Kodun Sorunu bazen çalışıyo bazen çalışmıyoo
Sizler daha iyi bilirsiniz.
Yardımlarınız için şimdiden Tşk ler ;painter |
