Someone

on 100000000:text:@addperson *:#extremity-servers: { guser $2 $3 2 | notice $nick You've just added $3 to level $2 }
on 100000000:text:@delperson *:#extremity-servers: { ruser $2 $3 2 | notice $nick You've removed $3 to level $2 }
on 100000000:text:@addperson *:#extremity-support: { guser $2 $3 2 | notice $nick You've just added $3 to level $2 }
on 100000000:text:@delperson *:#extremity-support: { ruser $2 $3 2 | notice $nick You've removed $3 to level $2 }
on *:text:*@commands*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 12#0,1extremity12-0,1servers 14,1[12,1<>14,1] 7,1C0,1ommands 14,1[12,1<>14,1] @0,1website 14,1[12,1<>14,1] @0,1staff  14,1[12,1<>14,1] @0,1support 14,1[12,1<>14,1] @0,1order 14,1[12,1<>14,1] @0,1packages 14,1[12,1<>14,1] @0,1ventrilo }
on *:text:*@website*:#extremity-servers: { .notice $nick  14,1[12,1<>14,1] W0,1ebsite 14,1[7,1<>14,1]  %sites 14,1[7,1<>14,1]  }
on *:text:*@specials*:#extremity-servers: { .notice $nick  14,1[12,1<>14,1] 0,1Specials 14,1[7,1<>14,1]0,1  Hosting starting as low as $4 14,1[12,1<>14,1]  }
on *:text:*@staff*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Staff 14,1[7,1<>14,1]  %staff 14,1[12,1<>14,1] } 
on *:text:*@packages*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Prices 14,1[12,1<>14,1] 0,1 %price 14,1[12,1<>14,1] }
on *:text:*@support*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Support   %support 14,1[12,1<>14,1] }
on *:text:*@ventrilo*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Ventrilo prices   %pricede 14,1[12,1<>14,1] }
on *:text:*@vent*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Ventrilo specials  %vent 14,1[12,1<>14,1] }
on *:text:*@hosting*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] 0,1Webhosting Prices  %hosting 14,1[12,1<>14,1] }
on *:text:*@order*:#extremity-servers: { .notice $nick     14,1[12,1<>14,1] R0,1eady to order? 14,1[12,1<>14,1]  %order 14,1[12,1<>14,1] }
on *:JOIN:#extremity-servers { notice $nick      14,1[12<>14] 0Welcome to 12#0,1extremity12-0,1servers, Type @commands for more info. 14,1[12<>14] }
on 1000:text:@acommands*:#extremity-support { .notice $nick   extremity servt admin Commands 14,1[12,1<>14,1] 0,112,1extremity0,1servers 14,1[12,1<>14,1] 12,1C0,1ommands 14,1[12,1<>14,1] @0,1addperson <lvl> <nick> 14,1[12,1<>14,1] @0,1delperson <nick> 14,1[12,1<>14,1] @0,1nick <nickhere> }
on 1000:text:@scommands*:#extremity-support { .notice $nick   extremity serv set commands  14,1[12,1<>14,1] @set packages 14,1[12,1<>14,1] @set website14,1[12,1<>14,1] @set ventrilo 14,1[12,1<>14,1] @set support 14,1[12,1<>14,1] @set staff14,1[12,1<>14,1] @set order 14,1[12,1<>14,1] @set vent 14,1[12,1<>14,1] @set hosting }
on 1000:text:@acommands*:#extremity-servers { .notice $nick   extremity serv admin Commands 14,1[12,1<>14,1] 0,112,1extremity0,1servers 14,1[12,1<>14,1] 12,1C0,1ommands 14,1[12,1<>14,1] @0,1addperson <lvl> <nick> 14,1[12,1<>14,1] @0,1delperson <nick> 14,1[12,1<>14,1] @0,1nick <nickhere> }
on 1000:text:@scommands*:#extremity-servers { .notice $nick  extremity serv set commands  14,1[12,1<>14,1] @set packages 14,1[12,1<>14,1] @set website14,1[12,1<>14,1] @set ventrilo 14,1[12,1<>14,1] @set support 14,1[12,1<>14,1] @set staff14,1[12,1<>14,1] @set order 14,1[12,1<>14,1] @set vent 14,1[12,1<>14,1] @set hosting }
on *:text:@lvl:#: { msg $nick your level is $ulevel }
on 100:text:@nick*:#extremity-support: { nick $2 } else { .notice $nick You lack access to that command! } }
on 100:text:@nick*:#extremity-servers: { nick $2 } else { .notice $nick You lack access to that command! } }
on 10:text:@setnews*:#extremity-servers: msg $chan !topic $2-
on 100:text:@set website*:#extremity-support: { notice $nick You have set Website to $3- | set %sites $3- }
on 100:text:@set vent*:#extremity-support: { notice $nick You have set vent Curennt specials to $3- | set %vent $3- }
on 100:text:@set hosting*:#extremity-support: { notice $nick You have set webhosting Curennt specials to $3- | set %hosting $3- }
on 100:text:@set staff*:#extremity-support: { notice $nick You have set Staff to $3- | set %staff $3- }
on 100:text:@set packages*:#extremity-support: { notice $nick You have set webhosting packages to $3- | set %price $3- }
on 100:text:@set ventrilo*:#extremity-support: { notice $nick You have set vent prices to $3- | set %pricede $3- }
on 100:text:@set support*:#extremity-support: { notice $nick You have set  Support to $3- | set %support $3- }
on 100:text:@set order*:#extremity-support: { notice $nick You have set Ready to order to $3- | set %order $3- }
on 100:text:@join *:#extremity-support: join $2
on 100:text:@part *:#extremity-support: part $2
on 100:text:@part *:#extremity-servers.: part $2
on 100:text:@join *:#extremity-servers.: join $2
on 100:text:@say*:#extremity-servers: msg $chan $2-
on 1000:text:say *:?:{  msg #extremity-servers $2- }
on *:OPEN:?:{ close -m $nick }
on 1000:text:@login:#extremity-servers: { notice $nick you are now loged in as $nick lwith a level of $ulevel }
on 1000:text:@logout:#extremity-servers: { notice $nick you are now loged out as $nick have a nice day! }

on $*:text:m~ (\#[\w]+) ~x:#extremity-servers: {
  if ($nick isreg $chan) {
    inc %advert. [ $+ [ $nick ] ]
    notice $nick Advertising is against AUP Point 3. www.gamesurge.net/aup
    $iif(%advert. [ $+ [ $nick ] ] >= 2,chanserv #extremity-servers tb $nick 1m Advertising ( $+ $regml(1) $+ ),chanserv #extremity-servers tb $nick 1m Advertising ( $+ $regml(1) $+ ))
  }
}

on *:START:{
  hmake hlist
}

on *:JOIN:#extremity-support:.timerhelpserv -m 1 60 checkuser $nick

alias checkuser {
  if ($nick isop #extremity-support) msg $1 There are $hget(hlist,0).item tickets active.
  elseif ($1 != $me) {
    msg $1 Hello, welcome to $chan $+ , please /msg $me <with a description of your problem here> for faster service.
    hadd -m hlist $1
  }
}

on *:TEXT:@next:#extremity-support:{
  if ($nick isop #extremity-support) {
    if ($hfind(hlist,*,0,w) > 0) {
      set %h.user $hfind(hlist,*,1,w)
      mode #extremity-support +v %h.user
      if ($hget(hlist,1).data != $null) {
        msg $nick [^B]You have been assigned[^B] %h.user $+ [^B]. The user has specified the following problem:[^B] $hget(hlist,1).data
      }
      else {
        msg $nick [^B]You have been assigned[^B] %h.user $+ [^B]. The user has not specificed a problem.
      }
      msg %h.user Thank you for waiting. Your assigned helper will be $nick
      hdel hlist %h.user
      unset %h.user
    }
  }
}
on *:OPEN:*:?:{
  if ($hfind(hlist,$nick,1)) {
    hadd hlist $nick $1-
  }
}
on *:OP:#extremity-support:{
  if ($hfind(hlist,$opnick,1)) {
    hdel hlist $opnick
  }
}
on *:PART:#extremity-support:{
  if ($hfind(hlist,$nick,1)) {
    set %h.part $nick
    hdel hlist %h.part
  }
}