[MavipikSeL]

Kanala giren bir kişi, $nick'i; if $read(oplar.txt) ile okutucam fakat, bulduğu satırdaki $2 ve $3'ü bir şekilde kullanmam gerekiyor. Bulduğu satırlardaki, $2 $3 gibi satırlara hangi yolla ulaşabilirim acaba?

[el33t]

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

on *:join:#:if $read(oplar.txt,s,$nick) { msg # $v1 }

[detay]

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

if $read(oplar.txt)  { tokenize 32 $v1  | echo -a (1.Kelime $1 ) (2.kelime: $2 ) }

tokenize ile kelime kelime ayirabilirsin

[MavipikSeL]

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

on *:join:#:{
  if $read(oplar.txt,s,$nick) { tokenize 32 $v1  { if $chan == $1 { samode $1 +o $nick { if $chan == $2 samode $2 +o $nick } } } } }

Bu şekilde yaptım ama, oplar.txt'de nick şu şekilde ekli > MavipikSeL #ÖR1 #ÖR2. MavipikSeL #ÖR1'e girdiğinde opu alıyor. Yani $1 de hiçbir sorun yok ama ondan sonra txt'deki $2 satırı okunmuyor.

on *:join:#:{
if $read(oplar.txt,s,$nick) {
.set %chan # $replace($v1,$chr(32),$chr(124))
if $chan == $gettok(%chan,1,124) { samode $gettok(%chan,1,124) +o $nick
}
if $chan == $gettok(%chan,2,124) { samode $gettok(%chan,2,124) +o $nick
}
}
}



İstediğini bu şekilde yapabilirsin.. Eğer yanlış anlamadıysam

[MavipikSeL]

Birinci satırda, tokenize 32 $v1 olarak yapıp, $1'ye veriyorum. İkinci satırda, ciprix'in $2 olarak ayarladığı $gettok'u kullandım oldu ama şimdi de silerken problem var, normal yolla silinmiyorlar. ;huh

[detay]

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

on *:join:#:{
  if $read(oplar.txt,s,$nick) { 
    tokenize 32 $v1
    var %t = 0 | var %m = $numtok($1-,32)
    while %t < %m { inc %t | if $gettok($1-,%t,32) == $chan { mode $ifmatch +o $nick } }
  } 
}

böyle dene tek tek $1 = $chan $2 == $chan yerine hepsini tek tek denesin kod

[MavipikSeL]

Ekleme sorununu hallettim ama silerken problem yaşamaya başladım. Adam oplar.txt'de ekli ilk sırada $2 yani nicki diğer sıralarda kanalları var. Soplar.txt'de nicki olan birisinin yazılan nicki, bulduğu satırı komple bu şekilde silmesini istedim.

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

on *:text:*:%channel:{
  if !opsil isin $1 { 
    if $read(soplar.txt,w,$nick) { 
      write $+(-d1,$readn) oplar.txt | msg #  $2  operatör listesinden çıkartıldı.
  }
    else {
      msg #  $nick $+ , siz bu komutu kullanamazsınız.
    }
  }
}

Sonuç olumsuz. ;boggled

[detay]

write $+(-d1,$readn)
1 degil l kullanmalisin lüleburgazin l'si (: kullanım dogru öyle yaparsan calismasi gerekir

[MavipikSeL]

ı ıhh gene silmiyor, color index karakterleri mevcut .txt'de onla alakalımı acaba? ;huh

Burda anlayamadığım nokta, ben kanala !opsil necat diye yazdığımı farzedelim, silerken write $+(-dl,$readn) kullanıyorum ama burda $2 yani ikinci satırı, necat'ı sil diye bir ifade göremiyorum. Kafam ona takıldı. :P