Eglence botu yardım - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

AfraN · 10 Nisan 2020, 10:07

onu kanala yansıtan kişi yada bot ta yetki vardır
sunucuda denedim rakamlar takılıyor

cinaryigit · 11 Haziran 2020, 13:44

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

on $*:text:/[!.]a[sSşŞ]kte[sSşS]t[iıİI]\s+\S+$/SAi:#: {
  if $hget($2) == $me { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Beni Yazamazsın 4:12-1) | halt }
  if !$2 { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Nick Belirtmediniz, Lütfen Bir Nick Belirtiniz.. 4Komut: 7!aşktesti Nick | halt }
  if ($3) { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!aşktesti Nick | halt }
  if $2 == $nick { notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Kendine Aşk Testi Yapamazsın Delimisin. | halt }
  if !$hget(aşktesti,$nick) {
    .hinc -msu30 aşktesti $nick $ctime
    msg $chan 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$2,$chr(2)) 2Nick'inin 4AŞK TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
    var %toplam  $r(90,100)
    var %seviyor $calc(%toplam - $r(1,79))
    var %sevmiyor $calc(%toplam - $r(1,78))
    var %kararsız $calc(%toplam - $r(1,77))
    var %umursamıyor $calc(%toplam - $r(1,76))
    var %testet $sorttok($gettok(%seviyor,1,45) $gettok(%sevmiyor,1,45) $gettok(%kararsız,1,45) $gettok(%umursamıyor,1,45),32,nr)
    var %sonuç $sorttok(%testet,32,nr)
    msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
    msg $chan 14[4AŞK TESTİ414] $chr(32) 4,4 $str($chr(42),6) 0 % $+ $gettok(%seviyor,1,45) 8Seviyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 8,8 $str($chr(42),9) 1 % $+ $gettok(%sevmiyor,1,45) 4Sevmiyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 6,6 $str($chr(42),12) 0 % $+ $gettok(%kararsız,1,45) 11Kararsız1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] $chr(32) 7,7 $str($chr(42),15) 0 % $+ $gettok(%umursamıyor,1,45) 2Umursamıyor1! $+(12,$chr(42)) 
    msg $chan 14[4AŞK TESTİ414] 4 $chr(42)
    msg $chan 14[4AŞK TESTİ414] 10 $2 4Sonuç12 $2 $replace($gettok(%testet,1,32) / $gettok(%sonuç,1,32),$gettok(%seviyor,1,32) / $gettok(%sonuç,1,32),2Sizi Çok 3SEVİYOR,$gettok(%sevmiyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 4SEVMİYOR,$gettok(%kararsız,1,32) / $gettok(%sonuç,1,32),2Size Karşı Hep 14KARARSIZ,$gettok(%umursamıyor,1,32) / $gettok(%sonuç,1,32),2Sizi Hiç 7UMURSAMIYOR) 
  }
  else { 
    var %sevdi $calc(120 - $calc($ctime - $hget(aşktesti,%nick)))
    notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 2Aşk Testini4 2 2Dakikada Bir Kez Kullanabilirsiniz4.. 
    notice $nick 14[4AŞK TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),$nick,$chr(2)) 4(1 %sevdi 4) 7Saniye 2Sonra Tekrardan 4!aşktesti Nick 2Komutunu Yazarak Aşk Testinizi Yapabilirsiniz4.. 
  }
}

Daha önce forumda paylaşılmıştı. !aşktesti olarak çalışır. bunu arıyor arkadaş sanırım

Bülbül · 11 Aralık 2021, 14:11

Subzero Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:text:*:#Kanaladı:{
if $regex($1,/^[.!]Sev[iİı]yor$/Si) {
alias sevgiseysi {
var %seviyor $r(30,70)
var %sevmiyor $r(30,70)
var %umursamıyor $r(1,100)
msg $chan $2 Seni:
msg $chan 4,4... 0 % $+ %seviyor Seviyor! <3
msg $chan 2,2... 0 % $+ %sevmiyor Sevmiyor! </3
msg $chan 7,7... 0 % $+ %umursamıyor Umursamıyor! ;|
}
}
}

size nasıl ulaşabilirim

KraLSakir · 12 Aralık 2021, 14:36

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

on *:text:*:#:{
  if $regex($1,/^[.!]Sev[iİı]yor$/Si) { 
    var %t $r(1,100),%a $r(1,$calc(100 - %t)),%r $calc(100 - (%t + %a)) 
    msg # 07,07 $+ $str(.,%t) $+ 14,14 $+ $str(.,$calc(%r + %a))  6Sevgi % $+ %t 
    msg # 03,03 $+ $str(.,%a) $+ 14,14 $+ $str(.,$calc(%r + %t))  6Nefret % $+ %a 
    msg # 02,02 $+ $str(.,%r) $+ 14,14 $+ $str(.,$calc(%t + %a))  6Umursama % $+ %r 
  }
}

Eger kendimde cıksın istiyorsan @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:input:#:{
  if $regex($1,/^[.!]Sev[iİı]yor$/Si) { 
    var %t $r(1,100),%a $r(1,$calc(100 - %t)),%r $calc(100 - (%t + %a)) 
    msg # 07,07 $+ $str(.,%t) $+ 14,14 $+ $str(.,$calc(%r + %a))  6Sevgi % $+ %t 
    msg # 03,03 $+ $str(.,%a) $+ 14,14 $+ $str(.,$calc(%r + %t))  6Nefret % $+ %a 
    msg # 02,02 $+ $str(.,%r) $+ 14,14 $+ $str(.,$calc(%t + %a))  6Umursama % $+ %r 
  }
}

Bole yaparakda sonuc alırsın

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Soru Botu Yardım.!	LoRDGuaRD	mIRC Scripting Sorunları	3	13 Ağustos 2010 22:25
Yardım Botu	F0X	mIRC Scripting Sorunları	15	23 Mayıs 2009 18:47
Koruma botu yardım.	Redsea	Eggdrop, NeoStats, BNC	1	04 Mart 2009 13:29
Cause botu hakkında yardım	By_Asi_Mavi	mIRC Scripting Sorunları	5	18 Ekim 2007 22:56
Radyo botu yardım	hipokrat	Eggdrop, NeoStats, BNC	10	30 Ağustos 2007 21:10

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.