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/)
-   -   Eglence botu yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/864015-eglence-botu-yardim.html)

mys_35 05 Nisan 2020 13:10
Eglence botu yardım
 
User> .seviyor Nick
BotNick> (Nick) sizin için besledigi duygular;
BotNick>
BotNick> 13,13.......... 14,14........................................ 6 Sevgi %21
BotNick> 1,1.................. 14,14................................ 6 Nefret %36
BotNick> 2,2..................... 14,14............................. 6 Umursama %43

Subzero 05 Nisan 2020 19:04
Cevap: Eglence botu yardım
 
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! ;|
}
}
}

mys_35 06 Nisan 2020 02:21
Cevap: Eglence botu yardım
 
aradıgım şey tam olarak bu degil muhabbet.org daki M-Bot ta var

OperServ 06 Nisan 2020 03:25
Cevap: Eglence botu yardım
 
Alıntı:
mys_35 Nickli Üyeden Alıntı (Mesaj 1042280008)
aradıgım şey tam olarak bu degil muhabbet.org daki M-Bot ta var
Tam ne aradigini belirtmiyorsun direkt konuya geçiyorsun

TeKo 06 Nisan 2020 06:32
Cevap: Eglence botu yardım
 
Alıntı:
mys_35 Nickli Üyeden Alıntı (Mesaj 1042280008)
aradıgım şey tam olarak bu degil muhabbet.org daki M-Bot ta var
daha açıklayıcı olursanız size daha açıklayıcı bilgiler verilebirlir.

mys_35 06 Nisan 2020 13:16
Cevap: Eglence botu yardım
 
on *:text:*:#:{
if $regex($1,/^[.!]Sev[iİı]yor$/Si) {
//var %m = $r(1,100) | var %n = $r(1,$calc(100 - %m)) | msg # 6 $chr(37) $+ %m seviyor | msg # 6 $chr(37) $+ %n sevmiyor | msg # 6 $chr(37) $+ $calc(100 - (%m + %n)) umursamiyor
}
}


kod bu bunun ekrana cıkmasını istedigim şekli


13,13....... 14,14........................................... 6Sevgi %15
1,1............................... 14,14................... 6Nefret %63
2,2........... 14,14....................................... 6Umursama %22

AfraN 09 Nisan 2020 20:53
Cevap: Eglence botu yardım
 
kodumuz:
Kod:
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
  }
}
ve görüntüsü:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mys_35 10 Nisan 2020 01:02
Cevap: Eglence botu yardım
 
çıkan yüzdeler neden spama düşüyor rakalm olarak bazı sunucularda rakamlar cıkmıyor bunu engellemek için ne yapmak lazım

AfraN 10 Nisan 2020 01:37
Cevap: Eglence botu yardım
 
yapacak bir şeyin yok telefon numaralarını engellemek için sayıları blocklamışlar % lerde rakamları verdiği için blocklanıyor

mys_35 10 Nisan 2020 03:26
Cevap: Eglence botu yardım
 
on $*:text:/^[!.]test/Si:#: { if (!$2) { msg # Hatalı kullanım lütfen nick belirtin. } | elseif $regex($2,/\W+|\s+|\d+|/Si) && ($2 !ison #) { notice # Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin. } | var %:Mylife = $rand(5,100) | msg # ( $2 ) sizin için besledigi duygular; | msg # - | msg # 0,3 $($chr(45), 20),$chr(32) % $+ %:Mylife NEFRET! $chr(32), $($chr(45), 20) | msg # 0,4 $($chr(45), 20),$chr(32) % $calc(100-%:Mylife) SEVGİ! $chr(32), $+ $($chr(45), 20) | var %:Kod = $calc(100-%:Mylife) | msg # - | $iif(%:Kod >= 50,msg # ( $2 ) - $read(akılsız.txt,1),msg # ( $2 ) - $read(akıllı.txt,1)) } }
bunda cıkıyor ama rakamlar bundada %25 gibi cıkıyor

AfraN 10 Nisan 2020 10:07
Cevap: Eglence botu yardım
 
onu kanala yansıtan kişi yada bot ta yetki vardır
sunucuda denedim rakamlar takılıyor

cinaryigit 11 Haziran 2020 13:44
Cevap: Eglence botu yardım
 
Kod:
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
Cevap: Eglence botu yardım
 
Alıntı:
Subzero Nickli Üyeden Alıntı (Mesaj 1042279767)
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
Cevap: Eglence botu yardım
 
Kod:
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:
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


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

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