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


Фотография

fignya.tcl


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 02 октября 2007 - 14:19

Скрипт пишет разную фигню. Идея частично взята из Intim Script v1.0 Beta by DysFon.

Прикрепленные файлы

  • Прикрепленный файл  fignya1.0.rar   2,36К   50 Количество загрузок:

http://ircnet.su/
#egghelp @ IrcNet.Ru

#2 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 15 мая 2008 - 07:58

Обновление до версии 1.1

В меню настроек добавляете
# Список быдло-команд.
set fignya(bidlocmd) "быдло"

#Список кэпак.
set fignya(kepkalist) "{adimas} {Reebak} {adagas} {adidac} {Hike} {adadas} {avivas} {abibas} {adibas} {adidos} {admlis} {abibag}"

И перед
# Процедура измерения пениса.
дописываете эту процедуру:
# Быдло-Процедура.
foreach bind [split $fignya(bidlocmd) " "] {
	bind pub -|- "$fignya(pref)$bind" ::fignya::bidlo
}
proc ::fignya::bidlo {nick uhost hand chan text} {
  global fignya botnick
	if {[channel get $chan nopubfignya]} { 
		return 
	}
	  if {[flood $nick $uhost]} {
	  return
	  }
if {[string length $text] > 0} {
	  if {![onchan $text $chan]} {
		  putserv "PRIVMSG $chan :$fignya(color3)$nick$fignya(color1), я не вижу $fignya(color3)$text $fignya(color1)на $fignya(color3)$chan$fignya(color1)..."
		  return
	  }
	if {[string equal [string tolower $text] [string tolower $botnick]]} {
		  putserv "PRIVMSG $chan :$fignya(color3)$nick$fignya(color1), отстань."
		  return
	  }
set nick $text
}
if {![info exists fignya(bidlo,$nick)]} {
set fignya(bidlo,$nick) "[expr 5 + [rand 60]] [expr 1 + [rand 5]]"
set fignya(kepka,$nick) [lindex $fignya(kepkalist) [rand [llength $fignya(kepkalist)]]]
putserv "PRIVMSG $chan :$fignya(color3)Быдло-$nick $fignya(color1)носит кэпку $fignya(color2)$fignya(kepka,$nick)$fignya(color1) может просидеть на корточках $fignya(color2)[lindex $fignya(bidlo,$nick) 0] $fignya(color1)мину[lindex {. ту ты т} [numgrp [lindex $fignya(bidlo,$nick) 0]]] и сгрызть $fignya(color2)[lindex $fignya(bidlo,$nick) 1] $fignya(color1)пач[lindex {. ку ки ек} [numgrp [lindex $fignya(bidlo,$nick) 1]]] семак."
utimer $fignya(unsettime) [list catch { unset fignya(bidlo,$nick) }]
 } else {
	  putserv "PRIVMSG $chan :$fignya(color3)Быдло-$nick $fignya(color1)никак не снимет кэпку $fignya(color2)$fignya(kepka,$nick)$fignya(color1) сидит на корточках уже $fignya(color2)[lindex $fignya(bidlo,$nick) 0] $fignya(color1)мину[lindex {. ту ты т} [numgrp [lindex $fignya(bidlo,$nick) 0]]] и грызет $fignya(color2)[lindex $fignya(bidlo,$nick) 1]-ю $fignya(color1)пачку семак."
}
}

http://ircnet.su/
#egghelp @ IrcNet.Ru

#3 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 19 мая 2008 - 20:50

Для сброса быдло-значений замените
utimer $fignya(unsettime) [list catch { unset fignya(bidlo,$nick) }]
на
utimer $fignya(unsettime) [list unset fignya(bidlo,$nick)]

http://ircnet.su/
#egghelp @ IrcNet.Ru




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных