| Goemon | 26 Ocak 2014 19:43 |
Diyalog oto join oto part kodu
Evet arkadaşlar yine mereba diyalog oto join oto part ne işe yarar anlatim
sunucuya bağlandığınız zaman bir çok gereksiz kanallara yönlendiriliyorsunuz bu kanallardan oto çıkmanızı sağlıyacak bir diyalogdur.
bide girmek istediğiniz kanala oto girdiriyor güle güle kullanın. Kod:
on *:start:hmake joins | hmake parts | if !$file(j.s) { write -c j.s } | hload joins j.s | if !$file(p.s) { write -c p.s } | hload parts p.s
alias otojp if !$dialog(otojp) { dialog -m otojp otojp } | else { dialog -x otojp }
dialog otojp {
title "Join KanaL ve Oto Part PaneLi"
size -1 -1 406 282
option pixels notheme
edit "Edit", 1, 20 14 99 20
list 2, 20 37 98 200
button "EKLE", 3, 122 38 65 25
button "SiL", 4, 123 73 65 25
edit "Edit", 5, 209 13 100 20
list 6, 208 36 100 205
button "EKLE", 7, 319 38 65 25
button "SiL", 8, 320 72 65 25
text " Auto Join ve Yasakli KanaLLaR", 9, 14 248 199 17
button "Kapat", 10, 320 244 65 25, ok cancel
}
on *:dialog:otojp:*:*:{
if $devent == init { did -ra $dname 1,5 #Kanal Yaz. | y $dname p | y $dname j }
if $devent == dclick {
if $did == 2 { hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j }
if $did == 6 { hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p }
}
if $devent == sclick {
if $did == 4 { if !$did($dname,2).seltext { uyari kanal seçiniz listeden. | return } | hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j }
if $did == 8 { if !$did($dname,6).seltext { uyari kanal seçiniz listeden. | return } | hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p }
if $did == 3 {
if !$did($dname,1) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,1) { uyari $me Lütfen #Kanal yazin. | return }
hadd -m joins $did($dname,1) bastard | hsave joins j.s | .y $dname j
}
if $did == 7 {
if !$did($dname,5) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,5) { uyari $me Lütfen #Kanal yazin. | return }
hadd -m parts $did($dname,5) bastard | hsave parts p.s | .y $dname p
}
}
}
alias y {
if $2 == j { did -r $1 2 | var %s 1, %f $hget(joins,0).item | while %s <= %f { did -a $1 2 $hget(joins,%s).item | inc %s } }
if $2 == p { did -r $1 6 | var %z 1, %w $hget(parts,0).item | while %z <= %w { did -a $1 6 $hget(parts,%z).item | inc %z } }
}
alias uyari {
noop $input($str(_,30) $+ $crlf $+ $crlf $+ $1- $+ $crlf $+ $str(_,30),bwaok,Script Uyari!)
}
on *:connect:{
var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | ./timergoemon 1 20 close -m | inc %s }
var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x }
}
on me:*:join:#:{
var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | inc %s }
var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x }
}
Not:Kod IrCbaStarD a aittir. |
