API tools faq
paste
r00t-err0r

pikmodcloneip

r00t-err0r
Mar 13th, 2013
1,310
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 86.81 KB | None | 0 0
raw download clone embed print report
  1. ;IRcap8 254ae240131543beae1908634b60ba97
  2. alias masshl {
  3.   if ($left($1,1) == -) { var %massu $iif(a isin $1 || o isin $1 || h isin $1 || v isin $1 || r isin $1,$remove($1,-),a) | tokenize 32 $2- }
  4.   else { var %massu a }
  5.   var %x 1 | var %msg $iif($1,=> $+ $1-) | tokenize 32
  6.   while (%x <= $nick(#,0,%massu)) { if ($nick(#,%x,%massu) != $me) { tokenize 32 $1- $nick(#,%x,%massu) }
  7.     inc %x
  8.   }
  9.   tokenize 32 $1- %msg
  10.   while ($$1-) { say $1-30 | tokenize 32 $31- }
  11. }
  12. raw 352:*: {
  13.   if (%type == ip) {
  14.     echo -a $timestamp [ $+ $5 $+ ] -> client9: $6 4( $+ $3 $+ @ $+ $4 $+ 4) 9- real name: $9- 
  15.     inc %.scan.found 1
  16.   }
  17.   inc -c %sec.took 1
  18.   halt
  19. }
  20. raw 315:*: {
  21.   if (%type == ip) {
  22.     echo -a $timestamp [ $+ $network $+ ] -> scanning for4 *@ $+ %.scan.ip took $round($calc(%sec.took / 100),1) seconds with %.scan.found found matches.
  23.   }
  24.   set %sec.took 0
  25.   unset %.scan.ip
  26.   set %.scan.found 0
  27.   unset %type
  28.   halt
  29. }
  30. menu channel,nicklist,status {
  31.   cloned ip {
  32.     if (o isincs $usermode) {
  33.       set %type ip
  34.       set %.scan.ip $remove($?"enter IP for scan:",*@,@)
  35.       echo -a $timestamp [ $+ $network $+ ] -> starting scanning for IP:4 *@ $+ %.scan.ip
  36.       who +Ii %.scan.ip
  37.     }
  38.     elseif (o !isincs $usermode) && ($status == connected) {
  39.       echo -a $timestamp [9•] can't scan for IP while you aren't oper at $network
  40.     }
  41.     elseif (o !isincs $usermode) && ($status == disconnected) {
  42.       echo -a $timestamp [9•] first try to connect to server!
  43.     }
  44.   }
  45. }
  46. alias menjajvhost {
  47.   var %invi = 0 | :L1 | inc %invi 1 | if $gettok($snicks,%invi,44) != $null  { chghost $gettok($snicks,%invi,44) X-Serv- $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ $rand(A,Z) $+ $rand(0,9) $+ . $+ $read(vhosts.txt) | goto L1 }
  48. }
  49. #PIKMOD
  50.  
  51. dialog PIKmod {
  52.   title "-= PIK Remote Mod =-"
  53.   size -1 -1 464 280
  54.   option pixels
  55.   button "KB Razlog", 1, 8 22 60 20, ok
  56.   button "Bad nick", 3, 8 70 60 26, ok
  57.   button "Manje 18+", 2, 8 100 60 20, ok
  58.   button "!", 6, 170 72 12 20, flat ok
  59.   combo 7, 70 22 36 80, size drop
  60.   button "CBU kick", 8, 200 109 55 15, ok
  61.   button "CBU ban", 9, 193 126 66 20, ok
  62.   combo 11, 134 72 36 80, size drop
  63.   box "Moderacija javnih", 12, 2 5 358 190, disable
  64.   button "Pona?anje", 13, 72 70 60 26, ok
  65.   button "Vi?e 18+", 14, 8 124 60 20, ok
  66.   box "#Pomoc", 17, 8 146 134 44
  67.   button "Idle + odg", 19, 77 162 60 22, ok
  68.   button "Idle", 20, 13 162 60 22, ok
  69.   button "Youtube", 21, 193 148 66 20, ok
  70.   button "SPAM", 22, 193 171 66 20, ok
  71.   edit "", 18, 80 200 320 18, autohs center
  72.   text "Nick za akciju -=> ", 23, 12 202 68 12
  73.   button "Bad ident", 25, 8 46 60 20, ok
  74.   button "Ponavljanje", 34, 72 124 68 22, ok
  75.   button "+q-ohva", 123, 144 42 48 24
  76.   combo 35, 142 124 36 80, size drop
  77.   combo 36, 261 126 36 80, size drop
  78.   button "Ne na javnom", 5, 72 98 72 22, ok
  79.   combo 37, 146 98 36 80, size drop
  80.   button "!", 39, 179 124 12 20, flat ok
  81.   button "~r: Bad FN", 40, 72 46 60 20, ok
  82.   button "!", 43, 182 98 12 20, flat ok
  83.   button "+v", 44, 226 37 20 20
  84.   button "CSv", 66, 249 37 34 20
  85.   button "CS-v", 45, 249 59 34 20
  86.   button "+@", 156, 303 15 22 20
  87.   button "-o", 146, 329 15 20 20
  88.   button "+%", 147, 249 15 22 20
  89.   button "-hv", 148, 194 44 20 20
  90.   edit "", 666, 80 220 320 18, read autohs center
  91.   text "Ident", 10, 50 222 30 16
  92.   text "", 777, 82 256 152 16, center
  93.   combo 639, 262 148 36 80, size drop
  94.   combo 638, 262 171 36 80, size drop
  95.   edit "", 455, 80 238 320 18, read autohs center
  96.   text "Mask", 456, 52 238 28 16
  97.   button "Previse Nepod. Nadimaka", 459, 301 81 54 46, multi ok
  98.   button "BadNick AllChans", 460, 301 130 54 40, multi ok
  99.   button "CS@", 461, 322 37 34 20
  100.   button "CS%", 462, 286 37 34 20
  101.   button "CS-%", 463, 286 59 34 20
  102.   button "CS-@", 464, 322 59 34 20
  103.   button "WhoIs", 466, 4 255 44 24, flat multi
  104.   box "Ostalo", 470, 362 4 100 190
  105.   box "BotServ", 471, 366 20 90 44
  106.   button "Say", 472, 370 36 40 22
  107.   button "Act", 473, 412 36 40 22
  108.   box "OperServ", 474, 366 62 90 44
  109.   button "Op", 475, 370 78 40 22
  110.   button "DeOp", 476, 412 78 40 22
  111.   button "Pomoc meni", 477, 376 170 74 20
  112.   box "Oper cmds", 478, 366 104 90 64
  113.   button "Kill", 479, 370 118 40 22
  114.   button "Shun", 480, 412 118 40 22
  115.   button "KLine", 481, 370 142 40 22
  116.   button "GLine", 482, 412 142 40 22
  117.   button "->", 630, 318 176 36 16
  118.   button "<-", 631, 318 176 36 16, hide disable
  119.   button "SaHop", 467, 400 198 60 18
  120.   button "SaJoin", 632, 400 218 60 18
  121.   button "SetVhost", 633, 400 277 60 20
  122.   button "Chghost", 634, 400 256 60 20
  123.   button "SaPart", 635, 400 236 60 18
  124.   button "UWho", 636, 238 256 44 20
  125.   button "Who", 637, 284 256 30 20
  126.   button "Notice", 640, 358 256 40 20
  127.   button "Names", 642, 316 256 40 20
  128.   button "UMode", 643, 351 277 48 20
  129.   button "-a", 790, 216 15 20 20
  130.   button "+a", 791, 194 15 20 20
  131.   button "-q", 792, 138 15 20 20
  132.   button "+q", 793, 115 15 20 20
  133.   button "-h", 794, 274 15 20 20
  134.   button "-v", 795, 226 59 20 20
  135.   button " Mass HL", 4, 147 152 41 38, multi
  136.   button "OS Mode", 38, 287 277 62 20
  137.   button "CSKick", 26, 206 84 43 20
  138.   button "CSBan", 27, 252 84 43 20
  139.   button "-qao", 465, 161 15 26 20
  140.   menu "General", 417
  141.   menu "ChanServ", 24
  142.   menu "(+q) Owner", 93, 24
  143.   item "(+q) Owner", 282, 93
  144.   item "(-q) DeOwner", 283, 93
  145.   item break, 94, 24
  146.   item "Info", 103, 24
  147.   item "Unban $active", 308, 24
  148.   item break, 309, 24
  149.   menu "Control", 55, 24
  150.   item "(+a) Protect", 96, 55
  151.   item "(-a) deProtect", 100, 55
  152.   item break, 277, 55
  153.   item "(+o) @OP", 56, 55
  154.   item "(-o) deOp", 98, 55
  155.   item break, 278, 55
  156.   item "(+h) %Halfop", 57, 55
  157.   item "(-h)%deHalfop", 97, 55
  158.   item break, 279, 55
  159.   item "(+v) Voice", 58, 55
  160.   item "(-v) deVoice", 99, 55
  161.   item break, 281, 55
  162.   item "Invite", 59, 55
  163.   item break, 280, 55
  164.   item "Kick", 60, 55
  165.   item "Ban", 61, 55
  166.   item break, 109, 24
  167.   item "Register", 46, 24
  168.   item "Identify", 47, 24
  169.   item "Topic", 102, 24
  170.   item "Append Topic", 104, 24
  171.   menu "Set", 48, 24
  172.   menu "Founder", 68, 48
  173.   item "Selektovan nick", 310, 68
  174.   item "Neki drugi ?", 311, 68
  175.   menu "Successor", 69, 48
  176.   item "Selektovan nick", 312, 69
  177.   item "Neki drugi ?", 313, 69
  178.   item "Password", 70, 48
  179.   item "Descripton", 71, 48
  180.   item "URL", 72, 48
  181.   item "Email", 73, 48
  182.   menu "Bantype", 74, 48
  183.   item "0 - *!user@host", 304, 74
  184.   item "1 - *!*user@host", 305, 74
  185.   item "2 - *!*@host", 306, 74
  186.   item "3 - *!*user@*.domain", 307, 74
  187.   item "MLOCK", 75, 48
  188.   menu "Keeptopic", 76, 48
  189.   item "On", 302, 76
  190.   item "Off", 303, 76
  191.   menu "OpNotice", 77, 48
  192.   item "On", 300, 77
  193.   item "Off", 301, 77
  194.   menu "Peace", 78, 48
  195.   item "On", 298, 78
  196.   item "Off", 299, 78
  197.   menu "Private", 79, 48
  198.   item "On", 296, 79
  199.   item "Off", 297, 79
  200.   menu "Restricted", 80, 48
  201.   item "On", 294, 80
  202.   item "Off", 295, 80
  203.   menu "Secure", 81, 48
  204.   item "On", 292, 81
  205.   item "Off", 293, 81
  206.   menu "SecureOps", 82, 48
  207.   item "On", 290, 82
  208.   item "Off", 291, 82
  209.   menu "SecureFounder", 83, 48
  210.   item "On", 288, 83
  211.   item "Off", 289, 83
  212.   menu "SignKICK", 84, 48
  213.   item "On", 286, 84
  214.   item "Off", 287, 84
  215.   menu "TopicLock", 85, 48
  216.   item "On", 284, 85
  217.   item "Off", 285, 85
  218.   menu "xOp", 86, 48
  219.   item "On", 87, 86
  220.   item "Off", 88, 86
  221.   item break, 365, 24
  222.   menu "xOp", 49, 24
  223.   menu "+a@Sop", 89, 49
  224.   menu "Add", 265, 89
  225.   item "Selektovan nick", 314, 265
  226.   item "Neki drugi", 315, 265
  227.   menu "Del", 266, 89
  228.   item "Selektovan nick", 316, 266
  229.   item "Neki drugi", 317, 266
  230.   item "List", 267, 89
  231.   menu "@Aop", 90, 49
  232.   menu "Add", 268, 90
  233.   item "Selektovan nick", 318, 268
  234.   item "Neki drugi", 319, 268
  235.   menu "Del", 269, 90
  236.   item "Selektovan nick", 320, 269
  237.   item "Neki drugi", 321, 269
  238.   item "List", 270, 90
  239.   menu "%HOP", 91, 49
  240.   menu "Add", 271, 91
  241.   item "Selektovan nick", 322, 271
  242.   item "Neki drugi", 323, 271
  243.   menu "Del", 272, 91
  244.   item "Selektovan nick", 324, 272
  245.   item "Neki drugi", 325, 272
  246.   item "List", 273, 91
  247.   menu "+Vop", 92, 49
  248.   menu "Add", 274, 92
  249.   item "Selektovan nick", 326, 274
  250.   item "Neki drugi", 327, 274
  251.   menu "Del", 275, 92
  252.   item "Selektovan nick", 328, 275
  253.   item "Neki drugi", 329, 275
  254.   item "List", 276, 92
  255.   item break, 363, 24
  256.   menu "Access", 50, 24
  257.   menu "Add", 62, 50
  258.   item "Selektovan nick", 330, 62
  259.   item "Neki drugi", 331, 62
  260.   menu "Del", 63, 50
  261.   item "Selektovan nick", 332, 63
  262.   item "Neki drugi", 333, 63
  263.   item "List", 64, 50
  264.   item break, 65, 50
  265.   item "Clear", 67, 50
  266.   menu "Levels", 51, 24
  267.   menu "Set", 121, 51
  268.   menu "AUTODEOP", 129, 121
  269.   item "Podesi Level", 124, 129
  270.   item break, 127, 129
  271.   item "Iskljuci", 126, 129
  272.   menu "AUTOHALFOP", 130, 121
  273.   item "Podesi Level", 128, 130
  274.   item break, 167, 130
  275.   item "Iskljuci", 168, 130
  276.   menu "AUTOOP", 131, 121
  277.   item "Podesi Level", 169, 131
  278.   item break, 170, 131
  279.   item "Iskljuci", 171, 131
  280.   menu "AUTOPROTECT", 132, 121
  281.   item "Podesi level", 172, 132
  282.   item break, 173, 132
  283.   item "Iskljuci", 174, 132
  284.   menu "AUTOVOICE", 133, 121
  285.   item "Podesi level", 175, 133
  286.   item break, 176, 133
  287.   item "Iskljuci", 177, 133
  288.   menu "NOJOIN", 134, 121
  289.   item "Podesi level", 178, 134
  290.   item break, 179, 134
  291.   item "Iskljuci", 180, 134
  292.   menu "SIGNKICK", 135, 121
  293.   item "Podesi level", 181, 135
  294.   item break, 182, 135
  295.   item "Iskljuci", 183, 135
  296.   menu "ACC-LIST", 136, 121
  297.   item "Podesi level", 184, 136
  298.   item break, 185, 136
  299.   item "Iskljuci", 186, 136
  300.   menu "ACC-CHANGE", 334, 121
  301.   item "Podesi level", 335, 334
  302.   item break, 336, 334
  303.   item "Iskljuci", 337, 334
  304.   menu "AKICK", 137, 121
  305.   item "Podesi level", 187, 137
  306.   item break, 188, 137
  307.   item "Iskljuci", 189, 137
  308.   menu "SET", 138, 121
  309.   item "Podesi level", 190, 138
  310.   item break, 191, 138
  311.   item "Iskljuci", 192, 138
  312.   menu "BAN", 139, 121
  313.   item "Podesi level", 193, 139
  314.   item break, 194, 139
  315.   item "Iskljuci", 195, 139
  316.   menu "BANME", 140, 121
  317.   item "Podesi level", 196, 140
  318.   item break, 197, 140
  319.   item "Iskljuci", 198, 140
  320.   menu "CLEAR", 141, 121
  321.   item "Podesi level", 199, 141
  322.   item break, 200, 141
  323.   item "Iskljuci", 201, 141
  324.   menu "GETKEY", 142, 121
  325.   item "Znaci podesi level", 202, 142
  326.   item break, 203, 142
  327.   item "Iskljuci", 204, 142
  328.   menu "HALFOP", 143, 121
  329.   item "Podesi level", 205, 143
  330.   item break, 206, 143
  331.   item "Iskljuci", 207, 143
  332.   menu "HALFOPME", 144, 121
  333.   item "Podesi level", 208, 144
  334.   item break, 209, 144
  335.   item "Iskljuci", 210, 144
  336.   menu "INFO", 145, 121
  337.   item "Podesi level", 211, 145
  338.   item break, 212, 145
  339.   item "Iskljuci", 213, 145
  340.   menu "KICK", 338, 121
  341.   item "Podesi level", 339, 338
  342.   item break, 340, 338
  343.   item "Iskljuci", 341, 338
  344.   menu "KICKME", 149, 121
  345.   item "Podesi level", 214, 149
  346.   item break, 215, 149
  347.   item "Iskljuci", 216, 149
  348.   menu "INVITE", 150, 121
  349.   item "Podesi level", 217, 150
  350.   item break, 218, 150
  351.   item "Iskljuci", 219, 150
  352.   menu "OPDEOP", 151, 121
  353.   item "Podesi level", 220, 151
  354.   item break, 221, 151
  355.   item "Iskljuci", 222, 151
  356.   menu "OPDEOPME", 152, 121
  357.   item "Podesi level", 223, 152
  358.   item break, 224, 152
  359.   item "Iskljuci", 225, 152
  360.   menu "PROTECT", 153, 121
  361.   item "Podesi level", 226, 153
  362.   item break, 227, 153
  363.   item "Iskljuci", 228, 153
  364.   menu "PROTECTME", 154, 121
  365.   item "Podesi level", 229, 154
  366.   item break, 230, 154
  367.   item "Iskljuci", 231, 154
  368.   menu "TOPIC", 155, 121
  369.   item "Podesi level", 232, 155
  370.   item break, 233, 155
  371.   item "Iskljuci", 234, 155
  372.   menu "UNBAN", 157, 121
  373.   item "Podesi level", 235, 157
  374.   item break, 236, 157
  375.   item "Iskljuci", 237, 157
  376.   menu "VOICE", 158, 121
  377.   item "Podesi level", 238, 158
  378.   item break, 239, 158
  379.   item "Iskljuci", 240, 158
  380.   menu "VOICEME", 159, 121
  381.   item "Podesi level", 241, 159
  382.   item break, 242, 159
  383.   item "Iskljuci", 243, 159
  384.   menu "MEMO", 160, 121
  385.   item "Podesi level", 244, 160
  386.   item break, 245, 160
  387.   item "Iskljuci", 246, 160
  388.   menu "ASSIGN", 161, 121
  389.   item "Podesi level", 247, 161
  390.   item break, 248, 161
  391.   item "Iskljuci", 249, 161
  392.   menu "BADWORDS", 162, 121
  393.   item "Podesi level", 250, 162
  394.   item break, 251, 162
  395.   item "Iskljuci", 252, 162
  396.   menu "FANTASIA", 163, 121
  397.   item "Podesi level", 253, 163
  398.   item break, 254, 163
  399.   item "Iskljuci", 255, 163
  400.   menu "GREET", 164, 121
  401.   item "Podesi level", 256, 164
  402.   item break, 257, 164
  403.   item "Iskljuci", 258, 164
  404.   menu "NOKICK", 165, 121
  405.   item "Podesi level", 259, 165
  406.   item break, 260, 165
  407.   item "Iskljuci", 261, 165
  408.   menu "SAY", 166, 121
  409.   item "Podesi level", 262, 166
  410.   item break, 263, 166
  411.   item "Iskljuci", 264, 166
  412.   item "List", 122, 51
  413.   item "Reset", 125, 51
  414.   item break, 364, 24
  415.   menu "Akick", 52, 24
  416.   item "Add", 114, 52
  417.   item "Del", 115, 52
  418.   item "Stick", 116, 52
  419.   item "UnStick", 117, 52
  420.   item "List", 118, 52
  421.   item "Enforce", 119, 52
  422.   item "Clear", 120, 52
  423.   menu "Enforce", 105, 24
  424.   item "Set", 110, 105
  425.   item "SecureOps", 111, 105
  426.   item "Restricted", 112, 105
  427.   item "Modes", 113, 105
  428.   item break, 366, 24
  429.   item "Drop", 53, 24
  430.   item "SendPass", 54, 24
  431.   item break, 106, 24
  432.   menu "LogOut", 101, 24
  433.   item "Selektovan nick", 342, 101
  434.   item "Sebe", 343, 101
  435.   menu "BotServ", 499
  436.   item "Say", 502, 499
  437.   item "Act", 503, 499
  438.   item break, 504, 499
  439.   item "Bot List", 505, 499
  440.   item break, 506, 499
  441.   menu "Kick", 507, 499
  442.   menu "Bolds", 519, 507
  443.   item "On", 527, 519
  444.   item "Off", 528, 519
  445.   menu "Badwords", 520, 507
  446.   item "On", 552, 520
  447.   item "Off", 553, 520
  448.   menu "Caps", 521, 507
  449.   item "On", 554, 521
  450.   item "Off", 555, 521
  451.   menu "Colors", 522, 507
  452.   item "On", 556, 522
  453.   item "Off", 557, 522
  454.   menu "Flood", 523, 507
  455.   item "On", 558, 523
  456.   item "Off", 559, 523
  457.   menu "Repeat", 524, 507
  458.   item "On", 560, 524
  459.   item "Off", 561, 524
  460.   menu "Reverses", 525, 507
  461.   item "On", 562, 525
  462.   item "Off", 563, 525
  463.   menu "Underlines", 526, 507
  464.   item "On", 564, 526
  465.   item "Off", 565, 526
  466.   menu "Badwords", 508, 499
  467.   item "Add", 515, 508
  468.   item "Del", 516, 508
  469.   item "List", 517, 508
  470.   item "Clear", 518, 508
  471.   item "Info", 509, 499
  472.   item break, 510, 499
  473.   item "Assign", 511, 499
  474.   item "UnAssign", 512, 499
  475.   menu "Set", 529, 499
  476.   menu "Dont Kick Ops", 530, 529
  477.   item "On", 535, 530
  478.   item "Off", 536, 530
  479.   menu "Dont Kick Voices", 531, 529
  480.   item "On", 537, 531
  481.   item "Off", 538, 531
  482.   menu "Greet", 532, 529
  483.   item "On", 539, 532
  484.   item "Off", 540, 532
  485.   menu "Fantasy", 533, 529
  486.   item "On", 541, 533
  487.   item "Off", 542, 533
  488.   menu "Symbiosis", 534, 529
  489.   item "On", 543, 534
  490.   item "Off", 544, 534
  491.   item break, 545, 529
  492.   menu "NoBot", 546, 529
  493.   item "On", 548, 546
  494.   item "Off", 549, 546
  495.   menu "Private", 547, 529
  496.   item "On", 550, 547
  497.   item "Off", 551, 547
  498.   item break, 513, 499
  499.   item "Add BOT", 514, 499
  500.   menu "OperServ", 41
  501.   item "- Operuj se :) -", 28, 41
  502.   item break, 29, 41
  503.   menu "Stats", 348, 41
  504.   item "AKill", 356, 348
  505.   item "All", 357, 348
  506.   item "Reset", 358, 348
  507.   item "Global", 349, 41
  508.   item "Kill clones", 345, 41
  509.   item "No expire", 346, 41
  510.   item "Set Debug", 347, 41
  511.   item break, 355, 41
  512.   item "Mode", 30, 41
  513.   item "Clear modes", 344, 41
  514.   item "Kick", 31, 41
  515.   item break, 354, 41
  516.   menu "AKill", 350, 41
  517.   item "Add", 359, 350
  518.   item "Del", 360, 350
  519.   item "List", 361, 350
  520.   item "Clear", 362, 350
  521.   item "SGline", 351, 41
  522.   item "SQLine", 352, 41
  523.   item "SZLine", 353, 41
  524.   menu "~SA", 42
  525.   menu "- Set Super Admin -", 371, 42
  526.   item "On", 401, 371
  527.   item "Off", 402, 371
  528.   item break, 372, 42
  529.   menu "Oper Commands", 500, 42
  530.   item "Item522", 586, 500
  531.   item "Item523", 587, 500
  532.   item "Item524", 588, 500
  533.   item "Item525", 589, 500
  534.   item "Item526", 590, 500
  535.   item "Item527", 591, 500
  536.   item "Item528", 592, 500
  537.   item "Item529", 593, 500
  538.   item "Item530", 594, 500
  539.   item "Item531", 595, 500
  540.   item "Item532", 596, 500
  541.   item "Item533", 597, 500
  542.   item "Item534", 598, 500
  543.   item "Item535", 599, 500
  544.   item "Item536", 600, 500
  545.   item "Item537", 601, 500
  546.   item "Item538", 602, 500
  547.   item "Item539", 603, 500
  548.   item "Item540", 604, 500
  549.   item "Item541", 605, 500
  550.   item "Item542", 606, 500
  551.   item "Item543", 607, 500
  552.   item "Item544", 608, 500
  553.   item "Item545", 609, 500
  554.   item "Item546", 610, 500
  555.   item "Item547", 611, 500
  556.   item "Item548", 612, 500
  557.   item "Item549", 613, 500
  558.   item "Item550", 614, 500
  559.   item "Item551", 615, 500
  560.   item "Item552", 616, 500
  561.   item "Item553", 617, 500
  562.   item "Item554", 618, 500
  563.   item "Item555", 619, 500
  564.   item "Item556", 620, 500
  565.   item "Item557", 621, 500
  566.   item "Item558", 622, 500
  567.   item "Item559", 623, 500
  568.   item "Item560", 624, 500
  569.   item "Item561", 625, 500
  570.   item "Item562", 626, 500
  571.   item "Item563", 627, 500
  572.   item "Item564", 628, 500
  573.   menu "SVS Commands", 501, 42
  574.   item "SQLINE", 567, 501
  575.   item "SVS2MODE", 568, 501
  576.   item "SVS2SNO", 569, 501
  577.   item "SVSJOIN", 570, 501
  578.   item "SVSKILL", 571, 501
  579.   item "SVSLUSERS", 572, 501
  580.   item "SVSMODE", 573, 501
  581.   item "SVSMOTD", 574, 501
  582.   item "SVSNICK", 575, 501
  583.   item "SVSNLINE", 576, 501
  584.   item "SVSNOLAG", 577, 501
  585.   item "SVSNOOP", 578, 501
  586.   item "SVSO", 579, 501
  587.   item "SVSPART", 580, 501
  588.   item "SVSSILENCE", 581, 501
  589.   item "SVSSNO", 582, 501
  590.   item "SVSWATCH", 583, 501
  591.   item "SWHOIS", 584, 501
  592.   item "UNSQLINE", 585, 501
  593.   item break, 566, 42
  594.   menu "HostServ", 468, 42
  595.   item "On", 483, 468
  596.   item "Off", 484, 468
  597.   item break, 485, 468
  598.   item "Group", 486, 468
  599.   item "List", 487, 468
  600.   item break, 488, 468
  601.   item "Set", 489, 468
  602.   item "Set All", 490, 468
  603.   item "Del", 491, 468
  604.   item "Del All", 492, 468
  605.   item break, 493, 468
  606.   item "Request", 494, 468
  607.   item break, 495, 468
  608.   item "Activate", 496, 468
  609.   item "Reject", 497, 468
  610.   item "Waiting", 498, 468
  611.   item break, 469, 42
  612.   menu "Oper", 95, 42
  613.   item "Add", 374, 95
  614.   item "Del", 375, 95
  615.   item "List", 376, 95
  616.   item "Clear", 377, 95
  617.   menu "Admin", 107, 42
  618.   item "Add", 378, 107
  619.   item "Del", 379, 107
  620.   item "List", 380, 107
  621.   item "Clear", 381, 107
  622.   menu "Ignore", 108, 42
  623.   item "Add", 382, 108
  624.   item "Del", 383, 108
  625.   item "List", 384, 108
  626.   item "Clear", 385, 108
  627.   item "Mode", 367, 42
  628.   item "UMode", 368, 42
  629.   item "Oline", 369, 42
  630.   menu "Set", 370, 42
  631.   menu "Readonly", 386, 370
  632.   item "On", 391, 386
  633.   item "Off", 392, 386
  634.   menu "LogChan", 387, 370
  635.   item "On", 393, 387
  636.   item "Off", 394, 387
  637.   menu "Debug", 388, 370
  638.   item "On", 395, 388
  639.   item "Off", 396, 388
  640.   menu "NoExpire", 389, 370
  641.   item "On", 397, 389
  642.   item "Off", 398, 389
  643.   menu "SuperAdmin", 390, 370
  644.   item "On", 399, 390
  645.   item "Off", 400, 390
  646.   menu "No OP", 373, 42
  647.   item "Set", 403, 373
  648.   item "Revoke", 404, 373
  649.   item break, 454, 42
  650.   item "Jupe", 405, 42
  651.   item "Raw", 406, 42
  652.   item break, 457, 42
  653.   menu "ChanList", 412, 42
  654.   item "Selektovan nick", 441, 412
  655.   menu "Pattern", 442, 412
  656.   item "*!user@host", 444, 442
  657.   item "*!*user@host", 445, 442
  658.   item "*!*@host", 446, 442
  659.   item "*!*user@*.host", 447, 442
  660.   item "*!*@*.host", 448, 442
  661.   item "nick!user@host", 449, 442
  662.   item "nick!*user@host", 451, 442
  663.   item "nick!*@host", 450, 442
  664.   item "nick!*user@*.host", 452, 442
  665.   item "nick!*@*.host", 453, 442
  666.   item "Secret", 443, 412
  667.   menu "UserList", 413, 42
  668.   item "#kanal", 429, 413
  669.   menu "Pattern", 430, 413
  670.   item "Item391", 431, 430
  671.   item "Item392", 432, 430
  672.   item "Item393", 433, 430
  673.   item "Item394", 434, 430
  674.   item "Item395", 435, 430
  675.   item "Item396", 436, 430
  676.   item "Item397", 437, 430
  677.   item "Item398", 438, 430
  678.   item "Item399", 439, 430
  679.   item "Invisible", 440, 413
  680.   menu "Cache", 414, 42
  681.   item "Del", 425, 414
  682.   menu "List", 426, 414
  683.   item "Queued", 427, 426
  684.   item "All", 428, 426
  685.   menu "Exception", 415, 42
  686.   item "Add", 420, 415
  687.   item "Del", 421, 415
  688.   item "Move", 422, 415
  689.   item "List", 423, 415
  690.   item "View", 424, 415
  691.   menu "Session", 416, 42
  692.   item "List", 418, 416
  693.   item "View", 419, 416
  694.   item break, 458, 42
  695.   item "Update", 407, 42
  696.   item "Reload", 408, 42
  697.   item "Restart", 411, 42
  698.   item "Quit", 409, 42
  699.   item "Shutdown", 410, 42
  700.   menu ".cfg", 15
  701.   item "Razlozi za banove", 16, 15
  702.   item break, 32, 15
  703.   item "Zatvori", 33, 15, ok cancel
  704. }
  705.  
  706.  
  707. alias f1 { pikmod }
  708.  
  709. on 1:dialog:PIKmod:*:*:{
  710.  
  711.   if ($devent == menu) && ($did == 16) { razlozi }
  712.   if ($devent == mouse) && ($snick($active) != $null)  {
  713.     did -ra PIKmod 18 $snick($active)
  714.     set %pikmnick $snick($active)
  715.     did -nm PIKmod 18
  716.     did -ra PIKmod 666 $+(*!*,$gettok($gettok($address($snick($active),0),1,64),2,33),@*)
  717.     did -ra PIKmod 777 Idle: $duration($nick($active,$snick($active)).idle,3)
  718.     did -ra PIKMod 455  $address($snick($active),0)
  719.     dialog -t PIKMod -= Remote@ $server @ $active =-
  720.   }
  721.  
  722.   if ($devent == dclick) && ($did == 18) { did -n PIKMod 18 }
  723.  
  724.   if ($devent == sclick) && ($did == 3) { ban $active $did(PIKmod,18).text $+ !*@* | kick $active $did(PIKmod,18).text Nepodoban nick/identitet promenite ga pa se vratite na kanal! }
  725.  
  726.   if ($devent == sclick) && ($did == 14) { ban -u3600 $active $did(PIKmod,18).text $+ !*@* | /kick $active $did(PIKmod,18).text Vase godine nisu predvidjene za ovu sobu. Posetite kanale - #18+ #25+ #33+ #44+ }
  727.  
  728.   if ($devent == sclick) && ($did == 2) { ban -u3600 $active $did(PIKmod,18).text $+ !*@* | /kick $active $did(PIKmod,18).text Vase godine nisu predvidjene za ovu sobu. Posetite kanale - #klinci #tinejdzeri #18+ }
  729.  
  730.   if ($devent == sclick) && ($did == 1) { set %kbrtme7 $calc($did(PIKmod,7).seltext * 60) | ban -u $+ %kbrtme7 $active $address($did(PIKmod,18).text,1) | kick $active $did(PIKmod,18).text $$?="Razlog ?" Ban: $did(PIKmod,7).seltext $+ min }
  731.  
  732.   if ($devent == sclick) && ($did == 8) { kick $active $did(PIKmod,18).text CAPSLOCK / velika slova, bold ili underline. }
  733.  
  734.   if ($devent == sclick) && ($did == 9) { set %kbrtme4 $calc($did(PIKmod,36).seltext * 60) | ban -ku $+ %kbrtme4 $active $did(PIKmod,18).text 1 Ugasite CAPSLOCK / velika slova, bold ili underline.   Ban: $did(PIKmod,36).seltext $+ min }
  735.  
  736.   if ($devent == sclick) && ($did == 13) { set %kbrtme6 $calc($did(PIKmod,11).seltext * 60) | var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { ban -ku $+ %kbrtme6 $active $gettok($did(PIKmod,18).text,%invi,44) 1  Pripazi na ponasanje. Pravilnik chata procitajte na adresi http://www.x-serv.us/pravila.html - Ban: $did(PIKmod,11).seltext $+ min | goto L1 } }
  737.  
  738.   if ($devent == sclick) && ($did == 6) { kick $active $did(PIKmod,18).text Pripazi na ponasanje! }
  739.  
  740.   if ($devent == sclick) && ($did == 10) { set %probnick $did(PIKmod,11).seltext | set %pnkan $active }
  741.  
  742.   if ($devent == sclick) && ($did == 21) { ban -ku180 $active $did(PIKmod,18).text 1 Youtube nije dozvoljen! }
  743.  
  744.   if ($devent == sclick) && ($did == 22) { ban -u600k $active $did(PIKmod,18).text 1 Zabranjen spam/reklama na kanalu. }
  745.  
  746.   if ($devent == sclick) && ($did == 34) { set %kbrtme34 $calc($did(PIKmod,35).seltext * 60) | ban -u $+ %kbrtme34 $active $address($did(PIKmod,18).text,1) | kick $active $did(PIKmod,18).text Ponavljanje i flood su zabranjeni na javnim kanalima. Ban: $did(PIKmod,35).seltext $+ min }
  747.  
  748.   if ($devent == sclick) && ($did == 39) { kick $active $did(PIKmod,18).text  Znaci, zamolio bih Vas da ne ponavljate! }
  749.  
  750.   if ($devent == sclick) && ($did == 25) { mode $active +b *!* $+ $remove($gettok($address($did(PIKmod,18).text,3),1,$asc(@)),*!*) $+ *@* | kick $active $did(PIKmod,18).text Nepodoban identitet. Promenite ga pa se vratite na kanal. }
  751.  
  752.   if ($devent == sclick) && ($did == 5) {  set %kbrtme37 $calc($did(PIKmod,37).seltext * 60) | ban -ku $+ %kbrtme37  $active $did(PIKmod,18).text 1 Ne na javnom! Ban: $did(PIKmod,37).seltext $+ min }
  753.  
  754.   if ($devent == sclick) && ($did == 40) { pikrb $did(PIKmod,18).text }
  755.  
  756.   if ($devent == sclick) && ($did == 44) { _ca massm + v $did(PIKmod,18).text }
  757.  
  758.   if ($devent == sclick) && ($did == 38) { set %rosmod $$?="" | var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q os mode $active  %rosmod  $gettok($did(PIKmod,18).text,%invi,44)  } }
  759.  
  760.   if ($devent == sclick) && ($did == 20) { ban -ku900 $active $did(PIKmod,18).text 1 Kanal #Help je namenjen iskljucivo za resavanje problema oko CHATA. Bespotrebno zadrzavanje je zabranjeno. }
  761.  
  762.   if ($devent == sclick) && ($did == 19) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { ban -ku900 $active $gettok($did(PIKmod,18).text,%invi,44) 1 Dobili ste odgovor. Prijatan chat... | goto L1 } }
  763.  
  764.   if ($devent == sclick) && ($did == 66) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs voice $active $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  765.  
  766.   if ($devent == sclick) && ($did == 45) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs devoice %invic $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  767.  
  768.   if ($devent == sclick) && ($did == 462) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs halfop %invic $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  769.  
  770.   if ($devent == sclick) && ($did == 463) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs dehalfop %invic $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  771.  
  772.   if ($devent == sclick) && ($did == 461) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs op %invic $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  773.  
  774.   if ($devent == sclick) && ($did == 464) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q cs deop %invic $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  775.  
  776.   if ($devent == sclick) && ($did == 156) { _ca massm + o $did(PIKmod,18).text }
  777.  
  778.   if ($devent == sclick) && ($did == 146) { _ca massm - o $did(PIKmod,18).text }
  779.   if ($devent == sclick) && ($did == 790) { _ca massm - a $did(PIKmod,18).text }
  780.   if ($devent == sclick) && ($did == 791) { _ca massm + a $did(PIKmod,18).text }
  781.   if ($devent == sclick) && ($did == 792) { _ca massm - q $did(PIKmod,18).text }
  782.   if ($devent == sclick) && ($did == 793) { _ca massm + q $did(PIKmod,18).text }
  783.   if ($devent == sclick) && ($did == 794) { _ca massm - h $did(PIKmod,18).text }
  784.   if ($devent == sclick) && ($did == 795) { _ca massm - v $did(PIKmod,18).text }
  785.   if ($devent == sclick) && ($did == 147) { _ca massm + h $did(PIKmod,18).text }
  786.   if ($devent == sclick) && ($did == 148) { _ca massm - h $did(PIKmod,18).text | _ca massm - v $did(PIKmod,18).text  }
  787.   if ($devent == sclick) && ($did == 465) { _ca massm - q $did(PIKmod,18).text | _ca massm - o $did(PIKmod,18).text | _ca massm - a $did(PIKmod,18).text }
  788.   if ($devent == sclick) && ($did == 123) {
  789.  
  790.     if ($did(PIKmod,18).text isreg $active) { mode $active +b ~q: $+ $address($did(PIKmod,18).text,1) }
  791.     else { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q mode %invic +b-ohvaq ~q: $+ $gettok($did(PIKmod,18).text,%invi,44) $gettok($did(PIKmod,18).text $gettok($did(PIKmod,18).text $gettok($did(PIKmod,18).text $gettok($did(PIKmod,18).text,%invi,44) $gettok($did(PIKmod,18).text,%invi,44) $gettok($did(PIKmod,18).text,%invi,44) $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  792.   }
  793.  
  794.   if ($devent == menu) && ($did == 282) { cs owner $active }
  795.  
  796.   if ($devent == menu) && ($did == 283) { cs deowner $active }
  797.  
  798.   if ($devent == menu) && ($did == 96) { cs protect $active $did(PIKmod,18).text }
  799.  
  800.   if ($devent == menu) && ($did == 100) { cs deprotect $active $did(PIKmod,18).text }
  801.  
  802.   if ($devent == menu) && ($did == 56) { cs op $active $did(PIKmod,18).text }
  803.  
  804.   if ($devent == menu) && ($did == 98) { cs deop $active $did(PIKmod,18).text }
  805.  
  806.   if ($devent == menu) && ($did == 57) { cs halfop $active $did(PIKmod,18).text }
  807.  
  808.   if ($devent == menu) && ($did == 97) { cs dehalfop $active $did(PIKmod,18).text }
  809.  
  810.   if ($devent == menu) && ($did == 58) { cs voice $active $did(PIKmod,18).text }
  811.  
  812.   if ($devent == menu) && ($did == 99) { cs devoice $active $did(PIKmod,18).text }
  813.  
  814.   if ($devent == menu) && ($did == 59) { cs invite $$?="Kanal?"  }
  815.  
  816.   if ($devent == menu) && ($did == 60) { cs kick $active $did(PIKmod,18).text $$?="Razlog?" }
  817.  
  818.   if ($devent == menu) && ($did == 61) { cs ban $active $did(PIKmod,18).text $$?="Razlog?" }
  819.  
  820.   if ($devent == menu) && ($did == 46) { cs register $active $$?*="Lozinka?" $$?="Opis?" }
  821.  
  822.   if ($devent == menu) && ($did == 47) { cs identify $active $$?*="Lozinka?" }
  823.  
  824.   if ($devent == menu) && ($did == 310) { cs set $active founder $$?="Nick" }
  825.  
  826.   if ($devent == menu) && ($did == 311) { cs set $active founder $did(PIKmod,18).text }
  827.  
  828.   if ($devent == menu) && ($did == 312) { cs set $active successor $did(PIKmod,18).text }
  829.  
  830.   if ($devent == menu) && ($did == 313) { cs set $active successor $$?="Nick" }
  831.  
  832.   if ($devent == menu) && ($did == 70) { cs set $active password $$?*="Password?" }
  833.  
  834.   if ($devent == menu) && ($did == 308) { cs unban $active }
  835.  
  836.   if ($devent == menu) && ($did == 71) { cs set $active desc $$?="Opis kanala?" }
  837.  
  838.   if ($devent == menu) && ($did == 72) { cs set $active url $$?="URL ?" }
  839.  
  840.   if ($devent == menu) && ($did == 73) { cs set $active email $$?="Email ?" }
  841.  
  842.   if ($devent == menu) && ($did == 304) { cs set $active bantype 0 }
  843.  
  844.   if ($devent == menu) && ($did == 305) { cs set $active bantype 1 }
  845.  
  846.   if ($devent == menu) && ($did == 306) { cs set $active bantype 2 }
  847.  
  848.   if ($devent == menu) && ($did == 307) { cs set $active bantype 3 }
  849.  
  850.   if ($devent == menu) && ($did == 75) { cs set $active mlock $$?="Modovi ?" }
  851.  
  852.   if ($devent == menu) && ($did == 302) { cs set $active keeptopic on }
  853.  
  854.   if ($devent == menu) && ($did == 303) { cs set $active keeptopic off }
  855.  
  856.   if ($devent == menu) && ($did == 300) { cs set $active opnotice on }
  857.  
  858.   if ($devent == menu) && ($did == 301) { cs set $active opnotice off }
  859.  
  860.   if ($devent == menu) && ($did == 298) { cs set $active peace on }
  861.  
  862.   if ($devent == menu) && ($did == 299) { cs set $active peace off }
  863.  
  864.   if ($devent == menu) && ($did == 296) { cs set $active private on }
  865.  
  866.   if ($devent == menu) && ($did == 297) { cs set $active private off }
  867.  
  868.   if ($devent == menu) && ($did == 294) { cs set $active restricted on }
  869.  
  870.   if ($devent == menu) && ($did == 295) { cs set $active restricted off }
  871.  
  872.   if ($devent == menu) && ($did == 292) { cs set $active secure on }
  873.  
  874.   if ($devent == menu) && ($did == 293) { cs set $active secure off }
  875.  
  876.   if ($devent == menu) && ($did == 290) { cs set $active secureops on }
  877.  
  878.   if ($devent == menu) && ($did == 291) { cs set $active secureops off }
  879.  
  880.   if ($devent == menu) && ($did == 288) { cs set $active securefounder on }
  881.  
  882.   if ($devent == menu) && ($did == 289) { cs set $active securefounder off }
  883.  
  884.   if ($devent == menu) && ($did == 286) { cs set $active signkick on }
  885.  
  886.   if ($devent == menu) && ($did == 287) { cs set $active signkick off }
  887.  
  888.   if ($devent == menu) && ($did == 284) { cs set $active topiclock on }
  889.  
  890.   if ($devent == menu) && ($did == 285) { cs set $active topiclock off }
  891.  
  892.   if ($devent == menu) && ($did == 87) { cs set $active xop on }
  893.  
  894.   if ($devent == menu) && ($did == 88) { cs set $active xop off }
  895.  
  896.   if ($devent == menu) && ($did == 315) { cs sop $active add $$?="Nick ?" }
  897.  
  898.   if ($devent == menu) && ($did == 314) { cs sop $active add $did(PIKmod,18).text }
  899.  
  900.   if ($devent == menu) && ($did == 316) { cs sop $active del $did(PIKmod,18).text }
  901.  
  902.   if ($devent == menu) && ($did == 317) { cs sop $active del $$?="Nick ?" }
  903.  
  904.   if ($devent == menu) && ($did == 267) { cs sop $active list }
  905.  
  906.   if ($devent == menu) && ($did == 319) { cs aop $active add $$?="Nick ?" }
  907.  
  908.   if ($devent == menu) && ($did == 318) { cs aop $active add $did(PIKmod,18).text }
  909.  
  910.   if ($devent == menu) && ($did == 320) { cs aop $active del $did(PIKmod,18).text }
  911.  
  912.   if ($devent == menu) && ($did == 321) { cs aop $active del $$?="Nick ?" }
  913.  
  914.   if ($devent == menu) && ($did == 270) { cs aop $active list }
  915.  
  916.   if ($devent == menu) && ($did == 323) { cs hop $active add $$?="Nick ?" }
  917.  
  918.   if ($devent == menu) && ($did == 322) { cs hop $active add $did(PIKmod,18).text }
  919.  
  920.   if ($devent == menu) && ($did == 324) { cs hop $active del $did(PIKmod,18).text }
  921.  
  922.   if ($devent == menu) && ($did == 325) { cs hop $active del $$?="Nick ?" }
  923.  
  924.   if ($devent == menu) && ($did == 273) { cs hop $active list }
  925.  
  926.   if ($devent == menu) && ($did == 327) { cs vop $active add $$?="Nick ?" }
  927.  
  928.   if ($devent == menu) && ($did == 326) { cs vop $active add $did(PIKmod,18).text }
  929.  
  930.   if ($devent == menu) && ($did == 328) { cs vop $active del $did(PIKmod,18).text }
  931.  
  932.   if ($devent == menu) && ($did == 329) { cs vop $active del $$?="Nick ?" }
  933.  
  934.   if ($devent == menu) && ($did == 276) { cs vop $active list }
  935.  
  936.   if ($devent == menu) && ($did == 330) { cs access $active add $did(PIKmod,18).text $$?="Level ?" }
  937.  
  938.   if ($devent == menu) && ($did == 331) { cs access $active add $$?="Nick ?" $$?="Level ?" }
  939.  
  940.   if ($devent == menu) && ($did == 332) { cs access $active del $did(PIKmod,18).text }
  941.  
  942.   if ($devent == menu) && ($did == 333) { cs access $active del $$?="Nick ?" }
  943.  
  944.   if ($devent == menu) && ($did == 64) { cs access $active list }
  945.  
  946.   if ($devent == menu) && ($did == 67) { cs access $active clear }
  947.  
  948.   if ($devent == menu) && ($did == 124) { cs levels $active set AUTODEOP $$?="Level ?" }
  949.  
  950.   if ($devent == menu) && ($did == 126) { cs levels $active dis AUTODEOP }
  951.  
  952.   if ($devent == menu) && ($did == 128) { cs levels $active set AUTOHALFOP $$?="Level ?" }
  953.  
  954.   if ($devent == menu) && ($did == 168) { cs levels $active dis AUTOHALFOP }
  955.  
  956.   if ($devent == menu) && ($did == 169) { cs levels $active set AUTOOP $$?="Level ?" }
  957.  
  958.   if ($devent == menu) && ($did == 171) { cs levels $active dis AUTOOP }
  959.  
  960.   if ($devent == menu) && ($did == 172) { cs levels $active set AUTOPROTECT $$?="Level ?" }
  961.  
  962.   if ($devent == menu) && ($did == 174) { cs levels $active dis AUTOPROTECT }
  963.  
  964.   if ($devent == menu) && ($did == 175) { cs levels $active set AUTOVOICE $$?="Level ?" }
  965.  
  966.   if ($devent == menu) && ($did == 177) { cs levels $active dis AUTOVOICE }
  967.  
  968.   if ($devent == menu) && ($did == 178) { cs levels $active set NOJOIN $$?="Level ?" }
  969.  
  970.   if ($devent == menu) && ($did == 180) { cs levels $active dis NOJOIN }
  971.  
  972.   if ($devent == menu) && ($did == 181) { cs levels $active set SIGNKICK $$?="Level ?" }
  973.  
  974.   if ($devent == menu) && ($did == 183) { cs levels $active dis SIGNKICK }
  975.  
  976.   if ($devent == menu) && ($did == 184) { cs levels $active set ACC-LIST $$?="Level ?" }
  977.  
  978.   if ($devent == menu) && ($did == 186) { cs levels $active dis ACC-LIST }
  979.  
  980.   if ($devent == menu) && ($did == 335) { cs levels $active set ACC-CHANGE $$?="Level ?" }
  981.  
  982.   if ($devent == menu) && ($did == 337) { cs levels $active dis ACC-CHANGE }
  983.  
  984.   if ($devent == menu) && ($did == 187) { cs levels $active set AKICK $$?="Level ?" }
  985.  
  986.   if ($devent == menu) && ($did == 189) { cs levels $active dis AKICK }
  987.  
  988.   if ($devent == menu) && ($did == 190) { cs levels $active set SET $$?="Level ?" }
  989.  
  990.   if ($devent == menu) && ($did == 192) { cs levels $active dis SET }
  991.  
  992.   if ($devent == menu) && ($did == 193) { cs levels $active set BAN $$?="Level ?" }
  993.  
  994.   if ($devent == menu) && ($did == 195) { cs levels $active dis BAN }
  995.  
  996.   if ($devent == menu) && ($did == 196) { cs levels $active set BANME $$?="Level ?" }
  997.  
  998.   if ($devent == menu) && ($did == 198) { cs levels $active dis BANME }
  999.  
  1000.   if ($devent == menu) && ($did == 199) { cs levels $active set CLEAR $$?="Level ?" }
  1001.  
  1002.   if ($devent == menu) && ($did == 201) { cs levels $active dis CLEAR }
  1003.  
  1004.   if ($devent == menu) && ($did == 202) { cs levels $active set GETKEY $$?="Level ?" }
  1005.  
  1006.   if ($devent == menu) && ($did == 204) { cs levels $active dis GETKEY }
  1007.  
  1008.   if ($devent == menu) && ($did == 205) { cs levels $active set HALFOP $$?="Level ?" }
  1009.  
  1010.   if ($devent == menu) && ($did == 207) { cs levels $active dis HALFOP }
  1011.  
  1012.   if ($devent == menu) && ($did == 208) { cs levels $active set HALFOPME $$?="Level ?" }
  1013.  
  1014.   if ($devent == menu) && ($did == 210) { cs levels $active dis HALFOPME }
  1015.  
  1016.   if ($devent == menu) && ($did == 211) { cs levels $active set INFO $$?="Level ?" }
  1017.  
  1018.   if ($devent == menu) && ($did == 213) { cs levels $active dis INFO }
  1019.  
  1020.   if ($devent == menu) && ($did == 214) { cs levels $active set KICKME $$?="Level ?" }
  1021.  
  1022.   if ($devent == menu) && ($did == 216) { cs levels $active dis KICKME }
  1023.  
  1024.   if ($devent == menu) && ($did == 339) { cs levels $active set KICK $$?="Level ?" }
  1025.  
  1026.   if ($devent == menu) && ($did == 341) { cs levels $active dis KICK }
  1027.  
  1028.   if ($devent == menu) && ($did == 217) { cs levels $active set INVITE $$?="Level ?" }
  1029.  
  1030.   if ($devent == menu) && ($did == 219) { cs levels $active dis INVITE }
  1031.  
  1032.   if ($devent == menu) && ($did == 220) { cs levels $active set OPDEOP $$?="Level ?" }
  1033.  
  1034.   if ($devent == menu) && ($did == 222) { cs levels $active dis OPDEOP }
  1035.  
  1036.   if ($devent == menu) && ($did == 223) { cs levels $active set OPDEOPME $$?="Level ?" }
  1037.  
  1038.   if ($devent == menu) && ($did == 225) { cs levels $active dis OPDEOPME }
  1039.  
  1040.   if ($devent == menu) && ($did == 226) { cs levels $active set PROTECT $$?="Level ?" }
  1041.  
  1042.   if ($devent == menu) && ($did == 228) { cs levels $active dis PROTECT }
  1043.  
  1044.   if ($devent == menu) && ($did == 229) { cs levels $active set PROTECTME $$?="Level ?" }
  1045.  
  1046.   if ($devent == menu) && ($did == 231) { cs levels $active dis PROTECTME }
  1047.  
  1048.   if ($devent == menu) && ($did == 232) { cs levels $active set TOPIC $$?="Level ?" }
  1049.  
  1050.   if ($devent == menu) && ($did == 234) { cs levels $active dis TOPIC }
  1051.  
  1052.   if ($devent == menu) && ($did == 235) { cs levels $active set UNBAN $$?="Level ?" }
  1053.  
  1054.   if ($devent == menu) && ($did == 237) { cs levels $active dis UNBAN }
  1055.  
  1056.   if ($devent == menu) && ($did == 238) { cs levels $active set VOICE $$?="Level ?" }
  1057.  
  1058.   if ($devent == menu) && ($did == 240) { cs levels $active dis VOICE }
  1059.  
  1060.   if ($devent == menu) && ($did == 241) { cs levels $active set VOICEME $$?="Level ?" }
  1061.  
  1062.   if ($devent == menu) && ($did == 243) { cs levels $active dis VOICEME }
  1063.  
  1064.   if ($devent == menu) && ($did == 244) { cs levels $active set MEMO $$?="Level ?" }
  1065.  
  1066.   if ($devent == menu) && ($did == 246) { cs levels $active dis MEMO }
  1067.  
  1068.   if ($devent == menu) && ($did == 247) { cs levels $active set ASSIGN $$?="Level ?" }
  1069.  
  1070.   if ($devent == menu) && ($did == 249) { cs levels $active dis ASSIGN }
  1071.  
  1072.   if ($devent == menu) && ($did == 250) { cs levels $active set BADWORDS $$?="Level ?" }
  1073.  
  1074.   if ($devent == menu) && ($did == 252) { cs levels $active dis BADWORDS }
  1075.  
  1076.   if ($devent == menu) && ($did == 253) { cs levels $active set FANTASIA $$?="Level ?" }
  1077.  
  1078.   if ($devent == menu) && ($did == 255) { cs levels $active dis FANTASIA }
  1079.  
  1080.   if ($devent == menu) && ($did == 256) { cs levels $active set GREET $$?="Level ?" }
  1081.  
  1082.   if ($devent == menu) && ($did == 258) { cs levels $active dis GREET }
  1083.  
  1084.   if ($devent == menu) && ($did == 259) { cs levels $active set NOKICK $$?="Level ?" }
  1085.  
  1086.   if ($devent == menu) && ($did == 261) { cs levels $active dis NOKICK }
  1087.  
  1088.   if ($devent == menu) && ($did == 262) { cs levels $active set SAY $$?="Level ?" }
  1089.  
  1090.   if ($devent == menu) && ($did == 264) { cs levels $active dis SAY }
  1091.  
  1092.   if ($devent == menu) && ($did == 122) { cs levels $active list }
  1093.  
  1094.   if ($devent == menu) && ($did == 125) { cs levels $active reset }
  1095.  
  1096.   if ($devent == menu) && ($did == 114) { cs akick $active add $$?="Nick ? (ili nick!user@host , *!user@host ili samo *!*@host)" $$?="Razlog ?" }
  1097.  
  1098.   if ($devent == menu) && ($did == 115) { cs akick $active del $$?="Nick , Maska ili Redni broj" }
  1099.  
  1100.   if ($devent == menu) && ($did == 116) { cs akick $active stick $$?="Maska ? (nick!user@host , *!user@host ili *!*@host)" }
  1101.  
  1102.   if ($devent == menu) && ($did == 117) { cs akick $active unstick $$?="Maska ? (nick!user@host , *!user@host ili *!*@host)" }
  1103.  
  1104.   if ($devent == menu) && ($did == 118) { cs akick $active list }
  1105.  
  1106.   if ($devent == menu) && ($did == 119) { cs akick $active enforce }
  1107.  
  1108.   if ($devent == menu) && ($did == 120) { cs akick $active clear }
  1109.  
  1110.   if ($devent == menu) && ($did == 53) { cs drop $active }
  1111.  
  1112.   if ($devent == menu) && ($did == 54) { cs sendpass $active }
  1113.  
  1114.   if ($devent == menu) && ($did == 110) { cs enforce $active set }
  1115.  
  1116.   if ($devent == menu) && ($did == 111) { cs enforce $active secureops }
  1117.  
  1118.   if ($devent == menu) && ($did == 112) { cs enforce $active restricted }
  1119.  
  1120.   if ($devent == menu) && ($did == 113) { cs enforce $active modes }
  1121.  
  1122.   if ($devent == menu) && ($did == 342) { cs enforce $active $did(PIKmod,18).text }
  1123.  
  1124.   if ($devent == menu) && ($did == 343) { cs enforce $active $me }
  1125.  
  1126.   if ($devent == menu) && ($did == 102) { cs topic $active $$?="Zeljeni topic ?" }
  1127.  
  1128.   if ($devent == menu) && ($did == 104) { cs appendtopic $active $$?="Zeljeni topic ?" }
  1129.  
  1130.   if ($devent == menu) && ($did == 103) { cs info $active }
  1131.  
  1132.   if ($devent == sclick) && ($did == 459) { mode $active +bb $did(PIKmod,18).text $+ !*@* $address($did(PIKmod,18).text,2) | kick $active $did(PIKmod,18).text Previshe nepodobnih nadimaka! }
  1133.  
  1134.   if ($devent == sclick) && ($did == 466) { whois $did(PIKmod,18).text }
  1135.  
  1136.   if ($devent == sclick) && ($did == 460) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { banac $gettok($did(PIKmod,18).text,%invi,44) | goto L1 } }
  1137.  
  1138.   if ($devent == sclick) && ($did == 472) { bs say $active $$?="Tekst poruke" }
  1139.  
  1140.   if ($devent == sclick) && ($did == 473) { bs act $active $$?="Tekst poruke" }
  1141.  
  1142.   if ($devent == sclick) && ($did == 475) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q os mode %invic +o $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  1143.  
  1144.   if ($devent == sclick) && ($did == 476) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q os mode %invic -o $gettok($did(PIKmod,18).text,%invi,44) %invic | goto L1 } }
  1145.  
  1146.   if ($devent == sclick) && ($did == 477) { barz }
  1147.  
  1148.   if ($devent == sclick) && ($did == 630) && (%dfull <= 1) { dialog -ps PIKmod  -1 -1 458 290 | set %dfull 1 | did -nev PIKmod 631 | did -bh PIKmod 630 }
  1149.  
  1150.   elseif ($devent == sclick) && ($did == 631) && (%dfull >= 0) { dialog -sb PIKmod  -1 -1 181 145 | did -env PIKmod 630 | did -bh PIKmod 631 | set %dfull 0 }
  1151.  
  1152.   if ($devent == sclick) && ($did == 479) { kill $did(PIKmod,18).text $$?="Razlog za kill" }
  1153.  
  1154.   if ($devent == sclick) && ($did == 480) { var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q shun $did(PIKmod,18).text $$?="Vreme ? (Primer: 1d10h15m30s ili stavite 0 i onda je Permanent (ili ti ne istice)" : $+ $$?="Razlog?" | goto L1 } }
  1155.  
  1156.   if ($devent == sclick) && ($did == 481) { kline $did(PIKmod,18).text $$?="Vreme ? (Primer: 1d10h15m30s ili stavite 0 i onda je Permanent (ili ti ne istice)" $$?="Razlog?" }
  1157.  
  1158.   if ($devent == sclick) && ($did == 482) { gline $did(PIKmod,18).text $$?="Vreme ? (Primer: 1d10h15m30s ili stavite 0 i onda je Permanent (ili ti ne istice)" $$?="Razlog?" }
  1159.  
  1160.   if ($devent == menu) && ($did == 502) { bs say $active $$?="Tekst poruke" }
  1161.  
  1162.   if ($devent == menu) && ($did == 503) { bs act $active $$?="Tekst poruke" }
  1163.  
  1164.   if ($devent == menu) && ($did == 505) { bs botlist }
  1165.  
  1166.   if ($devent == menu) && ($did == 509) { bs info $active }
  1167.  
  1168.   if ($devent == menu) && ($did == 527) { bs kick $active BOLDS on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" }
  1169.  
  1170.   if ($devent == menu) && ($did == 528) { bs kick $active BOLDS off }
  1171.  
  1172.   if ($devent == menu) && ($did == 552) { bs kick $active BADWORDS on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" }
  1173.  
  1174.   if ($devent == menu) && ($did == 553) { bs kick $active BADWORDS off }
  1175.  
  1176.   if ($devent == menu) && ($did == 554) { bs kick $active CAPS on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" $$?="Minimum karaktera i procenata (primer: ako otkucate 10 80 to bi bilo 10 karaktera u 80% teksta)" }
  1177.  
  1178.   if ($devent == menu) && ($did == 555) { bs kick $active CAPS off }
  1179.  
  1180.   if ($devent == menu) && ($did == 556) { bs kick $active COLORS on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" }
  1181.  
  1182.   if ($devent == menu) && ($did == 557) { bs kick $active COLORS off }
  1183.  
  1184.   if ($devent == menu) && ($did == 558) { bs kick $active FLOOD on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" $?="Linija u sekundi (npr. ako unesete 6 10 to je 6 linija u 10 sekundi)" }
  1185.  
  1186.   if ($devent == menu) && ($did == 559) { bs kick $active FLOOD off }
  1187.  
  1188.   if ($devent == menu) && ($did == 560) { bs kick $active REPEAT on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" $?="Posle koliko ponavljanja?" }
  1189.  
  1190.   if ($devent == menu) && ($did == 561) { bs kick $active REPEAT off }
  1191.  
  1192.   if ($devent == menu) && ($did == 562) { bs kick $active REVERSES on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" }
  1193.  
  1194.   if ($devent == menu) && ($did == 563) { bs kick $active REVERSES off }
  1195.  
  1196.   if ($devent == menu) && ($did == 564) { bs kick $active UNDERLINES on $$?="Koliko puta zelite da Bot izbaci korisnika pre nego sto ga banuje?" }
  1197.  
  1198.   if ($devent == menu) && ($did == 565) { bs kick $active UNDERLINES off }
  1199.  
  1200.   if ($devent == menu) && ($did == 515) { bs badwords $active ADD $$?="Badword?" }
  1201.  
  1202.   if ($devent == menu) && ($did == 516) { bs badwords $active DEL $$?="Badword (rec | redni broj | list)?" }
  1203.  
  1204.   if ($devent == menu) && ($did == 517) { bs badwords $active LIST }
  1205.  
  1206.   if ($devent == menu) && ($did == 518) { bs badwords $active CLEAR }
  1207.  
  1208.   if ($devent == menu) && ($did == 511) { bs assign $active $$?="Ime bota?" }
  1209.  
  1210.   if ($devent == menu) && ($did == 512) { $iif($?!="selected nick?",bs unassign $active UNASSIGN $did(PIKmod,18).text,bs unassign $active UNASSIGN $$?="Ime bota?") }
  1211.  
  1212.   if ($devent == menu) && ($did == 535) { bs set $active DONTKICKOPS on }
  1213.  
  1214.   if ($devent == menu) && ($did == 536) { bs set $active DONTKICKOPS off }
  1215.  
  1216.   if ($devent == menu) && ($did == 537) { bs set $active DONTKICKVOICES on }
  1217.  
  1218.   if ($devent == menu) && ($did == 538) { bs set $active DONTKICKVOICES off }
  1219.  
  1220.   if ($devent == menu) && ($did == 539) { bs set $active GREET on }
  1221.  
  1222.   if ($devent == menu) && ($did == 540) { bs set $active GREET off }
  1223.  
  1224.   if ($devent == menu) && ($did == 541) { bs set $active FANTASY on }
  1225.  
  1226.   if ($devent == menu) && ($did == 542) { bs set $active FANTASY off }
  1227.  
  1228.   if ($devent == menu) && ($did == 543) { bs set $active SYMBIOSIS on }
  1229.  
  1230.   if ($devent == menu) && ($did == 544) { bs set $active SYMBIOSIS off }
  1231.  
  1232.   if ($devent == menu) && ($did == 548) { bs set $active NOBOT on }
  1233.  
  1234.   if ($devent == menu) && ($did == 549) { bs set $active NOBOT off }
  1235.  
  1236.   if ($devent == menu) && ($did == 550) { bs set $$?="Ime bota?" PRIVATE on }
  1237.  
  1238.   if ($devent == menu) && ($did == 551) { bs set $$?="Ime bota?" PRIVATE off }
  1239.  
  1240.   if ($devent == menu) && ($did == 514) { dodajbota }
  1241.   if ($devent == menu) && ($did == 401) { os set superadmin on }
  1242.   if ($devent == menu) && ($did == 402) { os set superadmin off }
  1243.   if ($devent == sclick) && ($did == 467) { sapart $did(PIKmod,18).text $active | sajoin $did(PIKmod,18).text $active  }
  1244.   if ($devent == sclick) && ($did == 632) { $iif($?!="sajoin on this channel?",sajoin $did(PIKmod,18).text $active,masssajoin) }
  1245.   if ($devent == sclick) && ($did == 633) { hs set $did(PIKmod,18).text $?="Vhost?" }
  1246.   If ($devent == sclick) && ($did == 634) { chghost $did(PIKmod,18).text $?="host?" | dialog -c PIKmod | dialog -ma PIKmod PIKmod | dialog -c PIKmod | dialog -ma PIKmod PIKmod }
  1247.   if ($devent == sclick) && ($did == 635) {  $iif($?!="sapart on this channel?",sapart $did(PIKmod,18).text $active,masssapart) }
  1248.   if ($devent == sclick) && ($did == 636) { uwho $did(PIKmod,18).text }
  1249.   if ($devent == sclick) && ($did == 637) { who $did(PIKmod,18).text $did(PIKmod,18).text | dialog -c PIKmod | dialog -ma PIKmod PIKmod | dialog -c PIKmod | dialog -ma PIKmod PIKmod }
  1250.   if ($devent == sclick) && ($did == 640) { notice $did(PIKmod,18).text $?="Poruka?" }
  1251.   if ($devent == sclick) && ($did == 641) { query $did(PIKmod,18).text }
  1252.   if ($devent == sclick) && ($did == 642) { names $active | dialog -c PIKmod | dialog -ma PIKmod PIKmod | dialog -c PIKmod | dialog -ma PIKmod PIKmod }
  1253.   if ($devent == sclick) && ($did == 643) { set %rumode $$?="Mode ?" | var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { raw -q os umode $gettok($did(PIKmod,18).text,%invi,44) %rumode | goto L1 } }
  1254.   if ($devent == sclick) && ($did == 645) { whois $did(PIKmod,18).text | dialog -c PIKmod | dialog -ma PIKmod PIKmod | dialog -c PIKmod | dialog -ma PIKmod PIKmod }
  1255. }
  1256.  
  1257. alias masssajoin {
  1258.   set %invisa $?="Kanal"
  1259.   var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { sajoin $gettok($did(PIKmod,18).text,%invi,44) %invisa | goto L1 }
  1260. }
  1261.  
  1262. alias masssapart {
  1263.   set %invisa $?="Kanal"
  1264.   var %invic = $active | var %invi = 0 | :L1 | inc %invi 1 | if $gettok($did(PIKmod,18).text,%invi,44) != $null  { sapart $gettok($did(PIKmod,18).text,%invi,44) %invisa | goto L1 }
  1265. }
  1266.  
  1267.  
  1268. alias dodajbota {
  1269.  
  1270.   dialog -ma dodajbota dodajbota
  1271.  
  1272. }
  1273.  
  1274. dialog dodajbota {
  1275.  
  1276.   title "Dodaj Bota"
  1277.  
  1278.   size -1 -1 92 99
  1279.  
  1280.   option dbu
  1281.  
  1282.   edit "", 1, 1 9 90 10
  1283.  
  1284.   text "Bot nick:", 2, 1 1 25 8
  1285.  
  1286.   text "Bot ident:", 3, 1 19 25 8
  1287.  
  1288.   edit "", 4, 1 27 92 10
  1289.  
  1290.   text "Bot real name:", 5, 1 55 39 8
  1291.  
  1292.   edit "", 6, 1 45 92 10
  1293.  
  1294.   edit "", 7, 0 63 92 10
  1295.  
  1296.   text "Bot host:", 8, 1 37 25 8
  1297.  
  1298.   button "Zatvori", 9, 5 76 37 12, cancel
  1299.  
  1300.   button "Dodaj Bota", 10, 49 76 37 12, ok
  1301.  
  1302.   text "Limited to Services Administrators", 11, 5 91 84 8, disable
  1303.  
  1304. }
  1305.  
  1306. on 1:dialog:dodajbota:*:*:{
  1307.  
  1308.   if ($devent == sclick) && ($did == 10) { bs bot add $did(dodajbota,1).text $did(dodajbota,4).text $did(dodajbota,6).text $did(dodajbota,7).text }
  1309.  
  1310. }
  1311.  
  1312.  
  1313. alias PIKmod {
  1314.  
  1315.   set %ropnet $network
  1316.  
  1317.   dialog -ma PIKmod PIKmod
  1318.  
  1319.   if ($snick($active) != $null) { did -r PIKmod 18 | did -a PIKmod 18 $snick($active) }
  1320.  
  1321.   did -ac PIKmod 7 3 | did -a PIKmod 7 5 | did -a PIKmod 7 10 | did -a PIKmod 7 30 | did -a PIKmod 7 60 | did -ac PIKmod 35 3 | did -a PIKmod 35 5 | did -a PIKmod 35 10 | did -a PIKmod 35 30 | did -a PIKmod 35 60 | did -ca PIKmod 11 3 | did -a PIKmod 11 5 | did -a PIKmod 11 10 | did -a PIKmod 11 30 | did -a PIKmod 11 60 | did -ac PIKmod 36 3 | did -a PIKmod 36 5 | did -a PIKmod 36 10 | did -a PIKmod 36 30 | did -a PIKmod 36 60 | did -ac PIKmod 37 3 | did -a PIKmod 37 5 | did -a PIKmod 37 10 | did -a PIKmod 37 30 | did -a PIKmod 37 60
  1322.  
  1323.   did -a PIKmod 639 3 | did -a PIKmod 639 5 | did -a PIKmod 639 10 | did -ac PIKmod 639 15 | did -a PIKmod 639 30 | did -a PIKmod 639 60
  1324.  
  1325.   did -a PIKmod 638 3 | did -a PIKmod 638 5 | did -a PIKmod 638 10 | did -ac PIKmod 638 15 | did -a PIKmod 638 30 | did -a PIKmod 638 60 | set %dfull 1
  1326. }
  1327.  
  1328. raw 311:*: {
  1329.  
  1330.   if (%pikchrnb != $null) {
  1331.  
  1332.     set %pikmodrnb $6 $+ *
  1333.  
  1334.     mode %pikchrnb +b ~r: $+ %pikmodrnb
  1335.  
  1336.     kick %pikchrnb %pikrnn Nepodoban Full Name! Promenite ga komandom /setname novi full name i vratite se na kanal!
  1337.  
  1338.     unset %pikchrnb
  1339.  
  1340.   }
  1341.  
  1342. }
  1343.  
  1344. alias pikrb {
  1345.  
  1346.   set %pikrnn $1
  1347.  
  1348.   set %pikchrnb $active
  1349.  
  1350.   whois $1
  1351.  
  1352. }
  1353.  
  1354.  
  1355.  
  1356. dialog razlozi {
  1357.  
  1358.   title "Podesi razloge za banove..."
  1359.  
  1360.   size -1 -1 338 52
  1361.  
  1362.   option dbu
  1363.  
  1364.   edit "", 1, 3 14 332 37, disable multi autohs hsbar
  1365.  
  1366.   button "Izmeni", 3, 172 1 37 12
  1367.  
  1368.   button "Sacuvaj", 4, 297 1 37 12
  1369.  
  1370.   combo 2, 4 2 166 50, size drop
  1371.  
  1372.   text "MyH3e KoH3a", 5, 253 4 39 8, disable
  1373.  
  1374. }
  1375.  
  1376. alias razlozi {
  1377.  
  1378.   dialog -ma razlozi razlozi
  1379.  
  1380.   did -a razlozi 2 Ident
  1381.  
  1382.   did -a razlozi 2 Nick
  1383.  
  1384.   did -a razlozi 2 Manje 18+
  1385.  
  1386.   did -a razlozi 2 Vise 18+
  1387.  
  1388.   did -a razlozi 2 FullName
  1389.  
  1390.   did -ac razlozi 2 Ponasanje
  1391.  
  1392.   did -a razlozi 2 NeJavni
  1393.  
  1394.   did -a razlozi 2 Ponavljanje
  1395.  
  1396.   did -a razlozi 2 CBUkick
  1397.  
  1398.   did -a razlozi 2 CBUban
  1399.  
  1400.   did -a razlozi 2 Youtube
  1401.  
  1402.   did -a razlozi 2 SPAM
  1403.  
  1404.   did -a razlozi 2 idle
  1405.  
  1406.   did -a razlozi 2 idle+odgovor
  1407.  
  1408. }
  1409.  
  1410. on 1:dialog:razlozi:sclick:*:{
  1411.  
  1412.   if ($did == 3) && ($did(razlozi,2).seltext == Ponasanje) { did -rea razlozi 1 %pikmdponas }
  1413.  
  1414.   if ($did == 4) && ($did(razlozi,2).seltext == Ponasanje) { set %pikmdponas $did(1) | did -r razlozi 1 | did -a razlozi 1 Sacuvano! }
  1415.  
  1416.   if ($did == 3) && ($did(razlozi,2).seltext == Ident) { did -rea razlozi 1 %pikmdident }
  1417.  
  1418.   if ($did == 4) && ($did(razlozi,2).seltext == Ident) { set %pikmdident $did(1) | did -r razlozi 1 | did -a razlozi 1 Sacuvano! }
  1419.  
  1420. }
  1421.  
  1422. alias banac {
  1423.  
  1424.   var %n = 1, %b = $comchan($$1,0)
  1425.  
  1426.   while (%n <= %b) {
  1427.  
  1428.     if ($me isop $comchan($$1,%n)) {
  1429.  
  1430.       mode $comchan($$1,%n) +b $$1 *!* | kick $comchan($$1,%n) $$1 $iif($2-,$2-,Nepodoban nadimak. Promenite ga komandom /nick novi-nick i vratite se na kanal!)
  1431.  
  1432.     }
  1433.  
  1434.     inc %n
  1435.  
  1436.   }
  1437.  
  1438. }
  1439.  
  1440. # Ovde ide help
  1441. alias barz { if ($dialog(barz)) dialog -v barz | else dialog -m barz barz }
  1442. dialog barz {
  1443.   title "unreal ircd help"
  1444.   icon graph/chanserv.ico
  1445.   option dbu
  1446.   size 1 103 242 14
  1447.   check "Nickserv",3,1 1 48 11,push
  1448.   check "Chanserv",4,49 1 48 11,push
  1449.   check "Memoserv",5,97 1 48 11,push
  1450.   check "Botserv",6,145 1 48 11,push
  1451.   check "Other",22,193 1 48 11,push
  1452.  
  1453.   button "",1,1 17 48 10
  1454.   button "",2,49 17 48 10
  1455.   button "",7,97 17 48 10
  1456.   button "",8,145 17 48 10
  1457.   button "",10,193 17 48 10
  1458.  
  1459.   button "",11,1 27 48 10
  1460.   button "",12,49 27 48 10
  1461.   button "",13,97 27 48 10
  1462.   button "",14,145 27 48 10
  1463.   button "",15,193 27 48 10
  1464.  
  1465.   button "",16,1 37 48 10
  1466.   button "",17,49 37 48 10
  1467.   button "",18,97 37 48 10
  1468.   button "",19,145 37 48 10
  1469.   button "",20,193 37 48 10
  1470.  
  1471.   button "",21,1 47 48 10
  1472.   button "",23,49 47 48 10
  1473.   button "",24,97 47 48 10
  1474.   button "",25,145 47 48 10
  1475.   button "",26,193 47 48 10
  1476.  
  1477.   button "",27,1 57 48 10
  1478.   button "",28,49 57 48 10
  1479.   button "",29,97 57 48 10
  1480.   button "",30,145 57 48 10
  1481.   button "",31,193 57 48 10
  1482.  
  1483.   button "",32,1 67 48 10
  1484.   button "",33,49 67 48 10
  1485.   button "",34,97 67 48 10
  1486.   button "",35,145 67 48 10
  1487.   button "",36,193 67 48 10
  1488.  
  1489.   button "",37,1 77 48 10
  1490.   button "",38,49 77 48 10
  1491.   button "",39,97 77 48 10
  1492.   button "",40,145 77 48 10
  1493.   button "",41,193 77 48 10
  1494.  
  1495.   button "",42,1 87 48 10
  1496.   button "",43,49 87 48 10
  1497.   button "",44,97 87 48 10
  1498.   button "",45,145 87 48 10
  1499.   button "",46,193 87 48 10
  1500. }
  1501. on *:dialog:barz:sclick:*:{
  1502.   if ($did = 3) { barz3 }
  1503.   if ($did = 4) { barz4 }
  1504.   if ($did = 5) { barz5 }
  1505.   if ($did = 6) { barz6 }
  1506.   if ($did = 22) { barz7 }
  1507.   if ($did = 1) {
  1508.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , registraciju nadimka obavljate komandom /msg Nickserv REGISTER zeljenasifra email .. Stavite vas pravi email Sifra mora da se sastoji od najmanje 5 karaktera i ne sme da bude ista kao vash nadimak. | /msg $active Svaki sledeci put kada se ukljucite na Pricaonicu sa tim nadimkom, morate se identifikovati u roku od 60 sekundi, komanda za identifikaciju je  /IDENTIFY shifra. }
  1509.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi nekoga izbacili sa kanala kucajte: /kick #ime-kanala nick razlog (recimo /kick #help $snick($active, 1) ne psuj ) }
  1510.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , memo saljete komandom: /msg Memoserv send nick text (recimo /msg Memoserv send zoran zovi me u nedelju (da bi ste poslali memo, vas nadimak mora biti registrovan, kao i osobi kojoj saljete memo)) }
  1511.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , bot-a  ubacujes na kanal komandom /msg Botserv assign #imekanala botko . Kanal mora biti registrovan, takodje morate biti vlasnik kanala. }
  1512.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ukoliko je to sve sto vas je interesovalo, molimo napustite kanal komandom /part #help , zadrzavanje nije dozvoljeno. }
  1513.   }
  1514.   if ($did = 2) {
  1515.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , informacije o nadimku se dobijaju komandom /msg Nickserv info NADIMAK (na primer /msg Nickserv info $snick($active, 1) $+  ) }
  1516.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da banujete nekog korisnika, kucajte /mode #imekanala +b nick (recimo /mode #help +b $snick($active, 1) . Ban skidate komandom /mode #imekanala -b nick }
  1517.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite za otkazete vasu poslednju poslatu memo poruku, kucajte /msg Memoserv cancel nick (na primer /msg Memoserv cancel pera ) }
  1518.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , bot-a sklanjate sa kanala komandom /msg Botserv unassign #imekanala (morate biti vlasnik kanala da biste izvrsili ovu komandu) }
  1519.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , #help je kanal namenjem iskljucivo za resavanje problema oko CHATA, ako nemate pitanje u vezi chata molimo vas izadjite, takodje sve pohvale, kritike, prituzbe na racun operatera mozete slati na e-mail pricaonice }
  1520.   }
  1521.   if ($did = 7) {
  1522.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , identifikacija za nadimak se vrsi komandom /msg identify SHIFRA (na primer /msg identify 123pik $+  ) }
  1523.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , + (voice) dajete komandom /mode #imekanala +v nick (recimo /mode #help +v $snick($active, 1) . + (voice) oduzimate komandom /mode #imekanala -v nick }
  1524.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da izlistate vase memo poruke, kucajte /msg Memoserv list }
  1525.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , listu botova na raspolaganju mozete videti komandom /msg Botserv botlist }
  1526.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , status operatora na kanalima krstarice je nesto sto se ne trazi nego dobija. Svako ko bude insistirao/molio/trazio @ status, bice momentalno banovan bez daljnjih upozorenja. Sa druge strane, @ status mozete dobiti ako otvorite novi kanal komandom /join #kanal }
  1527.   }
  1528.   if ($did = 8) {
  1529.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , registraciju svog nick-a mozete ponistiti komandom: /msg Nickserv drop }
  1530.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , % (halfop) dajete komandom /mode #imekanala +h nick (recimo /mode #help +h $snick($active, 1) . % (halfop) oduzimate komandom /mode #imekanala -h nick }
  1531.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da procitate memo poruku, kucajte /Msg Nickserv read BROJ-PORUKE (recimo /msg Nickserv read 1 ) }
  1532.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , info nekog bot-a mozete videti komandom /msg Botserv info IMEBOTA (recimo /msg Botserv info KrstaricaBot ). Info bot opcija nekog kanala mozete videti komandom /msg Botserv info #imekanala }
  1533.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi ste kopirali text, selektujte prvo zeljeni text, tako sto cete da kliknete, i povlacite misem preko zeljenog text-a. Text paste-ujte tako sto pritisnete istovremeno CTRL + V  }
  1534.   }
  1535.   if ($did = 10) {
  1536.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , listu svojih statusa mozete videti komandom: /msg Nickserv alist }
  1537.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , @ (op) dajete komandom /mode #imekanala +o nick (recimo /mode #help +o $snick($active, 1) . @ (op) oduzimate komandom /mode #imekanala -o nick }
  1538.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , memo poruku brisete komandom /msg Memoserv del BROJ-PORUKE (recimo /msg Memoserv del 1 )
  1539.     }
  1540.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , preko bot-a mozete pricati komandom /msg Botserv say #imekanala text ili /msg Botserv act #imekanala text }
  1541.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako imate problema sa DCC Chatom/Slanjem: Diskonektujte se sa IRCa, kliknite gore na VIEW , pa na OPTIONS. Pod CONNECT idite na LOCAL INFO, i tu treba da vam bude shtiklirano LOCAL HOST, i ispod toga SERVER. Ako vam dcc i delje ne radi, onda je verovatno problem do vasheg provajdera, i stim nemozete reshiti problem. }
  1542.   }
  1543.   if ($did = 11) {
  1544.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , u slucaju da vam pukne veza pa se vratite na server, ili vas nick iz drugih razloga ostane da "visi" na serveru, mozete ga "ubiti" komandom: /msg Nickserv GHOST nick password ( na primer /msg Nickserv GHOST $snick($active, 1) 123Nesssa ) }
  1545.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da banujete i kikujete istovremeno, kucajte /ban -k #imekanala nick razlog (recimo /ban -k #help $snick($active, 1) ne psuj ) }
  1546.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , informacije o svojim memo porukama mozete videti komandom /msg Memoserv info }
  1547.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako ne zelite da bot kikuje opove, kucajte /msg Botserv set #imekanala dontkickops on . Da iskljucite ovu opciju kucajte /msg Botserv set #imekanala dontkickops off }
  1548.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , PING je nacin da saznate koliko je vremena potrebno nekoj poruci da stigne do vaseg pc-a. Da koristite ping, kucajte: /ctcp nick ping }
  1549.   }
  1550.   if ($did = 12) {
  1551.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , listu svojih grupisanih nickova mozete videti komandom: /msg Nickserv glist }
  1552.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da skines nekom ban na kanalu, klikni 2 puta mishem na prazno na tom kanalu, pojavice ti se prozorcic jedan, tu izaberi ban koji zelis da skines, i kada izaberes, klikni pored na REMOVE }
  1553.     if ($did(barz,5).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da postavite limit koliko memo poruka mozete da primite, kucajte /msg Memoserv set limit BROJ (recimo /msg memoserv set limit 20 ) }
  1554.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako ne zelite da bot kikuje voice korisnike, kucajte /msg Botserv set #imekanala dontkickvoices on . Da iskljucite ovu opciju kucajte /msg Botserv set #imekanala dontkickvoices off }
  1555.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , VERSION je nacin da saznate koju verziju mirc-a koristi neki korisnik. Da koristite VERSION , kucajte /ctcp nick version }
  1556.   }
  1557.   if ($did = 13) {
  1558.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi grupisali nick , kucajte /msg NickServ group nick shifra (recimo: /msg Nickserv group laza 123Nessa ) }
  1559.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da linkujete kanale, kucajte /msg Chaserv set #kanal1 mlock +lL 1 #kanal2 . Na kanalu1 mora biti barem jedna osoba, i svaka sledeca koja pokusa da udje, bice prebacena na kanal2. }
  1560.     if ($did(barz,5).state == 1) { lyrics }
  1561.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , greet opciju mozete ukljuciti ili iskljuciti komandom /msg Botserv set #imekanala greet on/off (ova opcija je po defoult-u ukljucena) }
  1562.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , FINGER je nacin da saznate koliko je korisnik IDLE. Da koristite FINGER , kucajte /ctcp nick finger }
  1563.   }
  1564.   if ($did = 14) {
  1565.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi promenili glavni nadimak u grupi, kucajte /msg Nickserv set display nadimak (recimo: /msg Nickserv set display $snick($active, 1) ) }
  1566.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , autovoice na kanalu namestate, tako sto prvo kucate /msg Chanserv set #imekanala xop off , posle toga /msg Chanserv levels #imekanala set autovoice 0 , i na kraju /msg Chanserv set #imekanala secure off }
  1567.     if ($did(barz,5).state == 1) { sketch }
  1568.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da na kanalu mozete da koristite komande !op !deop !voice i slicne, kucajte /msg Botserv set #imekanala fantasy on . Ovu opciju iskljucujete komandom /msg Botserv set #imekanala fantasy off }
  1569.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi ignorisali nekog korisnika, kucajte /ignore NADIMAK . Da skinete nekog sa ignore, kucajte /ignore -r NADIMAK }
  1570.   }
  1571.   if ($did = 15) {
  1572.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , promena sifre za nick, vrsi se komandom /msg Nickserv SET PASSWORD novasifra . Morate biti identifikovani za nick da biste koristili ovu komandu. }
  1573.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , registracija kanala se obavlja komandom /msg Chanserv REGISTER #imekanala sifrazakanal opiskanala . Naravno prethodno morate otvoriti kanal komandom /join #imekanala . Dakle primer bi bio /join #sobica , pa zatim /msg Chanserv REGISTER #entrance 123Nessa Dobrodosli u moju sobu }
  1574.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot radi sve sto bi inace radio chanserv (da opuje, deopuje, kikuje itd..), kucajte /msg Botserv set #imekanala symbiosis on . Ovu opciju iskljucujete komandom /msg Botserv set #imekanala symbiosis off }
  1575.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi ignorisali nekoga kucajte /silence +nick primer: /silence +Milan . Da bi iskljucili ignorisanje kucajte /silence -nick primer: /silence -Milan . }
  1576.   }
  1577.   if ($did = 16) {
  1578.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , URL(website) mozete postaviti na nadimku komandom: /msg Nickserv set URL noviURL (na primer: /msg Nickserv set URL www.kuliranje.info ). Da sklonite URL(website) sa vasheg nick-a, kucajte /msg Nickserv set URL }
  1579.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da bi ste se identifikovali kao founder kanala, kucajte /mag Chanserv identify #imekanala shifrakanala }
  1580.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za bold slova, kucajte /msg Botserv kick #imekanala bolds on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala bolds off
  1581.     }
  1582.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , voice: ili + tehnicki oznacava osobe koje imaju mogucnost chatovanja i kada je kanal moderisan ( samo @ i + mogu da pricaju). Sa druge strane, + cesto nema tu 'tehnicku' osobinu, nego oznacava da je korisnik na neki nacin prijatelj kanala i rado vidjen gost. }
  1583.   }
  1584.   if ($did = 17) {
  1585.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da  biste postavili/promenili E-Mail na nicku, kucajte: /msg Nickserv set email noviemail (na primer: /msg Nickserv set email pera@hotmail.com ) }
  1586.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , informacije o nekom kanalu mozete videti komandom /msg Nickserv info #imekanala }
  1587.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za ruzne rechi, kucajte /msg Botserv kick #imekanala badwords on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala badwords off | /msg $active Ne dozvoljene rechi mozete dodati komandom /msg Botserv badowrds #imekanala add RECH , a listu vec dodatih ne dozvoljenih rechi, mozete videti komandom /msg Botserv badowrds #imekanala list ) }
  1588.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , Op ili @ tehnicki oznacava osobe koje imaju mogucnost izbacivanja korisnika sa kanala. Op takodje moze dodeljivati + (voice) % (halfop) i @ (op) status. }
  1589.   }
  1590.   if ($did = 18) {
  1591.     if ($did(barz,3).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da postavite greet poruku na vash nadimak, kucajte: /msg Nickserv set greet TEXT
  1592.     }
  1593.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , registraciju kanala mozete ponistiti komandom /msg Chanserv drop #imekanala }
  1594.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za velika slova, kucajte /msg Botserv kick #imekanala caps on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala caps off }
  1595.   }
  1596.   if ($did = 19) {
  1597.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , KEY kanala mozete dobiti komandom /msg Chanserv getkey #imekanala . Da bi ste koristili ovu komandu, morate imati barem AOP status. }
  1598.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za boje, kucajte /msg Botserv kick #imekanala colors on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala colors off }
  1599.   }
  1600.   if ($did = 20) {
  1601.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da sebe pozovete na neki kanal, kucajte /msg Chanserv invite #imekanala . Ovu komandu mozete koristiti ako imate barem AOP status. }
  1602.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za flood, kucajte /msg Botserv kick #imekanala flood on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala flood off }
  1603.   }
  1604.   if ($did = 21) {
  1605.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , da sebi skinete ban na nekom kanalu, kucajte /msg Chanserv unban #imekanala . Da bi ste koristili ovu komandu, morate imati barem AOP status. }
  1606.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za ponavljanje, kucajte /msg Botserv kick #imekanala repeat on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala repeat off }
  1607.   }
  1608.   if ($did = 23) {
  1609.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , VOP dajete komandom /msg Chanserv vop #imekanala add nick (recimo /msg Chanserv vop #help add $snick($active, 1) ). VOP brisete komandom /msg Chanserv vop #imekanala del nick }
  1610.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za reverses, kucajte /msg Botserv kick #imekanala reverses on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala reverses off }
  1611.   }
  1612.   if ($did = 24) {
  1613.     if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , HOP dajete komandom /msg Chanserv hop #imekanala add nick (recimo /msg Chanserv hop #help add $snick($active, 1) ). HOP brisete komandom /msg Chanserv hop #imekanala del nick }
  1614.     if ($did(barz,6).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ako zelite da bot izbacuje za underlines, kucajte /msg Botserv kick #imekanala underlines on . Ovu opciju iskljucujete komandom /msg Botserv kick #imekanala underlines off }
  1615.     if ($did(barz,22).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ACCESS dajete komandom /msg Chanserv access #imekanala add nick NIVO (recimo da date access 5, primer bi bio /msg Chanserv access #help add $snick($active, 1) 5 ). Access skidate komandom /msg Chanserv access #imekanala del nick }
  1616.   }
  1617.   if ($did = 25) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , AOP dajete komandom /msg Chanserv aop #imekanala add nick (recimo /msg Chanserv aop #help add $snick($active, 1) ). AOP brisete komandom /msg Chanserv aop #imekanala del nick } }
  1618.   if ($did = 26) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , SOP dajete komandom /msg Chanserv sop #imekanala add nick (recimo /msg Chanserv sop #help add $snick($active, 1) ). SOP brisete komandom /msg Chanserv sop #imekanala del nick } }
  1619.   if ($did = 27) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , ACCESS dajete komandom /msg Chanserv access #imekanala add nick NIVO (recimo da date access 5, primer bi bio /msg Chanserv access #help add $snick($active, 1) 5 ). Access skidate komandom /msg Chanserv access #imekanala del nick } }
  1620.   if ($did = 28) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , listu statusa nekog kanala mozete videti komandom /msg Chanserv access #imekanala list . Morate imati barem % (halfop) status da bi ste koristili ovu komandu. } }
  1621.   if ($did = 29) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , akick dajete komandom /msg Chanserv akick #imekanala add nick razlog (recimo /msg Chanserv akick #help add $snick($active, 1) reklama ). Akick skidate komandom /msg Chanserv akick #imekanala del nick|maska. Akick listu mozete videti komandom /msg Chanserv akick #imekanala list } }
  1622.   if ($did = 30) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , kanal mozete prebaciti na access rezim komandom /msg Chanserv set #imekanala xop off . } }
  1623.   if ($did = 31) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , novog foundera kanala mozete postaviti komandom /msg Chanserv set #imekanala founder NICK (recimo /msg Chanserv set #help founder $snick($active, 1) ) } }
  1624.   if ($did = 32) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , successor-a mozete postaviti komandom /msg Chanserv set #imekanala successor nick (recimo /msg Chanserv set #help successor $snick($active, 1) ) } }
  1625.   if ($did = 33) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , opis kanala mozete promeniti komandom /msg Chanserv set #imekanala desc OPIS (recimo /msg Chanserv set #entrance desc najbolja soba na chatu ) } }
  1626.   if ($did = 34) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , URL(website) mozete postaviti na kanal komandom /msg Chanserv set #imekanala url NOVIURL (recimo /msg Chanserv set #help url www.kuliranje.info ) } }
  1627.   if ($did = 35) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , EMAIL mozete postaviti na kanal komandom /msg Chanserv set #imekanala email NOVIEMAIL (recimo /msg Chanserv set #help email krstarica@yahoo.com ) } }
  1628.   if ($did = 36) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , entrymsg na kanalu mozete postaviti komandom /msg Chanserv set #imekanala entrymsg TEXT (recimo /msg Chanserv set #help entrymsg dobro dosli na kanal #help ) } }
  1629.   if ($did = 37) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , modove na kanalu mozete zakljucati komandom //msg Chanserv set #imekanala mlock +modovi ili /msg Chanserv set #imekanala mlock -modovi ili /msg Chanserv set #imekanala mlock +modovi-modovi (recimo /msg Chanserv set #help mlock +ntr-ikl ) Modove mozete otkljucati komandom /msg Chanserv set #imekanala mlock +r } }
  1630.   if ($did = 38) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , restricted opciju (na kanal mogu uci samo osobe koje su na access listi) mozete ukljuciti komandom /msg Chanserv set #imekanala restricted on } }
  1631.   if ($did = 39) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , secureops mozete ukljuciti komandom /msg Chanserv set #imekanala secureops on } }
  1632.   if ($did = 40) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , topic kozete zakljucati komandom /msg Chanserv set #imekanala topiclock on } }
  1633.   if ($did = 41) { if ($did(barz,4).state == 1) { /msg $active  $+ $snick($active, 1) $+ , shifru kanala mozete promeniti komandom /msg Chanserv set #imekanala password NOVI-PASS (recimo /msg Chanserv set #help password 123pik ) } }
  1634. }
  1635. alias barz3 {
  1636.   if ( $did(barz,3).state == 0 ) {
  1637.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 29
  1638.     dialog -t barz Pomoc
  1639.     did -e barz 4,5,6,22
  1640.   }
  1641.   else {
  1642.     did -r $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1643.     did -a $dname 1 Registracija
  1644.     did -a $dname 2 Info
  1645.     did -a $dname 7 Identifikacija
  1646.     did -a $dname 8 Drop
  1647.     did -a $dname 10 Alist
  1648.     did -a $dname 11 Ghost
  1649.     did -a $dname 12 Glist
  1650.     did -a $dname 13 Group
  1651.     did -a $dname 14 Set Display
  1652.     did -a $dname 15 Set Password
  1653.     did -a $dname 16 Set URL
  1654.     did -a $dname 17 Set EMAIL
  1655.     did -a $dname 18 Set Greet
  1656.     did -a $dname 19 Auto Join
  1657.     did -a $dname 20 Scripted Text
  1658.     did -a $dname 21 Proxy Scanner Log
  1659.     did -a $dname 23 Auto Greet
  1660.     did -a $dname 24 Script Theme
  1661.     did -v $dname 1,2,7,8,10,11,12,13,14,15,16,17,18
  1662.     did -h $dname 19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1663.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 96
  1664.     dialog -t barz Pomoc - Nickserv
  1665.     did -b barz 4,5,6,22
  1666.   }
  1667. }
  1668. alias barz4 {
  1669.   if ( $did(barz,4).state == 0 ) {
  1670.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 29
  1671.     dialog -t barz Pomoc
  1672.     did -e barz 3,5,6,22
  1673.   }
  1674.   else {
  1675.     did -r $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1676.     did -a $dname 1 Kick
  1677.     did -a $dname 2 ±b
  1678.     did -a $dname 7 ±v
  1679.     did -a $dname 8 ±h
  1680.     did -a $dname 10 ±o
  1681.     did -a $dname 11 BanKick MIRC
  1682.     did -a $dname 12 Skini Ban MIRC
  1683.     did -a $dname 13 Link Kanala
  1684.     did -a $dname 14 AutoVoice
  1685.     did -a $dname 15 Registracija
  1686.     did -a $dname 16 Identifikacija
  1687.     did -a $dname 17 Info
  1688.     did -a $dname 18 Drop
  1689.     did -a $dname 19 Getkey
  1690.     did -a $dname 20 Invite
  1691.     did -a $dname 21 Unban
  1692.     did -a $dname 23 VOP
  1693.     did -a $dname 24 HOP
  1694.     did -a $dname 25 AOP
  1695.     did -a $dname 26 SOP
  1696.     did -a $dname 27 Access
  1697.     did -a $dname 28 Access List
  1698.     did -a $dname 29 Akick
  1699.     did -a $dname 30 Set Xop
  1700.     did -a $dname 31 Set Founder
  1701.     did -a $dname 32 Set Successor
  1702.     did -a $dname 33 Set Desc
  1703.     did -a $dname 34 Set URL
  1704.     did -a $dname 35 Set EMAIL
  1705.     did -a $dname 36 Set Entrymsg
  1706.     did -a $dname 37 Set Mlock
  1707.     did -a $dname 38 Set Restricted
  1708.     did -a $dname 39 Set Secureops
  1709.     did -a $dname 40 Set Topiclock
  1710.     did -a $dname 41 Set Password
  1711.     did -a $dname 42 Set
  1712.     did -a $dname 43 Quits Editor
  1713.     did -a $dname 44 Alarm Clock
  1714.     did -a $dname 45 Dictionary
  1715.     did -v $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41
  1716.     did -h $dname 42,43,44,45,46
  1717.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 175
  1718.     dialog -t barz Pomoc - Chanserv
  1719.     did -b barz 3,5,6,22
  1720.   }
  1721. }
  1722. alias barz5 {
  1723.   if ( $did(barz,5).state == 0 ) {
  1724.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 29
  1725.     dialog -t barz Pomoc
  1726.     did -e barz 3,4,6,22
  1727.   }
  1728.   else {
  1729.     did -r $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1730.     did -a $dname 1 Send
  1731.     did -a $dname 2 Cancel
  1732.     did -a $dname 7 List
  1733.     did -a $dname 8 Read
  1734.     did -a $dname 10 Del
  1735.     did -a $dname 11 Info
  1736.     did -a $dname 12 Set Limit
  1737.     did -v $dname 1,2,7,8,10,11,12
  1738.     did -h $dname 13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1739.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 76
  1740.     dialog -t barz Pomoc - Memoserv
  1741.     did -b barz 3,4,6,22
  1742.   }
  1743. }
  1744. alias barz6 {
  1745.   if ( $did(barz,6).state == 0 ) {
  1746.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 29
  1747.     dialog -t barz Pomoc
  1748.     did -e barz 3,5,4,22
  1749.   }
  1750.   else {
  1751.     did -r $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1752.     did -a $dname 1 Assign
  1753.     did -a $dname 2 Unassign
  1754.     did -a $dname 7 Botlist
  1755.     did -a $dname 8 Info
  1756.     did -a $dname 10 Say/Act
  1757.     did -a $dname 11 DontKickOps
  1758.     did -a $dname 12 DontKickVoices
  1759.     did -a $dname 13 Greet
  1760.     did -a $dname 14 Fantasy
  1761.     did -a $dname 15 Symbiosis
  1762.     did -a $dname 16 Kick Bolds
  1763.     did -a $dname 17 Kick Badword
  1764.     did -a $dname 18 Kick Caps
  1765.     did -a $dname 19 Kick Colors
  1766.     did -a $dname 20 Kick Flood
  1767.     did -a $dname 21 Kick Repeat
  1768.     did -a $dname 23 Kick Reverses
  1769.     did -a $dname 24 Kick Underlines
  1770.     did -v $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24
  1771.     did -h $dname 25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1772.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 116
  1773.     dialog -t barz Pomoc - Botserv
  1774.     did -b barz 3,5,4,22
  1775.   }
  1776. }
  1777. alias barz7 {
  1778.   if ( $did(barz,22).state == 0 ) {
  1779.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 30
  1780.     dialog -t barz Pomoc
  1781.     did -e barz 3,5,4,6
  1782.   }
  1783.   else {
  1784.     did -r $dname 1,2,7,8,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1785.     did -a $dname 1 Napusti kanal
  1786.     did -a $dname 2 Objasni #help
  1787.     did -a $dname 7 Trazenje statusa
  1788.     did -a $dname 8 Cut/paste
  1789.     did -a $dname 10 DCC problem
  1790.     did -a $dname 11 CTCP Ping
  1791.     did -a $dname 12 CTCP Version
  1792.     did -a $dname 13 CTCP Finger
  1793.     did -a $dname 14 Ignore
  1794.     did -a $dname 15 Silence
  1795.     did -a $dname 16 Objasni Voice
  1796.     did -a $dname 17 Objasni Op
  1797.     did -v $dname 1,2,7,8,10,11,12,13,14,15,16,17
  1798.     did -h $dname 18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
  1799.     dialog -s barz $dialog(barz).x $dialog(barz).y 485 96
  1800.     dialog -t barz Pomoc - Razno
  1801.     did -b barz 3,5,4,6
  1802.   }
  1803. }
  1804. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1805. ;;                                          ;;
  1806. ;;          NICKLIST: 'MASS' MENU           ;;
  1807. ;;                BY GUMMO                  ;;
  1808. ;;                                          ;;
  1809. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1810.  
  1811. menu nicklist {
  1812.   -
  1813.   Mass
  1814.   .Voice: mmode chan +v $1-
  1815.   .Devoice: mmode chan -v $1-
  1816.   .Halfop: mmode chan +h $1-
  1817.   .Dehalfop: mmode chan -h $1-
  1818.   .Op: mmode chan +o $1-
  1819.   .Deop: mmode chan -o $1-
  1820.   .Protect: mmode chan +a $1-
  1821.   .Deprotect: mmode chan -a $1-
  1822.   .Owner: mmode chan +q $1-
  1823.   .Deowner: mmode chan -q $1-
  1824.   .-
  1825.   .Mass Kick: mkick $1-
  1826.   .-
  1827.   .Mute NICKs: qban +nick $1-
  1828.   .Unmute NICKs: qban -nick $1-
  1829.   .-
  1830.   .Mute IPs: qban +ip $1-
  1831.   .Unmute IPs: qban -ip $1-
  1832.   .-
  1833.   .Chanserv
  1834.   ..Voice: mmode bot +v $1-
  1835.   ..Devoice: mmode bot -v $1-
  1836.   ..Halfop: mmode bot +h $1-
  1837.   ..Dehalfop: mmode bot -h $1-
  1838.   ..Op: mmode bot +o $1-
  1839.   ..Deop: mmode bot -o $1-
  1840.   ..Protect: mmode bot +a $1-
  1841.   ..Deprotect: mmode bot -a $1-
  1842.   ..Owner: mmode bot +q $1-
  1843.   ..Deowner: mmode bot -q $1-
  1844. }
  1845.  
  1846. ; MASS MUTE/UNMUTE
  1847. alias qban {
  1848.   if ($regex(qban1,$1-,[-+](nick|ip) \S+)) {
  1849.     while ($2) {
  1850.       if ($regex(qban2,$1,[-+]nick)) var %mute %mute $2 $+ !*@*
  1851.       elseif ($regex(qban2,$1,[-+]ip)) {
  1852.         if ($ial($2)) var %mute %mute $address($2,2)
  1853.         else echo 4 -a ERROR: No address for $2 $+ . Please type //who $ $+ chan and try again if you wish to mute this user.
  1854.       }
  1855.       tokenize 32 $1 $3-
  1856.     }
  1857.     var %a $left($1,1)
  1858.     tokenize 32 $regsubex(qban3,%mute,/(\s|^)/g,\1~q:)
  1859.     while ($0) {
  1860.       mode $chan %a $+ $str(b,$modespl) $1- [ $+ [ $modespl ] ]
  1861.       tokenize 32 $ [ $+ [ $calc($modespl + 1) ] $+ ] -
  1862.     }
  1863.   }
  1864.   else echo 14 -a  * /qban: insufficient parameters. /qban <nick/ip> <nick1> <nick2> ... <nickN>
  1865. }
  1866.  
  1867. ; MASS MODES BOTH IN CHANNEL AND WITH CHANSERV
  1868. alias mmode {
  1869.   if ($regex(mmode,$1-,(chan|bot) [-+][vhoaq] \S+)) {
  1870.     tokenize 32 $1-
  1871.     while ($3) {
  1872.       if ($1 == chan) {
  1873.         mode $chan $left($2,1) $+ $str($right($2,1),$modespl) $3- [ $+ [ $calc($modespl + 3) ] ]
  1874.         tokenize 32 $1-2 $ [ $+ [ $calc($modespl + 4) ] $+ ] -
  1875.       }
  1876.       if ($1 == bot) {
  1877.         raw -q privmsg chanserv $replacex($2,+,,-,de,v,voice,h,halfop,o,op,a,protect,q,owner) $chan $3
  1878.         tokenize 32 $1-2 $4-
  1879.       }
  1880.     }
  1881.   }
  1882.   else echo 14 -a  * /mmode: insufficient parameters. /mmodeb <chan/bot> <+/-><v/h/o/a/q> <nick1> <nick2> ... <nickN>
  1883. }
  1884.  
  1885. ; KICK ALL SELECTED NICKS FROM CHANNEL
  1886. alias mkick {
  1887.   if ($1) {
  1888.     var %msg $$?="Please enter a kick message:"
  1889.     while ($0) {
  1890.       kick $chan $1 %msg
  1891.       tokenize 32 $2-
  1892.     }
  1893.   }
  1894.   else echo 14 -a  * /mkick: insufficient parameters. /mkick <nick1> <nick2> ... <nickN>
  1895. }
  1896.  
  1897. ; BAN ALL SELECTED NICKS FROM CHANNEL
  1898. alias mbkick {
  1899.   if ($2) && ($istok(nick ip,$1,32)) {
  1900.     var %msg $$?="Please enter a kick message:"
  1901.     while ($0) {
  1902.       kick $chan $1 %msg
  1903.       tokenize 32 $2-
  1904.     }
  1905.   }
  1906.   else echo 14 -a  * /mbkick: insufficient parameters. /mbkick <nick/ip> <nick1> <nick2> ... <nickN>
  1907. }
  1908. # mass
  1909. alias _ca {
  1910.   goto $1
  1911.   :MASSM
  1912.   var %i = 1 , %usu =  , %nndeop = $modespl
  1913.   if (%nndeop < 4) { var %nndeop = 4 }
  1914.   var %nnndeop = $2 $+ $str($3,%nndeop)
  1915.   :L2
  1916.   %usu = %usu $gettok($4-,%i,44)
  1917.   if ($gettok($4-,%i,44) == $null) { .raw mode $active %nnndeop %usu | return }
  1918.   if ($numtok(%usu,32) == %nndeop) { .raw mode $active %nnndeop %usu | %usu = }
  1919.   inc %i
  1920.   goto L2
  1921. }
  1922.  
  1923. alias masshl {
  1924.   if ($left($1,1) == -) { var %massu $iif(a isin $1 || o isin $1 || h isin $1 || v isin $1 || r isin $1,$remove($1,-),a) | tokenize 32 $2- }
  1925.   else { var %massu a }
  1926.   var %x 1 | var %msg $iif($1,=> $+ $1-) | tokenize 32
  1927.   while (%x <= $nick(#,0,%massu)) { if ($nick(#,%x,%massu) != $me) { tokenize 32 $1- $nick(#,%x,%massu) }
  1928.     inc %x
  1929.   }
  1930.   tokenize 32 $1- %msg
  1931.   while ($$1-) { say $1-30 | tokenize 32 $31- }
  1932. }
  1933. alias masshlbs {
  1934.   if ($left($1,1) == -) { var %massu $iif(a isin $1 || o isin $1 || h isin $1 || v isin $1 || r isin $1,$remove($1,-),a) | tokenize 32 $2- }
  1935.   else { var %massu a }
  1936.   var %x 1 | var %msg $iif($1,=> $+ $1-) | tokenize 32
  1937.   while (%x <= $nick(#,0,%massu)) { if ($nick(#,%x,%massu) != $me) { tokenize 32 $1- $nick(#,%x,%massu) }
  1938.     inc %x
  1939.   }
  1940.   tokenize 32 $1- %msg
  1941.   while ($$1-) { bs say $chan $1-30 | tokenize 32 $31- }
  1942. }
  1943. alias spambs {
  1944.   bs say $chan Ajmo svi koji nisu na /server -m irc.x-serv.us.to ili preko Flash chata -=> http://x-serv.us.to/chat/
  1945.   masshlbs $chan
  1946. }
  1947.  
  1948. menu channel {
  1949.   Mass slap!
  1950.   .$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
  1951.   .$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
  1952. }
  1953.  
  1954. #slap on
  1955. alias slapall {
  1956.   if $($+(%,sent,.,$chan),2) { return }
  1957.   beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
  1958.   if (%warn == $yes) {
  1959.     var %x = 1, %y = $nick($active,0)
  1960.     while (%x <= %y) {
  1961.       if (!$istok($me,$nick($active,%x),32)) {
  1962.         $+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with a large trout
  1963.       }
  1964.       inc %x
  1965.     }
  1966.     set -u10 $+(%,sent,.,$chan) 1
  1967.   }
  1968. }
  1969. #slap end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!