;;; MENU
 
menu channel {
  Auth
.EFC { msg Q@CServe.quakenet.org AUTH EFC xvbgf+Bm } }
 
 
;;; ON JOIN
 
on 1:JOIN:#: if (%bot == on) {
  msg $chan 14Channeladmin: 4EFC or En`forcer 14for my complete details 4!info
  if (%match == on) msg $chan Join now: 4!join
  guser 5 $nick
  mode $chan +v $nick
}
 
 
;;; ON TEXT
 
;; Bot Options
 
;activate
on 9:text:!boton*:?: set %bot on | msg $nick bot on
on 9,8,7:text:!matchon*:?: set %match on | msg $nick match started | msg $chan A match is starting: !join 
 
;deaktivate
on 9:text:!botoff*:?: unset %bot | msg $nick bot off
on 9,8,7:text:!matchoff*:?: unset %match | msg $nick match aborted | msg $chan a match were aborted
 
;; access
on 9,8,7,6,5:text:+ca*:?: msg $nick Not able to $1 $2
on 9:text:+ma*:?: guser 8 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8:text:+op*:?: guser 7 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8,7:text:+vo*:?: guser 6 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8,7:text:+us*:?: guser 5 $2 | msg $2 You were $1 | msg $nick successfull granted $1
 
on 9,8,7,6,5:text:-ca*:?: msg $nick Not able to $1 $2
on 9:text:-ma*:?: ruser 8 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-op*:?: ruser 7 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8,7:text:-vo*:?: ruser 6 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8,7:text:-us*:?: ruser 5 $2 | msg $2 You were $1 | msg $nick successfull taked $1
 
on 9,8,7,6,5:text:-!ca*:?: msg $nick Not able to $1 $2
on 9:text:-!ma*:?: rlevel 8 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9:text:-!op*:?: rlevel 7 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-!vo*:?: rlevel 6 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-!us*:?: rlevel 5 $2 | msg $2 You were $1 | msg $nick successfull taked $1
 
on 9,8,7,6,5:text:+!ca*:?: msg $nick Not able to $1 $2
on 9:text:+!ma*:?: msg $nick Not able to $1 $2 {halt} glevel 8 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9:text:+!op*:?: msg $nick Not able to $1 $2 {halt} glevel 7 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9,8:text:+!vo*:?: msg $nick Not able to $1 $2 {halt} glevel 6 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9,8:text:+!us*:?: msg $nick Not able to $1 $2 {halt} glevel 5 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
 
;; Auto kickban
 
on 9:text:!akb*:#: {
  inc %akb [ $+ [ $nick ] ]
  notice $2 Your Count: %akb [ $+ [ $2 ] ] Dec time $timer(1).secs von 1800 sekunden | if (%akb [ $+ [ $2 ] ] >= 1) { timera 0 1800 { dec %akb [ $+ [ $2 ] ] } } { timera off }
  if (%akb [ $+ [ $nick ] ] == 1) { k $3 $2 | notice $2 warnkick }
  if (%akb [ $+ [ $nick ] ] == 2) { k $3 $2 | notice $2 2. warnkick }
  if (%akb [ $+ [ $nick ] ] == 3) { k $3 $2 | notice $2 last warnkick }
if (%akb [ $+ [ $nick ] ] >= 4) { mode $3 +b $2 | notice $2 permban } }
 
on 9,8,7,6,5:text:!akbstat*:#: {
notice $nick Your Count: %akb [ $+ [ $nick ] ] Dec time $timer(1).secs / 30 minutes }
 
;; Kickban
 
on 9,8,7:text:+k*:#: { /k $2 }
on 9,8:text:+b*:#: { /ban +k $2 }
 
;; Info
 
on 9,8,7,6,5:text:!info*:#: say $false
on 9,8,7,6,5:text:!help*:#: say $false
 
;; Fun
 
on 9,8,7,6,5:text:!break*:#: { 
  msg $chan Wir haben: 
  msg $chan Essen: !potatoes, !fish, !meat, !candy, !vegitarian
  msg $chan Trinken: !Limonade, !Alkohol
}
 
; !break
 
on 9,8,7,6,5:text:!potatoes*:#: { 
  msg $chan I think you like potatoes: !pommes, !rostpotatoes
}
 
on 9,8,7,6,5:text:!fish*:#: { 
  msg $chan oO i think you order i good meal: !karpfen or !lachs
}
 
on 9,8,7,6,5:text:!meat*:#: { 
  msg $chan Hmmm, i can offer you a some: !pizza, !chickenwings, !schnitzel
}
 
on 9,8,7,6,5:text:!candy*:#: { 
  msg $chan We have: !choclate, !bonbons, !ice, !gum and !chips
}
 
on 9,8,7,6,5:text:!vegitarian*:#: { 
  msg $chan You like it light, i can offer you: !tofu, !salad and a !soup
}
 
; !meals
 
on 9,8,7,6,5:text:!pommes*:#: { 
  /me like pommes, $nick come to me and eat with me
}
 
on 9,8,7,6,5:text:!rostpotatoes*:#: { 
  /me comes with a pan and slaps some cross potatoes in the air, $nick are very luky about his meal
}
 
on 9,8,7,6,5:text:!lachs*:#: { 
  /me bring some lachs to $nick he is loughing, im fisher :D
}
 
on 9,8,7,6,5:text:!karpfen*:#: { 
  /me think karpfen is a good fish and they look like $nick, $nick are angry and eat the fish than he slaps the pan at $me face *ahhhhhh*
}
 
on 9,8,7,6,5:text:!pizza*:#: { 
  /me take a light and cross pizza out of the backing box, have a good meal $nick
}
 
on 9,8,7,6,5:text:!chickenwings*:#: { 
  /me make today chickenwings and $nick will chickenkeul
}
 
on 9,8,7,6,5:text:!schnitzel*:#: { 
  /me likes good old schnitzels, $nick comes and eat the schnitzel away, the schnitzel think: "how i must go from one mouth to the other?"
}
 
on 9,8,7,6,5:text:!choclate*:#: { 
  /me brings $nick a choclate, o no the choclate is over 10 Yeahrs old, $nick don`t know and eat he is happy :)
}
 
