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

[stevegarbz]

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]

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

[stevegarbz]

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]

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]

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]

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)

[rt]

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