[Darnasus]

Merhaba,

Asagidaki gibi bir kod editledim. Bu kodun amaci belirttigim portun girislerini istedigim zaman kapatabilmem. $read dedigim de eklenen portu okutamadim lakin, nerede hata yapiyorum?

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

on *:text:*:#kontrol:{
  if $1 == !port {
    if !$2 { msg $chan Port belirtin. Portlari 4!portlar komutu ile listeleyebilirsiniz  }
    else {
      if !$read(port.txt,w,$+(*,$2-,*)) { msg # Belirttiginiz port bulunamadi. | return }
      .write acport.txt $2-
      .msg # Port kayit edildi. 
      .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin
    }
  }
  if $1 == !portlar { var %:m = 1 | while %:m <= $lines(port.txt) { msg # %:m - $read(port.txt,%:m) | inc %:m } }
  if $1 == !pstop {
    /msg # Port girisleri durduruldu
    .remove acport.txt

  }
}

on *:snotice:*:{ if *$+ $read(acport.txt)* iswm $8 { gline $+(*@,$gettok($gettok($10,2,64),1,41))  :Sunucu Guvenligi }

} 
}

[Toprak]

Snotice kısmı böyle;

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

on *:snotice:*Client connecting on port*: $iif($read(acport.txt,w,$remove($8,:)),gline $+(*@,$token($token($10,2,64),1,41)) +1h Sunucu Güvenliği)

[Darnasus]

Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin bu kisimda da okumuyor. Orayi nasil sey ettirmek gerek ;d

[Darnasus]

* Geçersiz format: $iif
-

Yukarida ki hatayi veriyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Toprak]

Tekrar alırmısın.

[Darnasus]

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

Tekrar alırmısın.

Eyvallah simdilik hata vermedi. Diger kisimdaki $read nasil degistirebilirim bir kac sekilde denedim ama ama okumadi.

[Toprak]

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

var %:p = 1 | while %:p <= $lines(acport.txt) {
.hadd -ms Port List $hget(Port,List) $read(acport.txt,%:p)
inc %:p
}
msg # $hget(Port,List) Port'ları kapatıldı..

gibi..

[Darnasus]

$read(port.txt,w,$+(*,$2-,*)) seklinde hallettim kardesim, sag ol. Konu kapatilabilir