This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Old posts that have not been replied to for several years.
stevegarbz
Op
Posts: 104 Joined: Sat Dec 04, 2004 7:25 pm
Post
by stevegarbz » Sat Jul 23, 2005 6:35 pm
Code: Select all
on 501:Text:$(%Trigger $+ addowner *):#:if ($me == %main.bot) { auser 501 $address($2-,2) | mode # +o $2 }
on 501:Text:$(%Trigger $+ Addoper *):#:if ($me == %main.bot) { auser 500 $address($2-,2) | mode # +o $2 }
on 500:Text:$(%Trigger $+ join *):#:{ join $2- }
on 500:Text:$(%Trigger $+ part *):#:{ part $2- }
on 500:Text:$(%Trigger $+ part):#:{ part $chan Leaving. }
on 500:Text:$(%Trigger $+ topic *):#:topic # $2-
on 501:Text:$(%Trigger $+ say *):#:if ($me == %main.bot) { msg # $2- }
on 501:Text:$(%Trigger $+ msg *):#:if ($me == %main.bot) { msg $2- }
on 501:Text:$(%Trigger $+ kickban *):#:if ($2 == $null) { mode # +b $address($2,2) | kick # $2 Bye. } | else { mode mode # +b $address($2,2) | kick # $2- }
on 501:Text:$(%Trigger $+ kb *):#:if ($2 == $null) { mode # +b $address($2,2) | kick # $2 Bye. } | else { mode mode # +b $address($2,2) | kick # $2- }
on 500:Text:$(%Trigger $+ trigger *):#:{ set %Trigger $2- }
on 500:Text:$(%Trigger $+ loop *):#:{ hop $chan $2- }
on 500:Text:$(%Trigger $+ loop):#:{ hop $chan }
on 501:Text:$(%Trigger $+ mop):#:massmode # + o
on 501:Text:$(%Triggn25=on 500:Text:$(%Trigger $+ kb *):#:{ mode # +b $address($2,2) | kick # $2- }
on 500:Text:$(%Trigger $+ k *):#:{ kick # $2- }
on 500:Text:$(%Trigger $+ Addop *):#:if ($me == %main.bot) { auser 200 $address($2,2) | mode # +o $2 }
on 500:Text:$(%Trigger $+ Addpeon *):#:if ($me == %main.bot) { auser 100 $address($2,2) | mode # +v $2 }
on 500:Text:$(%Trigger $+ Deluser *):#:if ($me == %main.bot) { ruser $address($2,2) | mode # -o $2 }er $+ mdeop):#:massmode # - o
on 500:Text:$(%Trigger $+ Op *):#:{ mode # +o $2- }
on 500:Text:$(%Trigger $+ Voice *):#:{ mode # +v $2- }
on 500:Text:$(%Trigger $+ Deop *):#:{ mode # -o $2- }
on 500:Text:$(%Trigger $+ Devoice *):#:{ mode # -v $2- }
on 500:Text:$(%Trigger $+ up):#:{ mode # +o $nick }
on *:Text:$(%Trigger $+ a):#:if ($me == %main.bot) { notice $nick You have $+ $level($address($nick,2)) $+ access. }
on *:Text:$(%Trigger $+ a *):#:if ($me == %main.bot) { notice $nick User has $+ $level($address($2-,2)) $+ access. }
I'll pay if needed.
greenbear
Owner
Posts: 733 Joined: Mon Sep 24, 2001 8:00 pm
Location: Norway
Post
by greenbear » Sat Jul 23, 2005 8:34 pm
imo, people offering money on this forum should be banned from it.
stevegarbz
Op
Posts: 104 Joined: Sat Dec 04, 2004 7:25 pm
Post
by stevegarbz » Sun Jul 24, 2005 10:11 am
Right, don't offer to pay when nobody else will do it for free and just ignore the thread. That's right, never get it done.
greenbear
Owner
Posts: 733 Joined: Mon Sep 24, 2001 8:00 pm
Location: Norway
Post
by greenbear » Sun Jul 24, 2005 12:06 pm
this is a tcl forum, so most people dont know (or like) mirc scripting, so you have a better chance of getting help if you describe what the script is supposed to do and ask nicely for help.
this is also a community where we help users of the free software eggdrop, for free. so offering money for help is somewhat insulting.
YooHoo
Owner
Posts: 939 Joined: Thu Feb 13, 2003 10:07 pm
Location: Redwood Coast
Post
by YooHoo » Sun Jul 24, 2005 1:28 pm
stevegarbz wrote: Right, don't offer to pay when nobody else will do it for free and just ignore the thread. That's right, never get it done.
stevegarbz, why not try a different method - just explain in full detail what exactly you wish the script to accomplish. Writing a small script is much easier than trying to convert ugly mirc code. Chances are very good that one of us can direct you to an already written script
Alchera
Revered One
Posts: 3344 Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:
Post
by Alchera » Sun Jul 24, 2005 6:39 pm
YooHoo wrote: Chances are very good that one of us can direct you to an already written script
Or one could simply make an attempt at
learning TCL like the rest of us did.
Too many people lazy there are. (The little green man)
Add [SOLVED] to the thread title if your issue has been.
Search |
FAQ |
RTM
rt
Voice
Posts: 25 Joined: Fri Jul 08, 2005 4:00 pm
Post
by rt » Mon Jul 25, 2005 9:40 am
I'll write you three procs which'll help you make the rest.
Code: Select all
bind pub n !addowner h:addowner:msg
bind pub m !addmaster h:addmaster:msg
bind pub m !op h:opperson:msg
proc h:addowner:msg {nick host hand chan text} {
set user [lindex $text 0]
set address *![getchanhost [lindex $text 0]]
if {[string match -nocase $text ""]} {
putserv "NOTICE $nick :You didn't include a nickname."
return 0
}
if {![onchan $text $chan]} {
putserv "NOTICE $nick :$user isn't on $chan."
return 0
}
putserv "NOTICE $nick :WARNING THIS USER HAS OWNERSHIP."
putserv "NOTICE $nick :Done."
putserv "NOTICE $user :You have been added to the database, with host $address"
adduser $user $address
chattr $user +n
}
proc h:addmaster:msg {nick host hand chan text} {
set user [lindex $text 0]
set address *![getchanhost [lindex $text 0]]
if {[string match -nocase $text ""]} {
putserv "NOTICE $nick :You didn't include a nickname."
return 0
}
if {![onchan $text $chan]} {
putserv "NOTICE $nick :$user isn't on $chan."
return 0
}
putserv "NOTICE $nick :Done."
putserv "NOTICE $user :You have been added to the database, with host $address"
adduser $user $address
chattr $user +m
}
proc h:opperson:msg {nick host hand chan text} {
set user [lindex $text 0]
if {[string match -nocase $user ""]} {
putserv "NOTICE $nick :You didn't include a nickname."
return 0
}
if {![onchan $user $chan]} {
putserv "NOTICE $nick :$user isn't on $chan."
return 0
}
pushmode $chan +o $user
putquick "NOTICE $nick :Done."
}
Excuse me if I've made any mistakes wrote than in 5 minutes