Kiss

By TMFKSOFT on Jun 15, 2011

Why not kiss someone!
Usage: /kiss nick

I made this to help someone in Ford_Lawnmowers channel.

alias kiss {
  var %x $rand(1,10)
  var %i 1
  while ( %i <= %x ) {
    var %kiss $+(%kiss,,$rand(0,15),{},)
    inc %i
  }
  describe $active Kisses $1 %kiss
}

Like Page Follow Author

Comments

blackvenomm666 - Jun 15, 2011

i would just change active to # or $chan

Respond

Jethro - Jun 15, 2011

Here is the regsubex version:

alias kiss {
  $iif($active ischan,describe $v1) kisses $$1 $regsubex($str({},$r(1,10)),/({})/g,$+($chr(3),$r(0,15),\1))
}

You should make sure that the $1 is supplied by adding an extra "$" so you don't get an empty value, and that $active has to be sure it's a channel where you're on...so that you don't get $active as Status if being triggered there by accident...

Respond