Searching for a coder / or script

[mia_richard]

hello

searching for script and i pay over paypal (or other variants) for it

wishes (pls only guys who be able to code this) should msg me

For quakenet
if someone bans and kickes the bot
a.) rejoin, if not able (cause of ban) then
Re auth (now im using a qnet auth script) and the bot has +m priv. on quakenet L
a1.) then he must to a /msg L CHANLEV recover (so that he unbans himself)
rejoin, and revenge the guy who has make a kick ban on him
(now he has it too but if you make it fast you can ban and kick him)

b.) re script the guard102.tcl script hostmask not like yet *!*@ he should make identd@ .. ( i know ..unsecure) but better ..for ignores cause of flood
pls mail or priv msg me fore payment infos.
cya

[Sir_Fz]

now, look at you. You are willing to spend some money for something that has already been given on this forum, which can be found if you are not lazy to click the search bottom.

You'll find a script in a thread started by me, just change the DALnet services nick and commands to suite quakenet. and about the host, then set the host to *!$uhost and it should store. *!ident@host.

[mia_richard]

thank you i will try it

[mia_richard]

did you mean this script?!?
http://forum.egghelp.org/viewtopic.php? ... t=kick+ban
--------
hmm

bind kick - * channel:kick

proc channel:kick {nick uhost hand chan targ rsn} {
if {[string match -nocase "$targ" $::botnick]} {
putquick "PRIVMSG L RECOVER $chan" -next
}
}


can this be correct so? or not

[Sir_Fz]

use the code:

Code: Select all

bind kick - * channel:kick 
  
proc channel:kick {nick uhost hand chan targ rsn} { 
  if {![string match -nocase "$targ" $::botnick]} { return } 
  global revengebans 
  set chan [string tolower $chan] 
  putquick "PRIVMSG L :deop $chan $nick" -next 
  putquick "PRIVMSG L :RECOVER $chan" 
  if {![info exists revengebans($chan)]} { set revengebans($chan) {} } 
  lappend revengebans($chan) [list $nick *!*@[lindex [split $uhost @] 1]] 
}  

bind mode - "* +o" lamer:remove 

proc lamer:remove {nick uhost hand chan mc vict} { 
  global revengebans 
  if {[string tolower $vict] != [string tolower $::botnick]} { return } 
  set chan [string tolower $chan] 
  if {![info exists revengebans($chan)]} { return } 
  foreach element $revengebans($chan) { 
    set revenge_nick [lindex $element 0] 
    set revenge_banmask [lindex $element 1] 
    if {[onchan $revenge_nick $chan]} { 
      putserv "mode $chan +b $revenge_banmask"  
      putkick $chan $revenge_nick "Lamer Removed." 
    } 
  } 
  unset revengebans($chan)  
}

fix the "L" things as they should be, and make sure you dont remove the ":" .
also you can edit the bots needs.
for example to let the bot unban himself when banned do a:
.chanset #channel need-unban putquick "PRIVMSG L :verify #channel"
in the partyline. you can also edit need-op, need-limit, need-key and need-invite.

[mia_richard]

i dont need the deop things
i only need this

a. > ban kick the
PRIVMSG L #chan recoverchan
/j chan (join)
ban > user who has banned me..

so this 2 lines
putquick "PRIVMSG L :deop $chan $nick" -next
putquick "PRIVMSG L :RECOVER $chan"
are correct with
putquick "PRIVMSG L $chan RECOVERCHAN" -next (recover chan is a L command)
with the code down im far away?

Code: Select all

bind kick - * channel:kick 
  
proc channel:kick {nick uhost hand chan targ rsn} { 
  if {![string match -nocase "$targ" $::botnick]} { return } 
  global revengebans 
  set chan [string tolower $chan] 
  putquick "PRIVMSG L $chan RECOVERCHAN" -next  
  if {![info exists revengebans($chan)]} { set revengebans($chan) {} } 
  lappend revengebans($chan) [list $nick *!*@[lindex [split $uhost @] 1]] 
}  

bind mode - "* +o" lamer:remove 

proc lamer:remove {nick uhost hand chan mc vict} { 
  global revengebans 
  if {[string tolower $vict] != [string tolower $::botnick]} { return } 
  set chan [string tolower $chan] 
  if {![info exists revengebans($chan)]} { return } 
  foreach element $revengebans($chan) { 
    set revenge_nick [lindex $element 0] 
    set revenge_banmask [lindex $element 1] 
    if {[onchan $revenge_nick $chan]} { 
      putserv "mode $chan +b $revenge_banmask"  
      putkick $chan $revenge_nick "Lamer Removed." 
    } 
  } 
  unset revengebans($chan)