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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kanala floodsuz yazı gönderme (https://www.ircforumlari.net/mirc-scripting-sorunlari/1475-kanala-floodsuz-yazi-gonderme.html)

[box=Modewratör notu: Alience]Başka bir threadin içinde idi yeni başlık olarak ayrıldı.[/box]

Alıntı:

Majesti Nickli Üyeden Alıntı

Bak o komutu bir textle kullanman lazım. İnput kullandığında sadece senin dediklerini anlar. Adı üzerinde zaten :) Text yani
on *:text:#:{
if ($read(access.txt,s, $+ $nick $+ ) == x) {
if ($1 == aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }
}
}
şeklinde yaparsan olay tamamdır.
ama birde bunun benzerini kendin için hazırlıcan. Yani inputla hazırlican
on *:text:#:{
if ($1 == aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }
}
Olay budur :) Kolay gele...

su kodede aop yazildiginda yazan kisiye verior sanirim.. benimde buna benzer bi calismam var. !aop nick yaptigimda belirtigim socks bot o kisiye op vericek ve buna benzer bi suru komut olucak. hepsi iyi hosda aop nick yazdigim zaman yemior bot.

Kod:

if ($1 == aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }

Su koddaki $me yazan yeri $1,$2... yaptim yemedi ne yapmam gerekiyorki ben aop nick yazdigimda aop komutunu o yazdigim nicke uygulasin?

birde farkli baslik acmak istemedim su Socks bot'a (mirc uzerinden saglanan bot) helper modesini eklicegim.. botun ozeline "yardim" yazildiginda bot su yazilari yazsin

:$nick , size asagidaki konularda yardimci olabilirim:"
1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"
3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )"
sırasiyla isde ns help yazdigindada benim belirledigim yardim msjlarının cıkmasini ORN:$nick :Nickinizin sifrelenme Komutunu Orenmek icin Sifreleme ( nsregister ) Yaziniz."
$nick :Nickinizi Identify etme komutunu orenmek icin ( nsidentify ) Yaziniz."
gibi..
Bir nevi eggdrop ornegi.. yardimlarinizi bekliyorum. Tesekkürler..

Alıntı:

on *:text:*:#:{
if ($read(access.txt,s, $+ $nick $+ ) == x) {
if ($1 == aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }
}
}
on *:text:*:#:{
if ($1 == aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }
}

basit hatalar çok ugra$tırır :)

Yeppa senin sorunun içinde :

on *:text:*:#: {
if ($1 == yardim) {
.msg $chan $nick , Size nasıl Yardımcı Olabilirim:"
.msg $chan 1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
v.s...
}
if ($1 == !aop) { .msg chanserv aop $chan add $iif($2 != $null,$2,$me) }
}

bu sefer yemesi lazım...

iyide ben onlari timerle alt alta sıralamak istiorum.. orada oyle bir timer kurmailiyimki bir defa yazmali ayni cumleyi

buyur sana kod hakkında bir örnek diğer kodları ve yardımalrı rahatlıkla ekleyebilirsin
on *:text:*:?: {
if ($1 == yardim) { play -patyardım showmsg $nick a.txt 1500 }
}
alias showmsg { msg $replace($1-,:nick:,$pnick) }

ve mirc klasorune orada bahstedilen a.txt nin içinde sunlar yazılı

[yardım]
:nick: , size asagidaki konularda yardimci olabilirim:
1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )
2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )
3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )
sırasiyla isde ns help yazdigindada benim belirledigim yardim msjlarının cıkmasini
ORN: Nickinizin sifrelenme Komutunu Orenmek icin Sifreleme ( nsregister ) Yaziniz.
:nick: Nickinizi Identify etme komutunu orenmek icin ( nsidentify ) Yaziniz.

evet yukarıdaki bu renkteki yazı kısmı a.txt dosyasının içindeki başlık yani o başlıktakileri yazıyor mesela sen komuta deneme yazabilir aynı şeyi a.txt dosyasındada
[deneme]
sadece bir denemedir
bunu bilesiniz :P

