chacin boobs (SRU EDiT)

;*****************************************************************************************************************************************************************************
alias isurl { return $iif($regex($1-,/\b(?:(?:htt|ft)ps?://(?:www|ftp\.)?|www|ftp\.).*(?:\.[a-z]{2,4})(?::\d+)?(?:/\w+(?:/\w*/*)*|(?:\.[a-z]{2,4})|\?\S*)*\b/gi),$iif($prop,$regml($v1),URL)) }
alias linkcheck { return $iif($read(Boobs.txt,nw,$+(*,$1-,*)) != $null,ADDED,NEW) }
;*****************************************************************************************************************************************************************************
on *:TEXT:*:#: {
  if ($timer($+(SPAM,$network,$chan))) { halt }
  ;***************************************************************************************************************************************************************************
  ;*** !List
  if ($1 == !List) { msg # $lines(Boobs.txt) tits added }
  ;***************************************************************************************************************************************************************************
  ;*** Boobie section
  elseif ($istok(!TiTs !BOOBs,$replace($1,@,!,.,!),32)) { var %num $iif($2 isnum 1 - $lines(Boobs.txt),$v1,$r(1,$lines(Boobs.txt)))
    tokenize 32 $read(Boobs.txt,%num)
    msg # $+([7BOOBiEs]-[15,%num,7/15,$lines(Boobs.txt),]) $+(2,$1,) [4NSFW] 5Added by: $3 $+($chr(40),15,$4-,,$chr(41))
  }
  ;***************************************************************************************************************************************************************************
  ;*** Add boobs
  elseif ($istok(!AddB !AddT !AddTit !AddTits !AddBoob !AddBoobs,$replace($1,@,!,.,!),32)) { set -u1 %Link $wildtok($1-,*http://*.*,1,32)
    if ($isurl($1-) != URL) { .notice $nick You'll need to add a valid URL... }
    elseif ($linkcheck($wildtok($1-,*http://*.*,1,32)) == ADDED) { .notice $nick Thanks for your submission... but $wildtok($1-,*http://*.*,1,32) has already been added }
    else { write Boobs.txt $wildtok($1-,*http://*.*,1,32) [4NSFW] $nick $fulldate | tokenize 32 $read(Boobs.txt) | .msg # Thanks for your submission $+($3,...) I've added $+($chr(40),2,$1,,$chr(41)) to the DB 15ooO( $ord($lines(Boobs.txt)) link added 15) }
  }
  ;***************************************************************************************************************************************************************************
  ;*** !BoobHelp
  elseif ($1 == !bHelp) || ($1 == !BoobHelp) { .notice $nick commands are !add url, !boobs, !10boobs, !listboobs }
  ;***************************************************************************************************************************************************************************
  ;*** !10boobs
  elseif (($1 == !rBoobs) || ($1 == !RandomBoobs)) && (!%BoobSPAM) {
    if ($lines(boobs.txt) == 0) { msg # Sorry Mate... either the location is wrong or there hasn't been added any links | halt }
    set -u60 %BoobSPAM | set -u1 %X $iif($2 isnum >= 10,$v1,10) | $iif($lines(boobs.txt) <= %X,set -u1 %X $lines(Boobs.txt)) | set -u1 %Y 1
    while (%X) { $+(TimerBoobs,%X) 1 %Y msg # $read(Boobs.txt) | inc %Y 1 | dec %X }
  }
  ;***************************************************************************************************************************************************************************
  ;*** !Last
  elseif ($1 == !Last) {
    if ($lines(boobs.txt) == 0) { msg # Sorry Mate... either the location is wrong or there hasn't been added any links | halt }
    elseif ($lines(boobs.txt) <= 5) { .PLAY $+(-f,1) # boobs.txt }
    else { var %X $calc($lines(boobs.txt) - $iif($lines(boobs.txt) <= $2,5,$iif($2 <= 10,$calc($v1 -1),5))) | .PLAY $+(-f,%X) # boobs.txt }
  }
  ;***************************************************************************************************************************************************************************
  else { halt }
  ;***************************************************************************************************************************************************************************
  ;*** Flood protection ******************************************************************************************************************************************************
  $iif(!$regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/) && $nick != chachin,$+(.timer,SPAM,$network,$chan) 1 4 noop)
  ;***************************************************************************************************************************************************************************
}