Help with a script

[Torrevado]

Code: Select all

bind pub - !kiss kiss

proc kiss {nick uhost hand chan arg} {
if {[lsearch {#channel } $chan] == -1} return
 global afkiss
 if {![onchan $nick $chan]} {return 0}
 if {![info exists afkiss([set nickchan [string tolower $nick:$chan]])]} {
  set afkiss($nickchan) [list [unixtime] 0]
 }
 foreach {t o} $afkiss($nickchan) {break}
 if {[unixtime]-$t > 120} { set t [unixtime]; set o 0 }
 if {[incr o] > 5} { return 0 }
 set afkiss($nickchan) [list $t $o]
 if {[onchan [set kissed [lindex [split $arg] 0]] $chan]} {
  putserv "privmsg $chan :\00306$nick kisses $kissed\003 :o"
 }
}

I'd like that if someone use botnick, eggdrop will respond an alternative message

I'd like (if it's possible) the same thing to users asking for themselves

Note: this is Sir_Fiz's rock script (modified)

Thanks

[Sir_Fz]

Code: Select all

bind pub - !kiss kiss

proc kiss {nick uhost hand chan arg} {
if {[lsearch {#channel } $chan] == -1} return
 global afkiss
 if {![onchan $nick $chan]} {return 0}
 if {![info exists afkiss([set nickchan [string tolower $nick:$chan]])]} {
  set afkiss($nickchan) [list [unixtime] 0]
 }
 foreach {t o} $afkiss($nickchan) {break}
 if {[unixtime]-$t > 120} { set t [unixtime]; set o 0 }
 if {[incr o] > 5} { return 0 }
 set afkiss($nickchan) [list $t $o]
 if {[onchan [set kissed [lindex [split $arg] 0]] $chan]} {
  if {[isbotnick $kissed]} {
   puthelp "privmsg $chan :<kissed botnick>"
  } elseif {[string equal -nocase $nick $kissed]} {
   puthelp "privmsg $chan :<kissed himself>"
  } {
   puthelp "privmsg $chan :\00306$nick kisses $kissed\003 :o"
  }
 }
}

Edit: Added other feature (self-kissing).

[Torrevado]

First request works correctly (botnick)

I guess it's not easy to add the second one

Thanks

[Sir_Fz]

Didn't notice the 2nd feature. I edited the code above; look at it, it's not hard at all so you should learn how to do it yourself now.