on *:TEXT:!tb*:#:{ if (!$3) { notice $nick Incorrect syntax - Should be !tb <time in minutes> <nick> | halt }
  elseif ($3 && $nick isop $chan) || ($3 && $nick == iConstruct) { mode $chan +b $address($3,2) | kick $chan $3 Banned by $nick for $2 minutes. Reason: $4- | timer 1 $calc($2 * 60) mode $chan -b $address($3,2) | timer 1 $calc($2 * 60) notice $3 You are now unbanned from $chan $+ . Behave this time! | halt }
  else { You must be op to do this. | halt }
}
on *:text:*:#: {
  if ($chan == #Bots) { halt }
  if ($regex($right($1,-1),/^def(rs)?name/Si)) { if ($ !isin $2) { writeini setname.ini names $nick $replace($2-,$chr(32),+) | notice $nick Your RSN has been saved for your nickname, $nick | halt } }
  if ($bskstats($1)) {
    inc %flop
    sockopen $+(stats3.,%flop) jcfcs-site.net 80
    sockmark $+(stats3.,%flop) $bskstats($1) $replace($iif($iif($left($2,1) == $chr(35),$3-,$2-),$v1,$iif($readini(setname.ini,names,$nick),$v1,$nick)),$chr(32),+) $iif($left($1,1) == @,msg $chan,notice $nick) $iif($left($2,1) == $chr(35),$remove($2,$chr(35)),next)
  }
  if ($regex($1,/^[!@]bskco?mb(at)?(%|percent)/Si)) {
    inc %flop
    sockopen $+(stats3.,%flop) jcfcs-site.net 80
    sockmark $+(stats3.,%flop) cmbp $iif($2,$2,$iif($readini(setname.ini,names,$nick),$v1,$nick)) $iif($left($1,1) == @,msg $chan,notice $nick)
    halt  
  }   
  if ($regex($1,/^[!@]bskco?mb(at)?(le?ve?l)?/Si)) { 
    inc %flop
    sockopen $+(stats3.,%flop) jcfcs-site.net 80
    sockmark $+(stats3.,%flop) Combat $replace($iif($iif($left($2,1) == $chr(35),$3-,$2-),$v1,$iif($readini(setname.ini,names,$nick),$v1,$nick)),$chr(32),+) $iif($left($1,1) == @,msg $chan,notice $nick) $iif($left($2,1) == $chr(35),$remove($2,$chr(35)),next)
  }
}
on *:sockopen:stats3.*: {
  sockwrite -nt $sockname GET /kyle/bsk.php?user= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -nt $sockname Host: jcfcs-site.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats3.*: {
  if ($sockerr) { halt }
  else {
    var %sockreader
    sockread %sockreader
    if (*is not in bsk* iswm %sockreader) { $gettok($Sock($sockname).mark,3-4,32) $gettok($sock($sockname).mark,2,32) is not in BsK. | sockclose $sockname | halt }
    if ($gettok($sock($sockname).mark,1,32) == Overall) {
      if (*Overall* iswm %sockreader) {
        tokenize 32 %sockreader
        var %flo = %sockreader
        var %f = 2
        while (%f <= 24) {
          sockread %sockreader
          tokenize 32 %sockreader
          if (%f <= 7) { var %co = %co $3 }
          var %fl = %fl $+($blue($skill(%f)),$blue(:) $red($iif($3 != in,$3,$iif($skill(%f) == HitPoints,10,1))))
          inc %f
        }
        tokenize 32 %flo
        $gettok($Sock($sockname).mark,3-4,32) $blue(~Stats for) $red($gettok($sock($sockname).mark,2,32)) $blue(~ Overall:) $red($bytes($iif($3 == ranked,1,$3),bd)) $blue(~ Clan Rank:) $red($bytes($iif($5 == Not,1,$5),bd)) $blue(~ RS Rank:) $red($bytes($iif($2 == Not,1,$2),bd)) $blue(~ Total Exp:) $red($bytes($iif(!$4,1,$4),bd)) $blue(~ Combat:) $red($cmb(%co $sockname)) $+ $blue(~)
        $gettok($sock($sockname).mark,3-4,32) $blue(~) $gettok(%fl,3-24,32)
        $gettok($sock($sockname).mark,3-4,32) $gettok(%fl,25-,32) $blue(~)
        sockclose $sockname
        halt
      } 
    }
    if ($gettok($sock($sockname).mark,1,32) != Overall) && ($gettok($sock($sockname).mark,1,32) != cmb) && ($gettok($sock($sockname).mark,1,32) != cmbp) { 
      if ($+(*,$gettok($sock($sockname).mark,1,32),*) iswm %sockreader) {
        tokenize 32 %sockreader
        $gettok($sock($sockname).mark,3-4,32) $blue(~) $+ $red($gettok($Sock($sockname).mark,1,32)) $blue(for) $red($Gettok($Sock($sockname).mark,2,32)) $blue(~ Level:) $red($iif($3 == ranked,1,$3)) $blue(~ RS Rank:) $red($bytes($iif($2 == not,1,$2),bd)) $blue(~ Clan Rank:) $red($bytes($5,b)) $blue(~ Xp:) $red($bytes($iif(!$4,1,$4),bd)) $blue(~ Xp to lvl) $red($iif($gettok($sock($sockname).mark,5,32) == next,$calc($iif($3 == ranked,1,$3) + 1),$gettok($sock($sockname).mark,5,32)) $+ :) $red($bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32) == next,$calc($iif($3 == ranked,1,$3) + 1),$v1)) - $remove($iif(!$4,1,$4),$chr(44))),bd)) $+ $blue(~)
        $gettok($sock($sockname).mark,3-4,32) $blue(~) $cwords($cnums($amounts($gettok($sock($sockname).mark,1,32),$calc($exp($iif($gettok($sock($sockname).mark,5,32) == next,$calc($3 + 1),$v1)) - $remove($4,$chr(44)))))) $blue(~)
        sockclose $sockname
        halt
      }
    }
    if ($gettok($sock($sockname).mark,1,32) == Combat) {
      if (*Overall* iswm %sockreader) {
        var %ty = 2
        while (%ty <= 8) {
          sockread %sockreader
          tokenize 32 %sockreader
          var %comb = %comb $skill(%ty) $+ : $iif($3 != Ranked,$3,$iif($skill(%ty) == Hitpoints,10,1)) ~
          inc %ty
        }
        $gettok($sock($sockname).mark,3-4,32) $blue(~ Combat for) $red($gettok($sock($sockname).mark,2,32)) $blue(~) $red($cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname)) $blue(~) $cwords($cnums(%comb))
        $gettok($sock($sockname).mark,3-4,32) $blue(~ Stats For) $red($iif($gettok($sock($sockname).mark,5,32) == next,$calc($floor($remove($cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname),Melee Based,Range Based,Magic Based)) + 1),$gettok($sock($sockname).mark,5,32))) $blue(~ Att/Str:) $red($cc1($cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname) $iif($gettok($sock($sockname).mark,5,32) == next,$cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname),$calc($v1 - 1)))) ~ $blue(Def/Hp:) $red($cc2($cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname) $iif($gettok($sock($sockname).mark,5,32) == next,$cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname),$calc($v1 - 1)))) $blue(~ Prayer:) $red($cc4($cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname) $iif($gettok($sock($sockname).mark,5,32) == next,$cmb($regsubex(%comb,/([^\d\s]+)/g,$null) $sockname),$calc($v1 - 1)))) $blue(~)
      }
    }
    if ($gettok($sock($sockname).mark,1,32) == Cmbp) {
      if (*Overall* iswm %sockreader) {
        tokenize 32 %sockreader
        var %totalxp = $remove($4,$chr(44))
        var %while1 = 1
        while (%while1 <= 7) {
          sockread %sockreader
          tokenize 32 %sockreader
          var %combxp = $calc(%combxp + $remove($4,$chr(44)))
          inc %while1
        }
        $gettok($sock($sockname).mark,3-4,32) $blue(~ Combat percentage for) $red($gettok($sock($sockname).mark,2,32)) ~ $blue(Total Xp:) $red($bytes(%totalxp,bd)) $blue(Combat Xp:) $red($bytes(%combxp,bd)) $blue(Combat Percentage:) $red($round($calc(%combxp / %totalxp * 100),2) $+ $chr(37)) $blue(~)
      }
    }
  }
}
alias -l amounts {
  if ($1 == Attack) { return Chickens: $ceil($calc($2 / 12)) Rock Crabs: $ceil($calc($2 / 200)) Lesser Demons: $ceil($calc($2 / 328)) Fire Giants: $ceil($calc($2 / 448)) }
  if ($1 == Defence) { return Chickens: $ceil($calc($2 / 12)) Rock Crabs: $ceil($calc($2 / 200)) Lesser Demons: $ceil($calc($2 / 328)) Fire Giants: $ceil($calc($2 / 448)) }
  if ($1 == Strength) { return Chickens: $ceil($calc($2 / 12)) Rock Crabs: $ceil($calc($2 / 200)) Lesser Demons: $ceil($calc($2 / 328)) Fire Giants: $ceil($calc($2 / 448)) }
  if ($1 == Hitpoints) { return Chickens: $ceil($calc($2 / 3.99)) Rock Crabs: $ceil($calc($2 / 66.5)) Lesser Demons: $ceil($calc($2 / 105.07)) Fire Giants: $ceil($calc($2 / 148.96)) }
  if ($1 == Ranged) { return Chickens: $ceil($calc($2 / 12)) Rock Crabs: $ceil($calc($2 / 200)) Lesser Demons: $ceil($calc($2 / 328)) Fire Giants: $ceil($calc($2 / 448)) }
  if ($1 == Prayer) { return Bones: $ceil($calc($2 / 4.5)) Big Bones: $ceil($calc($2 / 15)) Dragon Bones: $ceil($calc($2 / 72)) Guilded altar and dragon bones: $ceil($calc($2 / 252)) }
  if ($1 == Magic) { return Camelot Teleport: $ceil($calc($2 / 55.5)) High Alchemy: $ceil($calc($2 / 65)) Lvl-5 Enchant: $ceil($calc($2 / 78)) Stun: $ceil($calc($2 / 90)) }
  if ($1 == Cooking) { return Shrimp: $ceil($calc($2 / 30)) Salmon: $ceil($calc($2 / 90)) Lobsters: $ceil($calc($2 / 120)) Shark: $ceil($calc($2 / 210)) }
  if ($1 == Woodcutting) { return Normal logs: $ceil($calc($2 / 25)) Willow: $ceil($calc($2 / 67.5)) Maples: $ceil($calc($2 / 100)) Magic: $ceil($calc($2 / 250)) }
  if ($1 == Fletching) { return Shortbow: $ceil($calc($2 / 10)) Maple Shortbow: $ceil($calc($2 / 100)) Yew longbow: $ceil($calc($2 / 150)) Magic Longbow: $ceil($calc($2 / 183)) }
  if ($1 == Fishing) { return Shrimp: $ceil($calc($2 / 10)) Lobster: $ceil($calc($2 / 90)) Monkfish: $ceil($calc($2 / 120)) Shark: $ceil($calc($2 / 110)) }
  if ($1 == Firemaking) { return Regular Logs: $ceil($calc($2 / 40)) Willow: $ceil($calc($2 / 90)) Maple: $ceil($calc($2 / 135)) Yew: $ceil($calc($2 / 202.5)) }
  if ($1 == Crafting) { return Bow strings: $ceil($calc($2 / 15)) Hard leather body: $ceil($calc($2 / 35)) Green Body: $ceil($calc($2 / 186)) Black Body: $ceil($calc($2 / 258)) }
  if ($1 == Smithing) { return Bronze Bar: $ceil($calc($2 / 6)) Steel Plate: $ceil($calc($2 / 187)) Mith Plate: $ceil($calc($2 / 250)) Gold bar with guantlets: $ceil($calc($2 / 56.5)) }
  if ($1 == Mining) { return Iron: $ceil($calc($2 / 35)) Coal: $ceil($calc($2 / 50)) Adamant: $ceil($calc($2 / 95)) Rune: $ceil($calc($2 / 120)) }
  if ($1 == Herblore) { return Attack Potion: $ceil($calc($2 / 25)) Prayer Potion: $ceil($calc($2 / 87.5)) Super Attack Potion: $ceil($calc($2 / 100)) Super Srength Potion: $ceil($calc($2 / 125)) }
  if ($1 == Agility) { return Gnome Stronghold: $ceil($calc($2 / 86.5)) Barbarian: $ceil($calc($2 / 139.5)) Wilderness: $ceil($calc($2 / 571)) Ape Atoll: $ceil($calc($2 / 580)) }
  if ($1 == Thieving) { return Cake Stall: $ceil($calc($2 / 16)) Master Farmer: $ceil($calc($2 / 43)) Gaurd: $ceil($calc($2 / 46.8)) Elf: $ceil($calc($2 / 353.3)) }
  if ($1 == Slayer) { return Chickens: $ceil($calc($2 / 4)) Rock Crabs: $ceil($calc($2 / 50)) Lesser Demons: $ceil($calc($2 / 82)) Fire Giants: $ceil($calc($2 / 112)) }
  if ($1 == Farming) { return Oak: $ceil($calc($2 / 467.5)) Willow: $ceil($calc($2 / 1456.5)) Maple: $ceil($calc($2 / 3403)) Yew: $ceil($calc($2 / 7069.5)) }
  if ($1 == Runecraft) { return Fire: $ceil($calc($2 / 7)) Nature: $ceil($calc($2 / 9)) Law: $ceil($calc($2 / 9.5)) Death: $ceil($calc($2 / 10)) }
  if ($1 == Hunter) { return Wild Kebbit: $ceil($calc($2 / 128)) Prickly Kebbit: $ceil($calc($2 / 204)) Red Chinchompa: $ceil($calc($2 / 265)) Imp: $ceil($calc($2 / 450)) }
  if ($1 == Construction) { return Carved Oak Table: $ceil($calc($2 / 360)) Oak Lardar: $ceil($calc($2 / 480)) Teak Lardar: $ceil($calc($2 / 750)) Mahogany Table: $ceil($calc($2 / 840)) }
}
alias -l exp { return $gettok(0 83 174 276 388 512 650 801 969 1154 1358 1584 1833 2107 2411 2746 3115 3523 3973 4470 5018 5624 6291 7028 7842 8740 9730 10824 12031 13363 14833 16456 18247 20224 22406 24815 27473 30408 33648 37224 41171 45529 50339 55649 61512 67983 75127 83014 91721 101333 111945 123660 136594 150872 166636 184040 203254 224466 247886 273742 302288 333804 368599 407015 449428 496254 547953 605032 668051 737627 814445 899257 992895 1096278 1210421 1336443 1475581 1629200 1798808 1986068 2192818 2421087 2673114 2951373 3258594 3597792 3972294 4385776 4842295 5346332 5902831 6517253 7195629 7944614 8771558 9684577 10692629 11805606 13034431 200000000,$1,32) }
alias -l skill {
  if ($1 == 1) || ($regex($1,/^[!@](stats|overall)/Si)) return Overall
  if ($1 == 2) || ($regex($1,/^[!@]att/Si)) return Attack
  if ($1 == 3) || ($regex($1,/^[!@]def/Si)) return Defence
  if ($1 == 4) || ($regex($1,/^[!@]str/Si)) return Strength
  if ($1 == 5) || ($regex($1,/^[!@]h(p|it)/Si)) return Hitpoints
  if ($1 == 6) || ($regex($1,/^[!@]rang/Si)) return Ranged
  if ($1 == 7) || ($regex($1,/^[!@]pray/Si)) return Prayer
  if ($1 == 8) || ($regex($1,/^[!@]mag[ei]/Si)) return Magic
  if ($1 == 9) || ($regex($1,/^[!@]cook/Si)) return Cooking
  if ($1 == 10) || ($regex($1,/^[!@]w(c|oodcut)/Si)) return Woodcutting
  if ($1 == 11) || ($regex($1,/^[!@]flet/Si)) return Fletching
  if ($1 == 12) || ($regex($1,/^[!@]fish/Si)) return Fishing
  if ($1 == 13) || ($regex($1,/^[!@]f(m|iremak)/Si)) return Firemaking
  if ($1 == 14) || ($regex($1,/^[!@]craft/Si)) return Crafting
  if ($1 == 15) || ($regex($1,/^[!@]smith/Si)) return Smithing
  if ($1 == 16) || ($regex($1,/^[!@]min/Si)) return Mining
  if ($1 == 17) || ($regex($1,/^[!@]herb/Si)) return Herblore
  if ($1 == 18) || ($regex($1,/^[!@]agi/Si)) return Agility
  if ($1 == 19) || ($regex($1,/^[!@]th(ie|ei)/Si)) return Thieving
  if ($1 == 20) || ($regex($1,/^[!@]slay/Si)) return Slayer
  if ($1 == 21) || ($regex($1,/^[!@]farm/Si)) return Farming
  if ($1 == 22) || ($regex($1,/^[!@]r(c|une)/Si)) return Runecraft
  if ($1 == 23) || ($regex($1,/^[!@]hunt/Si)) return Hunter
  if ($1 == 24) || ($regex($1,/^[!@]con/Si)) return Construction
}
alias -l cmb {
  tokenize 32 $1-
  var %rsc1 [ $+ [ $8 ] ] $calc((($1 * 130) + ($3 * 130)) / 400)
  var %rsc2 [ $+ [ $8 ] ] $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400)
  var %rsc3 [ $+ [ $8 ] ] $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400)
  if ((%rsc1 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ]) && (%rsc1 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ])) return $calc(%rsc1 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based
  elseif ((%rsc2 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ]) && (%rsc2 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ])) return $calc(%rsc2 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based
  elseif ((%rsc3 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ]) && (%rsc3 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ])) return $calc(%rsc3 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based
}
alias -l blue { return $+($chr(3),02,$1-,$chr(3)) }
alias -l red { return $+($chr(3),04,$1-,$chr(3)) }
alias altcol return $regsubex($1-,/(\S+(?:$| ))(\S+)?/g,$+($chr(3),02,\1,$chr(3),04,\2))
alias -l cc1 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.325) + 1),1,46) }
alias -l cc2 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.25) + 1),1,46) }
alias -l cc4 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.125) + 1),1,46) }
alias -l skill2 {
  if ($regex($1,/^[!@](stats|overall)/Si)) return Overall
  if ($regex($1,/^[!@]att/Si)) return Attack
  if ($regex($1,/^[!@]def/Si)) return Defence
  if ($regex($1,/^[!@]str/Si)) return Strength
  if ($regex($1,/^[!@]h(p|it)/Si)) return Hitpoints
  if ($regex($1,/^[!@]rang/Si)) return Ranged
  if ($regex($1,/^[!@]pray/Si)) return Prayer
  if ($regex($1,/^[!@]mag[ei]/Si)) return Magic
  if ($regex($1,/^[!@]cook/Si)) return Cooking
  if ($regex($1,/^[!@]w(c|oodcut)/Si)) return Woodcutting
  if ($regex($1,/^[!@]flet/Si)) return Fletching
  if ($regex($1,/^[!@]fish/Si)) return Fishing
  if ($regex($1,/^[!@]f(m|iremak)/Si)) return Firemaking
  if ($regex($1,/^[!@]craft/Si)) return Crafting
  if ($regex($1,/^[!@]smith/Si)) return Smithing
  if ($regex($1,/^[!@]min/Si)) return Mining
  if ($regex($1,/^[!@]herb/Si)) return Herblore
  if ($regex($1,/^[!@]agi/Si)) return Agility
  if ($regex($1,/^[!@]th(ie|ei)/Si)) return Thieving
  if ($regex($1,/^[!@]slay/Si)) return Slayer
  if ($regex($1,/^[!@]farm/Si)) return Farming
  if ($regex($1,/^[!@]r(c|une)/Si)) return Runecraft
  if ($regex($1,/^[!@]hunt/Si)) return Hunter
  if ($regex($1,/^[!@]con/Si)) return Construction
}
alias -l bskstats {
  if ($regex($1,/^[!@]bsk(stats|overall)/Si)) return Overall
  if ($regex($1,/^[!@]bskatt/Si)) return Attack
  if ($regex($1,/^[!@]bskdef/Si)) return Defence
  if ($regex($1,/^[!@]bskstr/Si)) return Strength
  if ($regex($1,/^[!@]bskh(p|it)/Si)) return Hitpoints
  if ($regex($1,/^[!@]bskrang/Si)) return Ranged
  if ($regex($1,/^[!@]bskpray/Si)) return Prayer
  if ($regex($1,/^[!@]bskmag[ei]/Si)) return Magic
  if ($regex($1,/^[!@]bskcook/Si)) return Cooking
  if ($regex($1,/^[!@]bskw(c|oodcut)/Si)) return Woodcutting
  if ($regex($1,/^[!@]bskflet/Si)) return Fletching
  if ($regex($1,/^[!@]bskfish/Si)) return Fishing
  if ($regex($1,/^[!@]bskf(m|iremak)/Si)) return Firemaking
  if ($regex($1,/^[!@]bskcraft/Si)) return Crafting
  if ($regex($1,/^[!@]bsksmith/Si)) return Smithing
  if ($regex($1,/^[!@]bskmin/Si)) return Mining
  if ($regex($1,/^[!@]bskherb/Si)) return Herblore
  if ($regex($1,/^[!@]bskagi/Si)) return Agility
  if ($regex($1,/^[!@]bskth(ie|ei)/Si)) return Thieving
  if ($regex($1,/^[!@]bskslay/Si)) return Slayer
  if ($regex($1,/^[!@]bskfarm/Si)) return Farming
  if ($regex($1,/^[!@]bskr(c|une)/Si)) return Runecraft
  if ($regex($1,/^[!@]bskhunt/Si)) return Hunter
  if ($regex($1,/^[!@]bskcon/Si)) return Construction
}
on $*:TEXT:/^[@!](set|add)event/Si:#:{ 
  if (!$isdate($2)) { notice $nick You need a date. | halt }
  if (!$3) { notice $nick You need a time. | halt }
  if (!$4) { notice $nick You need to call the event something. | halt }
  if (!$5) { notice $nick You need a description about the event. | halt }
  if ($nick !isop #) { notice $nick You must be op in #BsK to set an event. | halt }
  if ($nick isop #) && ($isdate($2)) { notice $nick New event " $+ $4 $+ " set for $2 $3 $+ . | $iif(%eventno, inc %eventno, set %eventno 2) | set %event [ $+ [ %eventno ] ] $2- | halt }
}

on *:TEXT:!addmember*:#:{ if ($nick isop #bsk) { set %members %members $2- | notice $nick Member(s) $2- added. | halt } }

on $*:TEXT:/^[!@]event/Si:#:{ if ($nick isin %members) && ($isdate($2)) { 
    set %x 1
    while (%x <= %eventno) {
      if ($gettok(%event [ $+ [ %x ] ],1,32) == $2) {
        notice $nick 1Information for 4 $+ $gettok(%event [ $+ [ %x ] ],3,32) $+ 01: Date: 04 $+ $gettok(%event [ $+ [ %x ] ],1,32) 01Time: 04 $+ $gettok(%event [ $+ [ %x ] ],2,32) 01Description: 04 $+ $gettok(%event [ $+ [ %x ] ],4-,32)
      }
      inc %x
    }
  }
  elseif ($nick !isin %members) { notice $nick You are not a BsK Member. | halt }
  else { notice $nick There are no events on this date.. | halt }
}

alias isdate return $iif($regex($1,/\d?\d\/\d?\d\/\d\d\d\d/),$true,$false)