Ape Ni....Haish Penink Aku

on *:start:{
  if ($version < 6.01) {
    echo -a This script requires mIRC v6.01 or later to run!
    echo -a You are using mIRC v $+ $version
    echo -a Unloading 13* 0,4MALAY 4,0SIA 13* 0,4by 13* 4,0[GT`Crewz]
    unload -rs $script
    titlebar
    halt
  }
  else {
    if ($group(#revenge) == on) {
      titlebar [ON]
    }
    else {
      titlebar [OFF]
    }
    fullname 0,4[GT` 4,0Crewz]
  }
}

on *:connect:{
  if (%chan) {
    raw -q join %chan
    timeron 1 1 signal -n revenge
  }
}

on *:signal:revenge:{
  enable #revenge
  titlebar [ON]
  hop -c %chan
  unset %chan
}

on *:deop:#:{
  if (($opnick == $me) && ($nick != $me)) {
    ChanServ op $chan $me
  }
}

on *:ban:#:{
  if (($banmask iswm $address($me,5)) && ($nick != $me)) {
    if ($me isop $chan) {
      raw -q mode $chan -b $banmask
    }
    else {
      ChanServ op $chan $me
      raw -q mode $chan -bo $banmask $me
    }
  }
}

on *:kick:#:{
  if ($knick == $me) {
    if (($nick == ChanServ) || ($nick == $me)) {
      raw -q join $chan
    }
    else {
      if ($group(#revenge) == on) {
        inc %slow
        hadd -m enemy $nick $nick
        if (%slow == 1) {
          raw -q join $chan
        }
        elseif (%slow == 2) {
          timerdelay 1 5 raw -q join $chan
        }
        else {
          unset %slow
          disable #revenge
          titlebar [OFF]
          set %chan $chan
          if ($me ison %chan) {
            raw -q part %chan
          }
          server
        }
      }
      else {
        raw -q join $chan
      }
    }
  }
  else {
    if ($nick == $me) {
      var %w = 1
      while ($hget(enemy,%w).item) {
        if ($knick == $hget(enemy,%w).data) {
          unset %slow
        }
        inc %w
      }
    }
  }
}

raw 474:*:{
  ChanServ unban $2 $me
  raw -q join $2
}

ctcp *:version:*:{
  ctcpreply $nick version
}

#revenge off

on *:op:#:{
  if ($opnick == $me) {
    var %x = 1
    while ($nick($chan,%x)) {
      var %y = 1
      while ($hget(enemy,%y).item) {
        if ($nick($chan,%x) == $hget(enemy,%y).data) {
          raw -q kick $chan $nick($chan,%x) : 0,4Tendangan 4,0Tanpa 0,4Bayang 4,0Bertalu2 0,4[$nick]
        }
        inc %y
      }
      inc %x
    }
  }
}

on @*:join:#:{
  var %z = 1
  while ($hget(enemy,%z).item) {
    if ($nick == $hget(enemy,%z).data) {
      raw -q kick $chan $nick : 0,4 %reason 13* 0,4MALAY 4,0SIA 13* 0,4by 13* 4,0GT`Crew 13* 0,4 %reason | inc %reason
    }
    inc %z
  }
}

#revenge end

menu status,channel,nicklist,query {
  MALAYSIA
  .ON:{
    enable #revenge
    titlebar [ON]
    if (($menu == channel) || ($menu == nicklist)) {
      if ($me isop $chan) {
        raw -q mode $chan +eI $me $me
      }
      else {
        ChanServ op $chan $me
        raw -q mode $chan +eI $me $me
      }
      msg $chan 0,4[ON] 4,0Loading••••• 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
    else {
      echo -a 0,4[ON] 4,0Loading••••• 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
  }
  .OFF:{
    disable #revenge
    titlebar [OFF]
    if (($menu == channel) || ($menu == nicklist)) {
      if ($me isop $chan) {
        raw -q mode $chan +eI $me $me
        raw -q mode $chan +v-o $me $me
      }
      else {
        ChanServ op $chan $me
        raw -q mode $chan +eI $me $me
        raw -q mode $chan +v-o $me $me
      }
      msg $chan 0,4[OFF] 4,0Loading••••• 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
    else {
      echo -a 0,4[OFF] 4,0Loading••••• 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
  }
  .CLEAR:{
    if ($hget(enemy)) {
      hfree enemy
    }
    unsetall
    if (($menu == channel) || ($menu == nicklist)) {
      msg $chan 0,4[CLEAR] 13 * 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
    else {
      echo -a 0,4[CLEAR] 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
  }
  .-
  .ADD (PenjajaH):{
    var %add = $?="Masukan Nick:"
    if ((%add) && (%add != $me)) {
      hadd -m enemy %add %add
      unset %add
    }
  }
  .AMpuni (PEnjajaH):{
    if ($hget(enemy)) {
      var %remove = $?="Nick:"
      if (%remove) {
        hdel enemy %remove
        unset %remove
      }
    }
  }
  .DAFTAR (PenjajaH):{
    var %v = 1
    while ($hget(enemy,%v).item) {
      echo -a $hget(enemy,%v).data
      inc %v
    }
  }
  .-
  .About MALAYSIA GT`Crew:{
    if (($menu == channel) || ($menu == nicklist)) {
      msg $chan 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
    else {
      echo -a 13* 0,4MALAY 4,0SIA 0,4MER 4,0DEKA 13* 0,4by 13* 4,0GT`Crewz
    }
  }
}

http://irc.facebookirc.org:9090/