mIRC SCRIPT

[utana_anata]

Ayo share tentang mirc script disini

[sembilanbenua]

nah...kamoe-kamoe yang punya script langsung lah...posting....coi....

[boy_JOMLO]

Viva musi-it

[sembilanbenua]

bentar ...om Vaynard tu..mau posting.....

[vay]

niihh... scriptnya.. baby script ver.1 bikinan nya om Successor http://www.indowebster.com/BabyIRC_Script_v101.html

cobain aja ..

[BADAK]

UPDATE: v01.10.2009 PremaNshift http://www.box.net/shared/xgh89e7fq3 UPDATE: v06.10.2009 PremaNhybrid http://www.box.net/shared/03bm1c80y0 Multi Spoof, Multi Server, Multi Port, Auto Reopen, Combo Kick, Single Join, Anti Deop, Anti Ban, Fishing Mode, Master Protection PremaN Official Theme Song http://www.box.net/shared/jvz6fju1s6 '

[BADAK]

F10 { Var %bjt $ticks | Var %deltok 1 | :start | If ($calc($ticks - %bjt) <= 100) { Inc %deltok | Goto Start }
Msg $active $str($chr(160),34) $str(-=-,5) %1 $+ InFo $str(-=-,5)
Msg $active $str($chr(160),33) %1 $+ My Kecepatan koneksiku ( $round($calc((%deltok * 3.13) / 97 ),2) %1 $+ )Kbps
Msg $active $str($chr(160),40) %1 $+ Ko MPUter ku Kcepatan ( $CPUspd %1 $+ ) Mhz
Msg $active $str($chr(160),28) %1 $+ Windows $os Uptime ( $duration($int($calc($ticks / 1000))) %1 $+ )
Msg $active $str($chr(160),10) %1 $+ $power
Msg $active $str($chr(160),10) $str(-=-,5) %logo $str(-=-,5)
}
CPUspd { Var %protest $ticks | Var %mhz 1 | :start | If ($calc($ticks - %protest) <= 100) { Inc %mhz | Goto Start } | Return $calc(%mhz * 1) }
;---------------------------------------( Power Test )--------------------------------------------------
Power {
Var %i 1 | Var %power 0 | Var %power.total 0 | Var %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
}
Var %power.p $calc((%power / %power.total) * 100) | Var %power.p1 $calc((%power.op / $chan(0)) * 100)
Var %bar.0 $chr(91) | Var %i 1 | Var %x $round($calc(%power.p / 10),0)
While (%i <= %x) {
Var %bar.0 %bar.0 $+ |
Inc %i
}
Var %x $calc(10 - %x) | Set %i 0
While (%i < %x) {
Var %bar.0 %bar.0 $+ |
Inc %i
}
Var %bar.0 %bar.0 $+ $+ $chr(93) | Set %bar.1 $chr(91)
Var %i 1 | Var %x $round($calc(%power.p1 / 10),0)
While (%i <= %x) {
Var %bar.1 %bar.1 $+ |
Inc %i
}
Var %x $calc(10 - %x) | Set %i 0
While (%i < %x) {
Var %bar.1 %bar.1 $+ |
Inc %i
}
Var %bar.1 %bar.1 $+ $+ $chr(93)
Return Kuasa: %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.* %bar.* %link* %power* %x*
}

{ var %checker = $ticks | var %chai = 1 | :start | if ($calc($ticks - %checker) <= 100) { .inc %chai | goto start } | msg $active Connection Speed: $round

[boy_JOMLO]

cak mano caro pake boz ?

[vay]

buka remote di mirc, terus pilih tab menu alias, copy paste script diatas, terus save.

ketik /remote on di mirc.

tekan f10 untuk tampilanya..

[kiddies]

Originally Posted by BADAK

F10 { Var %bjt $ticks | Var %deltok 1 | :start | If ($calc($ticks - %bjt) <= 100) { Inc %deltok | Goto Start }
Msg $active $str($chr(160),34) $str(-=-,5) %1 $+ InFo $str(-=-,5)
Msg $active $str($chr(160),33) %1 $+ My Kecepatan koneksiku ( $round($calc((%deltok * 3.13) / 97 ),2) %1 $+ )Kbps
Msg $active $str($chr(160),40) %1 $+ Ko MPUter ku Kcepatan ( $CPUspd %1 $+ ) Mhz
Msg $active $str($chr(160),28) %1 $+ Windows $os Uptime ( $duration($int($calc($ticks / 1000))) %1 $+ )
Msg $active $str($chr(160),10) %1 $+ $power
Msg $active $str($chr(160),10) $str(-=-,5) %logo $str(-=-,5)
}
CPUspd { Var %protest $ticks | Var %mhz 1 | :start | If ($calc($ticks - %protest) <= 100) { Inc %mhz | Goto Start } | Return $calc(%mhz * 1) }
;---------------------------------------( Power Test )--------------------------------------------------
Power {
Var %i 1 | Var %power 0 | Var %power.total 0 | Var %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
}
Var %power.p $calc((%power / %power.total) * 100) | Var %power.p1 $calc((%power.op / $chan(0)) * 100)
Var %bar.0 $chr(91) | Var %i 1 | Var %x $round($calc(%power.p / 10),0)
While (%i <= %x) {
Var %bar.0 %bar.0 $+ |
Inc %i
}
Var %x $calc(10 - %x) | Set %i 0
While (%i < %x) {
Var %bar.0 %bar.0 $+ |
Inc %i
}
Var %bar.0 %bar.0 $+ $+ $chr(93) | Set %bar.1 $chr(91)
Var %i 1 | Var %x $round($calc(%power.p1 / 10),0)
While (%i <= %x) {
Var %bar.1 %bar.1 $+ |
Inc %i
}
Var %x $calc(10 - %x) | Set %i 0
While (%i < %x) {
Var %bar.1 %bar.1 $+ |
Inc %i
}
Var %bar.1 %bar.1 $+ $+ $chr(93)
Return Kuasa: %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.* %bar.* %link* %power* %x*
}

{ var %checker = $ticks | var %chai = 1 | :start | if ($calc($ticks - %checker) <= 100) { .inc %chai | goto start } | msg $active Connection Speed: $round

thx badak....