Kod

;################# 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 }