IRCForum.Net - Turkiye'nin En Iyi IRC Platformu!




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Ocak 2024, 23:55   #1
Çevrimiçi

Daemon - ait Kullanıcı Resmi (Avatar)
Üyelik Tarihi: 03 Ocak 2024
Üye No: 559
Mesajlar: 17
Nerden:
Takım:
Meslek:
Alanım: Yok
Aldığı Beğeni: 6
Beğendikleri: 1
@Daemon
Kelime oyun botu Remote



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;################# Ayarlancak Bolum ######## alias botnick return Kelime alias nickpass return 123456 alias kanal return #Kelime alias sunucu return irc.ircsistem.com ;############ Ayarlancak Bolum Bitmistir ####### ;Botun Komutlari ;!start ;!dur ;!top10 ;!puan yada !puan Nick on *:join:$($kanal): { if ($nick == $me) { baslat } } on *:text:*:$($kanal): { if ($1- == %cevap) { if !$hget(kelimelist) { hmake kelimelist } if $hget(kelimelist,$nick) { hadd kelimelist $nick $calc($hget(kelimelist,$nick) + $puan) } else { hadd kelimelist $nick $puan } msg # 2 $rastgele($nick) , Dogru Cevap  %cevap  .timersoru off .timeralindi off soru } if $1 == !top10 { msg $kanal $kelimelist } if $1 == !puan { if ($2) { msg # $nick $qt($2) Nickli Kiþinin Puaný: $iif($hget(kelimelist,$2),$hget(kelimelist,$2),Yok) } else { msg # $nick Sizin Puanýnýz: $iif($hget(kelimelist,$nick),$hget(kelimelist,$nick),Yok) } } if ($1 == !start) { unset %63 baslat } if ($1 == !dur) { .timers off msg # 4Kelime Oyun'u Durdurulmustur. } } alias rastgele { var %x63 $rand(1,10) if (%x63 >= 5) { return 3Yakisir Sana Tebrikler Dogru Cevap Verdin10 $1 } if (%x63 >= 3) { return 3Gayet guzel gidiyorsun Dogru Cevap Verdin10 $1 } if (%x63 >= 1) { return 3Mukemmel Dogru Cevap Verdin10 $1 } if (%x63 >= 2) { return 3Cok iyisin10 $1 } if (%x63 >= 2) { return 3Dogru kelimeyi bildiniz.10 $1 } } alias ayirt { var %ss $rand(1,$len($1-)) var %sss $calc(%ss + $len($1-)) inc %ipucu 1 if (%ipucu == 1) { msg $kanal 4Ipucu:  $replace(%cevap,$chr(160),$chr(32),a,*,b,*,c,*,d,*,e,*,f,*,g,*,h,*,i,*,j,*,k,*,l,*,m,*,n,*,o,*,p,*,q,*,r,*,s,*,t,*,u,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) } } alias baslat { inc %63 1 if (%63 == 1) { msg $kanal 0,2 Oyun Basliyor Lutfen Hazirlaniniz. } .timers off unset %s soru } alias soru { set %soruayirt $read(sorular.txt,$rand(1,$lines(sorular.txt))) set %cevap $gettok(%soruayirt,1,42) set %csoru $gettok(%soruayirt,2,42) if (%csoru == $null) { msg # Hatali Soru Tespiti | baslat } msg $kanal xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x-> msg $kanal 2Ýþte Kelimeniz Düzenleyin:  10 %csoru msg $kanal 5(5Bu Harflerin Hepsinin Oldugu Bir Kelime Bulun5) msg $kanal xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x-> ayirt %cevap .timersoru 2 15 .ayirt %cevap .timeralindi 1 25 /msg $kanal 0,6Zaman Doldu!0,7 Bir Sonraki Kelime Ýçin Hazýrlanýn .. 4 Dogru Cevap : %csoru  $(|) soru } alias kelimelist { hsave -a kelimelist $qt($+($mdir,kelimelist.data)) .hfree -sw kelimelist | hmake kelimelist | hload kelimelist $qt($+($mdir,kelimelist.data)) if (!$hget(top10puan)) { hmake top10puan } var %xc = $hget(kelimelist,0).data while %xc { set %top10puan $addtok(%top10puan,$hget(kelimelist,%xc).data,46) dec %xc } var %sira = $sorttok(%top10puan,46,nr) var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1 %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46) %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46) %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46) %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46) %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46) %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46) %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46) %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46) %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46) %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46) return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10) } alias -l fazlaise { unset %y | unset %w var %i = $hfind(kelimelist,$1,0,w).data while (%i) { %y = $hfind(kelimelist,$1,%i,w).data %w = %y %w dec %i } return $replace($sorttok(%w,32,a),$chr(32),$chr(44)) } alias puan return 20 on *:connect: { identify $nickpass | join 0, | join $kanal } on *:start: { nick $botnick | server $sunucu } on *:exit:hsave -a kelimelist $qt($+($mdir,kelimelist.data)) on *:disconnect: { hsave -a kelimelist $qt($+($mdir,kelimelist.data)) | unset %63 }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;################# Ayarlancak Bolum ######## alias botnick return Kelime alias nickpass return 123456 alias kanal return #Kelime alias sunucu return irc.ircsistem.com ;############ Ayarlancak Bolum Bitmistir ####### ;Botun Komutlari ;!start ;!dur ;!top10 ;!puan yada !puan Nick on *:join:$($kanal): { if ($nick == $me) { baslat } } on *:text:*:$($kanal): { if ($1- == %cevap) { if !$hget(kelimelist) { hmake kelimelist } if $hget(kelimelist,$nick) { hadd kelimelist $nick $calc($hget(kelimelist,$nick) + $puan) } else { hadd kelimelist $nick $puan } msg # 2 $rastgele($nick) , Dogru Cevap  %cevap  .timersoru off .timeralindi off soru } if $1 == !top10 { msg $kanal $kelimelist } if $1 == !puan { if ($2) { msg # $nick $qt($2) Nickli Kiþinin Puaný: $iif($hget(kelimelist,$2),$hget(kelimelist,$2),Yok) } else { msg # $nick Sizin Puanýnýz: $iif($hget(kelimelist,$nick),$hget(kelimelist,$nick),Yok) } } if ($1 == !start) { unset %63 baslat } if ($1 == !dur) { .timers off msg # 4Kelime Oyun'u Durdurulmustur. } } alias rastgele { var %x63 $rand(1,10) if (%x63 >= 5) { return 3Yakisir Sana Tebrikler Dogru Cevap Verdin10 $1 } if (%x63 >= 3) { return 3Gayet guzel gidiyorsun Dogru Cevap Verdin10 $1 } if (%x63 >= 1) { return 3Mukemmel Dogru Cevap Verdin10 $1 } if (%x63 >= 2) { return 3Cok iyisin10 $1 } if (%x63 >= 2) { return 3Dogru kelimeyi bildiniz.10 $1 } } alias ayirt { var %ss $rand(1,$len($1-)) var %sss $calc(%ss + $len($1-)) inc %ipucu 1 if (%ipucu == 1) { msg $kanal 4Ipucu:  $replace(%cevap,$chr(160),$chr(32),a,*,b,*,c,*,d,*,e,*,f,*,g,*,h,*,i,*,j,*,k,*,l,*,m,*,n,*,o,*,p,*,q,*,r,*,s,*,t,*,u,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) } } alias baslat { inc %63 1 if (%63 == 1) { msg $kanal 0,2 Oyun Basliyor Lutfen Hazirlaniniz. } .timers off unset %s soru } alias soru { set %soruayirt $read(sorular.txt,$rand(1,$lines(sorular.txt))) set %cevap $gettok(%soruayirt,1,42) set %csoru $gettok(%soruayirt,2,42) if (%csoru == $null) { msg # Hatali Soru Tespiti | baslat } msg $kanal xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x-> msg $kanal 2Ýþte Kelimeniz Düzenleyin:  10 %csoru msg $kanal 5(5Bu Harflerin Hepsinin Oldugu Bir Kelime Bulun5) msg $kanal xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x-> ayirt %cevap .timersoru 2 15 .ayirt %cevap .timeralindi 1 25 /msg $kanal 0,6Zaman Doldu!0,7 Bir Sonraki Kelime Ýçin Hazýrlanýn .. 4 Dogru Cevap : %csoru  $(|) soru } alias kelimelist { hsave -a kelimelist $qt($+($mdir,kelimelist.data)) .hfree -sw kelimelist | hmake kelimelist | hload kelimelist $qt($+($mdir,kelimelist.data)) if (!$hget(top10puan)) { hmake top10puan } var %xc = $hget(kelimelist,0).data while %xc { set %top10puan $addtok(%top10puan,$hget(kelimelist,%xc).data,46) dec %xc } var %sira = $sorttok(%top10puan,46,nr) var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1 %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46) %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46) %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46) %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46) %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46) %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46) %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46) %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46) %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46) %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46) return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10) } alias -l fazlaise { unset %y | unset %w var %i = $hfind(kelimelist,$1,0,w).data while (%i) { %y = $hfind(kelimelist,$1,%i,w).data %w = %y %w dec %i } return $replace($sorttok(%w,32,a),$chr(32),$chr(44)) } alias puan return 20 on *:connect: { identify $nickpass | join 0, | join $kanal } on *:start: { nick $botnick | server $sunucu } on *:exit:hsave -a kelimelist $qt($+($mdir,kelimelist.data)) on *:disconnect: { hsave -a kelimelist $qt($+($mdir,kelimelist.data)) | unset %63 }

  Alıntı ile Cevapla

IRCForum.Net - Reklam Alanı

Cevapla
IRCForum.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık