%leathanAway
%world
%worldSetter
%userAllowed
%allowUpdate
%pcMessage
%currentWorld
%suggestCount
%suggested1
%suggested2
%floodchan
%commandInUse
%msg352
%msg353
%listWorlds
%numQuotes
%addressToBan
%addressToUnban
%isBanned
%kbNext
%scoutMode
%pcMessage2


on $*:TEXT:~kbn:*: {
  if ($nick isop $chan) {
    %kbNext = 1
  }
}

on $*:TEXT:~kick *:*: {
  if ($nick == leathan) {
    kick $chan $2 $3
  }
}

on *:text:*leat*:*: {
  if (%leathanAway == 1) { 
    notice $nick leathan is currently away, to message him please type ~message <message>.
  }
}

on *:join:*: { 
  whois $nick
  if (%kbNext = 1) { mode $chan +b $address($nick,2) | %kbNext = 0 }
  mode $chan +v $nick
  %isBanned = $readini($qt($mircdirshitlist.ini),ShitList,$address($nick,2))

  if (%isBanned && %isBanned != unbanned) {
    mode #axe +b $address($nick,2)
    %nicksAddress = $address($nick,2)
    kick #axe $nick Reason: %isBanned
    timer 1 240 mode #axe -b %nicksAddress
  }


}


on *:text:~message *:#AxE: { 
  %message = You have recieved a message from $nick at $time on $date -
  %message = %message $2-
  msg leathan %message 
  msg #AxE Message Successfully sent to leathan at $time on $date , To delete type ~delete.
}

on *:text:~delete:#AxE: {
  msg leathan $nick has deleted a message at $time on $date .
}
on *:text:~away:*: {
  if ($nick == leathan) && (%leathanAway != 1) && ($nick isop $chan) {
    %leathanAway = 1
    %pcMessage = leathan is away, if a mod is not active use ~suggest <WORLD> to update worlds.
    %suggestCount = 3
    %suggested1 = ""
    %suggested2 = ""
    .msg $chan You are now set as away.
  }
}


on *:text:~back:*: {
  if ($nick == leathan) && (%leathanAway != 0) && ($nick isop $chan) {
    %leathanAway = 0 
    %pcMessage = ""
    %suggestCount = 3
    %suggested1 = ""
    %suggested2 = ""
    msg $chan You are now set as back.
  }
}

on *:text:~serve *:#: {
  msg $chan $nick serves $2 a glass of lemonade. 
}



on *:text:~rejoin:*: {
  if ($gettok(%list,1,32) == $nick) || ($gettok(%list,2,32) == $nick) || ($gettok(%list,3,32) == $nick) || ($gettok(%list,4,32) == $nick) || ($gettok(%list,5,32) == $nick) || ($gettok(%list,6,32) == $nick) || ($gettok(%list,7,32) == $nick) || ($gettok(%list,8,32) == $nick) || ($gettok(%list,9,32) == $nick) || ($gettok(%list,10,32) == $nick) {
    hop $chan
  }
}





on *:text:~say *:*: {
  if ($gettok(%list,1,32) == $nick) || ($gettok(%list,2,32) == $nick) || ($gettok(%list,3,32) == $nick) || ($gettok(%list,4,32) == $nick) || ($gettok(%list,5,32) == $nick) || ($gettok(%list,6,32) == $nick) || ($gettok(%list,7,32) == $nick) || ($gettok(%list,8,32) == $nick) || ($gettok(%list,9,32) == $nick) || ($gettok(%list,10,32) == $nick) {
    msg $chan $2-
  }
}





on *:text:~join *:#: {
  if ($gettok(%list,1,32) == $nick) || ($gettok(%list,2,32) == $nick) || ($gettok(%list,3,32) == $nick) || ($gettok(%list,4,32) == $nick) || ($gettok(%list,5,32) == $nick) || ($gettok(%list,6,32) == $nick) || ($gettok(%list,7,32) == $nick) || ($gettok(%list,8,32) == $nick) || ($gettok(%list,9,32) == $nick) || ($gettok(%list,10,32) == $nick) {
    join $2
  }

}

on *:text:~exit:#: {
  if ($gettok(%list,1,32) == $nick) || ($gettok(%list,2,32) == $nick) || ($gettok(%list,3,32) == $nick) || ($gettok(%list,4,32) == $nick) || ($gettok(%list,5,32) == $nick) || ($gettok(%list,6,32) == $nick) || ($gettok(%list,7,32) == $nick) || ($gettok(%list,8,32) == $nick) || ($gettok(%list,9,32) == $nick) || ($gettok(%list,10,32) == $nick) {
    part $chan
  }
}

ON *:text:~ws on:#axe: { 
  if ($nick isop $chan) || ($nick ishalfop $chan) {
    .enable #worldscript
    .msg $chan PC Worlds can now be viewed via the ~pcw command.
  }
}
ON *:text:~ws off:#axe: { 
  if ($nick isop $chan) || ($nick ishalfop $chan) {
    .disable #worldscript
    .msg $chan PC Worlds can no longer be viewed via the ~pcw command.
  }
}

