##############################################################################################
# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven!                    #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">bind raw - Notice operjoin
proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
 set _nick [lindex [split $text] 4]
 set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
 putserv "fjoin $snr #mgtops"
 putserv "fjoin $snr #admin"
        putserv "PRIVMSG #admin Hoş geldiniz; $snr Kolay gelsin."
        putserv "os mode #admin -o $snr"
  }
}
putlog "OperJoin Yüklendi. TCL BY illegal_NicCK" 

set tgqdb "scripts/kelime.txt"
set tgscf "scripts/kelimepuan.txt"
set tgerrfil "scripts/kelimehata.txt"
set tgchan "#bulmaca"
set tgpointsperanswer 15
set tgmaxhint 1
set tgstreakmin 3
set tgmaxmissed 0
set tghintchar "*"
set tgtimehint 20
set tgtimenext 10
set tgcongrats[list "Harikasin" "Soruyu Bildin"]
set tgnobodygotit[list ".."]
set tgtrythenextone[list ".."]
set tgshowanswer 1
set tgpriv2msg 1
set tgcmdhelp "?"
set tgcmdstart "basla"
set tgflagsstart -|-
set tgcmdstop "!dur"
set tgflagsstop -|-
set tgcmdhint "ipucu"
set tgflagshint -|-
set tgcmdskip "atlkllka"
set tgflagsskip -|-
set tgcmdreset "resklklet"
set tgflagsreset -|-
set tgcmdlookup "skor"
set tgcmdtarget "hedef"
set tgcmderror "hata"
set tgcmdrules "kural"
set tgrules "Kanal Kuralımız : Size Yapılmasını İstemediğiniz Davranışı Başkasına Yapmamanız...!"
set tgerrremindtime 5
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
#                                                                   #
#    Burdan Sonrasini Degismeniz Riske Sebeb Olur :):):             #
#                                                                   #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
#Misc checks & var initialisations
if {![file exists $tgqdb]} {
 putlog "\002[file tail [info script]]\002 failed to load: $tgqdb does not exist."
 return
}
if {![info exists alltools_loaded]||$allt_version<204} {
 putlog "\002[file tail [info script]]\002 failed to load: please load alltools.tcl v1.6 or higher before attempting to use this script."
 return
}
if {[llength [split $tgchan]]!=1} {
 putlog "\002[file tail [info script]]\002 failed to load: too many channels specified."
 return
}
if {![info exists tgplaying]} {set tgplaying 0}
if {![info exists tghintnum]} {set tghintnum 0}
if {![info exists tgmissed]} {set tgmissed 0}
#Binds
bind pub $tgflagsstart $tgcmdstart tgstart
bind pub $tgflagsstop $tgcmdstop tgstop
bind pub $tgflagshint $tgcmdhint tgforcehint
bind pub $tgflagsskip $tgcmdskip tgskip
bind join -|- "$tgchan *" tgjoinmsg
bind msg - $tgcmdhelp tggivehelp
bind msg - $tgcmdlookup tgscorelookup
bind msg - $tgcmdtarget tgtargetlookup
bind msg - $tgcmderror tgerror
bind msg - $tgcmdrules tgrulesmsg
bind msg $tgflagsreset "$tgcmdreset" tgresetscores
bind kick - "$tgchan $botnick" tgbotgotkicked
bind evnt - disconnect-server tgbotgotdisconnected
#starts the game if it isn't running.
proc tgstart {nick host hand chan text} {
 global tgplaying tgstreak tgchan tgerrremindtime tgerrremindtimer tgmissed
 if {[strlwr $tgchan]==[strlwr $chan]} {
  if {$tgplaying==0} {
   tggamemsg "4Kelime Oyun'u Baslatildi!.."
   tgnext
   set tgplaying 1
   set tgstreak 0
   set tgmissed 0
   set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
  }
  return 1
 }
}
#stops the game if it's running.
proc tgstop {nick host hand chan text} {
 global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
 global tgerrremindtimer
 if {[strlwr $tgchan]==[strlwr $chan]} {
  if {$tgplaying==1} {
   tggamemsg "Oyunu Durduran $nick!"
   if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
   set tgstreak 0
   set tgplaying 0
   catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
   if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
   if {[utimerexists tgnext]!=""} {killutimer $tgnexttimer}
   if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
  }
  return 1
 }
}
#gives a hint if there is currently a question to answer.
proc tgforcehint {nick host hand chan text} {
 global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
 global tgtempnohint tghintmax tghintnum
 if {[strlwr $tgchan]==[strlwr $chan]} {
  if {$tgplaying==1&&[utimerexists tghint]!=""} {
   killutimer $tghinttimer
   tghint
  }
  return 1
 }
}
#skips the current question if one has been asked.
proc tgskip {nick host hand chan text} {
 global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin tgtimenext
 if {[strlwr $tgchan]==[strlwr $chan]} {
  if {$tgplaying==1&&[utimerexists tghint]!=""} {
   tggamemsg "4Soru 2$nick Tarafından Direkt Olarak Geçildi!"
   if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
   set tgstreak 0
   unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
   killutimer $tghinttimer
   set tgnexttimer [utimer $tgtimenext tgnext]
  }
  return 1
 }
}
#reminds channel how to report errors in questions/answers
proc tgerrremind {} {
 global tgerrremindtimer tgerrremindtime botnick tgcmderror
 tggamemsg "Unutmayın!: Kelimelerdeki Hataları Bize Bildirmek İçin, Lütfen 4#Operhelp Kanalındaki Yetkililerle İrtibata Geçin"
 set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
}
#bot got kicked. stop the game.
proc tgbotgotkicked {nick host hand chan targ text} {
 tgquietstop
}
#bot got disconnected. stop the game.
proc tgbotgotdisconnected {disconnect-server} {
 tgquietstop
}
#stops the game without telling the channel.
proc tgquietstop {} {
 global tgplaying tgstreak tgchan tgcurrentanswer tghinttimer tgnexttimer tgerrremindtimer
 if {$tgplaying==1} {
  set tgstreak 0
  set tgplaying 0
  catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
  if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
  if {[utimerexists tgnext]!=""} {killutimer $tgnexttimer}
  if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
 }
}
#reads the question database.
proc tgreadqdb {} {
 global tgqdb tgquestionstotal tgquestionslist
 set tgquestionstotal 0
 set tgquestionslist "" 
 set qfile [open $tgqdb r]
 while {![eof $qfile]} {
  lappend tgquestionslist [gets $qfile]
  incr tgquestionstotal
 }
 close $qfile
}
#selects the next question.
proc tgnext {} {
 global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumber tgquestionstotal
 global tghintnum tgchan tgquestionslist
 tgreadqdb
 set tgquestionnumber [rand [llength $tgquestionslist]]   
 set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]
 set tgcurrentquestion [lindex [split $tgquestionselected |] 1]
 set tgcurrentanswer [strlwr [lindex [split $tgquestionselected |] 0]]
 unset tghintnum
 tghint
 bind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
 return
}
#shows timed hints.
proc tghint {} {
 global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchan
 global tgtimehint tghintchar tgquestionnumber tgquestionstotal
 global tgcurrentquestion tghintcharsused tgnexttimer tgtimenext tgstreak tgstreakmin
 global tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart tgshowanswer
 global tgtimestart
 if {[catch {incr tghintnum}]!=0} {set tghintnum 0}
 if {$tghintnum >= [expr $tgmaxhint+1]} {
  incr tgmissed
  set _msg ""
  append _msg "0,6Zaman Doldu!0,7 Bir Sonraki Kelime İçin Hazırlanın"
  if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
   append _msg " 0,6Kelime Çözmeye Niyetiniz Yoksa Dinleniyim Biraz :)!"
   } else {
   append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]]"
  }
  tggamemsg "$_msg"
  if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
  set tgstreak 0
  catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
  if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {
   set tgnexttimer [utimer $tgtimenext tgnext]
  }
  return
 } elseif {$tghintnum == 0} {
  set i 0
  set _hint {}
  set tghintcharsused {}
  regsub -all -- "\[A-Za-z0-9\]" $tgcurrentanswer $tghintchar _hint
  set tgtimestart [clock clicks -milliseconds]
 } elseif {$tghintnum == 1} {
  set i 0
  set _hint {}
  while {$i<[llength [split $tgcurrentanswer]]} {
   set _word [lindex [split $tgcurrentanswer] $i]
   set j 0
   set _newword {}
   while {$j<[strlen $_word]} {
    if {$j==0} {
     append _newword [stridx $_word $j]
     lappend tghintcharsused $i,$j
    } else {
     if {[string is alnum [stridx $_word $j]]} {
      append _newword $tghintchar
     } else {
      append _newword [stridx $_word $j]
      lappend tghintcharsused $i,$j
     }
    }
    incr j
   }
   lappend _hint $_newword
   incr i
  }
  } else {
   set i 0
   set _hint {}    
   while {$i<[llength [split $tgcurrentanswer]]} {
    set _word [lindex [split $tgcurrentanswer] $i]
    set j 0
    set _newword {}
    set _selected [rand [strlen $_word]]
    regsub -all -- "\[^A-Za-z0-9\]" $_word "" _wordalnum
    if {[strlen $_wordalnum]>=$tghintnum} {
     while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} {
      set _selected [rand [strlen $_word]]
     }
    }
    lappend tghintcharsused $i,$_selected
    while {$j<[strlen $_word]} {
     if {[lsearch $tghintcharsused $i,$j]!=-1||[string is alnum [stridx $_word $j]]==0} {
      append _newword [stridx $_word $j]
     } else {
      if {[string is alnum [stridx $_word $j]]} {
       append _newword $tghintchar
      }
    }
    incr j
   }
   lappend _hint $_newword
   incr i
  }
 }
