Çözüldü Sunucu Line IP Listesi yardim - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ZaLiM1979 · 08 Şubat 2024, 15:05

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Vision · 08 Şubat 2024, 16:35

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

/sunucuban şekline açabilirsin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

ZaLiM1979 · 08 Şubat 2024, 18:37

Vision Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

/sunucuban şekline açabilirsin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!


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..

manikdepresif · 08 Şubat 2024, 19:18

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.

ZaLiM1979 · 08 Şubat 2024, 20:46

manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
A'dan Z'ye IRC Sunucu Listesi	IF-Global	Yeni Sunucular	88	08 Şubat 2024 15:07
Sunucu Linkleme Yardim..	Soner	Unreal IRCd	9	28 Ocak 2019 16:53
F tusLari iLe -Line yardim pLs..	Sosyete14	mIRC Scripting Sorunları	2	05 Eylül 2009 22:22

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.