Landail !landlewd Quote Script

;QUOTE FILE FOR !lanlewd quote function

;any spam protecting
;NEEDS UPDATING WITH SIMPLER SYNTAX
;

#fcheck on
alias -l fcheck {
  if ($regex($1,/(quote|qotd|qsearch)$/Si)) {
    if ($prop = add) set -z $+(%,$regml(1),$site,$network) %fMins
    else return $+(%,$regml(1),$site,$network)
  }
}
#fcheck end


alias -l up return $+($upper($left($1,1)),$mid($1,2))
;$ulevel = 10
on *:text:*:#landail: {
  var %file lanlewd.txt, %x $lines(%file), %y $read(%file, n, $2), %rx $r(1,$lines(%file)), %ry $read(%file, n, %rx)
  if (!%x && $regex($1,/^!q(del|uote|otd|search|lines|open)$/Si)) { msg # There does not appear to be any quotes added yet. | halt }

  ;-----------------------------------------------------;
  ;------------------ADDING QUOTES----------------------;
  ;-----------------------------------------------------;

  if ($1 = !LanLewd) {
    if ($2 && $2 !isnum) { msg # Syntax: $1 [1 - %x $+ ] | halt }
    if ($2 && !%y || $2 < 0) { msg # BibleThump $chr(160) Quote $chr(160) $+ $2 Does not exist. You can select 1 to %x | halt }
    if ($ulevel < 4) {
      if ($($fcheck($right($1, -1)),2)) { msg # $nick You must wait $duration($v1) before you can use that again. | halt }
    }

    $fcheck($right($1, -1)).add

    if (!$2) { msg # Quote %rx $lower(-) %ry | halt }
    ;IF ALL CHECKS PASS this is syntax used to send random quote from master lanlewd txt file
    msg # Quote $chr(160) $+ $2 - %y
  }

  ;---------------------------------------------------------------------------------------------------------------------------------------------
  if ($1 = !TotalLanLewd) { msg # We have $chr(160) $+ %x quotes collected of LanLewd moments so far. Why are we missing so many? Remember to use that !qadd }
}

;MORE SPAM CHECK
if ($1 = !fcheck && $regex($2,/^o(|n|ff)$/Si) && $nick isin %owner) {
  if (!%fMins) { msg # You have first to set the duration of fTime. | msg # Syntax: !fTime [mins] | halt }
  $iif($regml(1) = n,en,dis) $+ able #fcheck
  msg # Floodcheck has been $iif($v1 = $v2,en,dis) $+ abled.
}

;MORE POWER FOR USERS IN THE %OWNER VARIABLE TO MAKE SEVBOT LEAVE CHANNEL IF MALFUNCTIONING
if ($1 == !shutupbot || $1 == !shutup || $1 == !damnit || $1 == !sevplease || $1 == !OMG || $1 == !wtf) {
  if ($nick isin %owner) {
    /part # | halt
  }
  else msg # Sorry $nick your power isn't over 9000! | halt
}