tggamemsg "xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x->"
 tggamemsg "2İşte Kelimeniz  Düzenleyin: 3 [strupr $tgcurrentquestion] "
 tggamemsg "5(5Bu Harflerin Hepsinin Oldugu Bir Kelime Bulun5)"
tggamemsg "xx-x-13x-x-x--x-x-4x-x-4-x--12x-x-x-x-7x-x-x-x-x-x->"
 set tghinttimer [utimer $tgtimehint tghint]
}
#triggered when someone says the correct answer.
proc tgcorrectanswer {nick host hand chan text} {
 global tgcurrentanswer tghinttimer tgtimenext tgchan tgnexttimer tgstreak tgstreakmin
 global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
 global tgtimestart
 tggetscores
 if {![info exists tgranksbyname([strlwr $nick])]} {
  set _oldrank 0
 } else {
  set _oldrank [lindex [split $tgranksbyname([strlwr $nick]) ,] 0]
 }
 tgincrscore $nick
 tggetscores
 set _newrank [lindex [split $tgranksbyname([strlwr $nick]) ,] 0]
 set _timetoanswer [expr [expr [clock clicks -milliseconds]-$tgtimestart]/1000.00]
 set _msg "5Tebrikler6 $nick 5Doğru Cevap 6 [strupr $tgcurrentanswer] 0415 Puan Kazandınız."
 if {$_newrank<$_oldrank} {
  if {$_newrank==1} {
   append _msg " Tebrikler "
  } else {
   append _msg ""
  }
 }
 tggamemsg "$_msg"
 if {$tgstreak!=0} {
  if {[lindex [split $tgstreak ,] 0]==[strlwr $nick]} {
   set tgstreak [strlwr $nick],[expr [lindex [split $tgstreak ,] 1]+1]
   if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} {
    tggamemsg "4Bravo 2$nick 4Kelimeyi Ard Arda Siz Bildiniz! Diğerleriyle Aranızda Fark Oluşmaya Başladı!"
   }
  } else {
   if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
   set tgstreak [strlwr $nick],1
  }
 } else {
  set tgstreak [strlwr $nick],1
 }
 set tgmissed 0
 tgshowscores
 unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
 killutimer $tghinttimer
 set tgnexttimer [utimer $tgtimenext tgnext]
 return 1
}
#read current scores from file, sort and store in variable.
proc tggetscores {} {
 global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynum tgrealnames
 if {[file exists $tgscf]&&[file size $tgscf]>2} {
  set _sfile [open $tgscf r]
  set tgscores [lsort -dict -decreasing [split [gets $_sfile]]]
  close $_sfile
  set tgscorestotal [llength $tgscores]
 } else {
  set tgscores ""
  set tgscorestotal 0
 }
 if {[info exists tgscoresbyname]} {unset tgscoresbyname}
 if {[info exists tgranksbyname]} {unset tgranksbyname}
 if {[info exists tgrealnames]} {unset tgrealnames}
 if {[info exists tgranksbynum]} {unset tgranksbynum}
 set i 0
 while {$i<[llength $tgscores]} {
  set _item [lindex $tgscores $i]
  set _nick [lindex [split $_item ,] 2]
  set _lwrnick [lindex [split $_item ,] 3]
  set _score [lindex [split $_item ,] 0]
  set tgscoresbyname($_lwrnick) $_score
  set tgrealnames($_lwrnick) $_nick
  set tgranksbyname($_lwrnick) [expr $i+1],$_score
  set tgranksbynum([expr $i+1]) $_lwrnick,$_score
  incr i
 }
 return
}
#increment someone's score.
proc tgincrscore {who} {
 global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname
 tggetscores
 if {$tgscorestotal>0} {
  set i 0
  if {![info exists tgscoresbyname([strlwr $who])]} {
   append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "
  }
  while {$i<[llength $tgscores]} {
   set _item [lindex $tgscores $i]
   set _nick [lindex [split $_item ,] 2]
   set _time [lindex [split $_item ,] 1]
   set _score [lindex [split $_item ,] 0]
   if {[strlwr $who]==[strlwr $_nick]} {
    append _newscores "[expr $_score+$tgpointsperanswer],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
   } else {
    append _newscores "$_score,$_time,$_nick,[strlwr $_nick][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
   }
   incr i
  }
 } else {
  append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
 }
 set _sfile [open $tgscf w]
 puts $_sfile "$_newscores"
 close $_sfile
 return
}
#shows the current scores on channel.
proc tgshowscores {} {
 global tgscores tgchan tgscorestotal
 tggetscores
 set i 0
 while {$i<[llength $tgscores]} {
  set _item [lindex $tgscores $i]
  set _nick [lindex [split $_item ,] 2]
  set _score [lindex [split $_item ,] 0]
  if {$i==0} {
   append _scores "2$_nick $_score"
  } elseif {$i==1} {
   append _scores ", 12$_nick $_score"
  } elseif {$i==2} {
   append _scores ", 4$_nick $_score"
  } elseif {[onchan $_nick $tgchan]} {
   append _scores ",4$_nick $_score"
  }
  incr i
 }
 tggamemsg "5Sonuclar: $_scores"
}
#reset current scores.
proc tgresetscores {nick host hand text} {
 global tgscf tgscorestotal tgscores
 if {[file exists $tgscf]&&[file size $tgscf]>2} {
  set _sfile [open $tgscf w]
  puts $_sfile ""
  close $_sfile
  set tgscores ""
  set tgscorestotal 0
 }
 tggamemsg "4===== Skor Tablosu $nick! Tarafından Resetlendi ====="
 return 1
}
#triggered when a winning streak ends.
proc tgstreakend {} {
  global tgstreak tgrealnames
  tggamemsg "4Bravo $tgrealnames([lindex [split $tgstreak ,] 0]) Çok Fazla Strike ye Sahipsiniz... Tebrikler!"
  return
}
#triggered when someone joins trivia chan.
proc tgjoinmsg {nick host hand chan} {
 global botnick tgplaying tgcmdhelp tgcmdstart tgflagsstart tgcmdstop tgflagsstop tgchan
 if {$nick != $botnick} {
  set _msg ""
  append _msg "Welcome to $botnick's Trivia Channel. Trivia Oyunu Şuanda"
  if {$tgplaying==1} {
   append _msg " \002on\002."
  } else {
   append _msg " \002off\002."
  }
  if {[matchattr $hand $tgflagsstart $tgchan]&&$tgplaying==0} {
   append _msg " Oyunu Başlatmak İçin, Lütfen \002$tgcmdstart\002 Yazınız"
  }
  append _msg " Yardıma İhtiyacınız Olursa \002/MSG $botnick [strupr 
$tgcmdhelp]\002 Yazınız! :-) (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
  [tgpriv] $nick "$_msg"
 }
}
#triggered when someone /msgs the bot with the score lookup command.
proc tgscorelookup {nick host hand text} {
 global tgscoresbyname tgranksbyname tgscorestotal tgrealnames
 if {$text==""} { set text $nick } else { set text [lindex [split $text] 0] }
 tggetscores
 if {![info exists tgscoresbyname([strlwr $text])]} {
  if {[strlwr $text]==[strlwr $nick]} {
   set _who "4Siz"
  } else {
   set _who "4$text 4is"
  }
  [tgpriv] $nick "Skor Tablosunda Yoksunuz!"
 } else {
  if {[strlwr $text]==[strlwr $nick]} {
   set _who "4Siz"
  } else {
   set _who "4$tgrealnames([strlwr $text]) 4is"
  }
  [tgpriv] $nick "$tgscoresbyname([strlwr $text]) Soru Bildiniz , Ranked 4[tgordnum [lindex [split $tgranksbyname([strlwr $text]) ,] 0]] of 4$tgscorestotal."
 }
 return 1
}
#triggered when someone /msgs the bot with the target lookup command.
proc tgtargetlookup {nick host hand text} {
 global tgscoresbyname tgranksbyname tgscorestotal tgranksbynum tgrealnames
 tggetscores
 if {![info exists tgscoresbyname([strlwr $nick])]} {
  [tgpriv] $nick "Siz Skor Tablosunda Yoksunuz!"
 } else {
  set _myrank [lindex [split $tgranksbyname([strlwr $nick]) ,] 0]
  set _myscore [lindex [split $tgscoresbyname([strlwr $nick]) ,] 0]
  set _tgtrank [expr [lindex [split $tgranksbyname([strlwr $nick]) ,] 0]-1]
  set _tgtnick [lindex [split $tgranksbynum($_tgtrank) ,] 0]
  set _tgtscore [lindex [split $tgranksbynum($_tgtrank) ,] 1]
  [tgpriv] $nick "Şuandaki Bildiğiniz Soru Sayısı \00304$_myscore\00306. "
 }
 return 1
}
#triggered when someone /msgs the bot with the error reporting command.
proc tgerror {nick host hand text} {
 global tgquestionstotal tgquestionslist tgerrfil
 if {$text==""||![string is int [lindex $text 0]]} {
  [tgpriv] $nick "Soru Numarasını belirtmelisiniz...!"
  return
 }
 tgreadqdb
 set _qnum [lindex $text 0]
 if {$_qnum>$tgquestionstotal} {
  [tgpriv] $nick "Böyle Bir Soru Bulunamadı."
  return
 }
 set _qques [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 1]
 set _qans [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 0]
 set _desc [lrange $text 1 end]
 if {$_desc==""} { set _desc "No further info given for this error." }
 set _file [open $tgerrfil a]
 puts $_file "Reported by:\t$nick"
 puts $_file "Bezirgan #:\t$_qnum"
 puts $_file "Bezirgan:\t$_qques"
 puts $_file "Answer:\t\t$_qans"
 puts $_file "Comments:\t$_desc"
 puts $_file "--------------------------------------------------------------------------------"
 close $_file
 [tgpriv] $nick "Hatayı Bildirdiğiniz İçin Teşekkür Ederiz."
 return 1
}
#triggered when someone /msgs the bot with the rules command.
proc tgrulesmsg {nick host hand text} {
 global tgrules
 [tgpriv] $nick "Kanal Kuralları: $tgrules"
 return 1
}
#triggered when someone /msgs the bot with the help command.
proc tggivehelp {nick host hand {text ""}} {
 global botnick tgcmdlookup tgcmdhelp tgcmdstart tgcmdstop tgchan tgflagsstop
 global tgcmdstop tgflagshint tgcmdhint tgflagsskip tgcmdskip tgflagsreset tgcmdreset
 global tgcmdtarget tgcmderror tgcmdrules
 if {$text==""} {
  [tgpriv] $nick "Yardım Almak İçin Kullanacağınız Komut /MSG commands:"
  [tgpriv] $nick "Komutları command Yerine Yazınız, /MSG $botnick <command>"
  [tgpriv] $nick "  \002[strupr $tgcmdrules]\002"
  [tgpriv] $nick "   -- Kanal Kurallarını Listelemek İçin"
  [tgpriv] $nick "  \002[strupr $tgcmdlookup]\002 \[nick\]"
  [tgpriv] $nick "   -- Oyundaki Skorunuzu Öğrenmek İçin \[nick\], "
  [tgpriv] $nick "    Sadece Kendi Skorunuzu Görüntüler."
  [tgpriv] $nick "  \002[strupr $tgcmdtarget]\002"
  [tgpriv] $nick "   -- Oyun botundaki Hedefinizi Gösterir"
  [tgpriv] $nick "    Kimin Sizin Önünüzde Olduğunu Yada Arkanızdakinin Kim Olduğunu Görmek İçin"
  [tgpriv] $nick "  \002[strupr $tgcmderror]\002 <number> \[description\]"
  [tgpriv] $nick "   -- Sorulardaki Hataları bizlere Bildirmenize Yarar <number>"
  [tgpriv] $nick "    
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
  if {[matchattr $hand $tgflagsreset $tgchan]} {
   [tgpriv] $nick "  \002[strupr $tgcmdreset]\002"
   [tgpriv] $nick "   -- Skor Tablosunu Resetlemek İçin."
  }
  [tgpriv] $nick "Kanal Komutlarını Listelemek İçin, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS"
 }
 if {[strlwr $text]=="pubcmds"} {
  [tgpriv] $nick "You have access to the following channel commands:"
  if {[matchattr $hand $tgflagsstart $tgchan]} {
   [tgpriv] $nick "  \002$tgcmdstart\002 -- Oyunu Baslatır."
  }
  if {[matchattr $hand $tgflagsstop $tgchan]} {
   [tgpriv] $nick "  \002$tgcmdstop\002 -- Oyunu Durdurur."
  }
  if {[matchattr $hand $tgflagshint $tgchan]} {
   [tgpriv] $nick "  \002$tgcmdhint\002 -- İpucu Verir."
  }
  if {[matchattr $hand $tgflagsskip $tgchan]} {
   [tgpriv] $nick "  \002$tgcmdskip\002 -- Soruyu Atlar."
  }
  [tgpriv] $nick "For a list of /MSG commands, /MSG $botnick [strupr $tgcmdhelp]"
 }
 return 1
}
#misc procs
proc tggamemsg {what} {
 global tgchan
 putquick "PRIVMSG $tgchan :$what"
}
#Returns ordinal version of number passed to it.
#i.e. [tgordnum 1] returns "1st", [tgordnum 33] returns "33rd"
#Surely there's an easier way to do this?
proc tgordnum {num} {
 set _last1 [string range $num [expr [strlen $num]-1] end]
 set _last2 [string range $num [expr [strlen $num]-2] end]
 if {$_last1=="1"&&$_last2!="11"} {
  return "[expr $num]st"
 } elseif {$_last1=="2"&&$_last2!="09"} {
  return "[expr $num]nd"
 } elseif {$_last1=="3"&&$_last2!="13"} {
  return "[expr $num]rd"
 } else {
  return "[expr $num]th"
 }
}
proc tgpriv {} {
 global tgpriv2msg
 if {$tgpriv2msg==1} {
  return "putmsg"
 } else {
  return "putnotc"
 }
}
putlog "* [file tail [info script]] by LeonidaS <
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
> Yuklendi."
tgreadqdb
putlog "* $tgquestionstotal Kelime basariyla yuklendi" 

