Id: 9815; Nick: Albie; Timestamp: 2008-04-27 12:37:04; 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

dialog cc {
  title "Channel Central (/th.cc)"
  size -1 -1 178 228
  option dbu
  tab "Channel Modes", 1, 0 0 177 177
  box "General Information", 4, 2 16 174 58, tab 1
  box "Default channel modes", 5, 2 80 74 96, tab 1
  text "Active Channel", 6, 5 25 39 8, tab 1
  edit "", 7, 46 24 128 10, tab 1 read
  text "Active Network", 8, 6 36 39 8, tab 1
  edit "", 9, 46 35 128 10, tab 1 read
  text "Current Modes", 10, 6 48 39 8, tab 1
  edit "", 11, 46 47 128 10, tab 1 read
  check "Limit to", 12, 4 88 30 10, tab 1
  edit "", 13, 33 88 40 10, tab 1 read
  check "Key", 14, 4 99 30 10, tab 1
  edit "", 15, 33 100 40 10, tab 1 read
  check "Only ops set topic", 16, 4 111 60 10, tab 1
  check "No external messages", 17, 4 120 70 10, tab 1
  check "Invite Only", 18, 4 129 50 10, tab 1
  check "Moderated", 19, 4 138 50 10, tab 1
  check "Private", 20, 4 148 50 10, tab 1
  check "Secret", 21, 4 158 50 10, tab 1
  box "Other Channel modes", 22, 84 80 64 96, tab 1
  check "+D", 24, 86 95 50 10, tab 1
  check "+d", 25, 86 104 50 10, tab 1
  check "+u", 26, 86 113 50 10, tab 1
  check "+c", 27, 86 122 50 10, tab 1
  check "+C", 28, 86 131 50 10, tab 1
  check "+N", 29, 86 140 50 10, tab 1
  check "+M", 30, 86 149 50 10, tab 1
  check "+T", 31, 86 158 50 10, tab 1
  check "+r", 32, 86 86 20 10, tab 1
  tab "Bans", 2
  tab "Topic", 3
  icon 23, 2 193 173 31
  button "OK", 33, 101 179 37 12, ok
  button "Cancel", 34, 140 179 37 12, cancel
}
 
on *:dialog:cc:init:*:{ 
  /did -ra cc 7 $active ( $+ $nick($active,0) Users)
  /did -ra cc 9 $iif($network,$network ( $+ $server $+ ),$server)
  /did -ra cc 11 $chan($active).mode
  if ($chan($active).limit != $null) { 
    echo -ag Setting channel limit.
    did -c cc 12 
    did -arn cc 13 $chan($active).limit 
  } 
  if ($chan($active).key != $null) { 
    echo -ag Setting Key.
    did -c cc 14 
    did -arn cc 15 $chan($active).key 
  }
  if ($chr(116) isin $chan($active).mode) { 
    echo -ag Adding $v1
    did -c cc 16 
  }
  if ($chr(110) isin $chan($active).mode) { 
    echo -ag Adding $v1
    did -c cc 17 
  }
  if ($chr(105) isin $chan($active).mode) { 
    echo -ag Adding $v1
    did -c cc 18 
  }
  if ($chr(109) isin $chan($active).mode) { 
  	echo -ag Adding $v1
    did -c cc 19 
  }
  if ($chr(112) isin $chan($active).mode) { 
    echo -ag Adding $v1
    did -c cc 20 
  }
  if ($chr(115) isin $chan($active).mode) { 
  	echo -ag Adding $v1
    did -c cc 21 
  }
}
 
 
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

dialog cc {
  title "Channel Central (/th.cc)"
  size -1 -1 178 228
  option dbu
  tab "Channel Modes", 1, 0 0 177 177
  box "General Information", 4, 2 16 174 58, tab 1
  box "Default channel modes", 5, 2 80 74 96, tab 1
  text "Active Channel", 6, 5 25 39 8, tab 1
  edit "", 7, 46 24 128 10, tab 1 read
  text "Active Network", 8, 6 36 39 8, tab 1
  edit "", 9, 46 35 128 10, tab 1 read
  text "Current Modes", 10, 6 48 39 8, tab 1
  edit "", 11, 46 47 128 10, tab 1 read
  check "Limit to", 12, 4 88 30 10, tab 1
  edit "", 13, 33 88 40 10, tab 1 read
  check "Key", 14, 4 99 30 10, tab 1
  edit "", 15, 33 100 40 10, tab 1 read
  check "Only ops set topic", 16, 4 111 60 10, tab 1
  check "No external messages", 17, 4 120 70 10, tab 1
  check "Invite Only", 18, 4 129 50 10, tab 1
  check "Moderated", 19, 4 138 50 10, tab 1
  check "Private", 20, 4 148 50 10, tab 1
  check "Secret", 21, 4 158 50 10, tab 1
  box "Other Channel modes", 22, 84 80 64 96, tab 1
  check "+D", 24, 86 95 50 10, tab 1
  check "+d", 25, 86 104 50 10, tab 1
  check "+u", 26, 86 113 50 10, tab 1
  check "+c", 27, 86 122 50 10, tab 1
  check "+C", 28, 86 131 50 10, tab 1
  check "+N", 29, 86 140 50 10, tab 1
  check "+M", 30, 86 149 50 10, tab 1
  check "+T", 31, 86 158 50 10, tab 1
  check "+r", 32, 86 86 20 10, tab 1
  tab "Bans", 2
  tab "Topic", 3
  icon 23, 2 193 173 31
  button "OK", 33, 101 179 37 12, ok
  button "Cancel", 34, 140 179 37 12, cancel
}
 
on *:dialog:cc:init:*:{
  /did -ra cc 7 $active ( $+ $nick($active,0) Users)
  /did -ra cc 9 $iif($network,$network ( $+ $server $+ ),$server)
  /did -ra cc 11 $chan($active).mode
  if ($chan($active).limit != $null) {
    echo -ag Setting channel limit.
    did -c cc 12
    did -arn cc 13 $chan($active).limit
  }
  if ($chan($active).key != $null) {
    echo -ag Setting Key.
    did -c cc 14
    did -arn cc 15 $chan($active).key
  }
  if ($chr(116) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 16
  }
  if ($chr(110) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 17
  }
  if ($chr(105) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 18
  }
  if ($chr(109) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 19
  }
  if ($chr(112) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 20
  }
  if ($chr(115) isin $chan($active).mode) {
    echo -ag Adding $v1
    did -c cc 21
  }
}
 
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)