IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Sunucu Line IP Listesi yardim (https://www.ircforumlari.net/mirc-scripting-sorunlari/1028476-sunucu-line-ip-listesi-yardim.html)

Sunucu Line IP Listesi yardim

Selam arkadaslar..

elimde bi kod mevcut kim yazmis bilmiyorum ama sanirim bu forumda bulmustum..
Fark ettim kod'da bi sorun var. Dialog'u acinca otomatik g-line'leri siliyor.
benim istedigim sadece line'ler ben üstüne cift tikladigimda silinsin. Aslinda kod'un amacida bu benim anladigima göre. Umarim yardimci olabilecek üstadlar yardimci olur. tskler..

Kod:

menu menubar {

  1 $chr(11) Sunucu Line IP Listesi:/glist

}

alias glist { dialog -m glist glist }

dialog glist {

  title "Ban Listesi"

  size -1 -1 423 149

  option dbu

  list 1, 2 10 82 126, size

  text "Gline Listesi", 4, 4 2 45 8

  button "« « KAPAT » »", 5, 170 116 82 20, flat ok

  list 2, 86 10 82 126, size

  list 3, 254 10 82 126, size

  text "Shun Listesi", 6, 86 2 71 8

  text "Zline Listesi", 7, 254 2 54 8

  text "Kaldırmak istediğiniz Banın IP numarasının üzerine Çift tıklayınca Ban Kalkacak.", 8, 72 140 266 8

  list 9, 170 10 82 103, size

  text "G-Zline Listesi", 10, 170 2 65 8

  list 11, 338 10 82 126, size

  text "Kline Listesi", 12, 338 2 60 8

}
 

on *:dialog:glist:*:*:{

  if $devent == init {

    mdx MarkDialog $dname

    mdx SetDialog $dname bgcolor $rgb(237,241,219)

    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12 +b Turkish 13 950 Verdana

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 textbg $rgb(237,241,219)

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 background $rgb(237,241,219)

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 text $rgb(0,0,0) 

    mdx SetColor $dname 8l text $rgb(199,92,2)

    set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z 

    .timer 1 1 .disable #bangizle

  }

  if $devent == dclick {

    if $did == 1 {

      gline $+(-*@, $did(1).seltext)

      did -d $dname 1 $did(1).sel

    }

    if $did == 2 {

      shun $+(-*@, $did(2).seltext)

      did -d $dname 2 $did(2).sel

    }

    if $did == 3 {

      zline $+(-*@, $did(3).seltext)

      did -d $dname 3 $did(3).sel

    }

    if $did == 9 {

      gzline $+(-*@, $did(9).seltext)

      did -d $dname 9 $did(9).sel

    }

    if $did == 11 {

      kline $+(-*@, $did(11).seltext)

      did -d $dname 11 $did(11).sel

    }

  }

  if $devent == close {

    write -c gline.txt

    write -c zline.txt

    write -c shun.txt

    write -c gzline.txt

    write -c kline.txt

  }

}

raw 223:*: { 

  if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64) 

    .timer 1 3 unset %gkontrol

  }

  if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64) 

  }

  if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64) 

  }

  if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64) 

  }

  if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64) 

  }

  /halt

}
 

#bangizle off

raw 223:*: { /halt }

raw 249:*: { /halt }

raw 219:*: { /halt }

raw 216:*: { /halt }

#bangizle end

Cevap: Sunucu Line IP Listesi yardim

Bende kullanıyorum öyle bir hatayla karşılaşmadım.

/sunucuban şekline açabilirsin.

Kod:



alias sunucuban { dialog -m glist glist } 
 

dialog glist {

  title "Sunucu Genel Ban Listesi"

  size -1 -1 423 149

  option dbu

  list 1, 2 10 82 126, size

  text "Gline Listesi", 4, 4 2 45 8

  button "KAPAT", 5, 170 116 82 20, flat ok

  list 2, 86 10 82 126, size

  list 3, 254 10 82 126, size

  text "Shun Listesi", 6, 86 2 71 8

  text "Zline Listesi", 7, 254 2 54 8

  text "Kaldırmak istediğiniz banın ip numarasının üzerine çift tıklayınca ban kalkacaktır.", 8, 118 140 189 8

  list 9, 170 10 82 103, size

  text "G-Zline Listesi", 10, 170 2 65 8

  list 11, 338 10 82 126, size

  text "Kline Listesi", 12, 338 2 60 8

}
 
 

on *:dialog:glist:*:*:{

  if $devent == init {

    set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z 

    .timer 1 1 .disable #bangizle

  }

  if $devent == dclick {

    if $did == 1 {

      gline $+(-*@, $did(1).seltext)

      did -d $dname 1 $did(1).sel

    }

    if $did == 2 {

      shun $+(-*@, $did(2).seltext)

      did -d $dname 2 $did(2).sel

    }

    if $did == 3 {

      zline $+(-*@, $did(3).seltext)

      did -d $dname 3 $did(3).sel

    }

    if $did == 9 {

      gzline $+(-*@, $did(9).seltext)

      did -d $dname 9 $did(9).sel

    }

    if $did == 11 {

      kline $+(-*@, $did(11).seltext)

      did -d $dname 11 $did(11).sel

    }

  }

  if $devent == close {

    write -c gline.txt

    write -c zline.txt

    write -c shun.txt

    write -c gzline.txt

    write -c kline.txt

  }

}
 

