on *:notice:*:*:if $nick == Chanserv && wait 3 isin $1- { .disconnect }
#wann off
on +7:join:#:.chanserv deop # %n7 | kick # %n7 15[4x15] 10enemy detection - Apollusia.clanz™ 15[4x15]
on !*:op:#:.kick # %n7 15[12x15] 10deop protection - Apollusia.clanz™ 15[12x15] 
on +7:deop:#:.kick # $opnick 15[14x15] 10lagging kick - Apollusia.clanz™ 15[14x15]
on !*:deop:#:if $opnick == $me { chanserv op # $me } 
on !*:kick:#: {
  if $nick == Chanserv { halt }
  elseif $knick == $me { 
    %n7 = $nick
    %c7 = $chan
    .auser 7 %n7
    .timer 1 3 signal -n wann 
  }
}
on *:signal:wann:.timerDEOP -m 1 420 cs deop %c7 %n7 | .timerJOIN -m 1 515 raw -q join %c7 | .timer -mc 2 755 kick %c7 %n7 15[9x15] 10kick protection - Apollusia.clanz™ 15[9x15] 
#wann end
on *:input:*: {
  if $1 == .on { .enable #wann | .nick $mnick | halt } 
  if $1 == .off { .disable #wann | halt }
  if $1 == .clr { .disable #wann | rlevel 7 | unset %n7 %c7 | tnick $mnick $+ \C | halt } 
  if $1 == .ok { .disable #wann | cs deop # $me | enable #wann | halt } 
  if $1 == .op { .cs op # $me | halt } 
  if $1 == .deop { .cs deop # $me | halt }
  if $1 == .kick { .auser 7 $2 | set %n7 $2 | set %c7 # | kick %c7 %n7 $3- 15[7x15] 10revenge launch - Apollusia.clanz™ 15[7x15] | halt } 
  if $1 == .on2 { .enable #Dragon | halt }
  if $1 == .off2 { .disable #Dragon | halt }
  if $1 == .clr2 { .disable #Dragon | rlevel author | uset %2 %3 | tnick $mnick $+ \c | halt }
}
menu nicklist { 
  $iif($me isop $chan,Spin)
  .Spin 1 {    
    .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1    
    .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
    .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | .raw mode # +o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 
  }
}
on *:disconnect:.timerRC -m 1 1000 .server webmaster.webmaster.com 7000
on *:connect:{
  .identd on $r(1,9999)
  .msg nickserv sidentify Nalika farhana3a 
  .timer 1 2 umode +mMLi
}
raw 386:*:{
  if %n7 == $null { .halt }
  else {
    .timerDEOP -m 1 420 cs deop %c7 %n7
    .timerJOIN -m 1 515 raw -q join %c7
    .timer -mc 2 755 kick %c7 %n7 15[8x15] 10war  rebegin - Apollusia.clanz™ 15[8x15] 
  }
}
#Dragon off
on !*:kick:#: {
  if ($nick == chanserv) { halt }
  if ($nick == $me) { $nickz }
  if ($knick == $me) { %2 = $chan | %1 = $mask($fulladdress,4)) | %3 = $nick | /.auser author %1 | /.cs invite %2 | /.cs deop %2 %3 } 
  else { goto n }
  :n 
}
on !*:op:%2: { if ($opnick == $me && %3 ison $chan) { .kick $chan %3 Cinta dan benci... ~!@#$%^&*()*&^%$#@! | .auser author %1 | halt } } 
on +author:join:#: {
  if ($me isop $chan) { $spinz }
  if ($me !isop $chan) { $deopz }
  if ($me !isop $chan) { $kickz }
  if ($me !isreg $chan) { halt }
}
on +author:nick:.kick $comchan($newnick,1)) $newnick Kasih dan sayang... ~!@#$%^&*()*&^%$#@! | halt } 
on !*:deop:#:raw .chanserv op $chan $me | .timer -m 1 1 $nickz 
on +author:op:#: { 
  if ($me isop $chan) { $kickz }
  if ($me !isop $chan) { chanserv deop $chan $nick | $kickz } 
  if ($me !isreg $chan) { halt }
}
alias spinz {  if (%spinz == on) && ($me isop $chan) { mode # +o-o+o-o+o-o $nick $nick $nick $nick $nick $nick | $kickz | $nickz | halt }
alias deopz { .chanserv deop %2 %3 | $kickz | halt } } 
alias kickz { .kick $chan $nick Suka dan rindu... ~!@#$%^&*()*&^%$#@! | $nickz } }
alias nickz { if (%ns == on) { nick $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(a,z) $+ $r(1,200) $+ $r(a,z) $+ $r(1,200) $+ $r(a,z) | halt } } 
#Dragon end

alias xfinfo { dialog -m xinformation xinformation }
dialog xinformation { 
  title "File Information 1.0a [/xfinfo]"
  size -1 -1 230 65
  option dbu
  text "File Information", 1, 10 12 60 10 10 
  button "Select File", 2, 95 10 50 10 10
  text "Path:", 3, 10 25 20 10 10
  text "Filename:", 4, 105 25 30 10 10
  text "Created:", 5, 10 35 22 10 10
  text "Size:", 6, 105 35 20 10 10 
  text "n/a", 7, 35 25 60 10 10
  text "n/a", 8, 145 25 60 10 10
  text "n/a", 9, 35 35 60 10 10
  text "n/a", 10, 145 35 60 10 10
  text "Last access:", 11, 10 45 40 10 10 
  text "n/a", 12, 45 45 100 10 10
  box "File Information", 13, 2 2 226 56 10
  button "Run file", 17, 160 10 50 10 10
  button "Ok", 18, 160 45 50 10, ok

}


on 1:dialog:xinformation:sclick:16:.remove %sdwn.myfile
on 1:dialog:xinformation:sclick:17:.run %sdwn.myfile
on 1:dialog:xinformation:sclick:2:{
  set %sdwn.myfile $sfile($mircdir,Select a file to display information) 
  did -r $dname 7
  did -r $dname 8
  did -r $dname 9
  did -r $dname 10
  did -r $dname 12
  did -a $dname 7 $nofile(%sdwn.myfile)
  did -a $dname 8 $nopath(%sdwn.myfile)
  did -a $dname 9 $asctime($file(%sdwn.myfile).ctime, dd.mm.yyyy - HH:nn)
  did -a $dname 10 $round($calc($file(%sdwn.myfile).size / 1048576),2) MB - $round($calc($file(%sdwn.myfile).size / 1024),2) KB
  did -a $dname 12 $asctime($file(%sdwn.myfile).atime,dd.mm.yyyy - HH:nn) 
}
menu menubar {
  File information:xfinfo

}
;proxy password
alias prx_pass { return password }

;proxy port
alias prx_port { return 9000 }

;scon of net to use proxy on
alias prx_net { return 1 }

;Proxy Server Name
alias prx_name { return Nalika.mIRC.Proxy }

;Allow /COMMAND? (security risk)
alias prx_allowcmd { return NO }

;Allow /eCOMMAND? (Major security risk)
alias prx_allowevalcmd { return NO }

alias proxy { socklisten proxy $prx_port | scon $prx_net debug -i @dbg prx_debug | window -h @dbg }
ON *:SOCKLISTEN:proxy:{
  var %tmp = $rand(1,99999)
  sockaccept proxy.auth. $+ %tmp
  sockwrite -tn proxy.auth . $+ %tmp : $+ $prx_name NOTICE AUTH :*** Awaiting login
}
alias prx_userlist {
  scon $prx_net
  var %lcv2 = 1
  var %nicks
  while (%lcv2 <= $nick($1,0)) {
    var %nicks = %nicks $prx_pnick($nick($1,%lcv2).pnick) $+ $nick($1,%lcv2) 
    inc %lcv2
  }
  return %nicks
}
alias prx_pnick { 
  if (!$regex(m/[A-Za-z`_0-9-]/i,$mid($1,1,1))) { return $mid($1,1,1) }
  else { return }
}
ON *:SOCKREAD:proxy.auth.*:{ var %tmp | sockread %tmp | tokenize 32 %tmp 
  if (!$sock($sockname).mark) { if ($1 != PASS) { sockwrite $sockname ERROR :You must use PASS first... | sockclose $sockname }
    else { if ($2 != $prx_pass) { sockwrite $sockname ERROR :Incorrect pass... | sockclose $sockname } 
  else { sockmark $sockname pass } } }
  else { if ($sock($sockname).mark == pass) { if ($1 == NICK) { sockmark $sockname nick: $+ $2 }
    if ($1 == USER) { sockmark $sockname USER } }
    elseif ($sock($sockname).mark == USER) { if ($1 == NICK) { sockmark $sockname USER nick: $+ $2 | prx_authd $sockname } } 
elseif (nick:* iswm $sock($sockname).mark) { if ($1 == USER) { sockmark $sockname USER $sock($sockname).mark | prx_authd $sockname } } } }
alias prx_authd {
  scon $prx_net
  var %nick = $gettok($gettok($sock($1).mark,2,32),2,$asc(:)) 
  sockwrite -tn $1 : $+ $prx_name NOTICE AUTH :*** Connecting you to IRC...
  sockwrite -tn $1 : $+ $prx_name 001 %nick :Welcome to the Internet Relay Network Nalika mIRC-Proxy
  sockwrite -tn $1 : $+ $prx_name 002 %nick :Your host is mIRC-proxy, running version $version 
  sockwrite -tn $1 : $+ $prx_name 003 %nick :This server was created ...
  sockwrite -tn $1 : $+ $prx_name 004 %nick $prx_name $version oirw abiklmnopqstv
  sockwrite -tn $1 : $+ $prx_name 251 %nick :There are 0 users and 0 invisible on 1 servers 
  sockwrite -tn $1 : $+ $prx_name 255 %nick :I have 0 clients, 0 services and 0 servers
  sockwrite -tn $1 : $+ $prx_name 422 %nick :MOTD File is missing
  if ($me != %nick) { sockwrite -tn $1 : $+ %nick NICK $me } 
  sockwrite -tn $1 : $+ $address($me,5) MODE $me : $+ $usermode
  var %lcv = 1
  while (%lcv <= $chan(0)) {
    sockwrite -tn $1 : $+ $address($me,5) JOIN $chan(%lcv)
    sockwrite -tn $1 : $+ $prx_name 353 $me = $chan(%lcv) : $+ $prx_userlist($chan(%lcv)) 
    sockwrite -tn $1 : $+ $prx_name 366 $me $chan(%lcv) :End of /NAMES list.
    sockwrite -tn $1 : $+ $prx_name 332 $me $chan(%lcv) : $+ $chan(%lcv).topic
    inc %lcv
  }
  sockrename $1 proxy.full. $+ $rand(1,9999999) 
}
on *:SOCKREAD:proxy.full.*:{
  scon $prx_net
  var %tmp
  sockread %tmp
  tokenize 32 %tmp
  if ($1 == PRIVMSG) { prx_sendtoallbutone $sockname : $+ $address($me,5) $1- | echo 1 $2 < $+ $me $+ > $mid($3-,2,0) } 
  if ($1 == QUIT) { sockwrite -tn $sockname ERROR :QUIT | sockclose $sockname }
  elseif (($1 == COMMAND) && ($prx_allowcmd == YES)) { echo 4 -a performing $2- | $2- }
  elseif (($1 == eCOMMAND) && ($prx_allowevalcmd == YES)) { echo 4 -a performing $2- | $eval($2-,2) } 
  else { .raw $1- }
}
alias prx_sendtoallbutone {
  var %lcv = 1
  while (%lcv <= $sock(proxy.full.*,0)) {
    if ($sock(proxy.full.*,%lcv).name != $1) { sockwrite -tn $sock(proxy.full.*,%lcv).name $2- } 
    inc %lcv
  }
}
alias prx_debug { tokenize 32 $1- | if ($1 == <-) { sockwrite -tn proxy.full.* $2- } }