fignya.tcl
Автор tvrsh, 02 окт 2007 14:19
Сообщений в теме: 2
#1
Отправлено 02 октября 2007 - 14:19
Скрипт пишет разную фигню. Идея частично взята из Intim Script v1.0 Beta by DysFon.
http://ircnet.su/
#egghelp @ IrcNet.Ru
#egghelp @ IrcNet.Ru
#2
Отправлено 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
#egghelp @ IrcNet.Ru
#3
Отправлено 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
#egghelp @ IrcNet.Ru
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных