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/)
-   -   BiR KoD aRiYoRuM (https://www.ircforumlari.net/mirc-scripting-sorunlari/128621-bir-kod-ariyorum.html)

POSOFxBELA 14 Ağustos 2008 17:07
BiR KoD aRiYoRuM
 
SeLaMuN aLeYKuM aRKaDaSLaR ,

BaYaGi Bi CaBaLaDiM aMa YaZaMaDiM KoDu ..
YaRDiMCi oLuRSaNiZ SeViNiRiM

BoT uN oZeLiNe 1. KeZ YaZiLiRSa : YaZMa BaNa
BoT uN oZeLiNe 2. KeZ YaZiLiRSa : YaZMaSaNaaa
BoT uN oZeLiNe 3. KeZ YaZiLiRSa : Ve BoYLe DeVaM eTMeK iStiYoRuM ..

BoyLe BiR SeY MuMKuNMu aCaBa ??:confused:

Editor 14 Ağustos 2008 18:07
Cevap: BiR KoD aRiYoRuM
 
Öncelikle S.a Konuyu Yalnış yere açmışsın

Ozel İçin ;

Kod:
on 1:text:*nasılsın*:?:/.timer 1 5 /msg $nick $read $mircdirbot/nasılsın.txt
on 1:text:*naber*:?:/.timer 1 5 /msg $nick $read $mircdirbot/nbr.txt
on 1:text:*naßer*:?:/.timer 1 5 /msg $nick $read $mircdirbot/nbr.txt
on 1:text:*alo*:?:/.timer 1 5 /msg $nick $read $mircdirbot/alo.txt
on 1:text:*allo*:?:/.timer 1 5 /msg $nick $read $mircdirbot/alo.txt
on 1:text:*tamam*:?:/.timer 1 5 /msg $nick $read $mircdirbot/tamam.txt
on 1:text:*asl*:?: /.timer 1 5 /msg $nick $read $mircdirbot/asl.txt
on 1:text:nasıl gidiyor:?: /.timer 1 5 /msg $nick idare ediyoruz sadece iyi bir ilişkiye ihtiyacım var
Kanal İçin ;

Kod:
on 1:text:*nasılsın*:#:/.timer 1 5 /msg $nick $read $mircdirbot/nasılsın.txt
on 1:text:*naber*:#:/.timer 1 5 /msg $nick $read $mircdirbot/nbr.txt
on 1:text:*naßer*:#:/.timer 1 5 /msg $nick $read $mircdirbot/nbr.txt
on 1:text:*alo*:#:/.timer 1 5 /msg $nick $read $mircdirbot/alo.txt
on 1:text:*allo*:#:/.timer 1 5 /msg $nick $read $mircdirbot/alo.txt
on 1:text:*tamam*:#:/.timer 1 5 /msg $nick $read $mircdirbot/tamam.txt
on 1:text:*asl*:#: /.timer 1 5 /msg $nick $read $mircdirbot/asl.txt
on 1:text:nasıl gidiyor:#: /.timer 1 5 /msg $nick idare ediyoruz sadece iyi bir ilişkiye ihtiyacım var
burda ise yapman Gerek Örn Bir Nick özelde ; Nbr dedi Sen Ona 5 Saniye sonra nbr.txt Dosyasından Okutursun iyi senden nbr gibi .
Yapman Gereken nbr.txt açıp içine Kişiye Söylenicek Sözleri Yazmak .
nbr.txt sadece Bir örnektir.Diyerleinide ona göre yaparsın Kolay Gelsin.

sohbetimzelzele 15 Ağustos 2008 11:34
Cevap: BiR KoD aRiYoRuM
 
PHP- Kodu:
on *:text:?:*: {
  if ($nick == $me) { halt }
  else {
    :start
    inc %ms. [ $+ [ $nick ] ]
    if (%ms. [ $+ [ $nick ] ] == 1) { goto msg.msg1 }
    if (%ms. [ $+ [ $nick ] ] == 2) { goto msg.msg2 }
    if (%ms. [ $+ [ $nick ] ] == 3) { goto msg.msg3 }
    if (%ms. [ $+ [ $nick ] ] == 4) { goto msg.msg4 } 
    :msg.msg1
    .msg $nick yazma bana
    halt
    :msg.msg2
    .msg $nick yazmasana
    halt
    :msg.msg3
    .msg $nick yazma dedik kardeşim
    halt
    :msg.msg4
    .msg $nick 3 defa uyarıldınız, artık yazılarınızı görmeyeceğim.. | .ignore $nick | .close -m
    halt
    unset %ms. [ $+ [ $nick ] ]
  }
} 
işini görür kolay gelsin.

Tears0fFeaR 04 Ekim 2008 03:04
Cevap: BiR KoD aRiYoRuM
 
Alıntı:
sohbetimzelzele Nickli Üyeden Alıntı (Mesaj 526412)
PHP- Kodu:
on *:text:?:*: {
  if ($nick == $me) { halt }
  else {
    :start
    inc %ms. [ $+ [ $nick ] ]
    if (%ms. [ $+ [ $nick ] ] == 1) { goto msg.msg1 }
    if (%ms. [ $+ [ $nick ] ] == 2) { goto msg.msg2 }
    if (%ms. [ $+ [ $nick ] ] == 3) { goto msg.msg3 }
    if (%ms. [ $+ [ $nick ] ] == 4) { goto msg.msg4 } 
    :msg.msg1
    .msg $nick yazma bana
    halt
    :msg.msg2
    .msg $nick yazmasana
    halt
    :msg.msg3
    .msg $nick yazma dedik kardeşim
    halt
    :msg.msg4
    .msg $nick 3 defa uyarıldınız, artık yazılarınızı görmeyeceğim.. | .ignore $nick | .close -m
    halt
    unset %ms. [ $+ [ $nick ] ]
  }
} 
işini görür kolay gelsin.
Bu Komut caLışmıyo Sorun Cıkıo Sadece 1. Uyarı geLio 2 ve 3 oLmuyo... Yardımcı oLursanız Cok ii oLur..

Regex 04 Ekim 2008 03:40
Cevap: BiR KoD aRiYoRuM
 
Kod:
on *:text:*:?:{
  inc $+(%,$nick,.,msg)
  if $+(%,$nick,.,msg) == 1 { .msg $nick Yazma bana. }
  if $+(%,$nick,.,msg) == 2 { .msg $nick Yazmasana? }
  if $+(%,$nick,.,msg) == 3 { .msg $nick Yazma diyorum. }
  if $+(%,$nick,.,msg) == 4 { .msg $nick Bu dört oldu; yazma! }
  else unset $+(%,$nick,.,msg)
}

Gibi...

CesuryureK 04 Ekim 2008 04:05
Cevap: BiR KoD aRiYoRuM
 
öncelikle uyarılar ne kadar devam edecek veya belli bir süre mi olacak,
uyarılar bir yerde duracaksa ne işlem yapacak ignore mi edecek? susacak mı? bunu öncelikle belirleyelim.

Tears0fFeaR 04 Ekim 2008 06:15
Cevap: BiR KoD aRiYoRuM
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 556737)
öncelikle uyarılar ne kadar devam edecek veya belli bir süre mi olacak,
uyarılar bir yerde duracaksa ne işlem yapacak ignore mi edecek? susacak mı? bunu öncelikle belirleyelim.
WaLLa Kardeş yukardakıLerden Biri iidi. 3 Kere Yazma FeLan gibi Uyarıdan Sonra. 3 KEre UyarıLdınız Artık yazdıkLarınızı gormicem deip İgnoreLeme GseL oLur...

Tears0fFeaR 04 Ekim 2008 06:17
Cevap: BiR KoD aRiYoRuM
 
Alıntı:
Lifeman Nickli Üyeden Alıntı (Mesaj 556731)
Kod:
on *:text:*:?:{
  inc $+(%,$nick,.,msg)
  if $+(%,$nick,.,msg) == 1 { .msg $nick Yazma bana. }
  if $+(%,$nick,.,msg) == 2 { .msg $nick Yazmasana? }
  if $+(%,$nick,.,msg) == 3 { .msg $nick Yazma diyorum. }
  if $+(%,$nick,.,msg) == 4 { .msg $nick Bu dört oldu; yazma! }
  else unset $+(%,$nick,.,msg)
}

Gibi...
Buda ÇaLısmıyo ((:

IrCbaStarD 04 Ekim 2008 06:37
Cevap: BiR KoD aRiYoRuM
 
Kod:
on *:text:*:?:{
  hinc -m query $+($nick,.,Ozel) 1
  if $hget(query,$+($nick,.,Ozel)) == 1 {
    msg $nick 1. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 2 {
    msg $nick 2. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 3 {
    msg $nick 3. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 4 {
    msg $nick 4. mesaj
    ignore $nick
    closemsg $nick
    notice $nick İgnore edildiniz!
    .hdel -s query $+($nick,.,Ozel)
  }
}

Tears0fFeaR 04 Ekim 2008 21:09
Cevap: BiR KoD aRiYoRuM
 
Alıntı:
IrCbaStarD Nickli Üyeden Alıntı (Mesaj 556758)
Kod:
on *:text:*:?:{
  hinc -m query $+($nick,.,Ozel) 1
  if $hget(query,$+($nick,.,Ozel)) == 1 {
    msg $nick 1. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 2 {
    msg $nick 2. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 3 {
    msg $nick 3. mesaj
  }
  if $hget(query,$+($nick,.,Ozel)) == 4 {
    msg $nick 4. mesaj
    ignore $nick
    closemsg $nick
    notice $nick İgnore edildiniz!
    .hdel -s query $+($nick,.,Ozel)
  }
}

eLine Emegine SagLık Kardeş Super ÇaLısıyo...


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

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