aynı dosyaya birden fazla başlık açabilirsin, nicki belirtmek istediğin yere $nick değil :nick: yazmalısın öyle tanımladım :), 1500 ms de bir mesaj atıcak yani 1.5 sn de onu yukselterek mesaj atma surelerini uzatırsın. bunu çalıştırmayı başar flood koruması olacak daha :) bir services help simulatoru sana :D .

iyi cok guzelde. ayarlamamiz gereken bi yer daha var :)
ozeline yardim yazdiginda
:nick: , size asagidaki konularda yardimci olabilirim:
1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )
2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )
3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )
sunlar cıksın daha sonra ns help yazdiginda nshelp ile ilgili komutlar cshelp yazdiginda diger komutlar. su serverlerde kullanilan eggdrop ornegi.boyle yapabilmemiz mumkunmu ?

yukarıda yazdımya
on *:text:*:?: {
if ($1 == yardim) { play -patyardım showmsg $nick a.txt 1500 }
if ($1 == ns help) { play -patnshelp showmsg $nick a.txt 1500 }
}
alias showmsg { msg $replace($1-,:nick:,$pnick) }

yine a.txt dosyasına
[nshelp]
burayada gonderilecek mesajları yazın

biraz kurcala yazılanları uygula o eggdrop ve services gibi çalıştırabilirsin.

cozdum olayi :) cok saolasin alience.. Birde sey vardi. 2defa ayni seyi yazan birini ignore etmesi gerek onu nasil saglicagim ?

kodu aşıdaki gibi değiştir:

Kod:

on *:start: { if !$hget(yardim) hmake yardim 5000 }

on *:text:*:?: { 

  if ($1 == yardim) { if $yardimflood($nick,yardim,20) { halt } | .play -patyardım showmsg $nick a.txt 1500 }

  if ($1 == yardim) { if $yardimflood($nick,deneme,20) { halt } | .play -patyardım showmsg $nick a.txt 1500 }

}

alias showmsg { msg $replace($1-,:nick:,$pnick) }

alias -l yardimflood {

  if $hget(yardim,$1) {

    if $regex($ifmatch,$2) { return $true }

    else { hadd $+(-u,$3) yardim $1 $hget(yardim,$1) $2 | return $false }

  }

  else { hadd $+(-u,$3) yardim $1 $2 | return $false }

}

ve mirc klasorundeki a.txt klasorude aşağıdaki gibi

Kod:

[yardım]

:nick: , size asagidaki konularda yardimci olabilirim:
 

[deneme]

:nick: deneme yazma be :P
 

[hoppala]

ne?

ha..

özelliklerine gelelim $yardimflood($nick,deneme,20) bu komutta senin değiştirebileceğin 2 kısım var deneme yazan yer ve 20 ayzan yer deneme yazan yer senin komutun oraya komutunu yazıcaksın boylece flood koruması eğer o kullanıcı o komutu girdiyse ona 20 sn boyunca o mesajın acıklamasını gondermiyecek şoyleki yukarıdaki a.txt ye göre:
kullanıcı: yardim
bot: kullanıcı , size asagidaki konularda yardimci olabilirim:
kullanıcı: yardım
bottan ses cıkmaz 20sn boyunca ama kullanıcı bu sefer deneme derse onu gonderir.
20 yazısıda yukarıdaki yazıdan anlıyacagın uzere 20 sn sen onu ister azalt ister cogalt remoteye kopyalayınca mirc kapat ac hash table olustursun :) sonra calısacak.

sanirim kodda hata var.. simdi istedigim seyi buraya yazayim belkide dogru yoldan gitmisimdir ama hata verior..

on *:text:*:?: {
if ($1 == yardim) { play -patyardım showmsg $nick a.txt 1500 }
if ($1 == nshelp) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == cshelp) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == mshelp) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == hy) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == nsidentify) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == nsdrop) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == nsset) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == nsghost) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == csregister) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == csidentify) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == csset) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == csaccess) { play -patnshelp showmsg $nick a.txt 1500 }
if ($1 == cslevel) { play -patnshelp showmsg $nick a.txt 1500 }
}
alias showmsg { msg $replace($1-,:nick:,$pnick) }