kaplumbaga|aagbmulpak
cici|icic
bocuk|kuboc
deli|lide
clamentine|entineclam
notalone|lonenotal
rootmaster|mastertoor
shamariq|mariqahs
nur|rnu
manag|nagma
uyuz|zuyu
cucuq|cuqcu
cemsit|tismec
Sehadet|detahse
Akaid|adika
Mustehap|pamushet
Peygamber|magpeyreb
Cemaat|maceta
Vehhab|bahhev
Kardeslik|kilsedrak
Cebrail|railbec
Lucifer|fericlu
Kakavan|akkanav
Tevazu|uzatev
Mucahid|camudih
Bozguncu|nugzobuc
İbadet|batide
Sigorta|atsirog
kotuluk|tukulok
iyimser|sermiyi
belirti|rilebit
dagcilik|kilcigad
gelincik|egciknil
gokyuzu|zuyukog
yalanci|lanciay
kirli|iklir
silsile|lesilis
saadet|asated
gazali|azilga
medine|dineem
manevi|enamvi
prenses|pensesr
kardinal|dinalrak
ozlemek|meklezo
karmasa|raksama
halik|ahkil
rahman|namhar
muceddid|cedumdid
muctehid|hidetcum
kuddus|duksud
hafiz|ahzif
intizar|tizarni
bertaraf|tafraber
taraftar|faratrat
teblig|ligbet
muallim|almimul
bedir|rideb
uhud|hudu
hayber|beryah
ihram|ramih
muzdelife|fedezumli
arafat|taaraf
emevi|veime
lidyalilar|yadilralli
turuncu|uctunur
espri|sepri
kaos|sako
zurafa|faruza
solentera|tralesone
girdap|pardgi
fumerol|lofemru
kalburustu|uuklarbstu
mancinik|camnikin
madalyon|yoldamna
jelibon|biljone
yumiyum|miyuyum
kaleydeskop|pedoykalesk
projektor|tekjropor
akliselim|simlakile
mizansen|neszinam
iskandinavya|yanisidakvna
garibaldi|idlargiba
sistematik|iematssikt
alimunyum|maynulmui
serdar|rdsear
mustehab|sbtumeha
klimanjero|jlikromena
amortisor|sirromato
aconqagua|gauqnaoca
disavurumculuk|ukisaducmlurvu
implantasyon|tasimlanyopn
creature|atecreru
kategori|getkiaro
nacizhane|zenhacian
blootooth|otoloobth
mercidabik|kericbimda
mutemadiyen|yenitedumam
trimaran|maitnrra
murekkep|peumkrek
asimptot|tsipatom
beynelmilel|lleybmnelie
savunmasiz|zasmavisnu
pagoda|gapdoa
sadakatsiz|disztakaa
patavatsiz|vatzaptais
digergamlik|kigdemlirga
diyagram|imardagy
konsolos|oslookns
pediatri|ridpetia
turkdostu|dostukrut
cuzdan|danucz
kitap|pakit
atac|cata
koltuk|tulkok
camera|macera
silgi|gilis
dolma|ladom
odunluk|luknudo
kumanda|mandaku
proje|rojep
sehba|habes
vitrin|rinvit
teyip|pitey
feridun|dunrief
zagu|aguz
septizm|mzitsep
kafur|rufka
payedar|radpaye
makinalık|ıkalnikam
kesiy|yiske
kesiyt|tyiske
gizci|izcig
bulunan|nanubul
ciroluk|lukciro
mono|nomo
meracı|ıcarme
meraklılık|kılılmekar
metu|tmeu
yokamato|otamyoka
sandalye|dalyenas
telefon|felnote
evrak|revak
hamsi|mihas
ucuzul|luuzuc
kapak|kaakp
kapi|piak
paty|ytap
polyana|anayolp
fepe|epfe
sohbet|tehbos
zet|ezt
teze|ezet
tazece|azecte
melu|luem
malu|ulma
malup|pulma
vipu|upiv
vapu|puva
canada|adanac
hakki|ikkah
hakai|ikhaa
zagu|ugaz
zagru|urzag
zumrug|umzrug
lara|laar
lara|rala
lora|oalr
larvak|varalk
yavsi|isavy
karamel|melraka
sevgi|gisev
sembol|bolsem
para|rapa
sohbet|tebsoh
orman|omran
lamba|balam
cubbe|becubb
sevgili|sevligi
vilayet|vilayte
derman|ermand
kaza|azak
papatya|payapat
gul|ulg
kumar|makur
oyun|onuy
maske|meska
canan|caann
merdane|merdaen
kalem|kelam
sivri|ivris
lokum|lokmu
lavanta|vantala
barut|burat
silah|salih
mercan|canrem
pembe|pemeb
kocaman|namkoca
sinan|annis
kral|arlk
sitem|itmes
serseri|iresser
malibu|alimbu
metal|talem
uyumak|yukamu
test|stet
koruk|ukkor
vermek|mervek
panda|andap
yogurt|gurtoy
mefta|atefm
memleket|memketle
araba|baara
sempatik|empakits
toraman|ramanot
iskonto|konisto
papaz|zpapa
yonca|cayno
mutfak|kafmut
seramoni|seronima
terzi|zerti
mevlana|lavmena
nusret|tersun
pecete|tecepe
kalkmak|kaklkam
gitmek|gimetk
zombi|ibzom
maraba|arabam
sinem|nesim
rutkan|naktur
pirana|ranaip
kerkenez|kenezrek
hiphop|pihpoh
zebani|banize
perhiz|zihper
sinema|masine
kahve|vehak
tercume|cumeret
kiyam|iyamk
solucan|canusol
damla|ladam
zerre|erzer
cocuk|cckuo
yelpaze|pazeley
fiyasko|yaskofi
tarla|arlat
mebla|ablem
zerdali|zerlida
imam|mami
kurs|surk
damga|gamad
sincan|cannis
cumle|elcum
minder|inderm
kaynana|nanayak
fizik|kizif
tavla|altav
cariye|riyeac
ucret|retcu
mekruh|hurmek
sigara|garsia
baron|ornab
kestane|tenkesa
dilber|ilberd
kocaman|ocnamka
telefon|lenofte
simya|yasmi
internet|terinnet
kanca|ancak
misilleme|miilsemel
kasap|sapak
beyaz|zebya
kanka|akkan
meral|ralem
zodyak|zodkay
ankara|anakar
misyoner|simyoren
enter|neret
kumbara|barumka
sanal|ansal
robin|obrin
nihayet|nihyeat
cemko|okcem
pirim|irpim
koruma|urokma
etna|tena
kartal|artkal
deneme|nedeme
sevda|evdas
bozok|okboz
beter|eterb
grev|evgr
azab|baza
sigorta|gorsita
ingilizce|ingizilec
kardes|arksed
canta|antac
izci|zici
volta|volat
bardak|arkadb
saklambac|sakbacmal
kablo|olbak
kanepe|nekape
cakmak|akkcam
deli|ledi
santana|tananas
siyah|yahsi
merkez|zekrme
keriz|izrek
mekan|ankem
zulum|lumuz
kadife|efikad
laz|azl
trabzon|zonartb
cocuk|cukoc
eflatun|latfeun
karamsar|masarkar
bilgisayar|yarbilsagi
ayakkabı|kkabıaya
davul|vulad
program|gopramr
enayi|aneyi
tezkere|zeterek
elma|mela
cicibebe|becibeci
rumuz|umzur
kefen|fenek
sigara|garasi
kapak|pakka
manken|namenk
ziyankar|yankarzi
helal|elalh
kaplumbaga|aagbmulpak
feridun|dunrief
zagu|aguz
septizm|mzitsep
kafir|rifka
piyade|dipaye
makinalık|ıkalnikam
kesir|riske
kesit|tiske
gizci|izcig
bulunan|nanubul
ciroluk|lukciro
mono|nomo
meracı|ıcarme
meraklılık|kılılmekar
metu|tmeu
yokamato|otamyoka
ucuz|uzuc
kapak|kaakp
kapi|piak
patik|iktap
palyanco|anacyolp
ferit|irtfe
leonidas|sadinole
taze|ezat
tazece|azecte
melul|lueml
malup|pulma
viper|erpiv
vapur|purva
canada|adanac
hakki|ikkah
hakari|ikrhaa
zaga|agaz
garez|erzag
zumrut|umzrut
lara|laar
lara|rala
lora|oalr
larva|varal
yavsi|isavy
lavas|saavl
kaybolanyıllar|rallıynalobyak
aksam|maksa
ikiaile|eliaiki
banka|ankab
finans|sinanf
tekstil|ektislt
gelin|lineg
favori|irfavo
arcelik|likcear
fenerbahce|cehabneref
sivrisinek|iiissevrk
sükrüsaracoglu|rücogsarlusüka
reklam|kerlam
alsohbet|lahosteb
kurtlarvadisi|sidivatrukral
antalya|yalnata
keriz|rizke
sema|mase
ihlamur|murlaih
palmolive|molivepal
aptamil|talimpa
transformers|rantsrofsmer
blendax|daxlbe
realmadrid|ridemadalr
barcelona|orcbelana
dunya|udayn
sezon|zones
ıloveyou|veuoyilo
sparta|parsta
sinav|inavs
acemi|imeca
cadi|idac
star|tras
 
 

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
##### Hostlarin gizlenmesi icin host-prefix #####
set pwhost "BasariHosting-TR"
set listfile [open scripts/cycle.txt r]
set nickflist [split [subst -nocommands [read $listfile]] \n]
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "illegal_NicCK"
##### Services adresini girin. #####
set servicesadr "services.alanadi.com"

