Just made this today w/ help from a friend with some glitches, now fixed and added to a bot im admin of
It's just a basic copy of a bot iv seen in the swiftirc network named snuffy
commands are .sex/.wank/.rape
Isn't most mature thing iv done but it was fun making
NOTE: Things you NEED to change/add are the .txt's the $c1-$c4 and the login method and the chanhalt, if you use one - can just remove them if wanted
Otherwise just alt+r and put into a clean remote and have fun playing, any problems/comments just post, always like seeing what i could do to edit and make it more manageable.

alias logo return $+($chr(3),$chr(49),$chr(52),$chr(126),$chr(3),$chr(52),$chr(40),$chr(3),$chr(49),$chr(52),$1-,$chr(3),$chr(52),$chr(41),$chr(3),$chr(49),$chr(52),$chr(126),$chr(3))
;################# Mock Snuffy Bot sex/wank/rape needs the txt/inis but otherwise funny and good :P ###########################
;#### THE .sex
on $*:text:/^[~`!@.]sex/Si:#: { if ($chanhalt($chan) == true) halt
  if ($hget(sextime,$nick)) {
    var %time $duration($v1)
    .notice $nick $logo(Error:) $read(sextime.txt) $c2(You need to wait) $c3(%time) $c2(before you can use this command again.)
    halt
  }
  var %skarma $r(200,500)
  var %failornot $r(1,5)
  var %urkarma $readini(snuffy.ini,$nick,karma)
  var %timeleft $r(100,300)
  var %output $iif($left($1,1) == @,msg #,notice $nick)
  if (%failornot == 3) { 
    var %loss $iif($r(10,100) <= %urkarma,$v1,%urkarma)
    %output $logo(Sex) $c2($nick) tries to have sex with $read(person.txt) $c3($read(fail.txt)) and loses $&
      $c4(%loss) karma! - $c2(you need to wait $duration(%timeleft) to use this command again)
    hadd -mz sextime $nick %timeleft
    writeini -n snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
  }
  if (%failornot != 3) {
    var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
    %output $logo(Sex) $c2($nick) just had sex with $c3($read(person.txt)) and gains $&
      $c2($bytes(%skarma,bd)) karma! $c4($bytes(%gkar,bd)) karma Total  - $c2(you need to wait $duration(%timeleft) to use this command again)
    hadd -mz sextime $nick %timeleft
    writeini -n snuffy.ini $nick karma %gkar
  }
}
;#### the .rape
on $*:text:/^[~!`@.]rape/Si:#f: { if ($chanhalt($chan) == true) halt
  if ($readini(snuffy.ini,$nick,karma) < 500) { .notice $nick Error: You need at least 500 karma to rape someone | halt } 
  if ($hget(rapetime,$nick)) {
    var %time $duration($v1)
    .notice $nick $logo(Error:) $c4($read(sextime.txt)) $c2(You need to wait) $c3(%time) $c2(before you can use this command again.)
    halt
  } 
  var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
  var %failornot $r(1,5)
  var %skarma $r(500,1500)
  var %timeleft $r(400,700)
  var %item $read(rape.txt)
  if (%failornot == 3) {
    var %loss $r(200,300)
    notice $nick Attempting to rape a %item $+ , Please wait.
    .timer 1 2 %output $logo(Rape:) $c2($nick Fails) at raping $c3(%item) and loses $c4(%loss Karma.) Please wait $c3($duration(%timeleft)) before trying to rape again.
    writeini -n snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
    hadd -mz rapetime $nick %timeleft
  }
  if (%failornot != 3) {
    var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
    notice $nick Attempting to rape a %item $+ , Please wait.
    .timer 1 2 %output $logo(Rape:) $c2($nick) $c1(Succeeds) at raping $c3(%item) and gains $c2(%skarma Karma) - $c4($bytes(%gkar,bd)) $c2(Total Karma). Please wait $duration(%timeleft) before trying to rape again.
    writeini -n snuffy.ini $nick karma %gkar
    hadd -mz rapetime $nick %timeleft
  }
}

;#### the .wank
on $*:text:/^[~!`@.]wank/Si:#: { if ($chanhalt($chan) == true) halt
  if ($readini(snuffy.ini,$nick,karma) < 1000) { .notice $nick Error: You need at least 1k karma to wank | halt }
  if ($hget(wanktime,$nick)) {
    var %time $v1
    .notice $nick $logo(Error:) $c3($read(sextime.txt)) $c2(You need to wait) $c3($duration(%time)) $c2(before you can use this command again.)
    halt
  }    
  var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
  var %failornot $r(1,10)
  var %skarma $r(500,1500)
  var %timeleft $r(600,900)
  var %wanktime $r(700,1500)
  var %loss $r(300,900)
  if ($istok(1 3 8,%failornot,32)) {
    %output $logo(Wank:) $c2($nick) $c2(Failed) to Cum after wanking for $c3($duration(%wanktime)) $+ . You lose $c4($bytes(%loss,bd)) Karma and now have to wait $c3($duration(%timeleft)) to wank again!!
    writeini snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
    hadd -mz wanktime $nick %timeleft
  }
  else {
    var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
    %output $logo(Wank:) $c2($nick) $c1(Succeeded) to Cum after wanking for $c3($duration(%wanktime)) $+ . You Gained $c4($bytes(%skarma,bd)) Karma and now have to wait $c3)($duration(%timeleft)) to wank again!!
    writeini snuffy.ini $nick karma %gkar
    hadd -mz wanktime $nick %timeleft
  }
}

;#### Timers for the snuffy mock script
on $*:text:/^[~`!@.]ztimer/Si:#: { if ($chanhalt($chan) == true) halt
  var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
  var %sex $iif($hget(sextime,$nick),$duration($v1),Now)
  var %rape $iif($hget(rapetime,$nick),$duration($v1),Now)
  var %wank $iif($hget(wanktime,$nick),$duration($v1),Now)
  %output $logo(Timers) $c1(!sex) $c2(%sex) $c1(!rape) $c2(%rape) $c1(!wank) $c2(%wank)
}

on $*:text:/^[~!`@.](karma)/Si:#zizzle,#zizzle-staff: { if ($chanhalt($chan) == true) halt
  var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
  %output $logo(Karma Points) $nick has $bytes($readini(snuffy.ini,$nick,karma),bd) Karma
}