WebsiteKeuring.be Forum | Topic : [mIRC] Power script

Posts : 324
Offline

Een script om te laten zien hoeveel "power" (macht) je hebt.

Plaats in je remote:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36


alias power {

  set %i 1 | set %power 0 | set %power.total 0 | set %power.op 0

  while (%i <= $chan(0)) {

    if ($me isop $chan(%i)) {

      inc %power $nick($chan(%i),0)

      inc %power.op

    }

    inc %power.total $nick($chan(%i),0)

    inc %i

  }

  set %power.p $calc((%power / %power.total) * 100) | set %power.p1 $calc((%power.op / $chan(0)) * 100)

  set %bar.0 $chr(91) | set %i 1 | set %x $round($calc(%power.p / 10),0)

  while (%i <= %x) {

    set %bar.0 %bar.0 $+ 4|

    inc %i

  }

  set %x $calc(10 - %x) | set %i 0

  while (%i < %x) {

    set %bar.0 %bar.0 $+ 15|

    inc %i

  }

  set %bar.0 %bar.0 $+  $+ $chr(93) | set %bar.1 $chr(91)

  set %i 1 | set %x $round($calc(%power.p1 / 10),0)

  while (%i <= %x) {

    set %bar.1 %bar.1 $+ 4|

    inc %i

  }

  set %x $calc(10 - %x) | set %i 0

  while (%i < %x) {

    set %bar.1 %bar.1 $+ 15|

    inc %i

  }

  set %bar.1 %bar.1 $+  $+ $chr(93)

  msg $active Power: %power $+ / $+ %power.total ( $+ $ceil(%power.p) $+ $chr(37) $+ ) %bar.0 users. Ops: %power.op $+ / $+ $chan(0) ( $+ $ceil(%power.p1) $+ $chr(37) $+ ) %bar.1 channels.

  unset %power.* | unset %bar.*

}