on 9,8,7,6,5:text:!bonbons*:#: { 
  /me gives $nick a hand of bonbons
}
 
on 9,8,7,6,5:text:!gum*:#: { 
  /me know $nick like gum, $nick here for you
}
 
on 9,8,7,6,5:text:!ice*:#: { 
  /me says: It`s a very hot day in the savanna, you should eat som ice cream $me brings §nick an cold Ice
}
 
on 9,8,7,6,5:text:!chips*:#: { 
  /me goes to the supermarket and buy a pack chips, $me comes back to the restaurent, so there your chips, thats make 30 $ personal costs :)
}
 
on 9,8,7,6,5:text:!tofu*:#: { 
  /msg $chan sry we haven`t any tofu, the last truck lose it :(
}
 
on 9,8,7,6,5:text:!soup*:#: { 
  /me brings $nick a hot bonesoup, i think you like it in sibiria
}
 
on 9,8,7,6,5:text:!salad*:#: { 
  /me brings $nick a fresh and pikant salad
}
 
;; Matchbot
 
on 9,8,7,6:text:!match*:#: { 
  if (%match == on)  { 
    msg $chan Matchbot commands:
msg $chan Add Match: !add <game> <type> <IP> <PW> <maxPlayers> <Teamzahl> } }
 
on 9,8,7,6:text:!add*:#: { 
  if (%match == on) {
    set %mn $2
    set %mtyp $3
    set %mip $4
    set %mpw $5
    set %mpm $6 
    set %mt $7
set %leader $nick
set %mr on } }
 