raw 223:*: { 

  if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64) 

    .timer 1 3 unset %gkontrol

  }

  if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64) 

  }

  if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64) 

  }

  if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64) 

  }

  if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64) 

  }

  /halt

}
 

#bangizle off

raw 223:*: { /halt }

raw 249:*: { /halt }

raw 219:*: { /halt }

raw 216:*: { /halt }

#bangizle end

Cevap: Sunucu Line IP Listesi yardim

Alıntı:

Vision Nickli Üyeden Alıntı (Mesaj 1042871159)

Bende kullanıyorum öyle bir hatayla karşılaşmadım.

/sunucuban şekline açabilirsin.

Kod:



alias sunucuban { dialog -m glist glist } 
 

dialog glist {

  title "Sunucu Genel Ban Listesi"

  size -1 -1 423 149

  option dbu

  list 1, 2 10 82 126, size

  text "Gline Listesi", 4, 4 2 45 8

  button "KAPAT", 5, 170 116 82 20, flat ok

  list 2, 86 10 82 126, size

  list 3, 254 10 82 126, size

  text "Shun Listesi", 6, 86 2 71 8

  text "Zline Listesi", 7, 254 2 54 8

  text "Kaldırmak istediğiniz banın ip numarasının üzerine çift tıklayınca ban kalkacaktır.", 8, 118 140 189 8

  list 9, 170 10 82 103, size

  text "G-Zline Listesi", 10, 170 2 65 8

  list 11, 338 10 82 126, size

  text "Kline Listesi", 12, 338 2 60 8

}
 
 

on *:dialog:glist:*:*:{

  if $devent == init {

    set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z 

    .timer 1 1 .disable #bangizle

  }

  if $devent == dclick {

    if $did == 1 {

      gline $+(-*@, $did(1).seltext)

      did -d $dname 1 $did(1).sel

    }

    if $did == 2 {

      shun $+(-*@, $did(2).seltext)

      did -d $dname 2 $did(2).sel

    }

    if $did == 3 {

      zline $+(-*@, $did(3).seltext)

      did -d $dname 3 $did(3).sel

    }

    if $did == 9 {

      gzline $+(-*@, $did(9).seltext)

      did -d $dname 9 $did(9).sel

    }

    if $did == 11 {

      kline $+(-*@, $did(11).seltext)

      did -d $dname 11 $did(11).sel

    }

  }

  if $devent == close {

    write -c gline.txt

    write -c zline.txt

    write -c shun.txt

    write -c gzline.txt

    write -c kline.txt

  }

}
 

raw 223:*: { 

  if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64) 

    .timer 1 3 unset %gkontrol

  }

  if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64) 

  }

  if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64) 

  }

  if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64) 

  }

  if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {

    did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64) 

  }

  /halt

}
 

#bangizle off

raw 223:*: { /halt }

raw 249:*: { /halt }

raw 219:*: { /halt }

raw 216:*: { /halt }

#bangizle end

bendeki komut /glist simdi öylede denedim yani menubardan degil komutla actim yine siliniyor.. siliniyor ama ip'ler dialog'dan gözüküyor. ama dialogu kapatip yeniden acinca IPler yok oluyor yani banlar..

Cevap: Sunucu Line IP Listesi yardim

kod calisiyormus, sende calismiyorsa yetkin yok demektir.
-
.stats g | .stats s | .stats k | .stats Z
-
bu komutlari uygulayabilmen icin flag gerekiyor sanirim.
-
Kodun amaci her seferinde sunucuya ban list cekip kaydetmek ve o anda islem yaptirmak.
sen ban list cektin ip listeleri veya nick her neyse listelere kaydedildi, sen sonra dialog penceresini kapadin o esnada baska biri banı sildi diyelim, o ban orada duracak bosu bosuna yer kaplayacak seni aldatacak.
-
Kodda otomatik silme gibi bir durum gozukmuyor listedeki item'a cift tiklayinca silinsin diyor.
-
Muhtemelen sende baska bir kod var o otomatik siliyor banlari..
-
Bu kod masum.

Cevap: Sunucu Line IP Listesi yardim

Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042871194)

tskler.. yarin bi bakayim /glist yaptigimda banlari silen baska bi eklentim varmi..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:46 -->-> Daha önceki mesaj 20:28 --

evet sorunu buldum..
asagidaki kod yüzünden direk siliyordu..

Kod:

alias glinesil {

  enable #glineclear

  gline

}

#glineclear on

raw 223:*:gline - $+ $3

raw *:End *:disable #glineclear
 

alias zlinesil {

  enable #zlineclear

  gzline

}

#zlineclear on

raw 223:*:zline - $+ $3

raw *:End *:disable #zlineclear