#worldscript on

ON *:text:~pcw:#axe: {
  .msg $chan The current world is [3 %world 1] Set by [3 %worldSetter 1]. %pcMessage %pcMessage2
}
ON *:text:~update *:#axe: { 
  if ($nick isop $chan) || ($nick ishop $chan) || ((%userAllowed == $nick && %allowUpdate == 1)) {
    .msg $chan The new PC world is now [3 $2 1].
    %world = $2
    %worldSetter = $nick
    %allowUpdate = 0
    %suggestCount = 3
    %suggested1 = ""
    %suggested2 = ""
    .disable #ScoutMode
    %pcMessage2 = $chr(0)
  }
}
ON *:text:!pcw*:#axe: {
  .notice $nick PC Script is on, use ~pcw for the pc world.
} 
ON *:text:!world*:#axe: {
  .notice $nick PC Script is on, use ~pcw for the pc world.
} 
ON *:text:~allowupdate *:#axe: { 
  if ($nick isop $chan) || ($nick ishalfop $chan) {
    .msg $chan $2 is now allowed to update the next world.
    %userAllowed = $2
    %allowUpdate = 1
  }
}
ON *:text:~suggest *:#axe: { 
  if (%leathanAway == 1) {
    if ($2 == %world) { msg $chan $2 is already set as the world. | goto worldError }
    %listWorlds2 = $chr(32) $+ 2 6 9 12 18 22 23 24 26 27 28 31 36 42 44 48 53 54 58 59 60 64 65 66 69 70 71 77 78 79 83 84 88 89 91 98 99 100 103 104 110 111 112 114 115 120 121 123 124 129 130 131 132 137 138 $+ $chr(32)
    %valid2 = $replace(%listWorlds2,$chr(32) $+ $2 $+ $chr(32),worldvalidtrue) 
    if (*valid* iswm %valid2) { } | else { kick $chan $nick $2 is not a valid world! | goto worldError }
    if ($2 != %currentWorld) {
      %suggestCount = 3
    } 
    if ($nick == %suggested1 && $2 == %currentWorld) || ($nick == %suggested2 && $2 == %currentWorld) {
      .msg $chan You have already suggested a world.
    }
    else {
      if (%suggestCount == 1) {
        .msg $chan The new PC world is now [3 $2 1].
        %pcMessage2 = $chr(0)
        %world = $2
        %suggestCount = 3
        %suggested1 = ""
        %suggested2 = ""
        %worldSetter = Suggested
        .disable #ScoutMode
      }
      else {
        %suggestCount = %suggestCount - 1
        .msg $chan World [3 $2 1] has been suggested, if [3 %suggestCount 1] more people suggest that world it will be updated.
        %currentWorld = $2
        if (%suggestCount = 2) { %suggested2 = $nick }
        if (%suggestCount = 1) { %suggested1 = $nick }
      }
    }
  }
  else { notice $nick Suggesting worlds only works when leathan is away. }
  :worldError
}
#worldscript end

on $*:TEXT:~tk *:*: {
  if ($nick isop $chan) {
    mode $chan +b $address($2,2)
    kick $chan $2 $chr(32) You have been kicked for $chr(32) $3 $chr(32) seconds. (Reason: $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $16 $17 $18 $19 $20 $21 $22 $23 $24
    .timer 1 $3 mode $chan -b $address($2,2)
    .timer 1 $3 msg $2 Timed kick expired.
  }
}


on *:text:~fp on:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if (%floodchan) {
      msg $chan flood protection is already on.
    }
    else {
      set %floodchan $addtok(%floodchan,$chan,44) 
      msg $chan Flood protection is now on.
    } 
  }
}
on *:text:~fl *:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    %lines = $2
    msg $chan Flood protection level set to $2.
  }
}
on *:text:~fp off:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    if (%floodchan) {
      set %floodchan $remtok(%floodchan,$chan,1,44) 
      msg $chan Flood protection is now off.
    } 
    else {
      msg $chan Flood protection is already off.
    } 
  }
}


ON *:TEXT:~how:*: {
  notice $nick When scout mode is on we ask that all users please help us find the current ZPS PC World. Type ~not <WORLD> if you have scouted a world thats not ZPS. Type ~list for a list of worlds to scout. If you find the world, please notify a mod. Thanks.
}
ON *:TEXT:~sm on:*: {
  if ($nick isop $chan) || ($nick ishop $chan) { 
    enable #ScoutMode
    %pcMessage2 = Scout mode is on, type ~how for more information regarding scout mode.
    msg $chan Scout mode on, all active users are asked to please help scout for the current ZPS World, if you scouted a world and it's not the ZPS World use ~not <WORLD> to see a list of worlds yet to scout use ~list.
    %listWorlds = $chr(32) $+ 2 6 9 12 18 22 23 24 26 27 28 31 36 42 44 48 53 54 58 59 60 64 65 66 69 70 71 77 78 79 83 84 88 89 91 98 99 100 103 104 110 111 112 114 115 120 121 123 124 129 130 131 132 137 138 $+ $chr(32)
  }
}
ON *:TEXT:~sm off:*:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    .disable #ScoutMode | .msg $chan Scout mode turned off, thank you to everyone who helped scout worlds.
    %pcMessage2 = $chr(0)
  }
}