on *:text:!join*:#: {
  if (%match == on) {
  if (%mr == on) {
    inc %mpc
    set %mp $addtok(%mp,$nick,44)
  msg $chan you have joined: %mp Spieler: %mpc / %mpm }
  if (%mpm != %mpc) { 
    msg $chan Game: %mn - Gametype: %mtyp - Spieler: %mp - Anzahl %mpc / %mpm Teams: %mt Leader %leader } {
    inc %cm
    msg $chan %mn $+ Match starting: 
    if (%mt == 1) {
    msg $chan %mt Game: %mn - Gametype: %mtyp - IP: %mip - PW: %mpw - Spieler: %mp - Teams: %mt set by %leader
    unset %mn
    unset %mtyp
    unset %mip
    unset %mpw
    unset %mp
    unset %mt 
    unset %mr
unset %leader
    } {
      timer %mt 10 | var %temp = $gettok(%mp,$rand(1,$numtok(%mp)),44) 
      set %mp $remtok(%mp,%temp,44)
      inc %ts
      dec %mpc
      if (%rt != on) { set %redc $addtok(%redc,%temp,44) | set %rt on | dec %mpc } 
      if (%bt != on) { set %bluec $addtok(%bluec,%temp,44) | set %bt on | dec %mpc  }
      if (%yt != on) { set %yellowc $addtok(%yellowc,%temp,44) | set %yt on | dec %mpc }
      if (%gt != on) { set %greenc $addtok(%greenc,%temp,44) | set %gt on | dec %mpc  } { set %mp $addtok(%mp,%temp,44) | inc mpc | msg $chan Maximum 4 Teams are allowed! }
      msg $chan Vote your Teammates, Voters:
      if (%rt == on) { msg $chan Red Team: %redc ! }
      if (%bt == on) { msg $chan Blue Team: %bluec }
      if (%yt == on) { msg $chan Yellow Team: %yellowc }
  if (%gt == on) { msg $chan Green Team: %greenc } } }
  if (%ts == mt) { 
    msg $chan here the list of players to pick: %mp
    msg $chan to add one to your Team with !pick <player>
    msg $chan Pick order: Red, Blue, Yellow, Green, Red, ... 
    msg $chan %mt Game: %mn - Gametype: %mtyp - IP: %mip - PW: %mpw - Spieler: %mp - Teams: %mt set by %leader
    set %pick on 
    set %order red
    msg $chan You have 30 sec to vote
    timerm 1 30 
    masg $chan random pickup started } } }
 
on *:text:!remove*:#: {
if ($nick isin %mp) { 
set %mp $remtok(%mp,$nick,44)
dec %mpc
msg $chan Game: %mn - Gametype: %mtyp - Spieler: %mp - Anzahl %mpc / %mpm Teams: %mt Leader: %leader } }
 
on *:text:!pick*:#: { 
  if (pick != on) { echo nicht on } {
    if ($2 isin %mp) { var temp = $gettok(%mp,$2,44) }
    if (%order == red) {
      if (%rt == on) { 
        if ($nick isin %redc) { 
          set %red $addtok(%red,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %redc,%red
    set %order blue } } { msg $chan No Teams } }
    elseif (%order == green) {
      if (%gt == on) { 
        if ($nick isin %bluec) { 
          set %blue $addtok(%blue,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %bluec,%blue
    set %order yellow } } { set %order red } }
    elseif (%order == yellow) {
      if (%yt == on) { 
        if ($nick isin %yellowc) { 
          set %yellow $addtok(%yellow,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %yellowc,%yellow
    set %order green } } { set %order red } } 
    elseif (%order == green) {
      if (%gt == on) { 
        if ($nick isin %greenc) { 
          set %green $addtok(%blue,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %greenc,%green
set %order red } } { set %order red } } } }
 

;;; MENU
 
menu channel {
  Auth
.EFC { msg Q@CServe.quakenet.org AUTH EFC xvbgf+Bm } }
 
 
;;; ON JOIN
 
on 1:JOIN:#: if (%bot == on) {
  msg $chan 14Channeladmin: 4EFC or En`forcer 14for my complete details 4!info
  if (%match == on) msg $chan Join now: 4!join
  guser 5 $nick
  mode $chan +v $nick
}
 
 
;;; ON TEXT
 
;; Bot Options
 
;activate
on 9:text:!boton*:?: set %bot on | msg $nick bot on
on 9,8,7:text:!matchon*:?: set %match on | msg $nick match started | msg $chan A match is starting: !join
 
;deaktivate
on 9:text:!botoff*:?: unset %bot | msg $nick bot off
on 9,8,7:text:!matchoff*:?: unset %match | msg $nick match aborted | msg $chan a match were aborted
 
;; access
on 9,8,7,6,5:text:+ca*:?: msg $nick Not able to $1 $2
on 9:text:+ma*:?: guser 8 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8:text:+op*:?: guser 7 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8,7:text:+vo*:?: guser 6 $2 | msg $2 You were $1 | msg $nick successfull granted $1
on 9,8,7:text:+us*:?: guser 5 $2 | msg $2 You were $1 | msg $nick successfull granted $1
 
on 9,8,7,6,5:text:-ca*:?: msg $nick Not able to $1 $2
on 9:text:-ma*:?: ruser 8 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-op*:?: ruser 7 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8,7:text:-vo*:?: ruser 6 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8,7:text:-us*:?: ruser 5 $2 | msg $2 You were $1 | msg $nick successfull taked $1
 
on 9,8,7,6,5:text:-!ca*:?: msg $nick Not able to $1 $2
on 9:text:-!ma*:?: rlevel 8 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9:text:-!op*:?: rlevel 7 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-!vo*:?: rlevel 6 $2 | msg $2 You were $1 | msg $nick successfull taked $1
on 9,8:text:-!us*:?: rlevel 5 $2 | msg $2 You were $1 | msg $nick successfull taked $1
 
on 9,8,7,6,5:text:+!ca*:?: msg $nick Not able to $1 $2
on 9:text:+!ma*:?: msg $nick Not able to $1 $2 {halt} glevel 8 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9:text:+!op*:?: msg $nick Not able to $1 $2 {halt} glevel 7 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9,8:text:+!vo*:?: msg $nick Not able to $1 $2 {halt} glevel 6 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
on 9,8:text:+!us*:?: msg $nick Not able to $1 $2 {halt} glevel 5 $2 | msg #EFC $nick Massgrant $1 | msg $nick successfull granted $1
 
;; Auto kickban
 
on 9:text:!akb*:#: {
  inc %akb [ $+ [ $nick ] ]
  notice $2 Your Count: %akb [ $+ [ $2 ] ] Dec time $timer(1).secs von 1800 sekunden | if (%akb [ $+ [ $2 ] ] >= 1) { timera 0 1800 { dec %akb [ $+ [ $2 ] ] } } { timera off }
  if (%akb [ $+ [ $nick ] ] == 1) { k $3 $2 | notice $2 warnkick }
  if (%akb [ $+ [ $nick ] ] == 2) { k $3 $2 | notice $2 2. warnkick }
  if (%akb [ $+ [ $nick ] ] == 3) { k $3 $2 | notice $2 last warnkick }
if (%akb [ $+ [ $nick ] ] >= 4) { mode $3 +b $2 | notice $2 permban } }
 
on 9,8,7,6,5:text:!akbstat*:#: {
notice $nick Your Count: %akb [ $+ [ $nick ] ] Dec time $timer(1).secs / 30 minutes }
 
;; Kickban
 
on 9,8,7:text:+k*:#: { /k $2 }
on 9,8:text:+b*:#: { /ban +k $2 }
 
;; Info
 
on 9,8,7,6,5:text:!info*:#: say $false
on 9,8,7,6,5:text:!help*:#: say $false
 
;; Fun
 
on 9,8,7,6,5:text:!break*:#: {
  msg $chan Wir haben:
  msg $chan Essen: !potatoes, !fish, !meat, !candy, !vegitarian
  msg $chan Trinken: !Limonade, !Alkohol
}
 
; !break
 
on 9,8,7,6,5:text:!potatoes*:#: {
  msg $chan I think you like potatoes: !pommes, !rostpotatoes
}
 
on 9,8,7,6,5:text:!fish*:#: {
  msg $chan oO i think you order i good meal: !karpfen or !lachs
}
 
on 9,8,7,6,5:text:!meat*:#: {
  msg $chan Hmmm, i can offer you a some: !pizza, !chickenwings, !schnitzel
}
 
on 9,8,7,6,5:text:!candy*:#: {
  msg $chan We have: !choclate, !bonbons, !ice, !gum and !chips
}
 
on 9,8,7,6,5:text:!vegitarian*:#: {
  msg $chan You like it light, i can offer you: !tofu, !salad and a !soup
}
 
; !meals
 
on 9,8,7,6,5:text:!pommes*:#: {
  /me like pommes, $nick come to me and eat with me
}
 
on 9,8,7,6,5:text:!rostpotatoes*:#: {
  /me comes with a pan and slaps some cross potatoes in the air, $nick are very luky about his meal
}
 
on 9,8,7,6,5:text:!lachs*:#: {
  /me bring some lachs to $nick he is loughing, im fisher :D
}
 
on 9,8,7,6,5:text:!karpfen*:#: {
  /me think karpfen is a good fish and they look like $nick, $nick are angry and eat the fish than he slaps the pan at $me face *ahhhhhh*
}
 
on 9,8,7,6,5:text:!pizza*:#: {
  /me take a light and cross pizza out of the backing box, have a good meal $nick
}
 
on 9,8,7,6,5:text:!chickenwings*:#: {
  /me make today chickenwings and $nick will chickenkeul
}
 
on 9,8,7,6,5:text:!schnitzel*:#: {
  /me likes good old schnitzels, $nick comes and eat the schnitzel away, the schnitzel think: "how i must go from one mouth to the other?"
}
 
on 9,8,7,6,5:text:!choclate*:#: {
  /me brings $nick a choclate, o no the choclate is over 10 Yeahrs old, $nick don`t know and eat he is happy :)
}
 
on 9,8,7,6,5:text:!bonbons*:#: {
  /me gives $nick a hand of bonbons
}
 
