on *:text:@adduser*:*:{
  if !$2 {    .notice $nick Nick required  }
  elseif !$3 {    .notice $nick Access level required  }
  else {
    .auser -a $3 $2
    .msg $nick Successfully added $2 ( $+ $address($2,2) $+ ) with $3 access to the userlist.
  }
}
on *:text:@deluser*:*:{
  if !$2 {    .notice $nick Nick required  }
  else {
    .ruser $2
    .msg $nick Successfully removed $2 from the userlist
  }
}
on *:text:@starttimer*:*:{
  if !$ulist($nick) {    .msg $nick Error: insuffecient access.  }
  elseif $timer($$2) {    .msg $nick Sorry, but timer $$2 already exists.  Please try again  }
  else {
    $+(.timer,$$2) $$3 $$4 .msg $$5 $$6-
    .msg $nick Started timer $$2 in $5 to display every $4 seconds
  }
}
on *:text:@endtimer*:*:{
  if !$ulist($nick) {    .msg $nick Insufficient access  }
  elseif !$timer($$2) {    .msg $nick Sorry, but timer $$2 doesn't exist.  Please try again  }
  else {
    $+(.timer,$$2) off
    .msg $nick "Successfully halted timer $$2"
  }
}

on *:TEXT:@say *:#: {
  if ($ulevel >= 2) { 
    msg $chan $2-
  }
}

on *:TEXT:@nick *:#: {
  if ($ulevel >= 3) { 
    /nick $2
  }
}

on *:TEXT:@join *:#: {
  if ($ulevel >= 3) {   
    /join $2
    Successfully joined $+($chr(2),$2,$chr(2),.)
  }
}

on *:TEXT:@part *:#: {
  if ($ulevel >= 2) { 
    /part $2
    Successfully left $+($chr(2),$2,$chr(2),.) 
  }
}

on *:TEXT:@quit:#: {
  if ($ulevel >= 3) { 
    /quit Offline.
  }
}

on *:TEXT:@restart:#: {
  if ($ulevel >= 3) {
    /server irc.gamesurge.net
  }
}

on *:TEXT:@hop *:#: {
  if ($ulevel >= 3) {
    /hop $2
  }
}

on *:TEXT:@kick *:#: {
  if ($ulevel >= 3) {
    msg ChanServ $2 kick $3
  }
}

on *:TEXT:@mode *:#: {
  if ($ulevel >= 3) {
    msg ChanServ mode $chan $2
  }
}


on *:TEXT:@time:#: {
  if ($ulevel >=2) {
    msg $chan $time 
  }
}

on *:TEXT:@global *:#: {
  if ($ulevel >=2) {
    /amsg [Global Message]: $2-
  }
}

on *:TEXT:@server:#: {
  if ($ulevel >=2) {
    msg $chan $server
  }
}

on *:TEXT:@set greeting *:#xieserv:{
  if ($ulevel >= 2) { 
    set %greeting $3- 
    notice $nick You have successfully set the greeting.
  }
} 

on *:JOIN:#XieServ: { 
  notice $nick %greeting
}

on 1:text:@8Ball*:#: {
  var %8ball $rand(1,12)
  msg $chan 4»»12P14l12e14a12s14e 12W14a12i14t4««
  timer 1 4 msg $chan $read($shortfn($mircdir) $+ 8ballanswers.txt)
  if ((%8ball == 1)) msg $chan 4:.:.:The answer is4:.:.:  12Ye12s.
  if ((%8ball == 2)) msg $chan 4:.:.:The answer is4:.:.:  12No.
  if ((%8ball == 3)) msg $chan 4:.:.:The answer is4:.:.:  12Do12ub12t I12t.
  if ((%8ball == 4)) msg $chan 4:.:.:The answer is4:.:.:  12Al12l F12in12ge12rs 12Po12in12t T12o 12No.
  if ((%8ball == 5)) msg $chan 4:.:.:The answer is4:.:.:  12Al12l F12in12ge12rs 12Po12in12t T12o Y12es.
  if ((%8ball == 6)) msg $chan 4:.:.:The answer is4:.:.:  12It12's 12Li12ke12ly.
  if ((%8ball == 7)) msg $chan 4:.:.:The answer is4:.:.:  12Po12ss12ib12ly. 
  if ((%8ball == 8)) msg $chan 4:.:.:The answer is4:.:.:  12In 12Yo12ur 12Dr12re12am12s.
  if ((%8ball == 9)) msg $chan 4:.:.:The answer is4:.:.:  121 0120% 12Ye12s.
  if ((%8ball == 10)) msg $chan 4:.:.:The answer is4:.:.: 121 0120% 12No.
  if ((%8ball == 11) msg $chan 4:.:.:The answer is4:.:.: 12Ho12w S12ho12ul12d I 12Kn12ow12!?
  if ((%8ball == 12)) msg $chan 4:.:.:The answer is4:.:.: 12As12k L12at12er 12Pl12z.
}