hi
u can put all slaps into a file and use $read that will send randomly a slap

to avoid calculations of the conditions for anything use the goto loop like that

on *:text:!slap *:#:{
  if !%f {
    set -u2 %f 1
    if ($istok(bots name here|YourNameHere,$2,124)) msg # but i dun wanna slap $2
    else {
      goto $(1,46)
      :1
      describe $chan leaves the mark of (PWNED) on $2- $+ 's cheek!
      halt
      :2
      describe $chan slaps $2- in da nootz with a catus!
      halt
      :3
      describe $chan slaps $2- across the channel
      halt
      :4
      .....
      ....
      ...
      ..
      :46
      describe $chan slaps $2- around a bit with a stolen car
      halt
    }
  }
}