[yardım]
:nick: :Size asagidaki konularda yardimci olabilirim:"
:nick: :1.) Nickserv Komutlari (Nick;kayıt,siLme..vb.) konusunda yardim almak icin: ( nshelp )
:nick: :2.) Chanserv Komutlari (kanaL;kayıt,siLme..vb.) konusunda yardim almak icin: ( cshelp )
:nick: :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
[nshelp]
:nick: :Nickinizin sifrelenme Komutunu Orenmek icin Sifreleme ( nr ) Yaziniz."
:nick: :Nickinizi Identify etme komutunu orenmek icin ( nsidentify ) Yaziniz."
:nick: :Nick Droplama komutunu orenmek icin( nsdrop )Yaziniz."
:nick: :Nick Set Ayarlari orenmek icin ( nsset ) Yaziniz."
:nick: :Nickiniz Kullanimda ise dusurme komutunu orenmek icin( nsghost ) Yaziniz."
[chelp]
:nick: :Kendi Kanalinizi Kaydetmek icin ( csregister )"
:nick: :Kanalinizin sifresini girmek icin ( csidentify )"
:nick: :Kanal Ayarlari icin ( csset )"
:nick: :Access islemleri icin ( csaccess )"
:nick: :Level ayarlari icin ( cslevel )"
[hy]
:nick: :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."
:nick: ( :/ns register sifreniz email_adresiniz )"
:nick: :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz."
[nsidentify]
:nick: :Nickinizi ident ederken kullanmaniz gereken komut " :nick: :/ns identify sifreniz "
[nsghost]
:nick: :Servere girdiginizde nickiniz kullanimda uyarisi verirse"
:nick: :Asagidaki komutla Nickinizi kullanabilirsiniz."
:nick: :/ns ghost nickiniz sifreniz "
[nsdrop]
:nick: :Nickinizi droplarken kullanmaniz gereken komut : /ns drop sifreniz "
[nsset]
:nick: :Nickinizin ayarlari." 1)nspassword " 2)nslanguage " 3)nsurl " 4)nsemail " 5)nskill " 6)nsprivate "7)nshide "
:nick: :1.Nick sifresini degistirmek icin kullanilir." :/ns set password yenisifre " }
:nick: :2.Nickservin dilini degistirmeye yarar." :/ns set language dilno "
:Dil No: 1 ingilizce " :Dil No: 2 Portekizce " :Dil No: 11 Turkce " :Dil No: 4 Almanca "
:nick: :3.Nickinizin bagli oldugu url yi belirtmenizi saglar." :/ns set url Adres "
:nick: :41Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar." :/ns set email [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
:nick: :5.Nickinizin sifre sormasi icin gereken komut. " :/ns set kill On/OFF "
:nick: :On: sifrenin girilmesi icin 60 sn sure tanir." :Off: Sifre korumasini kapatir."
:nick: :6.Nickinizin Listede gozukmesini onler.":/ns set private On/Off ":On: Gorunmez." :Off: Gorunur."
:nick: :7.Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller" :/ns set hide On/Off " :On: Gorunmez." :Off: Gorunur."
[cregister]
:Kanal kaydetmekte kullanilan komut asagidaki gibidir."
:Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir." :/cs register #kanal sifre aciklama Aciklama yerine herhangi bir sey yazabilirsiniz."
[cidentify]
:nick: :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."
:nick: :Fakat bu kanalin daha once kayit edilmis olmasi gerekmektedir."
:nick: :/cs identify #kanal sifre )
[cset ]
:nick: :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."
:nick: :Set Komutlari icin ayrintili bilgiyi."
:nick: :/cs help set komutu ile alabilirsiniz.
[caccess]
:nick: :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."
:nick: :Yetki seviyeleri 1 - 999 a kadardir."
:nick: :/cs access #kanal add Nick Seviye
:nick: :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."
:nick: :Daha Ayrintili bilgi icin."
:nick: :/cs help level yazarak alabilirsiniz."

buda a.txt'in icinde ayarladimgim sey.. ben nsregister yazdigimda bile gene nshelpin basligini atior bana. bunu nasil ayarlamam gerekiyorki neyi istersem onu yazsin?

yazdıklarımı dikkatli okumanı tavsiye ediyorum
play -patnshelp showmsg $nick a.txt 1500 hepsinde aynısı var
nshelp nshelp yerine istediğin yeri yazıcaksın nsregister!