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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   mirc versiyonundan kaynaklanan kodlama hatasi (https://www.ircforumlari.net/mirc-scripting-sorunlari/1443-mirc-versiyonundan-kaynaklanan-kodlama-hatasi.html)

Flyman 26 Şubat 2005 03:25

mirc versiyonundan kaynaklanan kodlama hatasi
 
su asagidaki kodu mirc versiyon 6.01 e kurulu bir scripten almaya calistim fakat 6.16 mircte sadece pencere aciliyor fakat yapmasi gereken islevi gormuyor bu kodda 6.16 versiyona uymayan bir seymi var anliyamadim bunu 6.16 versiyoan uyarliyabilirmiyiz bu kodlamanin yaptigi islem bir nickin kanaldaki yazdigi tum text mesajlarini bir oencerede toplamasi nickin ustune tiklayip goster deyince uyguluyor ama 6.16 da calistiramadim ilgilenen olursa sevinirim


history {
if ($3 != 0) { var %c = 0 } | else { var %c = -123456 }
window -alC +n @History 200 200 315 150 Ms sans serif 10
aline @History 1-----------------------------14-15-0-[ 15History: $+ $2 0 ]-15-14-1-----------
var %i = $line($1,0)
var %hist = $2
while (%i > 0) {
var %t = $strip($line($1,[ %i ]))
var %n1 = $strip(%theme.msg.nick %hist %theme.2)
var %s = $strip(%hist $+ %theme.txt.2)
var %slen = $len($strip(%theme.txt.1 $+ %hist $+ %theme.txt.2))
if (%s isin $left(%t,%slen)) { aline -p @History $replace(%theme.txt.1,$chr(255),$chr(32)) $+  $+ %theme.couleur.autres $+ %hist $+ %theme.txt.2 %theme.couleur.say $+ $mid(%t,$calc(%slen + 2)) | inc %c }
if (($right(%t,$len($strip(%n1))) = $strip(%n1)) && ($left(%t,$len($strip(%theme.1))) = $strip(%theme.1))) { aline -p @History %theme.1  $+ %theme.couleur.cowboy $+ $gettok($mid(%t,$calc($len($strip(%theme.1)) + 2)),1,32) $+  $+ %theme.couleur.actions %theme.msg.nick  $+ %theme.couleur.cowboy $+ %hist $+  %theme.1 | var %hist = $gettok($mid(%t,$calc($len($strip(%theme.1)) + 2)),1,32) }
dec %i
if (%c >= $int($3)) { return }
}
}

Alience 26 Şubat 2005 09:22

nickin yazdıgı textleri tutması icin on *:text eventsi olması gerekli onu kopyalamamışsın, logdan okumadığına göre :)

Flyman 27 Şubat 2005 01:53

ya ben butun dosyalara baktim ama oyle bir text e rastlamadim sadece alltakiler vardi bu kodla ilgili olarak eger benim gozumden kacti ise nasil bir sey olmali o kod veya benim bu yukardaki ve su anda kopyaladigim kodu calistircak on text eventsi yazilamazmi?
menu nicklist {
.-
$chr(32) $chr(32) $chr(32) $chr(32) $chr(32) $chr(32) History
.show all msgs of $$1 in #:/history # $$1
.-
.set...:/history $$?="for which channel...? (you must be in)" $$?="Show History of ...?" $$?="How many sentences? (0=all)"
}
menu @History {
close:/window -c @History
}

Alience 27 Şubat 2005 03:09

Alıntı:

Alience Nickli Üyeden Alıntı
on *:text eventsi

daha önce yazdığım gibi :). on text lere bakıcaksın ama scriptse başka bir remoteye yazmışta olabilir veya on texte dğer komutların arasına sıkıştırmıştır.!

UOnur 27 Şubat 2005 12:50

Bencede bir yere Sıkıştırmıştır.
Bu Gevurlar iyice karman çorman yapıyolar kodları.

WhaLberg 27 Şubat 2005 13:05

hem de ne karman çorman. konuyla alâkasız olacak biraz ama, mircscripts.org sitesini takip edenler bilir. "cps (channel protection system)" diye bir add-on var "amit^" diye bir eleman yazmış. adam bir kod yazmış abi ben koda bakıyorum, kod bana bakıyor, bu derece karışık :)

Alience 27 Şubat 2005 13:50

değildir komutu en iyi karıştırmanın yolu başka bir aliases tanımlayıp cağırmaktır eğer birden cok yerde örn: writeini bilmemne.ini bolum içerik değişken yazmaktansa alias komutu tanımlayıp
alias ^_ { writeini bilmemne.ini bolum $1 }
yaptıgında komut olarak sadece ^_ içerik değişken diye yazması yeterli niye ^_ kullandın komut adı olarak dersen kısaltmaya çalışıyoruz genelde oyle absurt adlar konuyor :~ gibisinden :).
aslında herkezin bir stili vardır ve anlamak için bilen birisi dahi bir sure bakması gerekir nası yazım mantığı diye sonrarı kolay olur.

UOnur 27 Şubat 2005 14:21

aslında güzel mantık.i$i iice uzatcan.Her alias'ın sonuna 4,1,+,',! fLn koyacam ama uzatcan uzatcan uzatcan.Yaptıgı i$ aynı kapıya cıkcak.Çalacak adamda (hay be.ke$ke bula$masaydım) dicek biz buralarda bo$una emege saygı die baırıoz :) Ole bi yapalımki adam Çalamasın :)

Flyman 27 Şubat 2005 18:01

kafayi yedim zaten ben ara ara oyle bir seye rastlamadimillaki on text eventi olacak diyonuz oylemi o olmdana boyle bir kodlama islem yapmaz diyorsunuz hmm hakketten uonur un dedigi gibi nerden bulastim ya yaz biz yazamiyozmu o on text kodlamasini??

Alience 27 Şubat 2005 21:37

hım bu kod sanırım yazılanları değil o anki kanaldaki cacheleri tarayıp çıkarıyor buyur onun kodunu yazdım:
Kod:

alias history {
  if $window(@History) { clear @History | aline @History $+(1,$str(-,10),14-15-0-[ 15History:,$2, 0 ]-15-14-1,$str(-,5)) }
  var %i = 1, %nick = $+(<?,$2,>)
  while (%i <= $line($1,0)) {
    if $regex($strip($line($1,%i)),%nick) { phistory $2 $line($1,%i) } | inc %i 1
  }
  if $line(@History,0) == 1 { phistory $2 $2 : ye ağit $1 kanalında bir bilgi bulunamadı! }
}
alias phistory {
  if !$window(@History) { window -alCk0 @History | aline @History $+(1,$str(-,10),14-15-0-[ 15History:,$1, 0 ]-15-14-1,$str(-,5)) }
  aline @History $2-
}
menu nicklist {
  History: history $active $1
}

yukarıdaki kodu remoteye(alt +r) ye kopyala ğer mirc de nickin <nick> gibi cıkmayıp başka birşey cıkıyorsa örn: «nick» gibi cıkıyorsa %nick = $+(<?,$2,>) yi %nick = $+(«?,$2,») olarak değiştir. bunu kullanabilmen için mircnin $regex komutunu desteklemesi gerekli belirtiyim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:11.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk