egghelp/eggheads community

Re: I know this is a lot but I need it for my bot :o

2005-07-25T09:40:26-04:00

I'll write you three procs which'll help you make the rest.

Code:

bind pub n !addowner h:addowner:msgbind pub m !addmaster h:addmaster:msgbind pub m !op h:opperson:msgproc 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

Statistics: Posted by rt — Mon Jul 25, 2005 9:40 am

I know this is a lot but I need it for my bot :o

2005-07-24T18:39:02-04:00

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)

Statistics: Posted by Alchera — Sun Jul 24, 2005 6:39 pm

I know this is a lot but I need it for my bot :o

2005-07-24T13:28:25-04:00

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

Statistics: Posted by YooHoo — Sun Jul 24, 2005 1:28 pm

I know this is a lot but I need it for my bot :o

2005-07-24T12:06:07-04:00

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.

Statistics: Posted by greenbear — Sun Jul 24, 2005 12:06 pm

I know this is a lot but I need it for my bot :o

2005-07-24T10:11:15-04:00

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.

Statistics: Posted by stevegarbz — Sun Jul 24, 2005 10:11 am

I know this is a lot but I need it for my bot :o

2005-07-23T20:34:06-04:00

imo, people offering money on this forum should be banned from it.

Statistics: Posted by greenbear — Sat Jul 23, 2005 8:34 pm

I know this is a lot but I need it for my bot :o

2005-07-23T18:35:51-04:00

Code:

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 # + oon 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 # - oon 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.

Statistics: Posted by stevegarbz — Sat Jul 23, 2005 6:35 pm