on 9,8,7,6,5:text:!gum*:#: {
  /me know $nick like gum, $nick here for you
}
 
on 9,8,7,6,5:text:!ice*:#: {
  /me says: It`s a very hot day in the savanna, you should eat som ice cream $me brings §nick an cold Ice
}
 
on 9,8,7,6,5:text:!chips*:#: {
  /me goes to the supermarket and buy a pack chips, $me comes back to the restaurent, so there your chips, thats make 30 $ personal costs :)
}
 
on 9,8,7,6,5:text:!tofu*:#: {
  /msg $chan sry we haven`t any tofu, the last truck lose it :(
}
 
on 9,8,7,6,5:text:!soup*:#: {
  /me brings $nick a hot bonesoup, i think you like it in sibiria
}
 
on 9,8,7,6,5:text:!salad*:#: {
  /me brings $nick a fresh and pikant salad
}
 
;; Matchbot
 
on 9,8,7,6:text:!match*:#: {
  if (%match == on)  {
    msg $chan Matchbot commands:
msg $chan Add Match: !add <game> <type> <IP> <PW> <maxPlayers> <Teamzahl> } }
 
on 9,8,7,6:text:!add*:#: {
  if (%match == on) {
    set %mn $2
    set %mtyp $3
    set %mip $4
    set %mpw $5
    set %mpm $6
    set %mt $7
    set %leader $nick
set %mr on } }
 
