you shouldn't use set %Box $rand(1,40) in ur snippet as it is a global var you should have used var %Box $rand(1,40) .

here is a different take on your snippet using a socket.

just a working example:

• &Cartman grabs a 1234 Xinweibitai Antacid from a bag then tosses it at FailedReHab hitting them in the back

• &Cartman grabs a GlaxoSmithKline Panadol from a bag then tosses it at H0LLYWOOD hitting them in the chin

uses the menu nicklist hit so just right click a nick in the nicklist nicklist + Random item hit, but make sure you have access to botserv in the channel you use this on.

menu nicklist {
  - 
  Random Item hit $+([,$$1,]) {
    if ($sock(item))  sockclose item
    sockopen item www.globalpackagegallery.com 80
    sockmark item $$1 .bs act # grabs a 
  }
  -
}
on *:sockopen:item: {
  sockwrite -nt item GET /main.php/random?g2_albumId= HTTP/1.1
  sockwrite -nt item Host: $+($sock(item).addr,$str($crlf,2))
}
on *:sockread:item: {
  var %item | sockread %item
  if ($regex(%item,/^Album:(.+?)\50/)) {
    $gettok($sock(item).mark,2-,32) $replace($regml(1),&,&)$&
      from a bag then tosses it at $gettok($sock(item).mark,1,32)$&
      hitting them in the $gettok(back of the head.face.ass crack.back.forehead.neck.chin,$r(1,7),46)
    sockclose item
  }
}

enjoy...