on *:TEXT:*:#:{
  if (%city.mon == 1) && ($chan !isin %city.chans) {
    if ($1 == !назвали) || ($1 == !названо) && (%citygame.on == 1) msg $chan 9,1 $+ Названно4 %citygame.record 10городов из13 $lines(baza/города-база.txt)
    if ($1 == !города) { if (%citygame.on == 1) { msg $chan Игру уже запустили гавнюки на канале4 %citygame.chan | halt } | if ($chan != #scripting) { set %citygame.chan $chan | set %citygame.record 0 | set %citygame.point 1 | msg $chan 9,1 $+ Ну чё играть так играть в города!!! | set %citygame.on 1 | :ll | set %citygame.ll $rand(а,я) | if ($count(%citygame.ll,ы,ъ,ь,ё,щ) != 0) goto ll | msg $chan 9,1 $+ Быстрей быстрей город на4 %citygame.ll } | elseif ($1 == !города) { msg $chan Играйте на канале4 #[CooLBots] } }
    if ($1 == !стоп) || ($1 == !стой) && (%citygame.chan == $chan) { msg $chan 9,1 $+ Какой то НАХАЛ тормазнул игру!!! | write -c город.txt | unset %citygame.chan %citygame.ll | unset %citygame.record | unset %citygame.on | write -c город2.txt | unset %citygame.point }
    if ($1 == !буква) && (%citygame.on == 1) && (%citygame.chan == $chan) msg $chan 9,1 $+ Быстрей быстрей город на4 %citygame.ll
    if ($1 == !н) && (%citygame.on == 1) { if (!$read(город.txt, w, %citygame.ll)) { write город.txt %citygame.ll | :ll | set %citygame.ll $rand(а,я) | if ($count(%citygame.ll,ы,ъ,ь,ё,щ) != 0) goto ll | msg $chan 9,1 $+ Быстрей быстрей город на4 %citygame.ll } | else msg $chan 9,1 $+ Хватит пропускать то! }
    if (%citygame.on == 1) && ($left($lower($1),1) == %citygame.ll) && (%citygame.chan == $chan) && ($count($strip($1-),$chr(42)) == 0) {
      if (!$read(город2.txt, w, $lower($1))) { 
        if ($read(baza/города-база.txt, w, $lower($1))) { 
          set %citygame.ll $right($lower($1),1) 
          if ($count(%citygame.ll,ы,ъ,ь,ё,щ) != 0) { 
            msg $chan 9,1 $+ Умничка $nick $+ 7 + $+ %citygame.point 10очков!!! Вроде на4 %citygame.ll 10нету. 
            :ll 
            set %citygame.ll $rand(а,я) 
            if ($count(%citygame.ll,ы,ъ,ь,ё,щ) != 0) goto ll 
            msg $chan 9,1 $+ Быстрей быстрей город на4 %citygame.ll 
          } 
          else msg $chan 9,1 $+ Умничка $nick $+ 7 + $+ %citygame.point 10очков!!! Быстрей быстрей город на4 %citygame.ll 
          writeini очки.txt $nick score $calc($readini(очки.txt, $nick, score) + %citygame.point) 
          inc %citygame.record
          if (%citygame.record! < %citygame.record) set %citygame.record! %citygame.record 
          inc %citygame.point
        } 
        else msg $chan 9,1 $+ хз такой город другой думай. 
      } 
      else msg $chan 9,1 $+ Повтороряемся=) 
      if ($read(baza/города-база.txt, w, $1)) write город2.txt $1
    }
    if ($1 == !очки) {
      if ($2 == $null) { if ($readini(очки.txt, $nick, score)) msg $chan 10 $+ Твои очки:7 $readini(очки.txt, $nick, score) | else msg $chan 10 $+ Может сыграешь? }
      if ($2 != $null) { if ($readini(очки.txt, $2, score)) msg $chan 10 $+ Очки $2 $+ :7 $readini(очки.txt, $2, score) | else msg $chan 10 $+ $2 ещё не играл }
    }
    if ($1 == !топ) {
      if (!$file(очки.txt)) { msg $chan 4 $+ Никто и не играл. | goto end }
      set %sitygame.topn 2
      set %sitygame.toptok $readini(очки.txt, $ini(очки.txt,1), score)
      writeini играгорода.txt $readini(очки.txt, $ini(очки.txt,1), score) stat $ini(очки.txt,1)
      while (%sitygame.topn <= $ini(очки.txt,0)) {
        set %sitygame.toptok %sitygame.toptok $readini(очки.txt, $ini(очки.txt,%sitygame.topn), score)
        writeini играгорода.txt $readini(очки.txt, $ini(очки.txt,%sitygame.topn), score) stat $ini(очки.txt,%sitygame.topn)
        inc %sitygame.topn
      }
      set %sitygame.toptok $sorttok(%sitygame.toptok,32,nr)
      set %sitygame.toptok $gettok(%sitygame.toptok,1-5,32)
      if ($gettok(%sitygame.toptok,1,32)) { msg $chan 4 $+ Топ игроков в игре "Города": | timer 1 1 msg $chan 7 $chr(49) $+ . $+ $readini(играгорода.txt, $gettok(%sitygame.toptok,1,32), stat) - $gettok(%sitygame.toptok,1,32) }
      set %sitygame.topn 2
      while (%sitygame.topn <= 5) {
        if (!$gettok(%sitygame.toptok,%sitygame.topn,32)) { timer 1 %sitygame.topn msg $chan 7 $+ А больше никто и не играл. | goto end }
        if ($gettok(%sitygame.toptok,%sitygame.topn,32)) { timer 1 %sitygame.topn msg $chan 7 $chr($calc(49 + %sitygame.topn - 1)) $+ . $+ $readini(играгорода.txt, $gettok(%sitygame.toptok,%sitygame.topn,32), stat) - $gettok(%sitygame.toptok,%sitygame.topn,32) }
        inc %sitygame.topn
      }
      :end
      unset %sitygame.toptok %sitygame.topn
    }
  }
}
on *:CONNECT:{ unset %citygame.on %citygame.chan %citygame.point %citygame.record %citygame.ll | write -c город.txt | write -c город2.txt }
on *:JOIN:#:{ if (%citygame.chan == $chan) && (%citygame.on == 1) { msg $chan 9,1 $+ $nick Давай помогай город на4 %citygame.ll } }