#ScoutMode off
ON *:TEXT:~yes *:*: { 
  if ($chan == #casino_unit) { msg $chan WORLD $2 RIGHT NOW!!!!
    msg $chan WORLD $2 RIGHT NOW!!!!
    msg $chan WORLD $2 RIGHT NOW!!!!
  }
}
ON *:TEXT:~not *:*: {
  %valid = $replace(%listWorlds,$chr(32) $+ $2 $+ $chr(32),worldvalidtrue)
  if (*valid* iswm %valid) {
    %listWorlds = $replace(%listWorlds,$chr(32) $+ $2 $+ $chr(32),$chr(32) $+ $chr(45) $+ $chr(32)) | msg $chan World $2 has been scouted, thank you $nick $+ .
  }
  else { kick $chan $nick That world has been scouted or is not on list! }
}
ON *:TEXT:~list:*: { msg $chan Worlds to scout: %listWorlds }
#ScoutMode end

ON *:TEXT:~lq:*: { 
  %numQuotes = 1
  while ($readini($mircdirquotes.ini,Quotes,%numQuotes)) { %numQuotes = %numQuotes + 1 }
  if (!$readini($mircdirquotes.ini,Quotes,1)) { %numQuotes = 0 }
  enable #QuotesLoaded
  msg $chan Quotes are now loaded, use ~quote to view a quote.
}
#QuotesLoaded on
ON *:TEXT:~aq:*: {
  if ($nick isop $chan) || ($nick ishop $chan) { 
    %numQuotes = %numQuotes + 1
    writeini $qt($mircdirquotes.ini) Quotes %numQuotes $chr(34) $+ $2- $+ $chr(34) $+ $chr(32) $+ $chr(45) $+ $nick
    msg $chan Quote added by $nick.
  }
}
ON *:TEXT:~quote:*: {
  :check
  var %rand = $rand(0,9)
  var %rand = $str(%rand,4)
  var %rand = $calc($int($asin($rand(1,%rand))))
  var %rand = $calc((%rand * %leng) * (%rand * $rand(1,9)))
  if (%rand) < %numQuotes) {
    goto check
  }
  var %rand = $right(%rand,%numQuotes)
  msg $chan Random quote: $readini($mircdirquotes.ini,Quotes,%rand)
}  
#QuotesLoaded end

on *:TEXT:~ab *:*: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$3) { msg $chan Please provide a reason for the ban. | goto noreasongiven }
    if (*@* iswm $2) || (*.* iswm $2) { %addressToBan = $2 } | else { %addressToBan = $address($2,2) }                     
    if (!$3) { msg $chan ERROR: Could not get $2's Hostmask. | goto noreasongiven }
    writeini $qt($mircdirshitlist.ini) ShitList %addressToBan $3-
    mode $chan +b %addressToBan
    kick $chan $2 Reason: $3-
    timer 1 240 mode #axe -b %addressToBan
  }    
  :noreasongiven
}
on *:TEXT:~rb *:*: {
  if ($nick isop $chan) {
    if (*@* iswm $2) || (*.* iswm $2) {
      %addressToUnban = $2 
    } 
    else {
      %addressToUnban = $address($2,2) 
      of (!%addressToUnban) { $chan ERROR: Could not get $2's Hostmask. }
    }
    writeini $qt($mircdirshitlist.ini) ShitList %addressToUnban unbanned
    msg $chan $2 removed from Shitlist.
    mode $chan -b %addressToUnban
  }
}

on *:TEXT:~scan *:*: {
  if ($nick == leathan) { 
    msg MrLookerMan $2 
  }
}
on *:TEXT:*:*: {
  if ($nick == AxE-BoT) { 
    join $1
    names $1
    msg AxE-BoT %msg352
    timer 1 157 part $1
  }
  if ($nick == MrLookerMan) {
    %i=1
    who #axe
    msg leathan Starting Scan...
    while ($[$+[%i]]) { 
      if ($address($[$+[%i]],2) iswm %msg353) { 
        msg leathan Found match, User: $[$+[%i]] Address: $address($[$+[%i]],2) 
      }
      %i = %1 + 1
    } 
    msg leathan Scanning Complete. 
  } 
  if (($nick !isop $chan) && ($nick !ishop $chan)) { 
    hadd -mu10 chanflood $+($nick,.,$chan,.,$ticks) 1 
    if ($hfind(chanflood,$+($nick,.*),0,w) > %lines) {
      mode $chan +b $address($nick,2)
      kick $chan $nick Flood Protection (1 Minute Ban) 
      timer 1 60 mode $chan -b $address($nick,2)
      timer 1 60 msg $nick Ban expired.
    } 
  } 
}
raw 353:*: {
  %msg353 = $1-
}
raw 352:*: {
  %msg352 = $1-
  %msg352 = $replace(%msg352,$chr(43),$chr(0))