Forums.Avtograd.Ru: Скрипт Mixer - Forums.Avtograd.Ru

Перейти к содержимому

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Скрипт Mixer

#1 Пользователь офлайн   greb

  • Новичок
  • Pip
  • Группа: Пользователи
  • Сообщений: 1
  • Регистрация: 24 Декабрь 10

Отправлено 24 Декабрь 2010 - 08:37

Вот небольшой шутливый скипт, который перемешивает буквы в нике.

#Скрипт "Миксер" v2.3 http://izdera.ru/sc.php
# #channel - изменить на название своего канала
setudef flag nopubmixer

bind pubm *|* "#channel !mixer*" mixer
bind pubm *|* "#channel !миксер*" mixer
bind pubm *|* "#channel !перемешать*" mixer

set autor Izotop
set chan #channel

proc mixer { nick host handle chan text } {
global botnick g kick
if {[channel get $chan nopubmixer]} {
return
}
if { ![isop $botnick $chan] } {
puthelp "notice $nick :\00306Бот не является опом на канале \00307$chan\00306, поэтому игра невозможна!"
return
}
set nickname [lindex [split $text] 1]
if { $nickname == ""} {
   puthelp "notice $nick :\00306Вы не указали ник. Алиасы \002\00307!миксер- !перемешать- !mixer \x1Fник\x1F"
   return
}
if {![onchan $nickname $chan]} {
   puthelp "notice $nick :\00306Извините, но ника\002\00307 $nickname \002\00306нету на канале\002\00307 $chan \002"
   return
}
if { [string tolower $nickname] == [string tolower $botnick] } {
if { [info exist g] } {
   if { $g == 1 && $kick == $nick } { 
      putkick $chan $nick "\002Ты, балбес, я жить хочу!"
	  catch {unset g}
      catch {unset $kick}
	  return
   }
}   
puthelp "notice $nick :\00306Я слишком молода и красива, чтоб меня в миксер!"
set kick $nick 
set g 1
return
}
set list_mixed_chars [split $nickname {}]
set num_list [llength $list_mixed_chars]
set new_list {}
while {$num_list>0} {
      set j [rand $num_list]
      set repl_char [lindex $list_mixed_chars $j]
      set new_list [linsert $new_list end $repl_char]
      set list_mixed_chars [lreplace $list_mixed_chars $j $j]
      set num_list [llength $list_mixed_chars]
      expr $num_list-1 
}
regsub -nocase -all -- { } $new_list {} new_list
set new_list [join $new_list] 
regsub -nocase -all -- {\\} $new_list {} new_list
regsub -nocase -all -- {\\} $new_list {} new_list
set vars_dev {кофемолку миксер блендер {стиральную машину}}
set var_act {засовывает запихивает кладёт}
putserv "PRIVMSG $chan :\002\00307$nick\002 \00306[lindex $var_act [rand [llength $var_act]]] в [lindex $vars_dev [rand [llength $vars_dev]]] \002\00307$nickname\002 \00306и у него получается \002\00307$new_list"
catch {unset g}
catch {unset kick}
}
putlog "-=-script *MIXER* loaded by $autor for $chan-=-"
 



0

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

1 человек читают эту тему
0 пользователей, 1 гостей, 0 скрытых пользователей