##### Eggdrop - bot icin log tutumu #####
# Eger eggdropinizin olusturdugu botlarin giris cikislarini 
# bir kanala yazarak kaydetmesini istiyorsaniz, 0 isaretini 1 yapin.
#
set logit 1
##### Eggdropin log kanalini girin. #####
# Bu kanal botlarin giris cikislarinin yazilacagi kanaldir.
# Bu nedenle sadece adminlerin ve eggdropin girebilecegi bir kanal yazin.
# 
set logchany "#cycle"
################################################
# !!!!! KODLAMA BASLIYOR !!!!! #
# BU SATIRDAN ITIBAREN YAPACAGINIZ DEGISIKLIKLER 
# TCL SCRIPTIN BOZULMASINA YOL ACABILIR.
################################################
 
proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
 global kanal logit logchany
 if {$logit == 1} { 
   puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9" 
 }
 putquick "os :raw :$what join $what9 "
 utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}
proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
 putquick "os :raw :$whad part $oldu9 "
 putquick "kill $oldu4 :15Lütfen kurallara uyunuz."
 putquick "os :raw :$whad nick $oldu4"
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
 utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}
proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
 putquick "os :raw :$whas join $oldud9 "
 utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}
proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
 foreach iii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
        if { $whaaq == $after3 } { 
          if { $cikmadan3 != 0 } {           
            putquick "os :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
            if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." }  
            utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
            return
          }
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" }  
 utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}
proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
 foreach ii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
        if { $whaq == $after2 } { 
          putquick "os :raw :$whaq quit :$quitmes2"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" }  
          utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
          return
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" }  
}
proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
  global servicesadr pwhost kanal logit logchany
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
  puthelp "kill $olsun1 :15Lütfen kurallara uyunuz.
  puthelp "os :raw nick $olsun1 1 1 $olsun8 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$olsun5"
  utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}

proc pwornek {nick host hand {text ""}} {
  global pwhost
}
proc pworn {ornekcik} {
   puthelp "NOTICE PowerUseR : $ornekcik snlikti. "  
}
proc pwstart {nick host hand {text ""}} {
   global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
   if {$nick == "$authorized"} {
   puthelp "NOTICE $nick :Olusum basliyor. "
   foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :15Lütfen kurallara uyunuz."
          puthelp "os :raw nick $before 1 1 $botident 2[rand 4][rand 9].[rand 9][rand 9][rand 9].[rand 9][rand 9][rand 9].$pwhost-[rand 9][rand 9][rand 9][rand 9][rand 9] $servicesadr :$botadi"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
          utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
      }
   }
   }
}
proc pwdestroy {nick host hand {text ""}} {
   global listfile response botnick nickflist servicesadr pwhost kanal logit logchany authorized
   if {$nick == "$authorized"} {
   puthelp "NOTICE $nick :Botlar yok ediliyor. "
   if { $logit == 1 } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
   foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :destroyed by $authorized"
          puthelp "kill $after :destroyed by $authorized"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
      }
   }
   }
}
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
putlog "================Cycle Bot v3.0================"
putlog "=                                            ="
putlog "= OperServ raw -auto- bot control 2.0        ="
putlog "= http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putlog "=                                            ="
putlog "==============================================" 

Turkiye::Petek_17^^::Gamzeli::mIRC::10::1080::1200::1070::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Turk::Mircci::Codeman::mIRC::20::1100::1300::1100::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
IRCCoderCom::aLi38::__Ferdi__::mIRC::30::1006::1200::1003::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet66Net::Y-a-s-e-m-i-n::RalIici::mIRC::40::1300::1020::1070::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::quLc|n::Fanatik::mIRC::50::1400::1600::1400::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::^^Kizgin`Gusel::Antika_Saatci::mIRC::60::1500::1700::1800::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`juper::mIRC::110::2400::1700::1800::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::Guzel_ve_Guzel_D::Ben-Geldim::mIRC::120::1060::1030::1500::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::ProfesyoneI::Sebebimsinnn::mIRC::130::1700::1800::1008::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::Nicksiz_Girl::^^_-Nadid3-_^^::mIRC::140::1800::1700::1050::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::Titanik::Efsaneee::mIRC::150::1000::1200::1400::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::DeliKiz__::Masum`Koylu::mIRC::160::1070::1005::1034::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`::Kibritci::mIRC::180::1000::1005::1000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::[C]obr[A]::iskorpitx::mIRC::190::1040::1050::6000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo,#muhabbet
Sohbet::ali`baba::iLayDa_29::mIRC::200::1020::1050::1000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`mAn::ejhakeh::100::10107::1070::2510::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::pOliS_FUaT::erdi_20::degirmen906::210::31010::4210::580::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alanadi-User4564156::alanadi-User290900::alanadi-User::610::10030::1038::10100::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alanadi-User74888::alanadi-User1165::java::1003::502::600::101000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alanadi-User126532::alanadi-User4165165::oninee::2104::707::650::300::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::RenklamCi::bedirabi::mynet::3390::10286::10003::9090::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Fakir_ama_GururLu::mumya_firarda::alanadi-User::4720::10346::3010::1045::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Fabrikator::astraa32::java::502::104902::3108::68::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Muhendis_M26::alanadi-User90004::dream::622::633::10043::690::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alanadi-User0163104::sargon::alanadi-User::846010::100010::10002::2090::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Futbolcu::^^G^O^R^A^^::alanadi-User64645::1001010::210102::100090::460::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alanadi-User9054102::seval03::alanadi-User::10308::90102::106103::10100::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::HaLiT::Panda`04::alanadi-User456465::1020::2000::750::720::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`::Karton_Baby::mIRC-v1::472::1346::300::1245::7Chat? 46«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»3 - 6« 14irc.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Z`W`Y::XeNa::Gazneli_Husyn::501::1492::318::681::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Kopyaci_Girl::JavaUser25::JavaUser31::621::633::1043::692::Ping timeout::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Beckham::Muhtar_Aga::JavaUser12340::100::1000::100::11000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Bileydimmm::_Havucc_::JavaUser12341::200::900::200::1000::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::SmyRNa::KelebekUser45165::JavaUser12342::300::800::300::900::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser123::JavaUser1232::JavaUser12343::400::700::400::800::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser124::JavaUser1233::JavaUser12344::500::600::500::700::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser125::JavaUser1234::JavaUser12345::600::500::600::600::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser126::JavaUser1235::JavaUser12346::700::400::700::500::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser127::JavaUser1236::JavaUser12347::800::300::800::400::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser128::JavaUser1237::JavaUser12348::900::200::900::300::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::JavaUser129::JavaUser1238::JavaUser12349::1000::100::1000::3500::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::SeRSeRi_17::SeRSeRii::mIRC::297::3450::179::72::Ping time out::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo::zorsevgilim::Derya18f::0::300::2700::158::72::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">Sohbet::_guzel_X_Girl::LayLayLom::301::2900::132::72::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::Hey millet kimse yok mu?::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo:0::312::3500::123::79::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">Sohbet::ELWanss::BAY-X_IZMIR::KeNaNn::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::slm millet::#radyo
Sohbet::Erkut21::KurSun_f::Komsu_Kizi::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Aktif18::ArifErdem::Kontor_Guzeli::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::cilgin_CojuK::Love_speak::klas_m::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Aytuq::pinarcik::realboy::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::ReJePp::Damat`KraL::Prof_Doktor::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`Dunya::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::derya16f::liseli_kiz::seni_seviyorum_m::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::corumLuu_::ozgur_kiz::jack_nicola::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
sohbet_k::Matilda::seco::hayalatimsin::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Mithat::Semanur::Bakma_Bebek_Yanarsin::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Sindirella::Simgecik::Sevgisiz_Girl::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Sacid::Kankaaa::Sohbetci::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::sevgiselii::ask_cocu::AtillaGunes::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::T-e-g-m-e-n::turkannn::tatbim::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::tanya::tanya18f::bursali::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::uyuyan_prens::ugur::asker18::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::urfaliyak::mehtapli_geceler::arkantos::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Mutlu_cocuk::Muptelayim_sana::gazoz::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::gazoz::hasancc::mirC18::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::alpacino18::tortorax::ahmets::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::TurkBoyS::anTepLi::kalpsiz::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::I_Love_You::Kamyoncu::Mercedes::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::DJ_keskin::AkmanBoy::iST_m-34::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Diablo18::TusLak::Aycacik::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Sohbet::Evli_f::erkek_m::Sakin`::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">`ci::cezaGirL::ASKIMMM::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
CamSohbet::Antalya_F::Biyonik::zhurna::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
CamSohbet::Korsanf_25::Gel_BANA_DOGRU::HAHAHAH::178::4750::1695::1650::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»:0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
SesliChat::_onLyne_::LoveGirL::mIRC-TR::10::117::170::251::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
SesliChat::oRqun::Hidayet::Yuzuk::21::311::421::580::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
SesliChat::SeRSeRi_aDaM::KaLPTeN_KaLBe::Beyaz::60::1030::138::110::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::selamsss::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
SesliChat::_^^SenSiZ^^_::elmas21::mIRC-TR::99::502::600::1100::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
WebChat::Nedensiz::Sampiyon_Galatasaray::mIRC-TR6::213::707::650::300::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
WebChat::RizeninArfikaKoyundenim::KaraMelek::SEvda::329::1286::1003::99::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
WebChat::KraL-BeNiM::SuSaMSoKaGI::mIRC::472::1346::300::145::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
WebUser::mihriban::Zeyna_::java::501::1492::318::68::6«14 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.alanadi.com 6»::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo
Java::Kiz_yokmu::java::mIRC::621::633::1043::69::
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.mIRC.net::0::#sohbet,#oyun,#yarisma,#game,#kelime,#egitim,#trivia,#radyo