remote dr sukhoy

On *:kick:#: { skick }
On *:op:#: { sop }
on +10:join:#: { raw -q kick %chan $nick : $+ 4 | halt }
On *+*:join:#: { sjoin | ssjoin }
on *:signal:xkill: {
raw -q kick %chan %nick : $+ 4
}
on *:signal:*:{
if ($signal == superkick1) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick2) { .scon -a raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick3) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick4) { .scon -a raw -q kick %chan %nick : $+ 4 }
}
alias ssjoin {
if ($event == join) {
raw -q kick %chan %nick : $+ 4
if ($nick == %nick) {
signal -n xkill
}
}
}
alias -l wirc {
.set %timer $r(1,5)
timerW 1 %timer join %chan
}
alias -l sskick { if ($istok($nick,$me,C) == $true) && ($event == kick) { signal -n superkick1 | halt } }
alias -l skick { if ($istok($knick,$me,C) == $true) && ($event == kick) { .set %chan # | .set %nick $nick | .auser 10 $nick | $wirc } }
alias -l sop { if ($istok($opnick,$me,C) == $true) && (%nick isop #) && ($event == op) { super | .timerF off } }
alias -l sjoin { if ($istok($nick,%nick,C) == $true) && ($event == join) { signal -n superkick3 } }
alias -l super { signal -n superkick4 }
on *1:RAWMODE:#:{
if ($regex($1,[vhoaq])) && ($istokcs($2-,$me,32)) {
var %modechrpos 1
var %modenick 1
while (%modechrpos <= $len($1)) {
set %modechr $mid($1,%modechrpos,1)
if (%modechr == +) { var %mode+ $true }
if (%modechr == -) { unset %mode+ }
if ($regex(%modechr,[vhoaq])) {
if ($gettok($2-,%modenick,32) === $me) {
if (%mode+ == $true) {
if (%modechr isin %statuslost) { var %statuslost $remtok(%statuslost,%modechr,32) }
else { var %statusgained %statusgained %modechr }
}
else {
if (%modechr isin %statusgained) { var %statusgained $remtok(%statusgained,%modechr,32) }
else { var %statuslost %statuslost %modechr }
}
}
inc %modenick
}
inc %modechrpos
}
if (o isin %statusgained) {
if (%nick ison $chan) {
raw -q kick $chan %nick : $+ 4
}
}
unset %modechr
}

Mari Kita Mencantikkan Lagi mIRC kita ketika berchatting

on ^1:TEXT:*:#:{
  if ($istok($1-,$me,32)) && ($chan !== $active) { 
    echo -a  4 !  Dari  4 $+ $chan   4<  $+ $chr(3) $+ $color(normal text) $+ $nick $+  4>  $+ $chr(3) $+ $color(normal text) $1- | .flash -r3 PM : $nick 
  }
  if ($isowner($chan,$nick) == $true) {
    echo #  13<  $+  6~  $+ $chr(3) $+ $color(normal text) $+ $nick $+  13>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
  if ($isadmin($chan,$nick) == $true) {
    echo #  9<  $+  3&  $+ $chr(3) $+ $color(normal text) $+ $nick $+  9>  $chr(3) $+ $color(normal text) $+ $1-
    halt 
  }
  if ($nick isop #) {
    echo #  4<  $+  5@  $+ $chr(3) $+ $color(normal text) $+ $nick $+  4>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
  if ($nick ishop #) {
    echo #  8< 7%  $+ $chr(3) $+ $color(normal text) $+ $nick $+  8>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
  if ($nick isvo #) {
    echo #  12<  $+  2+  $+ $chr(3) $+ $color(normal text) $+ $nick $+  12>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
  if (- isin $left($nick(#,$nick).pnick,$+(-,$len($nick)))) {
    echo #  15< $+  14-  $+ $chr(3) $+ $color(normal text) $+ $nick $+  15>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
  else { 
    echo #  14<  $+ $chr(3) $+ $color(normal text) $+ $nick $+  14>  $chr(3) $+ $color(normal text) $+ $1-
    halt
  }
}
on ^*:ACTION:*:#:{ 
  if ($istok($1-,$me,32)) && ($chan !== $active) { 
    echo -a  4 *  Dari  4 $+ $chan   4*  $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1- | .flash -r3 PM : $nick 
  }
  if ($isowner($chan,$nick) == $true) {
    echo # $chr(3) $+ $color(action text) *  6~  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
  if ($isadmin($chan,$nick) == $true) {
    echo # $chr(3) $+ $color(action text) $+ *  3&  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt 
  }
  if ($nick isop #) {
    echo # $chr(3) $+ $color(action text) $+ *  5@  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
  if ($nick ishop #) {
    echo # $chr(3) $+ $color(action text) $+ *  7%  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
  if ($nick isvo #) {
    echo # $chr(3) $+ $color(action text) $+ *  2+  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
  if (- isin $left($nick(#,$nick).pnick,$+(-,$len($nick)))) {
    echo # $chr(3) $+ $color(action text) $+ *  14-  $+ $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
  else { 
    echo # $chr(3) $+ $color(action text) $+ * $chr(3) $+ $color(action text) $+ $nick $+ $chr(3) $+ $color(action text) $1-
    halt
  }
}
alias isadmin {
  if ($isid) return $iif($nick($1,$2,$mid($prefix,$pos($nickmode,a),1)) || $istok($ial($2).mark,a $+ $1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,a $!+ $!1,32)),2)
}
alias isowner {
  if ($isid) return $iif($nick($1,$2,q) || $istok($ial($2).mark,$1,32),$true,$false)
  .ialmark $2 $($+($,$3,tok($ial($2).mark,$1,32)),2)
}
on *:join:#:{ isowner # $nick rem }
on *:owner:#:{ isowner # $opnick add }
on *:deowner:#:{ isowner # $opnick rem }

Perghhhhh Sah X lag lg lau ber mirc

REMOTE POWER UNTUK KAKI MJ ATAU BANJIRIAN

Remote MortalCombat Dr Kengkawan

#mortalkombatSINGLE on
alias -l serv { return irc.plasa.com irc.telkom.net.id irc.indo.net.id irc.big.net.id irc.jatara.net.id irc.citra.net.id irc.uii.net.id irc.jmn.net.id }
alias sx { sockwrite -nt $1- }
alias F1 hfree -sw foes | unset %kicker | .set %jn 0
alias F2 .set %warbot $iif($?="Bot Name?",$v1,MORTALKOMBAT) | /warbot %warbot irc.plasa.com
alias F3 /sockwrite -nt * part %c
alias F4 /sockwrite -nt $sock(*,1) join %c
alias F7 hfree -sw warbot_* | hfree -sw foes | unset %k | set %c $iif($?="War Channel?",$v1,#hell) | /sockclose *
alias warbot {
var %nick $1, %serv = $2, %sockname = $+(warbot_,%nick)
if $regex($2,^(.*).*)$) { var %serv $regml(1), %port = $regml(2) }
elseif $regex($2,^(.*)$) { var %serv $regml(1), %port = 6667 }
.sockclose %sockname | .sockopen %sockname %serv %port
sockmark %sockname Connecting
hadd -m %sockname me %nick
}
on *:sockopen:warbot_*:{
var %me = $hget($sockname,me)
var %user $lower($regsubex(%me,/\W/g,))
sx $sockname NICK %me
sx $sockname user %user * * : 4,1\ 10M 4\ 1,10ORTAL 4,1\ 10,1KOMBAT 4,1\
.sockmark %sockname *
.inc %nserv
}
on *:sockread:warbot_*:{
if ($sockerr > 0) { return }
var %me = $hget($sockname,me)
sockread -f %raw
if ($sockbr == 0) { return }
if ($gettok(%raw, 1, 32) == PING) { sockwrite -n $sockname PONG $gettok(%raw,2-,32) }
if ($gettok(%raw, 2, 32) == 376) {
echo 4 -a $sockname Successfully Connected...
.timer -mc 3 30 sx $sock(warbot_*,1).name join %c
}
if ($gettok(%raw, 2, 32) == 433) {
/warbot %warbot $+ _ $gettok($serv,%nserv,32)
sz
}
if ($gettok(%raw, 2, 32) == ERROR) { sz $sockname }
if ($gettok(%raw, 2, 32) == KICK) && ($hget($sockname,me) == $gettok(%raw,4,32)) {
var %bn = $sock(*,0) | .inc %jn | if (%jn > %bn) { .set %jn 1 }
.set %k $gettok($right(%raw,-1),1,33)
.inc %mekick
if (%nserv >  { .set %nserv 1 }
if (%mekick >= 3) {
/F3
.unset %mekick
/warbot %warbot $gettok($serv,%nserv,32)
halt
}
if (!$hfind(foes,%k,0)) { hadd -m foes %k }
if (!$hfind(foes,$mask($gettok(%raw,1,32),2),0)) { hadd -m foes $mask($gettok(%raw,1,32),2) }
sx $sock(warbot_*,1).name join %c
}
if ($gettok(%raw, 2, 32) == 401) { halt }
if ($gettok(%raw, 2, 32) == 441) { halt }
if ($gettok(%raw, 2, 32) == JOIN) && ($pos(%raw,$hget($sockname,me),1) > 0) { sx $sock(warbot_*,1).name $eval(kick %c %k $1) : $+ 4,1\ 10M 4\ 1,10ORTAL 4,1\ 10,1KOMBAT 4,1\ }
if ($gettok(%raw, 2, 32) == JOIN) {
var %n = $gettok($right(%raw,-1),1,33)
if ($hfind(foes,$mask($gettok(%raw,1,32),2),0)) { sx $sock(warbot_*,1).name $eval(kick %c %n $1) : $+ 4,1\ 10M 4\ 1,10ORTAL 4,1\ 10,1KOMBAT 4,1\
}
}
}
alias sz {
var %n = $sockname
sockclose %n | /echo -a %n Remote Quit
sockopen %n $gettok($serv,%nserv,32) 6667
}
#mortalkombatSINGLE end