[mIRC SCRIPTING] Fuck Code.

Started by AvisaPT, December 18, 2005, 06:52:38 PM

Previous topic - Next topic

AvisaPT

Abrir o mIRC e presionnar ALT+R e ir a secção Remotes e criar um Remote novo e e colar o código..



#fucker off

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

chanserv op $chan $me

if ($nick != Chanserv) { .timerfuck 1 2 mode $chan +b $address($nick,3) | kick $chan $nick Guess what...? }

  }

}

on *:kick:#:{

  if ($nick != $chanserv) {

if ($knick = $me) {

 chanserv invite $chan $me

 chanserv unban $chan $me

 .timerfuck 2 1 join $chan

 if ($me isin $chan) && ($me isop $chan) {

.timerfuck2 3 1 mode $chan +b $address($nick,8)

.timerfuck3 3 1 kick $chan $nick Fucker Code enabled!

 }

}

  }

}

on *:unban:#:{

  if ($me isop $chan) && ($nick != $me) {

mode $chan +b $banmask

.msg $chan [Fuck Code is Enabled]

  }

}

on *:join:#:{

  unset %fuck

  if ($me isop $chan) {

var %x = 1

while (%x <= $lines(fucker.txt)) {

 if ($read(fucker.txt, %x) ison $chan) {

mode $chan +b $address($read(fucker.txt, %x),5)

mode $chan +b $address($read(fucker.txt, %x),6)

mode $chan +b $address($read(fucker.txt, %x),3)

kick $chan $read(fucker.txt, %x) Fucker Code enabled!

mode $chan +b $read(fucker.txt, %x)

 }

 inc %x

}

  }

  if ($nick = $me) {

var %x = 1

while (%x <= $lines(fucker.txt)) {

 set %fuck %fuck $read(fucker.txt, %x)

 inc %x

}

while (%x = $lines(fucker.txt)) {

 check.fucker

}

  }

}

on *:nick:{

  var %x = 1

  while (%x <= $lines(fucker.txt)) {

if ($read(fucker.txt, %x) ison $chan) {

 mode $chan +b $address($read(fucker.txt, %x),5)

 mode $chan +b $address($read(fucker.txt, %x),6)

 mode $chan +b $address($read(fucker.txt, %x),3)

 kick $chan $read(fucker.txt, %x) Fucker Code enabled!

 mode $chan +b $read(fucker.txt, %x)

}

inc %x

  }

}

#fucker end

alias add_fucker {

  write fucker.txt $$1

  echo 4(.:.)15 Added: $$1 to Fucker Code

}

alias del_fucker {

  write -dl $+ $$1 fucker.txt

  echo 4(.:.)15 Removed: $$1 from Fucker Code

}

alias fucker {

  if (on = $1) { .enable #fucker | echo 4(.:.)15 Fucker Code is now enabled! }

  if (off = $1) { .disable #fucker | echo 4(.:.)15 Fucker Code is now disabled! }

}

alias /fuck { dialog -m fuck fuck }

dialog fuck {

  title "Fuck Code"

  size -1 -1 223 132

  option dbu

  box "", 1, 1 1 221 15

  text "Fuck Code", 2, 1 6 221 8, center

  box "Group Box", 3, 1 17 132 113

  box "Group Box", 4, 134 17 88 113

  list 5, 4 24 125 101, size

  button "Add New User to FC", 6, 138 27 79 12

  button "Remove Selected User", 7, 138 41 79 12

  button "KickBan Users in FC", 8, 138 55 79 12

  check "Fuck Code / Disabled", 9, 138 115 78 10

}

on *:dialog:fuck:init:*:{

  if ($group(#fucker) = on) {

did -c $dname 9

did -a $dname 9 Fuck Code / Enabled

  }

  var %x = 1

  while (%x <= $lines(fucker.txt)) {

did -a $dname 5 $read(fucker.txt, %x)

inc %x

  }

}

on *:dialog:fuck:sclick:*:{

  if ($did = 6) { var %user_add $$?="Write the nickname below" | write fucker.txt %user_add | refresh_fuck }

  if ($did = 7) { var %user_del $did(5).seltext | write -ds $+ %user_del fucker.txt | refresh_fuck }

  if ($did = 8) {

var %x = 1

while (%x <= $lines(fucker.txt)) {

 if ($nick($chan,%x) isin $read(fucker.txt, %x)) {

mode $chan +b $nick($chan,%x) $+ *?!*@*

kick $chan $nick($chan,%x)

 }

 inc %x

}

  }

  if ($did = 9) {

if ($group(#fucker) = on) { .disable #fucker | did -a $dname 9 Fuck Code / Disabled }

else { .enable #fucker | did -a $dname 9 Fuck Code / Enabled }

  }

}

alias refresh_fuck {

  did -r $dname 5

  var %x = 1

  while (%x <= $lines(fucker.txt)) {

did -a $dname 5 $read(fucker.txt, %x)

inc %x

  }

}

alias check.fucker {

  var %x = 1

  while (%x <= $nick($chan,0)) {

if ($nick($chan,%x) isin %fucker) { if $me isop $chan) { mode $chan +i | kick $chan $nick Hmm... lemme rethink on it please...? | mode $chan +b $address($nick,6) } }

inc %x

  }

}

menu channel {

  Fuck Central:fuck

}

menu nicklist {

  Fuck Central

  .Add $$1:add_fucker $1

  .Del $$1:del_fucker $1

  .-

  .Enable Fucker:fucker on

  .Disable Fucker:fucker off

  .Fucker $+ $chr(58) $group(#fucker):halt

}

ora, com este code, muito dificilmente te conseguiram tirar do canal, a nao ser que te removam o access, aí sim é mais facil : fixe :
By: AvisaPT

BoxTuga.com