on *:text:!join*:#: {
  if (%match == on) {
    if (%mr == on) {
      inc %mpc
      set %mp $addtok(%mp,$nick,44)
    msg $chan you have joined: %mp Spieler: %mpc / %mpm }
    if (%mpm != %mpc) {
      msg $chan Game: %mn - Gametype: %mtyp - Spieler: %mp - Anzahl %mpc / %mpm Teams: %mt Leader %leader } {
      inc %cm
      msg $chan %mn $+ Match starting:
      if (%mt == 1) {
        msg $chan %mt Game: %mn - Gametype: %mtyp - IP: %mip - PW: %mpw - Spieler: %mp - Teams: %mt set by %leader
        unset %mn
        unset %mtyp
        unset %mip
        unset %mpw
        unset %mp
        unset %mt
        unset %mr
        unset %leader
        } {
        timer %mt 10 | var %temp = $gettok(%mp,$rand(1,$numtok(%mp)),44)
        set %mp $remtok(%mp,%temp,44)
        inc %ts
        dec %mpc
        if (%rt != on) { set %redc $addtok(%redc,%temp,44) | set %rt on | dec %mpc }
        if (%bt != on) { set %bluec $addtok(%bluec,%temp,44) | set %bt on | dec %mpc  }
        if (%yt != on) { set %yellowc $addtok(%yellowc,%temp,44) | set %yt on | dec %mpc }
        if (%gt != on) { set %greenc $addtok(%greenc,%temp,44) | set %gt on | dec %mpc  } { set %mp $addtok(%mp,%temp,44) | inc mpc | msg $chan Maximum 4 Teams are allowed! }
        msg $chan Vote your Teammates, Voters:
        if (%rt == on) { msg $chan Red Team: %redc ! }
        if (%bt == on) { msg $chan Blue Team: %bluec }
        if (%yt == on) { msg $chan Yellow Team: %yellowc }
    if (%gt == on) { msg $chan Green Team: %greenc } } }
    if (%ts == mt) {
      msg $chan here the list of players to pick: %mp
      msg $chan to add one to your Team with !pick <player>
      msg $chan Pick order: Red, Blue, Yellow, Green, Red, ...
      msg $chan %mt Game: %mn - Gametype: %mtyp - IP: %mip - PW: %mpw - Spieler: %mp - Teams: %mt set by %leader
      set %pick on
      set %order red
      msg $chan You have 30 sec to vote
      timerm 1 30
masg $chan random pickup started } } }
 
on *:text:!remove*:#: {
  if ($nick isin %mp) {
    set %mp $remtok(%mp,$nick,44)
    dec %mpc
msg $chan Game: %mn - Gametype: %mtyp - Spieler: %mp - Anzahl %mpc / %mpm Teams: %mt Leader: %leader } }
 
on *:text:!pick*:#: {
  if (pick != on) { echo nicht on } {
    if ($2 isin %mp) { var temp = $gettok(%mp,$2,44) }
    if (%order == red) {
      if (%rt == on) {
        if ($nick isin %redc) {
          set %red $addtok(%red,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %redc,%red
    set %order blue } } { msg $chan No Teams } }
    elseif (%order == green) {
      if (%gt == on) {
        if ($nick isin %bluec) {
          set %blue $addtok(%blue,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %bluec,%blue
    set %order yellow } } { set %order red } }
    elseif (%order == yellow) {
      if (%yt == on) {
        if ($nick isin %yellowc) {
          set %yellow $addtok(%yellow,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %yellowc,%yellow
    set %order green } } { set %order red } }
    elseif (%order == green) {
      if (%gt == on) {
        if ($nick isin %greenc) {
          set %green $addtok(%blue,$2,44)
          set %mp $remtok(%mp,$2,44)
          dec %mpc
          msg $chan Red Team: %greenc,%green
set %order red } } { set %order red } } } }