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

SaintCty · 19 Kasım 2007, 13:46

ustalar selam benim yapmış oldugum basit bir kod önce konu verim ardından yapamadıgımı acıklayım

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

on 100:text:*:#:{
  if $1 == !sabıkalılar { play #karalist sabıka.txt 450 | halt } 
  if !sabıkalısil == $1 { remove sabıka.txt $2- | .msg #karalist $2- nickli sabıkalı  $nick  tarafından silinmistir. }
  if !sabıkalıekle == $1 { write sabıka.txt $2- | .msg #karalist $2-  nicki   $nick  Tarafından Başarıyla Eklendi }
}

şimdi bu kodda sevmedigim sabıkalı nickleri ekliyor okutuyor ve siliyorum sorumum şu mesela sabıkalı texte 20 adet nick var sil diyince hepsini birden siliyor onunda bir anlamı kalmıyor benim yapmak istedigim eklerken şöyle ekleyim
!sabıkalıekle deli ama kaydederken sabıkalı text se ekledikce numaralandırsın
listeyi görmek istedigimde
1: deli
2: ozan
böyle versin ve ben silmek istedigimde
!sabıkalısil 2 yazayım silinecek nickin numarasını sadece
2 numarada kim varsa onu silsin sadece
umarım anlatabilmişimdir yardım ederseniz sevinirim şimdiden tşkler

KiLL · 19 Kasım 2007, 14:00

if !sabıkalısil == $1 { remove sabıka.txt $2- | .msg #karalist $2- nickli sabıkalı $nick tarafından silinmistir. }
bunun yerıne bunu yaz ;

if $read(sabıka.txt,w,$2 $+ *) == $null { /msg #karalis Böyle Bir Sabıka Kaydı Bulunamadı. }
else { remove sabıka.txt,w,$2 $+ * | /msg #karalist $read(sabıka.txt,w,$2 $+ *) Sabıkalısının Sabıka Kaydı Silindi. }

SaintCty · 19 Kasım 2007, 14:20

kil emegin için tşkler ama olmadı istedigim gibi yine hepsini siliyor
numaralandırmıyor ekleyince aynısı var demiyor veya sil diye komut uygulayınca veri bulunamadı gibisinden ses vermiyor
yani anlıycagın benimkinden farkı yok sorunum şu
eklerken numaralndıracak
silerken sadece o numarayı yazıcam
ikinci kec aynı numarayı sildiyince listede yok diycek
veya aynı nicki ekleyince listede var zaten diycek
işte bunlar
ilgin emegin için tşkler

L4roXyL · 19 Kasım 2007, 16:34

Şu şekilde birşey işini görecektir.

on 100:text:*:#: { if $1 == !sabıkalıekle { if !$read(sabıkalı.txt,w,$+(*,$2)) { inc %1 1 | write sabıkalı.txt $+($(%1,2),:,$chr(32),$2) | msg # $2 listeye eklendi. } } | if $1 == !sabıkalısil { if $regex($2,/[1-9]) && $read(sabıkalı.txt,s,$+($2,:)) { write $+(-dl,$readn) sabıkalı.txt | msg # $2 numarasındaki veri silindi. } } }

Eklerken numaralandırır.
Silerken !sabıkalısil numara yazarsan o numaradki veriyi siler.(Tabi varsa)

L4roXyL · 19 Kasım 2007, 16:37

HachLi $numtock kısmını düzelt.

SaintCty · 19 Kasım 2007, 17:24

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

on *:text:*:#:{
  if $1 == !sabıkalıekle { if !$read(sabıkalı.txt,w,$+(*,$2)) { inc %1 1 | write sabıkalı.txt $+($(%1,2),:,$chr(32),$2) | msg # $2 listeye eklendi. } } | if $1 == !sabıkalısil { if $regex($2,/[1-9]) && $read(sabıkalı.txt,s,$+($2,:)) { write $+(-dl,$readn) sabıkalı.txt | msg # $2 numarasındaki veri silindi. } } |  if $1 == !sabıkalılar  { play #karalist sabıkalı.txt 450 | halt  }
}

USTA ELİNE SAGLIK OLMUŞ YANLIZ BİR SORUN VAR OKUTAMIYORUM
YANİ OKUYOR AMA ŞÖYLE
[ 17: 17 : 38 ] <saintcty> !sabıkalılar
[ 17: 17 : 39 ] <s-bot> 1: 1
[ 17: 17 : 39 ] <s-bot> 2: 2
[ 17: 17 : 40 ] <s-bot> 3: 3
sabıkalı textin içine bir göz attımda sadece numaraları kaydetmiş
yani nickleri detayı vermiyor
bir tamamlarsan sana zahmet tşkler şimdiden
!sabıkalıekle 1 ahmet küfür etti
bu şekilde ekledim ama sadece numara kaydetmiş

L4roXyL · 19 Kasım 2007, 17:31

on *:text:*:#: {
if $1 == !sabıkalıekle { if !$read(sabıkalı.txt,w,$+(*,$2)) { inc %1 1 | write sabıkalı.txt $+($(%1,2),:,$chr(32),$2) | msg # $2 listeye eklendi. } }
if $1 == !sabıkalısil { if $regex($2,/[1-9]) && $read(sabıkalı.txt,s,$+($2,:)) { write $+(-dl,$readn) sabıkalı.txt | msg # $2 numarasındaki veri silindi. } }
if $1 == !sabıkalılar { var %< = 1,%> = $lines(sabıkalı.txt) | while %< <= %> { msg # $read(sabıkalı.txt,%<) | inc %< } }
}

!sabıkalılar yaparsan olucaktır.

SaintCty · 19 Kasım 2007, 18:02

ustam tamam yanlız son bi sorunum oda
!sabıkalıekle ahmet küfürden den dolayı
yazıyorum ama sadece ilk kelimeyi listeye ekliyor
yani okuttugumda
[ 17: 58 : 48 ] <saintcty> !sabıkalılar
[ 17: 58 : 48 ] <s-bot> 8: ahmet
yani yazdıgımı sadece ilk kelimesini texe kaydeyor oysa ben istiyorumki ondan sonraki bölümüde alsınki nick neden sabıkalı hatırlayamassam göreyim
ilgin ve emeklerin için tşkler

L4roXyL · 19 Kasım 2007, 18:20

on *:text:*:#:{
if $1 == !sabıkalıekle { if !$read(sabıkalı.txt,w,$+(*,$2)) { inc %1 1 | write sabıkalı.txt $+($(%1,2),:,$chr(32),$2-) | msg # $2 listeye eklendi. } }
if $1 == !sabıkalısil { if $regex($2,/[1-9]) && $read(sabıkalı.txt,w,$+($2,:,*)) { write $+(-dl,$readn) sabıkalı.txt | msg # $2 numarasındaki veri silindi. } }
if $1 == !sabıkalılar { var %< = 1,%> = $lines(sabıkalı.txt) | while %< <= %> { msg # $read(sabıkalı.txt,%<) | inc %< } }
}

Şeklinde değişirsen istediğin olacaktır.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Xp'nin Casusunu SiLmek	LauReLL	Windows	6	15 Temmuz 2007 19:47

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.