botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 10-04-2007, 20:07   #1 (permalink)
Junior Member
 
Join Date: Apr 2007
Posts: 11
Rep Power: 0
SoLLo is an unknown quantity at this point
Default Acces Public -> Acces Admini

Am un TCL care are comanda publica si as vrea sa aiba acces la acea comanda numai admini !

Code:
# Author : MadaliN
# Contact:
# +IRC: #BesTTeam @ Undernet.Org
# +Email: MadalinMen28@Yahoo.Com

bind pub - !injura pub_injura

set injs {
"mai tragi mah sarmale cu prashtia?"
"mai pui gogonele la CEC ba ?"
"tzi-o mai pui cu maica-ta?"
"te mai crezi mah vaca k umblai ieri cu talanga la gat"
"tzi-au dat drumu de la parnaie ma?"
"parca stateai la circ ba .... nu?"
"trage-tzi ba fermoaru la pantaloni ca ti se vede scula... ba nu se vede... nu ai.. a disparut"
"uscatule"
"varza paroasa"
"morcov putrezit ce eshti"
"doua fire doua paie \ azi tu iar linge co*ie "
"doua fire doua paie , iar ejti la parnaie"
"ba taci mah k mi s-au crapat oglinzile la baie"
"carpaciule"
"linge-blide"
"sacatare"
"vacozurule"
"shoseta nespalata din razboi"
"rashcetatule"
"mai batzi mah cuie cu maica-ta?"
"mai faci private cu X?"
"ieshi draq de pe irc k jegareshti firele"
"sarantocu' dreaq ... nici acum nu mi-ai dat inapoi ziarele alea de tzi le-am dat sa te inveleshti in gara cu ele"
"homeless"
"putoare jalnica"
"mai prinzi fluturi prin congelator?"
"mai dai la copca cu ciorapii?"
"vino draq shi dezlipeshte ciorapii de pe geamu meu k nu pot ...."
"mai dai la copca cu ciorapii?"
"vino draq shi dezlipeshte ciorapii de pe geamu meu k nu pot ...."
"mai mananci mah brazii de craciun?"
"tzi-ash da una da' mi-e k te fac mai simpatic"
"iar lingi tzurtzuri din corcodush pe post de skittles?"
"sa shtii k nu te iert k mi-ai baut after-shaveu'"
"shi sa-mi dai inapoi salamu'. Perversule!"
"ai intrat pana la urma in casa? ma iertzi k am lipit abtzibildu' cu 'Tragetzi', era o gluma ..."
"m-am intalnit cu sor-ta la consignatzie... era in vitrina ..."
"mai tzii minte cand te-am trimis la piatza sa cumperi un mega?"
"te mai scobeshti in dintzi cu lama de ras?"
"pana la urma papagalu' ala din colivie era taica-tu ?"
"Tzi-am vazut pisica ... de unde ai luat-o mah - de la alimentara?"
"shi pune-tzi draq un intrerupator in camera k m-am saturat de fatza ta electrocutata"
"apropos ... vezi k tzi-am legat clatza de la usa la 220! poate iti creste tensiunea ca ceea ce ai in pantaloni nu creste!"
}



proc pub_injura {nick uhost hand chan rest} {
global injs
    if {$rest == ""} {
if {[string match "*+injura*" [channel info $chan]]} {
    puthelp "NOTICE $nick :Comanda: !injura <nick>" }
    return 0
   } {
    set who [lindex $rest 0]
    if {([regexp -nocase "iceman" $who]) || ([regexp -nocase "icegurl" $who]) || ([regexp -nocase "sympat|ka" $who])} { 
			putserv "KICK $chan $nick :\0032Injur-o tu pe ma-ta mai bine\0034!\003" 
			return 0 }
    set injur [lindex $injs [rand [llength $injs]]]
                                        putserv "PRIVMSG $chan :$who $injur" 
                                        return 0 }
}

putlog "\0034+ \0034#BesTTeam\00312 upgrades.\0033 (\0034 Injura\0033 )"
SoLLo is offline   Reply With Quote
Old 10-04-2007, 20:40   #2 (permalink)
Junior Member
 
Normal's Avatar
 
Join Date: Feb 2007
Age: 16
Posts: 27
Rep Power: 0
Normal is an unknown quantity at this point
Default

in loc d
Code:
bind pub - !injura pub_injura
pui
Code:
bind pub -|m !injura pub_injura
si vor putea da doar cei cu +m local !injura nick , dak vrei sa poata da alt flag nu +m modifici la -| m
Normal is offline   Reply With Quote
Old 11-04-2007, 16:23   #3 (permalink)
Junior Member
 
Join Date: Apr 2007
Posts: 11
Rep Power: 0
SoLLo is an unknown quantity at this point
Default

Ms Normal ! Dar cum pot face sa aiba acces doar MANAGERI globali ?
SoLLo is offline   Reply With Quote
Old 11-04-2007, 16:32   #4 (permalink)
Junior Member
 
Join Date: Jul 2006
Posts: 2
Rep Power: 0
SouL is an unknown quantity at this point
Default

in loc de

Code:
Cod:
bind pub -|m !injura pub_injurapui
in
Code:
Cod:
bind pub N|- !injura pub_injurasi
numai MANAGERI Globali vor putea folosi !injura
SouL is offline   Reply With Quote
Reply

Bookmarks


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
AutoNOTICE & public message Madalin Tcl scripting 2 12-05-2006 23:54
public comenzi cu nickul botului ca prefix si semnele in fata comenzilor Kurupt Tcl scripting 9 04-08-2004 03:15


All times are GMT +3. The time now is 12:31.


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.