;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script by [StingeR] ver: 3.5   All Rights Reserved. Copyright Narkoman's™ 2008 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ñîçäàòåëü - [StingeR] <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Îá îøèáêàõ ïèøèòå íà: StingeRuleZ@mail.ru  <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Îôèöèàëüíûé ñàéò ñêðèïòà: http://chan456.ucoz.ru <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
on *:start: {
  /mtest
  /mtest2
  if (!%start.nickfx) {
    if ($gettok($dll(sys/Dlls/moo.dll,screeninfo,_),1,32) == 640x480) { newuserwizard | set %ScripTWizard 2 | set %start.nickfx on | /halt }
    if ($gettok($dll(sys/Dlls/moo.dll,screeninfo,_),1,32) == 800x600) { newuserwizard | set %ScripTWizard 2 | set %start.nickfx on | /halt }
    if ($gettok($dll(sys/Dlls/moo.dll,screeninfo,_),1,32) == 900x600) { newuserwizard | set %ScripTWizard 2 | set %start.nickfx on | /halt }
    wingtz 
    set %start.nickfx on
  }
}
on ^*:join:#:{ 
  .timer -m 1 100 colorize $chan
  if (%clonedet == 1) {
    var %cNickClones = $lookChanNickClones($nick,#) 
    if (%cNickClones != $null) { echo $colour(ctcp) # * Íàéäåíû êëîíû ( %cNickClones ), Àäðåñ: $remove($address($nick,2),*@*!) $+ ; Âñåãî: $numtok(%cNickClones,32) }
  }
} 
on *:PART:*: {
  if $nick == $me && %partsoundx == on { /dll sys\Dlls\game_tools.dll splay Sounds\part.wav } 
  /set %lastchannel $chan
}
on ^1:QUIT:{
  haltdef 
  if ($nick != $me) {
    aecho $nick $time(%stamp.style) %skinpref $nick 12(10 $address 12) %svalil 12[7 $1- 12] 
  }
}
on 1:DISCONNECT: { 
  titlebar ... ::: Narkoman's Script 3.5 ::: ... Îòêëþ÷¸í
  if (%disconnsound == ON) /dll sys\Dlls\game_tools.dll splay Sounds\Disconnect.wav
}
on *:CONNECT: {
  if (%autojoin == on) && (%channelsjoin != $null) {
    /join %channelsjoin
  }
  /debug -i NUL anticrash
}

on ^1:VOICE:#: {
  if ($me == $vnick) {
    if (%voigtzs == on) { /dll sys\Dlls\game_tools.dll splay %mevoice } 
  }
}
on ^1:DEVOICE:#:{
  if ($vnick == $me) {
    if (%devoigtzs == on) { /dll sys\Dlls\game_tools.dll splay %medevoice }
  }
}
on ^1:KICK:*:{
  if ($nick == $me) {
    if (%kocgtzs == on) { /dll sys\Dlls\game_tools.dll splay %mekoc }
  }
}
on ^1:BAN:#:{
  if ($nick == $me) {
    if (%banonme == on) { /dll sys\Dlls\game_tools.dll splay %mebanned }
  }
}
on ^1:INVITE:#: {
  if ($nick == ChanServ) { /halt }
  if (%invitasound == on) { /dll sys\Dlls\game_tools.dll splay %inviter }
  set -u100 %ichan # | set -u100 %inick $nick | %lse Ïðèãëàøåíèå:4 $nick ( $+ $address $+ )12 ïðèãëàøàåò òåáÿ íà êàíàë4 # $+ 12.12 Íàæìè4 Shift+F912 ÷òîáû çàéòè èëè4 Shift+F1012, ÷òîáû ïîñòàâèòü åãî â èãíîð. | halt
}
on *:filercvd:*:{
  if (($balloon(12) == on) && (!$appactive)) { balloons Ôàéë ïðèíÿò $chr(9) $filename îò $nick) }
  if (%downlsnd = on) { /dll sys\Dlls\game_tools.dll splay %downloaded }
}
on *:filesent:*:{
  if (($balloon(10) == on) && (!$appactive)) { balloons Ïåðåäà÷à ôàéëà $chr(9) $filename äëÿ $nick çàâåðøåíà }
  if (%sentfi == on) { /dll sys\Dlls\game_tools.dll splay %sent }
}
on *:sendfail:*:{
  if (($balloon(11) == on) && (!$appactive)) { balloons Ïåðåäà÷à íå óäàëàñü $chr(9) $filename îò $nick }
  if (%nsentfi == on) { /dll sys\Dlls\game_tools.dll splay %nsent }
}
on ^*:notice:*:*:{
  if ($nick == memoserv) { 
    if (Ïîæàëóéñòà, ïîäîæäèòå 3 ñåêóíäû ïåðåä òåì êàê ñíîâà èñïîëüçîâàòü êîìàíäó SEND. isin $1-) { dialog -mn memsenderr memsenderr }
    if (%SMsgLog == on) { write $shortfn($mircdir) $+ sys\txt\MemoServMsgLog.txt $strip($timestamp) $strip($1-) }
    if (Âàì ïðèøëî íîâîå ñîîáùåíèå îò isin $1-) || (Âàì íîâàÿ çàïèñêà îò isin $1-) { 
      set %newmemoNick îò $5 | if (!$dialog(newmemo)) dialog -mn newmemo newmemo | else { dialog -x newmemo | dialog -mn newmemo newmemo } | did -i newmemo 10 1 Íîâîå MEMO-ñîîáùåíèå 
      did -i newmemo 11 1 %newmemoNick 
      if (%memo.snd == on) { /dll sys\Dlls\game_tools.dll splay %newmemo.snd } 
      halt 
      unset %newmemoNick 
    }
    if (You have isin $1- && new memo isin $4-) && ($dialog(newmemo) != newmemo) { 
      set %newmemoCuont $3 | if (!$dialog(newmemo)) dialog -mn newmemo newmemo | else { dialog -x newmemo | dialog -mn newmemo newmemo } 
      did -i newmemo 10 1 %newmemoCuont íîâîå MEMO-ñîîáùåíèå 
      if (%memo.snd == on) { /dll sys\Dlls\game_tools.dll splay %newmemo.snd }
      halt 
    }
  }
  if ($1 == Âàì) {
    if ($3-4 == íîâûå çàïèñêè.) {
      set %post.new.n Âàì $2 íîâûõ ïèñüìà.
      post.new.n
      if (%memo.snd == on) { /dll sys\Dlls\game_tools.dll splay %newmemo.snd }
    }
    if ($3-4 == íîâàÿ çàïèñêà.) {
      set %post.new.n Âàì $2 íîâîå ïèñüìî.
      post.new.n
      if (%memo.snd == on) { /dll sys\Dlls\game_tools.dll splay %newmemo.snd }
    }
    if ($3-4 == íîâûõ çàïèñîê.) {
      set %post.new.n Âàì $2 íîâûõ ïèñåì.
      post.new.n
      if (%memo.snd == on) { /dll sys\Dlls\game_tools.dll splay %newmemo.snd }
    }
  }
}  
on *:action:$(* $+ $me $+ *):*:if (%high.fx == ON) /dll sys\Dlls\game_tools.dll splay Sounds\High.wav
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ñêðèïò îôîðìëåíèÿ íèêîâ è òåêñòà ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;; Scripting - _TRANE_ : ÿ çàèáàëñÿ âîçèòñÿ ñ ýòèì ñêðèïòîì, ñïèçäèø - óáüþ  ;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Íå÷¸ íàõ òóò íå ìåíÿòü! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:input:#: { 
  if ($server == $NULL) { scheck | halt } 
  if ($left($1-,1) != $chr(47)) && (%oformlenie == on) { 
    if (%styliZator == on) {
      if (%styleNumb == 1) ctext1 $chan $1-
      if (%styleNumb == 2) ctext2 $chan $1- 
      if (%styleNumb == 3) ctext3 $chan $1- 
      if (%styleNumb == 4) ctext4 $chan $1- 
      if (%styleNumb == 5) ctext5 $chan $1- 
      if (%styleNumb == 6) ctext6 $1- 
      if (%styleNumb == 7) ctext7 $1-
      if (%styleNumb == 8) ctext8 $1-
      if (%styleNumb == 9) ctext9 $chan $1- 
      if (%styleNumb == 10) ctext10 $1- 
      if (%styleNumb < 1) %outtext = $1-
      if  (%styleNumb > 10) %outtext = $1-
      if  (%styleNumb == $NULL) %outtext = $1-
      if ($1- == "") {
        if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
        if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
        if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
        if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
        if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
        if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
        .msg $chan $1-
        haltdef 
        if (%modeprefcolor == on) { echo $chan $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ @,$iif($nick ishop #, $+ %,$iif($me isvo #, $+ +))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1- }
        if (%modeprefcolor == off) { echo $chan $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me ishop #, $+ ,$iif($me isvo #, $+ ))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1- }
      }
      else {
        if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
        if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
        if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
        if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
        if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
        if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
        .msg $chan %outtext
        haltdef 
        if (%modeprefcolor == on) { echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ @,$iif($nick ishop #, $+ %,$iif($me isvo #, $+ +))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext %outtext }
        if (%modeprefcolor == off) { echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me ishop #, $+ ,$iif($me isvo #, $+ ))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext %outtext }
      }
    }
    if (%styliZator == off) { 
      if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
      if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
      if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
      if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
      if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
      if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
      .msg $chan $1-
      haltdef 
      if (%modeprefcolor == on) { echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ @,$iif($nick ishop #, $+ %,$iif($me isvo #, $+ +))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1- }
      if (%modeprefcolor == off) { echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me ishop #, $+ ,$iif($me isvo #, $+ ))) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1- }
    }
    halt
  } 
}
on 1:input:?: { 
  if ($server == $NULL) { scheck | halt }  
  if ($left($1-,1) != $chr(47)) && (%oformlenie == on) { 
    if (%styliZator == on) {
      if (%styleNumb == 1) ctext1 $active $1- 
      if (%styleNumb == 2) ctext2 $active $1- 
      if (%styleNumb == 3) ctext3 $active $1- 
      if (%styleNumb == 4) ctext4 $active $1- 
      if (%styleNumb == 5) ctext5 $active $1- 
      if (%styleNumb == 6) ctext6 $1- 
      if (%styleNumb == 7) ctext7 $1-
      if (%styleNumb == 8) ctext8 $1-
      if (%styleNumb == 9) ctext9 $active $1- 
      if (%styleNumb == 10) ctext10 $1- 
      if (%styleNumb < 1) %outtext = $1-
      if  (%styleNumb > 10) %outtext = $1-
      if  (%styleNumb == $NULL) %outtext = $1-
      if ($1- == "") {
        if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
        if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
        if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
        if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
        if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
        if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
        .msg $active $1-
        haltdef 
        echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1-
      }
      else {
        if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
        if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
        if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
        if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
        if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
        if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
        .msg $active %outtext
        haltdef 
        echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext %outtext
      }
    }
    if (%styliZator == off) {
      if (%outtext == ¸) && (%reslapfx == on) /halt | if (%outtext == é) && (%reslapfx == on) /halt | if (%outtext == ö) && (%reslapfx == on) /halt | if (%outtext == ó) && (%reslapfx == on) /halt | if (%outtext == ê) && (%reslapfx == on) /halt | if (%outtext == å) && (%reslapfx == on) /halt
      if (%outtext == í) && (%reslapfx == on) /halt | if (%outtext == ã) && (%reslapfx == on) /halt | if (%outtext == ø) && (%reslapfx == on) /halt | if (%outtext == ù) && (%reslapfx == on) /halt | if (%outtext == ç) && (%reslapfx == on) /halt | if (%outtext == õ) && (%reslapfx == on) /halt
      if (%outtext == ú) && (%reslapfx == on) /halt | if (%outtext == ô) && (%reslapfx == on) /halt | if (%outtext == û) && (%reslapfx == on) /halt | if (%outtext == â) && (%reslapfx == on) /halt | if (%outtext == à) && (%reslapfx == on) /halt | if (%outtext == ï) && (%reslapfx == on) /halt  
      if (%outtext == ð) && (%reslapfx == on) /halt | if (%outtext == î) && (%reslapfx == on) /halt | if (%outtext == ë) && (%reslapfx == on) /halt | if (%outtext == ä) && (%reslapfx == on) /halt | if (%outtext == æ) && (%reslapfx == on) /halt | if (%outtext == ý) && (%reslapfx == on) /halt  
      if (%outtext == \) && (%reslapfx == on) /halt | if (%outtext == ÿ) && (%reslapfx == on) /halt | if (%outtext == ÷) && (%reslapfx == on) /halt | if (%outtext == ñ) && (%reslapfx == on) /halt | if (%outtext == ì) && (%reslapfx == on) /halt | if (%outtext == è) && (%reslapfx == on) /halt  
      if (%outtext == ò) && (%reslapfx == on) /halt | if (%outtext == ü) && (%reslapfx == on) /halt | if (%outtext == á) && (%reslapfx == on) /halt | if (%outtext == þ) && (%reslapfx == on) /halt | if (%outtext == .) && (%reslapfx == on) /halt 
      .msg $active $1- 
      haltdef 
      echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1-
    }
    halt
  }
}
on 1:INPUT:=:{
  if ($left($1-,1) != $chr(47)) && (%oformlenie == on) { 
    if (%styliZator == on) {
      if (%styleNumb == 1) $active $1- 
      if (%styleNumb == 2) ctext2 $active $1- 
      if (%styleNumb == 3) ctext3 $active $1- 
      if (%styleNumb == 4) ctext4 $active $1- 
      if (%styleNumb == 5) ctext5 $active $1- 
      if (%styleNumb == 6) ctext6 $1- 
      if (%styleNumb == 7) ctext7 $1-
      if (%styleNumb == 8) ctext8 $1-
      if (%styleNumb == 9) ctext9 $active $1- 
      if (%styleNumb == 10) ctext10 $1- 
      if (%styleNumb < 1) %outtext = $1-
      if  (%styleNumb > 10) %outtext = $1-
      if  (%styleNumb == $NULL) %outtext = $1-
      if ($1- == "") {
        .msg $active $1-
        haltdef 
        echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1-
      }
      else {
        .msg $active %outtext
        haltdef 
        echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext %outtext
      }
    }
    if (%styliZator == off) {
      .msg $active $1- 
      haltdef 
      echo $active $timestamp  $+ %col_meramka $+ « $+ $iif($me isop #, $+ ,$iif($me isvo #, $+ )) $+ 15 $+  $+ %col_menick $+ $nick $+  $+ %col_meramka $+ » $+ %col_metext $1-
    }
    halt
  }
}
on ^*:text:*:#: {
  if ($chan !ischan) { return }
  set -u1 %:echo echo %col_text -mlbfti2 $chan
  set -nu1 %::text $strip($1-, o)
  if ($nick == $me) { halt }
  if (%modeprefcolor == on) && (%oformlenie == on) { %:echo  $+ %col_ramka $+ « $+ $iif($nick isop #, $+ @,$iif($nick isvo #, $+ +,$iif($nick ishop #, $+ %))) $+ 15 $+ %col_nick $+ $nick $+  $+ %col_ramka $+ » %::text | haltdef }
  if (%modeprefcolor == off) && (%oformlenie == on) { %:echo  $+ %col_ramka $+ « $+ %col_nick $+ $nick $+  $+ %col_ramka $+ » %::text | haltdef }
}
on ^*:TEXT:*:?:{
  if ($balloon(1) == on && !$appactive) { balloons Ñîîáùåíèå îò $nick $+ : $chr(9) $1- }
  if ($active != $nick) && (%qur1 == ON) /dll sys\Dlls\game_tools.dll splay Sounds\Message.wav
  set -u1 %:echoquery echo %col_text -mlbfti2 $query
  set -nu1 %::textquery $strip($1-, o)
  if ($nick == %::nickquery [ $+ [ $nick ] ]) { halt }
  if (%oformlenie == on) { 
    %:echoquery $nick  $+ %col_ramka $+ « $+ %col_nick $+ $nick $+  $+ %col_ramka $+ » %::textquery | haltdef
  }
}
on 1:CLOSE:?:{ 
  unset %::nickquery*
}
menu NickList, {
  -
  [Spin Kickban]:{ if ($me !isop $chan) { oponly | halt }
    raw -q mode $chan -o+o-o+o-o+v-v+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan -v+o-o+o-o+v-v+o-o+o-o $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-o+b-b+b-b+o-o+o-o+v $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    raw -q mode $chan +o-v-o+o-o+v-v+o-o+o-o+b $$1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1  
    raw -q kick # $1 8Âî êàê..
    raw -q mode # +b $$1
  }
  -
  [Çàôëóäèòü]:{ if ($me !isop $chan) { oponly | halt }
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
    raw -q mode $chan -o+o-o+o-o+o $$1 $1 $1 $1 $1 $1
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Ñêàíåðû  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Êëîíîñêàíåð;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias clone.scan.dlg {
  if $dialog(clone.scan.dlg) = $null { dialog -m clone.scan.dlg clone.scan.dlg }
}
dialog clone.scan.dlg {
  option dbu
  size -1 -1 249 85
  title Ñêàíåð êëîíîâ - %clone.scan.chan 
  list 1, 4 4 120 68
  list 4, 125 4 74 68
  button "Ñòàðò", 2, 87 70 36 11, default
  button "Îòìåíà", 3, 126 70 36 11, cancel
  button "Èíôî", 5, 202 5 43 10
  button "Îò÷åò", 9, 202 16 43 10
  button "Ïðåäóïðåäèòü", 6, 202 32 43 10
  button "Êèêíóòü", 7, 202 43 43 10
  button "Çàáàíèòü", 8, 202 54 43 10
}
on 1:dialog:clone.scan.dlg:*:*:{
  if ($devent == sclick) {
    if ($did == 2) clone.scan
    if ($did == 1) {
      did -r $dname 4
      var %cad = $did($dname,1).seltext
      var %scn = $gettok($hget(csc,%cad),0,44)
      var %csnc 0
      while (%csnc < %scn) { inc %csnc | did -a $dname 4 $gettok($hget(csc,%cad),%csnc,44) }
      did -c $dname 4 1
    }
    if ($did == 3) unset %clone.scan.chan
    if ($did == 5) && ($did($dname,4).seltext) .uwho $did($dname,4).seltext $did($dname,4).seltext
    if ($did == 9) && ($did($dname,1).seltext) {  
      echo -a 4-Ðåçóëüòàòû ñêàíåðà êëîíîâ- ! 
      if ($hget(csc)) hfree csc
      hmake csc $nick(%clone.scan.chan,0)
      var %csn 0
      while (%csn < $nick(%clone.scan.chan,0)) {
        inc %csn
        hadd csc $address($nick(%clone.scan.chan,%csn),2) $hget(csc,$address($nick(%clone.scan.chan,%csn),2)) $+ $nick(%clone.scan.chan,%csn) $+ $chr(44)
      }
      var %css 0
      while (%css < $hget(csc,0).item) {
        inc %css
        var %cad = $hget(csc,%css).item
        var %scn = $gettok($hget(csc,%cad),0,44)
        if (%scn > 1) {
          var %clo 1 
          echo -a Àäðåñ: %cad
          if (!%csna) {
            var %csna 1
            var %csnc 0
          }
          echo -a Íèêè âîçìîæíûõ êëîíîâ: $hget(csc,%cad) 
        }
        unset %clone.scan
        unset %clo
      }
    }
    if ($did == 9) && ($did($dname,1).seltext) && ($did(clone.scan.dlg,1,1) == Êëîíû íå íàéäåíû) { echo -a Êëîíû íå íàéäåíû }
    if ($did == 6) && ($did($dname,4).seltext) {
      var %scn $did(clone.scan.dlg,4).lines,%csnc 0
      while (%csnc < %scn) { inc %csnc | var %ckn = $iif(%ckn,%ckn $+ $chr(44)) $+ $did(clone.scan.dlg,4,%csnc) }
      .msg %ckn Íà êàíàëå %clone.scan.chan çàïðåùåíû êëîíû!
    }
    if ($did == 7) && ($did($dname,4).seltext) clone.scan.kick
    if ($did == 8) && ($did($dname,4).seltext) clone.scan.ban
  }
}
alias clone.scan {
  if ($server == $null) { scheck | /halt }
  if ($active !ischan) { set %err.w 110 | set %err.h 40 | set %err.b.x 38 | set %err.b.y 25 | set %err.msg Àêòèâíîå îêíî íå êàíàë! | error | return }
  if (!%clone.scan.chan) && ($active ischan) set %clone.scan.chan $active
  if ($active != %clone.scan.chan) && ($active ischan) set %clone.scan.chan $active
  dialog -t clone.scan.dlg Ñêàíåð êëîíîâ - %clone.scan.chan
  if ($me !isop %clone.scan.chan) { did -h clone.scan.dlg 6 | did -h clone.scan.dlg 7 | did -h clone.scan.dlg 8 }
  else { did -v clone.scan.dlg 6 | did -v clone.scan.dlg 7 | did -v clone.scan.dlg 8 }
  set %clone.scan 1
  if ($chan(%clone.scan.chan).ial == $false) { .ial on | who %clone.scan.chan | return }
  did -r clone.scan.dlg 1
  did -r clone.scan.dlg 4
  if ($hget(csc)) hfree csc
  hmake csc $nick(%clone.scan.chan,0)
  var %csn 0
  while (%csn < $nick(%clone.scan.chan,0)) {
    inc %csn
    hadd csc $address($nick(%clone.scan.chan,%csn),2) $hget(csc,$address($nick(%clone.scan.chan,%csn),2)) $+ $nick(%clone.scan.chan,%csn) $+ $chr(44)
  }
  var %css 0
  while (%css < $hget(csc,0).item) {
    inc %css
    var %cad = $hget(csc,%css).item
    var %scn = $gettok($hget(csc,%cad),0,44)
    if (%scn > 1) {
      var %clo 1 
      did -a clone.scan.dlg 1 %cad
      if (!%csna) {
        var %csna 1
        var %csnc 0
        while (%csnc < %scn) { inc %csnc | did -a clone.scan.dlg 4 $gettok($hget(csc,%cad),%csnc,44) }
      }
      did -c clone.scan.dlg 1 1
      did -c clone.scan.dlg 4 1
    }
  }
  if (!%clo) { did -a clone.scan.dlg 1 Êëîíû íå íàéäåíû }
  did -c clone.scan.dlg 1 1
  unset %clone.scan
  unset %clo
}
alias clone.scan.kick dialog -m clone.scan.kick clone.scan.kick
dialog clone.scan.kick {
  option dbu
  size -1 -1 83 53
  title "Êèêíóòü"
  box "", 1, 4 2 75 32
  radio "Âûäåëåíûé íèê", 2, 9 10 60 10
  radio "Âñå íèêè ýòîãî õîñòà", 3, 9 20 63 10
  button "Êèêíóòü", 4, 4 38 36 11, default, ok
  button "Îòìåíà", 5, 43 38 36 11, cancel
}
on 1:dialog:clone.scan.kick:*:*:{
  if ($devent == init) did -c $dname 2
  if ($devent == sclick) {
    if ($did == 4) {
      if ($did($dname,2).state) kick %clone.scan.chan $did(clone.scan.dlg,4).seltext Íà êàíàëå %clone.scan.chan çàïðåùåíû êëîíû!
      if ($did($dname,3).state) {
        var %scn $did(clone.scan.dlg,4).lines,%csnc 0
        while (%csnc < %scn) { inc %csnc | var %ckn = $iif(%ckn,%ckn $+ $chr(44)) $+ $did(clone.scan.dlg,4,%csnc) }
        kick %clone.scan.chan %ckn Íà êàíàëå %clone.scan.chan çàïðåùåíû êëîíû!
      }
    }
  }
}
alias clone.scan.ban dialog -m clone.scan.ban clone.scan.ban 
dialog clone.scan.ban {
  option dbu
  size -1 -1 83 53
  title "Çàáàíèòü"
  box "", 1, 4 2 75 32
  radio "Âûäåëåíûé íèê", 2, 9 10 60 10
  radio "Âñå íèêè ýòîãî õîñòà", 3, 9 20 63 10
  button "Çàáàíèòü", 4, 4 38 36 11, default, ok
  button "Îòìåíà", 5, 43 38 36 11, cancel
}
on 1:dialog:clone.scan.ban:*:*:{
  if ($devent == init) did -c $dname 2
  if ($devent == sclick) {
    if ($did == 4) {
      if ($did($dname,2).state) { ban %clone.scan.chan $did(clone.scan.dlg,4).seltext 7 | kick %clone.scan.chan $did(clone.scan.dlg,4).seltext Íà êàíàëå %clone.scan.chan çàïðåùåíû êëîíû! }
      if ($did($dname,3).state) {
        ban %clone.scan.chan $did(clone.scan.dlg,4).seltext 2
        var %scn $did(clone.scan.dlg,4).lines,%csnc 0
        while (%csnc < %scn) { inc %csnc | var %ckn = $iif(%ckn,%ckn $+ $chr(44)) $+ $did(clone.scan.dlg,4,%csnc) }
        kick %clone.scan.chan %ckn Íà êàíàëå %clone.scan.chan çàïðåùåíû êëîíû!
      }
    }
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ñêàíåð IRC îïåðàòîðîâ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias ircop.scan.dlg {
  if $dialog(ircop.scan.dlg) = $null { dialog -m ircop.scan.dlg ircop.scan.dlg }
}
dialog ircop.scan.dlg {
  option dbu
  size -1 -1 209 85
  title Ñêàíåð IRC îïåðàòîðîâ - %ircop.scan.chan 
  list 1, 4 4 70 55
  list 4, 75 4 130 55
  button "Èíôî", 9, 22 55 34 10
  text "Ïðîâåðåíî íèêîâ:", 5, 88 56 48 10
  text "", 6, 138 56 12 10, right
  text "èç", 7, 154 56 20 10
  text "", 8, 163 56 12 10
  button "Ñòàðò", 2, 67 70 36 11, default
  button "Îòìåíà", 3, 106 70 36 11, cancel
}
on 1:dialog:ircop.scan.dlg:*:*:{
  if ($devent == init) { did -h $dname 5 | did -h $dname 7 }
  if ($devent == sclick) {
    if ($did == 2) { 
      if (!%ircop.scan) {
        if ($active !ischan) { set %err.w 110 | set %err.h 40 | set %err.b.x 38 | set %err.b.y 25 | set %err.msg Àêòèâíîå îêíî íå êàíàë! | error | return }
        if (!%ircop.scan.chan) && ($active ischan) set %ircop.scan.chan $active
        if ($active != %ircop.scan.chan) && ($active ischan) set %ircop.scan.chan $active
        did -v $dname 5 | did -v $dname 6 | did -v $dname 7 | did -v $dname 8
        did -o $dname 2 1 Ñòîï
        set %ircop.scan 1
        dialog -t $dname Ñêàíåð IRC îïåðàòîðîâ - %ircop.scan.chan
        did -r $dname 1
        did -r $dname 4
        set %sown $nick(%ircop.scan.chan,0)
        set %scop 1
        whois $nick(%ircop.scan.chan,%scop) $nick(%ircop.scan.chan,%scop)
      }
      else {
        did -o $dname 2 1 Ñòàðò
        unset %ircop.scan | unset %scop | unset %ircop.scan.chan | unset %sown | unset %ewc
      }
    }
    if ($did == 1) did -c $dname 4 $did($dname,1).sel
    if ($did == 4) did -c $dname 1 $did($dname,4).sel
    if ($did == 9) && ($did($dname,1).sel) .uwho $did($dname,1).seltext $did($dname,1).seltext
    if ($did == 3) { unset %ircop.scan | unset %scop | unset %ircop.scan.chan | unset %sown | unset %ewc }
  }
}
raw 301:*: if (%ircop.scan) haltdef
raw 307:*: if (%ircop.scan) haltdef
raw 311:*: if (%ircop.scan) haltdef
raw 312:*: if (%ircop.scan) haltdef
raw 313:*: if (%ircop.scan) { did -a ircop.scan.dlg 1 $2 | did -a ircop.scan.dlg 4 $address($2,5) | haltdef }
raw 317:*: if (%ircop.scan) haltdef
raw 318:*: {
  if (%ircop.scan) {
    set %sown $nick(%ircop.scan.chan,0)
    inc %ewc
    inc %scop
    if (%ewc == %sown) { 
      did -o ircop.scan.dlg 6 1 %ewc
      did -o ircop.scan.dlg 8 1 %sown
      if ($did(ircop.scan.dlg,1).lines) { set %info.msg Ïîèñê çàâåðøåí! Íàéäåíî IRC îïåðàòîðîâ: $did(ircop.scan.dlg,1).lines | inform }
      else { set %info.msg Ïîèñê çàâåðøåí! IRC îïåðàòîðû íå íàéäåíû | inform }
      did -o ircop.scan.dlg 2 1 Ñòàðò
      did -c ircop.scan.dlg 1 1 | did -c ircop.scan.dlg 4 1
      if (%sound == on) splay $shortfn($mircdir) $+ sys\sounds\drums.wav 
      unset %ircop.scan | unset %sown | unset %ewc | unset %scop | unset %ircop.scan.chan
    }
    else {
      did -o ircop.scan.dlg 6 1 %ewc
      did -o ircop.scan.dlg 8 1 %sown
      whois $nick(%ircop.scan.chan,%scop) $nick(%ircop.scan.chan,%scop)
    }
    haltdef
  }
}
raw 319:*: if (%ircop.scan) haltdef
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Away ñêàíåð;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias scanaway {
  if $dialog(scanaway) = $null { dialog -m scanaway scanaway }
}
dialog scanaway {
  title "      Away Ñêàíåð"
  size -1 -1 280 200
  combo 1, 5 5 160 100, drop, edit, size
  list 2, 5 30 162 102, size
  button "Ñêàíèðîâàòü", 3, 5 170 162 21, flat
  edit "", 5, 5 140 162 23, disabled, multi, return, autohs
  button "Çàêðûòü", 4, 183 130 85 18, flat, ok
  box "×òî äåëàòü...", 6, 175 5 100 95
  button "Ïðåäóïðåäèòü", 7, 183 25 85 18, flat
  button "Êèê/Áàí", 8, 183 50 85 18, flat
  button "Êèê", 9, 183 75 85 18, flat
  button "Íàñòðîéêè", 10, 183 105 85 18, flat
}
alias warns { .dialog -m warn warn }
dialog warn {
  size -1 -1 320 170
  title ".: Ïðåäóïðåäèòü/Êèêíóòü/Çàáàíèòü :."
  button "ÎÊ", 1, 255 140 53 18, flat, ok
  radio "Ïðåäóïðåäèòü", 2, 10 10 100 18
  edit "", 3, 10 30 300 18, autohs
  radio "Êèêíóòü", 4, 10 50 80 18
  edit "", 5, 10 70 300 18, autohs
  radio "Êèê/Áàí", 6, 10 90 80 18
  edit "", 7, 10 110 300 18, autohs
}
on *:dialog:scanaway:*:*: {
  if ($devent == init) { .awaychans | .did -f scanaway 3 | .did -c scanaway 1 1 | .set %scan.chan $did(1) }
  if ($devent == sclick) { 
    if ($did == 10) { .warns }
    if ($did == 1) { .set %scan.chan $did(1).text }
    if ($did == 3) && ($server) { .did -r scanaway 2,5 | .enable #scanaway | .who %scan.chan * }
    if ($did == 7) && ($did(2).seltext != $null) && ($server) && (%away.warn != $null) { .notice $did(2).seltext %away.warn }
    if ($did == 9) && ($did(2).seltext != $null) && ($server) { .raw kick %scan.chan $did(2).seltext %away.kick }
    if ($did == 8) && ($did(2).seltext != $null) && ($server) { .raw mode %scan.chan +b $did(2).seltext 2 | .kick %scan.chan $did(2).seltext %away.kb }
  }
}
alias awaychans {
  var %num.chans = 1
  while (%num.chans <= $comchan($me,0)) {
    .did -a scanaway 1 $comchan($me,%num.chans)
    inc %num.chans
  }
  if ($comchan($me,0) == 0) { .did -r scanaway 1,2,5 | .did -a scanaway 5 Çàõîæó íà êàíàë... }
}

#scanaway off
raw 352:* { 
  did -a scanaway 5 Ñêàíèðóþ... 
  if (G isin $7) { 
    did -a scanaway 2 $6
    inc %scan.aways 
  } 
}
raw 315:* { 
  if (%scan.aways == $null) { 
    .did -r scanaway 5 
    .did -a scanaway 5 Íå íàéäåíî Away's. 
    set %awaysfound None 
  } 
  .disable #scanaway 
  unset %scan.aways 
  if (%awaysfound == None) { 
    .did -r scanaway 5 
    .did -a scanaway 5 Íå íàéäåíî Away's 
  } 
  if (%awaysfound != None) { 
    .did -r scanaway 5 
    .did -a scanaway 5 Ñêàí çàêîí÷åí...
  } 
  unset %awaysfound 
  halt 
}

#scanaway end

on *:dialog:warn:*:*: {
  if ($devent == init) { .did -m $dname 3,5,7 | .did -a $dname 3 %away.warn | .did -a $dname 5 %away.kick | .did -a $dname 7 %away.kb }
  if ($devent == sclick) {
    if ($did == 2) { .did -n $dname 3 | .did -m $dname 5,7 | .did -f $dname 3 }
    if ($did == 4) { .did -n $dname 5 | .did -m $dname 3,7 | .did -f $dname 5 }
    if ($did == 6) { .did -n $dname 7 | .did -m $dname 3,5 | .did -f $dname 7 }
  }
  if ($devent == edit) {
    if ($did == 3) { .set %away.warn $did(3) }
    if ($did == 5) { .set %away.kick $did(5) }
    if ($did == 7) { .set %away.kb $did(7) }
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Òàáëèöà ñêàíåðîâ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias scaners if (!$dialog(scaners)) dialog -m scaners scaners | else { dialog -x scaners | dialog -m scaners scaners }
dialog scaners {
  icon $mircdiricons/scaners.ico, 0
  title "      Ñêàíåðû"
  size -1 -1 340 200
  option pixels
  icon 10, 37 60 270 50, $mircdirpictures\narkoo3.png, 0
  button "Away ñêàíåð", 1, 10 20 130 35, flat
  button "IRCop ñêàíåð", 2, 105 120 130 35, flat
  button "Êëîíîñêàíåð", 3, 180 20 130 35, flat
  button "Çàêðûòü", 11, 70 170 200 25, flat cancel
}
on *:dialog:scaners:sclick:1: {
  /scanaway
  s.cl
}
on *:dialog:scaners:sclick:2: {
  /ircop.scan.dlg
  s.cl
}
on *:dialog:scaners:sclick:3: {
  /clone.scan.dlg
  s.cl
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias error.fon if (!$dialog(error.fon)) dialog -m error.fon error.fon | else { dialog -x error.fon | dialog -m error.fon error.fon }
dialog error.fon {
  size -1 -1 140 95
  option dbu
  title "Âíèìàíèå!"
  text "Ó âàñ ñåé÷àñ óñòàíîâëåí øðèôò Comic Sans MS ñ ðàçìåðîì 16, èç-çà ýòîãî ASCII êàðòèíêè íà âàøåì ýêðàíå ìîãóò îòîáðàæàòñÿ íåêîððåêòíî. Äëÿ ñòàáèëüíîãî îòîáðàæåíèÿ íóæíî èçìåíèòü ðàçìåð øðèôòà íà áîëåå ìàëûé èëè âûáðàòü äðóãîé øðèôò. Âñ¸ ýòî íàñòðàèâàåòñÿ çäåñü:",565, 5 7 130 50
  button "ÎÊ",1, 20 80 100 10
  button "Íàñòðîéêà èíòåðôåéñà", 2, 50 50 80 10
  check "Áîëüøå íå íåïîêàçûâàòü ýòî ñîîáùåíèå" 3, 5 65 130 10
}
on *:dialog:error.fon:init:*: {
  if %error.fonfx = off { did -c error.fon 3 }
}
on *:dialog:error.fon:sclick:2: { 
  if ($dialog(color) != color) { dialog -m color color }
}
on *:dialog:error.fon:sclick:1 { 
  if ($did(error.fon,3).state = 1) { %error.fonfx = off } | else { %error.fonfx = on }
  dialog -c error.fon
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Àíèìàöèîííîå îêíî ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias anim  {
  set %t.anim on
  if (%t.anim == on) {
    window -hpod +b @anim $window(-2).x $window(-2).y $window(-2).w $window(-2).h
    window -a @anim | %i = 1000 | %ii = 255 | %iii = 555 
    :1
    if (%i <= 1) goto 2
    drawrect -ref @anim $rgb(330,%iii,0) 1 $round($calc(($window(-2).w / 2) - ( %i / 2 )),0) $round($calc(($window(-2).h / 2) - ( %i / 2 )),0)  %i %i 
    if (%i > 1000) { dec %i 10 | if (%ii) { dec %ii 2 | %iii = %ii } | else inc %iii 2 } | else { dec %i 2 | if (%ii) { dec %ii | %iii = %ii } | else inc %iii 2 } | goto 1
    :2
    drawtext -cor @anim $rgb(15,3,3) Georgia 40 $round($calc(($window(-2).w / 2) - 85),0) $round($calc(($window(-2).h / 2) - 20),0) 10000 10000 by [StingeR]
    drawtext -cor @anim $rgb(25,5,1) Georgia 62 $round($calc(($window(-2).w / 1) - 700),0) $round($calc(($window(-2).h / 2) - 270),0) 1000 1000 Narkoman's Script
    drawtext -cor @anim $rgb(25,5,1) Georgia 50 $round($calc(($window(-2).w / 2) - 85),0) $round($calc(($window(-2).h / 1) - 120),0) 1000 1000 v3.5
    drawtext -cor @anim $rgb(25,2,1) Georgia 16 $round($calc(($window(-2).w / 1) - 100),0) $round($calc(($window(-2).h / 1) - 75),0) 1000 1000 By [StingeR]
    .timer 1 1 /window -c @anim
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Èãðû ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;             
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ïàíåëü èãð ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias games if (!$dialog(games)) dialog -m games games | else { dialog -x games | dialog -m games games }
dialog games {
  icon $mircdiricons/game.ico, 0
  title "Èãðû"
  size -1 -1 420 200
  option pixels
  icon 10, 77 60 270 50, $mircdirpictures\narkoo2.png, 0
  button "WormWar", 1, 10 30 75 25, flat
  button "Snake", 2, 10 120 75 25, flat
  button "Blocks", 3, 90 30 75 25, flat
  button "Jezzball", 4, 90 120 75 25, flat
  button "Sticks", 5, 170 30 75 25, flat
  button "Tetris", 6, 170 120 75 25, flat
  button "TicTac", 7, 250 30 75 25, flat
  button "Mania", 8, 250 120 75 25, flat
  button "Slam", 12, 330 30 75 25, flat
  button "Lovex", 13, 330 120 75 25, flat
  button "Çàêðûòü", 11, 100 170 200 25, flat cancel
}
on *:dialog:games:sclick:1: {
  /wormwar
  dialog -c games
  s.cl
}
on *:dialog:games:sclick:2: {
  /snake2
  s.cl
}
on *:dialog:games:sclick:3: {
  /run Games/Blocks.exe
  s.cl
}
on *:dialog:games:sclick:4: {
  /run Games/Jezzball.exe
  s.cl
}
on *:dialog:games:sclick:5: {
  /run Games/STICKS.exe
  s.cl
}
on *:dialog:games:sclick:6: {
  /run Games/Tetris.exe
  s.cl
}
on *:dialog:games:sclick:7: {
  /run Games/TicTac.exe
  s.cl
}
on *:dialog:games:sclick:8: {
  /run Games/Mania.exe
  s.cl
}
on *:dialog:games:sclick:12: {
  /run Games/slam.exe
  s.cl
}
on *:dialog:games:sclick:13: {
  /run Games/Lovex.exe
  s.cl
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; mSnake ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; mSnake v2.3 by Varvail
; using HASH tables.
; if mirc is minimized Snake pauses
; 
; to Load: /load -rs mSnake2.mrc
;
; To start /snake2
;
on 1:KEYDOWN:@snake2:32,37,38,39,40:{
  if ($keyval == 32) {
    if ($hget(snake2d,status) != game over) {
      if ($hget(snake2d,start) == yes) {
        hadd snake2d start no
        titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score) -GAME PAUSED-
        hadd snake2d status paused
      }
      else {
        hadd snake2d start yes
        titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score)
        hadd snake2d status playing
      }
      return
    }
    snake2
    return
  }
  if ($hget(snake2d,start) == no) { hadd snake2d start yes }
  if ($hget(snake2d,p)) { return }
  if ($keyval == 37) { if ($_s2_dir == right) && ($_s2_len > 1) { return } | hadd snake2d direction left }
  if ($keyval == 38) { if ($_s2_dir == down) && ($_s2_len > 1) { return } | hadd snake2d direction up }
  if ($keyval == 39) { if ($_s2_dir == left) && ($_s2_len > 1) { return } | hadd snake2d direction right }
  if ($keyval == 40) { if ($_s2_dir == up) && ($_s2_len > 1) { return } | hadd snake2d direction down }
  hadd snake2d p yes
}
alias snake2 {
  window -p @snake2 100 50 510 530
  drawrect -f @snake2 1 1 0 0 510 530
  if ($hget(snake2)) { hfree snake2 }
  if ($hget(snake2d)) { hfree snake2d }
  hmake snake2 10000
  hmake snake2d 100
  hadd snake2d status playing
  hadd snake2 1 25 25
  hadd snake2d 25_25 snake
  hadd snake2d start no
  hadd snake2d size 1
  hadd snake2d score 0
  titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score)
  var %f_x = $r(1,50)
  var %f_y = $r(1,50)
  var %f_xy = %f_x $+ _ $+ %f_y
  hadd snake2d fruit_x %f_x
  hadd snake2d fruit_y %f_y
  hadd snake2d %f_xy fruit
  hadd snake2d num 1
  hadd snake2d 25_25 snake
  drawdot @snake2 4 4 $calc($_s2_loc($hget(snake2d,fruit_x)) +5) $calc($_s2_loc($hget(snake2d,fruit_y)) +5)
  drawrect -f @snake2 7 1 $_s2_get2(1)
  .timersnake2 -m 0 50 _snake2
}
menu @snake2 {
  Snake2 for mIRC:echo -s made by Varvail
  -
  Wall Status- $iif(%_s2_solid != no,SOLID,not solid) -:{
    if (%_s2_solid != no) { set %_s2_solid no }
    else { set %_s2_solid yes }
  }
  -
  restart:/snake2
  pause:{
    if ($hget(snake2d,status) != game over) {
      if ($hget(snake2d,start) == yes) {
        hadd snake2d start no
        titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score) -GAME PAUSED-
        hadd snake2d status paused
      }
      else {
        hadd snake2d start yes
        titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score)
        hadd snake2d status playing
      }
      return
    }
  }
}
alias _snake2 {
  set %_s2_ver 2.2
  if (!$window(@snake2)) { .timersnake2 off | return }
  if (!$appactive) || ($active != @snake2) {
    hadd snake2d start no
    titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score) -GAME PAUSED-
    hadd snake2d status paused
  }
  if ($hget(snake2d,start) != yes) { return }
  drawdot @snake2 4 4 $calc($_s2_loc($hget(snake2d,fruit_x)) +5) $calc($_s2_loc($hget(snake2d,fruit_y)) +5)
  var %x = $gettok($_s2_get($hget(snake2d,num)),1,32)
  var %y = $gettok($_s2_get($hget(snake2d,num)),2,32)
  if ($_s2_dir == left) { dec %x }
  if ($_s2_dir == up) { dec %y }
  if ($_s2_dir == right) { inc %x }
  if ($_s2_dir == down) { inc %y }
  hadd snake2d num $calc($hget(snake2d,num) +1)
  var %xy = %x $+ _ $+ %y
  if (%_s2_solid == no) {
    if (%x > 50) { dec %x 50 }
    if (%y > 50) { dec %y 50 }
    if (1 > %x) { inc %x 50 }
    if (1 > %y) { inc %y 50 }
    var %xy = %x $+ _ $+ %y
    if ($hget(snake2d,%xy) == snake) {
      goto go
    }
  }
  if ((%_s2_solid != no)) && (($hget(snake2d,%xy) == snake) || (1 > %x) || (%x > 50) || (1 > %y) || (%y > 50))  {
    :go
    .timersnake2 off
    drawtext @snake2 10 arial 80 20 150 Game Over
    if (!%_s2_ms) || ($hget(snake2d,score) > %_s2_ms) {
      drawtext @snake2 8 arial 30 130 100 New high score
      set %_s2_ms $hget(snake2d,score)
      ;set %_s2_mn $input(input name,eo,New High Score)
      set %_s2_mn $?="New High Score, input name"
    }
    drawtext @snake2 10 arial 20 200 300 Topscore:
    drawtext @snake2 3 arial 20 190 330 %_s2_ms : %_s2_mn
    hadd snake2d status game over
    return
  }
  drawrect -f @snake2 7 1 $_s2_loc(%x) $_s2_loc(%y) 10 10
  if ($_s2_len > 1) { drawrect -f @snake2 1 1 $_s2_get2($calc($hget(snake2d,num) -1)) | drawrect @snake2 7 1 $_s2_get2($calc($hget(snake2d,num) -1)) }
  var %q = $_s2_len
  if ($hget(snake2d,%xy) == fruit) {
    hadd snake2d score $calc(9+ $hget(snake2d,score))
    titlebar @snake2 $iif(%_s2_solid != no,SOLID,not solid) - Score: $hget(snake2d,score)
    hadd snake2 $hget(snake2d,num) %x %y
    hadd snake2d %xy snake
    var %f_yx = YldGa1pTQmllU0IyWVhKMllXbHM=
    :create
    var %f_x = $r(1,50)
    var %f_y = $r(1,50)
    var %f_xy = %f_x $+ _ $+ %f_y
    if ($hget(snake2d,%f_xy)) { goto create }
    hadd snake2d fruit_x %f_x
    hadd snake2d fruit_y %f_y
    hadd snake2d %f_xy fruit
    drawdot @snake2 4 4 $calc($_s2_loc($hget(snake2d,fruit_x)) +5) $calc($_s2_loc($hget(snake2d,fruit_y)) +5)
    hadd snake2d size $calc($_s2_len +1)
    goto _snakeend
  }
  var %lenxy $replace($_s2_get($calc($hget(snake2d,num) - %q)),$chr(32),_)
  hdel snake2d %lenxy
  drawrect -f @snake2 1 1 $_s2_get2($calc($hget(snake2d,num) - %q))
  hdel snake2 $calc($hget(snake2d,num) - %q)
  hadd snake2 $hget(snake2d,num) %x %y
  hadd snake2d %xy snake
  :_snakeend
  hdel snake2d p
}
alias _s2_dir { return $hget(snake2d,direction) }
alias _s2_loc { return $calc(($1 -1)*10) }
alias _s2_get { return $hget(snake2,$1) }
alias _s2_get2 { var %a = $hget(snake2,$1) | return $_s2_loc($gettok(%a,1,32)) $_s2_loc($gettok(%a,2,32)) 10 10 }
alias _s2_len { return $hget(snake2d,size) }
}
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script ver: 3.5   All Rights Reserved. Copyright Narkoman's™ 2006 - 2007 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ñîçäàòåëü - _TRANE_ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Îá îøèáêàõ ïèøèòå íà: narkoo-master@mail.ru èëè narkoo-master@maxalina.net <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Îôèöèàëüíûé ñàéò ñêðèïòà: http://www.narkomans.ucoz.ru <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
