Id: 10308; Nick: En`forcer; Timestamp: 2008-05-10 22:36:00; Pasted as: mIRC
Description: n/a 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

;; 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 } } } }
 
Parsed for bracket errors and indented: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

;; 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 } } } }
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)