Bagi teman² yang suka main mIRC. ini ada Script Autovoice kalau ada orang join ke channel.
alias avl {
var %number = 0
:begin
if $readini(Control.ini, Voice, n $+ %number) == $null { halt }
else {
did -a AutoVoice 3 $replace($remove($readini(Control.ini, Voice, n $+ %number),!*@*),$chr(44),$chr(32))
inc %number
goto begin
halt
}
}
alias av { dialog -m AutoVoice AutoVoice }
dialog AutoVoice {
Title “AutoVoice List By TrusTkill”
size -1 -1 150 150
option dbu
button “Ok”,1,1 140 73 10,Ok
button “Cancel”,2, 76 140 73 10,Cancel
list 3,1 1 147 132,extsel
button “Autovoice On”,4, 1 129 73 10
button “Autovoice Off”,5, 76 129 73 10
}
on *:dialog:AutoVoice:init:0:{
if $avoice == $true { did -b Autovoice 4 | avl }
else { did -b Autovoice 5 | avl }
}
on *:dialog:AutoVoice:sclick:5:{ .avoice off | did -b AutoVoice 5 | did -e AutoVoice 4 }
on *:dialog:AutoVoice:sclick:4:{ .avoice on | did -b Autovoice 4 | did -e AutoVoice 5 }
menu nicklist {
-
Autovoice
.Add:.avoice $$1 # $network | echo -a 7,1*** 14Added00 $$1 14To The Auto-Voice List For00 #
.Del:.avoice -r $$1 # $network | echo -a 7,1*** 14Removed00 $$1 14From The Auto-Voice List For00 #
.Setup:/av
}
atau ada juga script yang very very simple ini :
on *:JOIN:*: { /mode $chan +v $nick }
Simple bukan???
Selamat Mencoba..
Scripts Autovoice
Scripts Seen
cara untuk menjalankan Script ini :
1. Pastekan Script ini ke Remote kamu (Alt + R)
2. kemuadian Ketik “/hmake seen 100″ di windows kamu
3. Command untuk menjalankannya : /seen nick atau !seen nick
============================
>>Start Seen Script IRC By Mr_Armen<<
============================
ON *:START: {
hmake seen 100
if ($isfile(seen.dat)) { hload seen seen.dat }
}
ON *:EXIT: {
if ($hget(seen)) { hsave -o seen seen.dat }
}
ON *:TEXT:*:#: {
hadd seen $nick text $chan $ctime $1-
if ($1 = !seen) {
if ($2 ison $chan) { msg $chan $2 is right here. }
else { msg $chan $nick $+ : $seenparse($2) }
}
}
alias seen {
echo $colour(info) -a *** $seenparse($1)
}
ON *:ACTION:*:#: {
hadd seen $nick act $chan $ctime $1-
}
ON *:QUIT: {
hadd seen $nick quit $ctime $1-
}
on * :P ART:#: {
hadd seen $nick part $chan $ctime $1-
}
on *:JOIN:#: {
hadd seen $nick join $chan $ctime $1-
}
ON *:NICK: {
hadd seen $nick nick $newnick $ctime
}
ON *:KICK:#: {
hadd seen $nick kicking $chan $ctime $knick $1-
hadd seen $knick kick $chan $ctime $nick $1-
}
alias -l seenparse {
var %x = $hget(seen,$1)
if (!%x) { return I have not seen $1 }
var %n = $1
tokenize 32 %x
if ($1 = text) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago saying $4- }
if ($1 = act) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago acting $4- }
if ($1 = quit) { return I last saw %n quiting $duration($calc($ctime - $2)) ago $iif($3,with the message $3-) }
if ($1 = part) { return I last saw %n leaving $2 $duration($calc($ctime - $3)) ago with the message $4- }
if ($1 = join) { return I last saw %n joining $2 $duration($calc($ctime - $3)) ago. }
if ($1 = nick) { return I last saw %n changing their nickname to $2 $duration($calc($ctime - $3)) ago. }
if ($1 = kicking) { return I last saw %n kicking $4 from $2 $duration($calc($ctime - $3)) ago with the reason $5- }
if ($1 = kick) { return I last saw %n being kicked from $2 by $4 $duration($calc($ctime - $3)) with the reason $5- }
}
============================
>>End Seen Script IRC By Mr_Armen<<
============================
Semoga berhasil…
Scripts Random Slaps
Ini juga ada Random Slaps, kamu bisa juga gunakan ini untuk slaps.
on 1:action:*slap*:#:{
if ( slaps $me isin $1- ) {
goto $rand(a,d)
:a
/describe # : 7miss! | halt
:b
/describe # : 12block! | halt
:c
/describe # :4 $rand(510,1000) $+ ! | halt
:d
/describe # :4 $rand(1150,2570) $+ ! | halt
}
}
Selamat mencoba
Script Greeting
kalau kamu mau membarikan Greeting/ salam pembuka atau apalah namanya itu, kamu bisa gunakan script ini. ini kebetulan saya buat untuk Notice aja, kamu bisa ganti Notice nya menjadi Msg. tinggal gantikan aja /Notice menjadi /Msg.
on *:CONNECT:*: { if ($server == irc.server.here) /Notice $nick Welcome to $server, $nick !!
on *:JOIN:*:#: { if ($chan == #Channel-Here) /notice $nick Welcome to $chan !!
on * :P ART:*:#: { if ($chan == #Channel-Here) /notice $nick Thank you for visiting $chan !!
on *:TEXT:!*:#: {
if ($1 == !Op*) && ($nick isin users.ini) /mode $chan +o $nick
elseif ($1 == !voice*) && ($nick isin users.ini) /mode $chan +v $nick
elseif ($1 == !mute*) && ($nick isin users.ini) /mode $chan +b $2-
elseif ($1 == !unmute*) && ($nick isin users.ini) /mode $chan -b $2-
elseif ($1 == !devoice*) && ($nick isin users.ini) /mode $chan -v $nick
elseif ($1 == !deop*) && ($nick isin users.ini) /mode $chan -o $nick
}
}
on *:TEXT:*:*: { if ($1 == Hi $me) /msg $nick Hello, I am a bot by Mr_Armen, I am sorry you’re messages will be deleted from here on out | /close }
Mudah2an bermanfaat ya
Scripts Join Counter
Kalau kamu mau tahu berapa banyak/ berapa kali kamu join ke channel, kamu bisa gunakan script counter ini. gampang kok, pastekan aja script ini di Remote kamu, jangan lupa ketik /remote on untuk mengaktifkan nya.
on 1:join:#: {
If ($nick == $Me) {
inc %JoinCount
Msg $chan 12 I have joined %JoinCount channels.4 Powered By : 12» 4â12®4m12ê4ñ 12«
}
}
Thanks,,,
Scripts Black List
kalau kamu mau buat Black List di Script kamu, kamu bisa gunakan script ini juga loh, mudah kok cara makainya. masukin aja ke Remote kamu.
Command nya :
/blist add [nick] <[reason]>
/blist remove [nick]
/blist aadd [nick] <[reason]> *NEW*
/blist aremove [nick] *NEW*
/blist clear *NEW*
/blist aclear *NEW*
/blist ashow *NEW*
/blist show
/blist [cmds/help]
; SIKAT!!! HANCURKAN!!!! Script Black List by Mr_Armen
alias blist {
if ($1 == remove) {
if ($read(bl.txt,w,$2)) { write -dl $+ $readn bl.txt }
msg $active 4[ 7B15lack-7L15ist 4] 15Deletion of7 $215. 4 12» 4â12®4m12ê4ñ 12«
mode $active -b $address($2,4)
}
elseif ($1 == add) {
write Bl.txt $2
msg $active 4[ 7B15lack-7L15ist 4] 15Addition of7 $2 15[7- $+ $lines(bl.txt) $+ 7-15]. 15Reason:7 $3- 4 12» 4â12®4m12ê4ñ 12«
mode $active +b $address($2,4)
kick $active $2 $3-
halt
}
elseif ($1 == aadd) {
write abl.txt $address($2,4)
msg $active 4[ 7B15lack-7L15ist 4] 15Addition of7 $2’s address “7 $+ $address($2,4) $+ “ 15[7- $+ $lines(bl.txt) $+ 7-15]. 15Reason:7 $3- 4 12» 4â12®4m12ê4ñ 12«
;ban $active $2
mode $active +b $address($2,4)
kick $active $2 $3-
halt
}
elseif ($1 == aremove) {
if ($read(abl.txt,w,$address($2,4))) { write -dl $+ $readn abl.txt }
msg $active 4[ 7B15lack-7L15ist 4] 15Deletion of7 $215 with address 7″ $+ $address($2,4) $+ “15. 4 12» 4â12®4m12ê4ñ 12«
;msg chanserv unban $active $2
mode $active -b $address($2,4)
}
elseif ($1 == show) {
echo Currently black-listed nicks :
var %count = 0
var %i = 1
while (%i <= $lines(bl.txt)) {
//echo 4- $+ $read(bl.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo 7None.
}
}
elseif ($1 == ashow) {
echo Currently black-listed addresses :
var %count = 0
var %i = 1
while (%i <= $lines(abl.txt)) {
//echo 4- $+ $read(abl.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo 7None.
}
}
elseif ($1 == help || $1 == cmds) {
//echo 7Commands for Black-List $+ %version by [SAP]Francis:
echo - /blist add [nick] <[reason]>
echo - /blist remove [nick]
echo - /blist aadd [nick] <[reason]>
echo - /blist aremove [nick]
echo - /blist clear
echo - /blist aclear
echo - /blist show
echo - /blist [help/cmds]
echo 1,4T4,1h1,4i4,1s 1,4S4,1c1,4r4,1i1,4p4,1t 1,4w4,1a1,4s 4,1d1,4o4,1n1,4e 4,1b1,4y 4 12» 4â12®4m12ê4ñ 12«
}
elseif ($1 == clear) {
/remove bl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all nicks15. 4 12» 4â12®4m12ê4ñ 12«
}
elseif ($1 == aclear) {
/remove abl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all addresses15. 4 12» 4â12®4m12ê4ñ 12«
}
}
on *:join:*:{
If ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { /timer 1 1 /kick $chan $nick 4B14lack-4L14isted with name ! | mode $chan +b $address($nick,4) | halt }
If ( $gettok($address($nick,4),1,124) == $read(abl.txt,w,$gettok($address($nick,4),1,124))) { /timer 1 1 /kick $chan $nick 4B14lack-4L14isted with address ! | mode $chan +b $address($nick,4) | halt }
}
; SIKAT!!!! di TAB
%version 2.1
Semoga kamu gak ikutan black ya ;)
Scripts Slaps
kalau kamu kena slaps pas main di mIRC, script ini bisa menjawab slaps orang itu langsung di channelnya. umpamanya nick Mr_Armen menSLAPS nick Sonda, walopun nick Sonda gak tau dia di slaps, tapi Script ini bisa menjawab sendiri. asyik ga? umpamanya, nick Mr_Armen menSLAPS nick Sonda, nick Sonda langsung bilang, “Apa kau Mr_Armen main slaps² aku??”. nah, kamu bisa edit kata²nya sesuai kemauan kamu. Asyik bukan?? ;)
on 1:action:*slap*:#:{
if ( slaps $me isin $1- ) {
goto $rand(a,d)
:a
/describe # : 12 Maaf ya aq sibuk :) 4Powered By : 12» 4â12®4m12ê4ñ 12« | halt
:b
/describe # : 12 $me Haderrr!!!! 4Powered By : 12» 4â12®4m12ê4ñ 12« | halt
:c
/describe # :4 PV aja yach,, mungkin 9 $me sibuk :) 4Powered By : 12» 4â12®4m12ê4ñ 12« | halt
:d
/describe # :2 ada apa $nick ? 4Powered By : 12» 4â12®4m12ê4ñ 12«| halt
}
}
Terimakasih banyak ya… ;)
Script Anti Slaps
Bagi teman² yang gak suka dislaps, bisa gunakan script ini untuk meng Kick nick yang menSLAPS anda, dan ingat ya, script ini hanya bisa digunakan untuk Operator channel atau yang ada tanda @
alog sp {
title “Slap_Punisher 2.0 by Meliorite”
size -1 -1 165 50
option dbu
button “Turn on”, 1, 5 7 25 15, ok
button “Turn off”, 2, 35 7 25 15, cancel
}
on * :D IALOG:sp:sclick:*: {
if ($did == 1) { enable #slap_punisher | echo -a 4Slap is on }
if ($did == 2) { disable #slap_punisher | echo -a 4Slap is off }
}
menu channel {
.-
*** ( Slap Punisher ) ***: {
if ($dialog(sp) == $null) { dialog -mdie sp sp }
else { dialog -v sp }
}
}
#Slap_Punisher on
on *:action:*slap*:#:{
if ($me isin $1-) && ($me isop $chan) { .kick # $nick $nick 0,15“15,14“12,1A0,1R3,1M 4,1E N015,14“0,15“15,1 UpsSs… 9,1 Maaf,, 0,1 Gak Sengaja ^^ 4Powered By : 12» 4â12®4m12ê4ñ 12« 15,1 0,15“15,14“12,1SO0,1N3,1D 4,1A015,14“0,15“ }
#Slap_Punisher end.
on @*:action:*slaps*:#: {
if (%aslap) {
if ($me iswm $strip($matchtok($2-,$me,1,32))) && ($nick isreg #) {
kick # $nick - 3,1%1,3%3,9%1,4(¯X?)1,8(¯X?)1,9(¯X?)4,1(0_JuicyMan.7TeaM_4)1,9(¯X?)1,8(¯X?)1,4(
}
}
}
menu menubar,channel,status {
$iif(%aslap != $false,[On],[Off]) Anti Slapper:{
set %aslap $iif(%aslap == $false,$true,$false)
echo -a ?? 4Anti Slapper kick is now $iif(%aslap ==
$true,Enabled,Disabled)
}
}
Selamat meng kick :P
Script Version
kalau kamu di version orang, biasanya kan Replynya : VERSION reply]: mIRC v6.3 Khaled Mardam-Bey, nah,,, ini bisa kita tambahin sesuai dengan kata² kesukaan kita, biasanya pak ADIY (#Jagoan@DalNet) menggunakan VERSION reply]: jadul nokia.bla bla bla… lupa aku. silahkanlah kau edit kata2 sesuai kata2 kesukaan kamu, kamu juga bisa gunakan VERSION reply]: Armen Ganteng deh ;) wawkawkawkakwa……. Ini dia script nya :
CTCP *:VERSION:*:{
ctcpreply $nick ArmenIRC Im using mIRC tech 4Powered By : 12» 4â12®4m12ê4ñ 12«
halt
}
selamat mencoba ya
Script CTCP
ini script buat Kata kotor, kamu bisa set berapa detik di ban,
di kick atau ban, op dan voice di kick ato nggak, nih komplit,
nah, coba masukin ini ke remote.
Rekomendasi : IRC-nya v.6 keatas, selamat mencoba.
===========================================
;Proteksi Kata Kotor
menu status,channel {
-
Proteksi Kata Kotor:swear
}
alias swear { dialog -m swear swear }
on *:load:{
set %kiket on
set %oplar on
set %banvaxt 300
set %kickmsj Kata Kotor tidak di-izinkan di channel..! MinGGiR..!
set %logo.laskar (L@sKá® c®èw)
set %soyush fuck,shit,bitch,idiot,kontol,pepek,babi,anjing,vagina,pantat,kelempong,puko,pukimak,kimak,jembut,gawuk,dancuk,memek,tetek,titit,bangsat
set %banet on
set %vlar on
}
on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick 10Kata Kotor 14[4 $gettok(%soyush,%i,44) 14] 10tidak di-izikan di-channel # $lkr }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}
dialog swear {
title “Proteksi Kata Kotor”
size -1 -1 185 111
option dbu
box “Daftar Kata Kotor”, 1, 90 1 94 79
combo 2, 94 10 87 53, size
button “Tambah”, 3, 98 66 31 10
button “Hapus”, 4, 144 65 31 10
box “”, 5, 96 60 36 18
box “”, 6, 142 60 36 18
box “Penalty”, 7, 2 2 84 45
check “Kick “, 8, 5 13 39 10
check “Ban “, 9, 5 31 32 10
edit “”, 10, 36 30 23 12, disable
text “Detik”, 11, 62 32 21 8, disable
box “semua user di kick/ban, kecuali”, 12, 2 49 84 31
check “Op”, 13, 6 57 77 10
check “Voices”, 14, 6 68 75 10
box “Pesan Kick”, 15, 2 81 182 27
edit “”, 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
on *:unload:{
unset %kiket on
unset %oplar on
unset %banvaxt
unset %kickmsj
unset %logo.laskar
unset %soyush
unset %banet
unset %vlar
}
Script Whois
Nah, sekarang kita coba Script Whois
Script Whois ini bisa di Aktifkan dan dimatikan (kembali ke whois standart mIRC)
copy aja ke remote (ALT R):
;Whois Script
menu status,channel {
-
$iif($group(#whois) == on,disable,enable) Custom Whois: {
var %status = $iif($group(#whois) == on,Disable,Enable)
$+(.,%status) #whois
echo -ta 4* Custom whois has been $+(%status,d)
}
}
alias whoisnumerics return 301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671
#whois off
raw *:*: {
if ($istok($whoisnumerics,$numeric,124)) haltdef
if ($numeric == 301) echo -s 4[?] Away: Yes: ( $+ $3- $+ )
elseif ($numeric == 307) echo -s 4[?] Registered Nickname: Yes.
elseif ($numeric == 310) echo -s 4[?] IRC Helper: Yes.
elseif ($numeric == 311) {
echo -s 4__12____6____7___2____14____5______4__12____6____7___2____14____5______4__12____6____7___2____14____5______4__12____6____7___2____12 Info: [ $2 ]
echo -s 4[?] NickName: $2
echo -s 4[?] Real Name: $6-
echo -s 4[?] Hostmask Address: $3 $+ 4 $+ @ $+ 12 $+ $4
}
elseif ($numeric == 312) echo -s 4[?] Server: $3
elseif ($numeric == 313) echo -s 4[?] Network Functions: $5-9
elseif ($numeric == 314) {
echo -s 4[?] Nick: $2
echo -s 4[?] Name: $6-
echo -s 4[?] Hostmask: $3 $+ 4 $+ @ $+ $4
}
elseif ($numeric == 317) {
echo -s 4[?] Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
echo -s 4[?] Time idle: $duration($3)
echo -s 4[?] Time online: $duration($calc($ctime - $4))
}
elseif ($numeric == 319) echo -s 4[?] Channels: $3-
elseif ($numeric == 320) echo -s 4[?] Swhois: $2-
elseif ($numeric == 330) echo -s 4[?] Authname: $3
elseif ($numeric == 335) echo -s 4[?] Bot: Yes
elseif ($numeric == 33 8) {
echo -s 4[?] Real Hostmask: $3
echo -s 4[?] Real IP: $4
}
elseif ($numeric == 37 8) echo -s 4[?] Connecting from: $6-
elseif ($numeric == 379) echo -s 4[?] Modes: $6-
elseif ($numeric == 401) echo -s 4[?] The nickname ” $+ $2 $+ ” is 4NOT 4online!
elseif ($numeric == 406) echo -s 4[?] The nickname ” $+ $2 $+ ” has 4NOT 4been online recently.
elseif ($numeric == 671) echo -s 4[?] Secure Connection: Yes
}
#whois end
Script Call
kamu lagi chatting dibanyak chanel, tiba-tiba di chanel lain nick kamu disebut (dipanggil), nah… ini script agar kamu tau, sapa aja yang sebut nick kamu di chanel laen, sementara kamu lagi asik ngobrol di chanel lain, bahkan kalo lagi Pv-an ma temen kamu, masukin ni script ke remote (ALT R)
;Nick Call
on *:load: {
set %highlight ON
}
on *:TEXT:*:#: {
if (* [ $+ [ $me ] ] $+ * iswm $1-) && (%highlight == ON) {
/echo $active 1,4 Kamu dicari !! 1,0 Channel: $chan [ $nick ] ( $1- )
}
}
on *:action:*:#: {
if (* [ $+ [ $me ] ] $+ * iswm $1-) && (%highlight == ON) {
/echo $active 1,4 Kamu dicari !! 1,0 Channel: $chan [ $nick ] ( $1- )
}
}
Script Raw Series (NewVersion)
Ini adalah script buata bang Ridho yang Armen memberi namanya “Script Raw Series”. Kegunaan dari script ini adalah, misalnya anda membuat kesalahan (baik itu kena baned, setting mode, masuk channel invite only dll, lihat aja penjelasannya 1 by 1) script ini akan menegur kamu dengan bahasa yang kamu buat.Atau juga kalau kamu ident nick atau punya memp, ini juga bisa digunakan. Tulisan2 penjelasan masing² script ini bisa kamu ganti dengan bahasa yang kamu mengerti. kamu tinggal pastekan aja ke Remote (Alt+R) kamu dan jangan lupa ketik /remote on untuk mengaktifkannya. selamat mencoba ya. Salam hangat dari Sidempuan@DalNet.
==============================
;-Raw Series Script Versi.DjinnRaz-Armen-;
==============================
raw 433:*:/echo -a Nickname ini udah ada yang make, ganti dengan yang lain, misalnya: $me $+ _dodoL | .halt
raw 405:*:/echo -a 10 Kamu udah join maksimum channel yg di-ijin-kan. | /halt
raw 406:*:/echo -a 10 Tidak ada user yang menggunakan nickname ini. | /halt
raw 408:*:/echo -a 10 Channel $2 di set +c (no colour) | /halt
raw 461:*:/echo -a 10 Parameter tidak cukup, masih ada perintah yg kurang. | /halt
raw 462:*:/echo -a 10 Kamu nggak bisa register lagi … !! | /halt
raw 474:*:/echo -a 10 Tidak bisa masuk ke channel $2 … 12Kamu di-4Ban !!. | /halt
raw 464:*:/echo -a 10 Passwordnya salah | /halt
raw 472:*:/echo -a 10 Mode $2 apaan tuch … ?! Kok Aneh … ?? | /halt
raw 461:*:/echo -a 10 Parameter tidak cukup, masih ada perintah yg kurang. | /halt
raw 473:*:/echo -a 10 Kamu nggak bisa masuk channel $2 ( Invite only ) … minta di-invite dongg … !! | halt
raw 483:*:/echo -a 10 Hoiiii … gimana … mau kill server !!?? | halt
raw 482:*:/echo -a 4***10 Kamu bukan Op di channel $2 … !! | .halt
raw 465:*:/echo -a 10 Kamu di-4K-Lined2 oleh server ini. | /server | /halt
raw 465:*:/echo -a 4***10 Kamu di-4K-Lined2 oleh server ini. | /server | /halt
raw 465:*:/echo -a 4***10 Kamu di-4K-Lined2 oleh server ini. cepetan beli psy ma Mr_Armen | /server | /halt
on ^1:quit:if ($query($nick)) { echo $nick 10[3 $nick keluar dari IRC 10] | echo $nick 10[3 $1- 10] }
on 1:notice:*password accepted* :?: if ($nick == nickserv) echo -a 4 Password diterima … !!
on 1:notice:*new memo* :?: if ($nick == memoserv) /echo -a 4***10 Kamu punya pesan MemoServ …
on 1:notice:*You now have 20 seconds to change your nick* :?: if ($nick == nickserv) /nick $me $+ _DodoL | echo -a 4***10 Nick diganti karna terlambat memasukkan password nick
==================
Semoga Bermanfaat ;)
Script Auto Kick on Join Channel
on *:join:#sidempuan: {
//mode # -v-o+b-e+b+b $nick $nick $maddress $maddress $nick $maddress
kick # $nick 1 B 4lack1 L 4ist 1 M 4atch 1 F 4rom $nick $maddress 1 B 4anne1 D By (12» 4â12®4m12ê4ñ 12«) %v
}
Script Menyembunyikan CTCP
alias pers { dialog -m versionR versionR }
dialog versionR {
title “Ganti Version mIRC”
size -1 -1 650 310
text “Pilihan salah satu:”, 1, 15 15 175 15
box “”, 2, 1 0 645 300
button “&Tutup”, 7, 280 250 200 25,flat cancel
combo 8, 10 30 355 200,read,hide,hsbar
button “Set Version”,9, 380 30 250 25,flat,hide
button “Linux”,10, 10 250 55 25,flat
button “Mirc”,11, 70 250 55 25,flat
button “Scripts”,12, 130 250 55 25,flat
button “djRaz”,13, 190 250 55 25,flat
combo 14, 10 30 355 200,read,hide,hsbar
combo 15, 10 30 355 200,read,hsbar
button “Set Version”,16, 380 30 250 25,flat
button “Set Version”,17, 380 30 250 25,flat,hide
combo 18, 10 30 355 200,read,hide,hsbar
button “Set Version”,19, 380 30 250 25,flat,hide
check “”500, 380 70 250 130,flat,push,multi
}
on 1:dialog:versionR:init:*:{
did -a versionR 14 mIRC32 v5.11 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.31 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.41 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.5 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.51 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.6 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.61 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.7 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.71 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.8 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.81 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.82 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.9 K.Mardam-Bey
did -a versionR 14 mIRC32 v5.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.0 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.01 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.02 K.Mardam-Bey
did -a versionR 14 mIRC32 v6.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.0 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.01 K.Mardam-Bey
did -a versionR 14 mIRC32 v7.91 K.Mardam-Bey
did -a versionR 14 mIRC32 v8.0 K.Mardam-Bey Not Ready yet Test Version
did -a versionR 15 ircII EPIC4-0.9.12 Linux 2.2.19 - Accept no limitations.
did -a versionR 15 xchat 1.8.1 Linux 2.4.10 [i686/866MHz]
did -a versionR 15 xchat 1.8.4 Linux 2.4.17-grsecurity-1.9.2 [i686/752MHz/SMP]
did -a versionR 15 BitchX-1.0c18+ by panasync - Linux 2.4.7-10 : Keep it to yourself!
did -a versionR 15 ircII EPIC4-1.0.1 Linux 2.4.18-pre7-ide-ingo-j6-preempt - Accept no limitations.
did -a versionR 15 ircII EPIC4-1.0.1 Linux 2.4.18-pre7-ide-ingo-j6-preempt - Accept no limitations.
did -a versionR 15 epic4 1.0.1 (Odyssey) + hienoa 0.49
did -a versionR 15 ircII EPIC4-1.0.1 FreeBSD 4.5-RELEASE - Accept no limitations.
did -a versionR 15 Irssi 0.7.98.4 on Linux 2.4.17
did -a versionR 15 ircII 4.4Z Linux 2.4.9-13SGI_XFS_1.0.2enterprise :ircii 2.9: AT&T you will (ojnk!)
did -a versionR 15 irssi v0.8.1 - running on Linux i586
did -a versionR 15 ircII EPIC4pre2.700 Linux 2.2.16 - LiCe v4.2.0pre
did -a versionR 15 irssi v0.7.98.CVS - running on CYGWIN_NT-5.1 i686
did -a versionR 15 Unix v4 www.linuxdoc.org
did -a versionR 15 ircII 4.4Z Linux 2.4.9-13SGI_XFS_1.0.2Nith :ircii 4.9:Mass Kill
did -a versionR 18 ::nexgen·acidmax::. v2.0.19 beta (mirc 6.01 32bit) ©2002, KnightFal - team nexgen
did -a versionR 18 ircN 7.07 + 7.0 - i’m going all the way down i’m leaving today -
did -a versionR 18 P&P 4.00 FINAL BETA (in development) + X / W, Sound, NickServ, ChanServ, Extras
did -a versionR 18 client: mIRC v6.01 Khaled Mardam-Bey script: technique v4.0a by ex|l-
did -a versionR 18 www.Peruanos.org — http://go.to/ircap -[ MP2000 ]-
did -a versionR 18 aIRC[0.7.93.b27] http://www.geocities.com/aircscript/
did -a versionR 18 Apirc v1.1 IdNet Java IRC Client
did -a versionR 18 PnP 4.21 ChanServ, NickServ, X Z P Bots, LastSeen, Extras
did -a versionR 18 [i²] by pai
did -a versionR 18 ircN 7.25 + 7.0 - if there is a hell i’ll see you there -
did -a versionR 18 Socket Eggdrop v2.00 .(.Coded by bad-sector.).
did -a versionR 18 MP3 Script v6.137d beta (get it in #Music-Central on DALnet or from www.jalyn.com/mco/index.html)
did -a versionR 18 using »¡« Scøøp Script 2008 »!« get the script free at www.scoopsite.com
did -a versionR 18 running mIRC32/5.9[winNT] - eXtreme v9 (th/none): theme IRC
did -a versionR 8 [dj®áz] This will end your Windows session, do you wish to play another game?
did -a versionR 8 I’m going to the Missing Persons [dj®áz] Bureau to see if anyone is looking for me.
did -a versionR 8 Ask me no questions, and I’ll tell you no fibs. [dj®áz]
did -a versionR 8 [dj®áz] Practice yourself what you preach
did -a versionR 8 [dj®áz] Knowledge comes, but wisdom lingers.
did -a versionR 8 [dj®áz] Knowledge At http://ircp.tripod.com
did -a versionR 8 People who are having trouble writing their own scripts Using [dj®áz] Protection
did -a versionR 8 Protection «» ® ßítçh ® «» Ve® 4.01 By djinnRaz
did -a versionR 8 The Lord of darkness is a gentleman. dj®áz By djinnRaz
did -a versionR 8 [dj®áz] I am not an Athenian nor a Greek, but a citizen of the world.
did -a versionR 8 [dj®áz] I got the pac man fever pac man fever driving me crazy
did -a versionR 8 IRC Op Power Uhhh huh huh, i love you [dj®áz]
did -a versionR 8 ConfuseUs said: Airplane flying upside down, makes passengers have crack-up [dj®áz]
did -a versionR 8 Destiny IRC By djinnRaz [ßítçh] Brocken Saints Feel The Power…..
did -a versionR 8 Copyright (c) 1990-1999 MeC Technologies, Ltd. All Rights Reserved
did -c $dname 500
}
on 1:dialog:versionR:sclick:*:{
if ($did == 9) { set %new-version-reply $did(8).text }
if ($did == 16) { set %new-version-reply $did(15).text }
if ($did == 17) { set %new-version-reply $did(14).text }
if ($did == 19) { set %new-version-reply $did(18).text }
if ($did == 11) { did -h versionR 8,15,9,16,18 | did -v versionR 14,17 }
if ($did == 13) { did -h versionR 14,15,16,18,19 | did -v versionR 8,9 }
if ($did == 10) { did -h versionR 14,8,9,17,18 | did -v versionR 15,16 }
if ($did == 12) { did -h versionR 14,8,9,16,17,15 | did -v versionR 18,19 }
if ($did == 8) { did -a $dname 500 $did(8).text }
if ($did == 14) { did -a $dname 500 $did(14).text }
if ($did == 15) { did -a $dname 500 $did(15).text }
if ($did == 18) { did -a $dname 500 $did(18).text }
}
alias new-version-reply {
if ($vchanger.s(random)) return $read($+(”,$scriptdiraIRCversions.txt,”))
else { return $iif($vchanger.s(version),$ifmatch,$my %new-version-reply) }
}
#ondisconnectnstart on
on * :D ISCONNECT:{
.timer -io 1 0 vchanger 1
window -c $+(@verch.,$cid)
}
on *:START:{ vchanger 1 | vchanger.s -s }
#ondisconnectnstart end
alias vchanger.s {
if (!$hget(vchanger.s)) { hmake vchanger.s 10 | .timer 1 0 vchanger.s myown 1 }
if ($isfile($+(”,$scriptdirvchanger.dat,”))) && ($hget(vchanger.s,myown) == $null) {
hload -bo vchanger.s $+(”,$scriptdirvchanger.dat,”)
}
if ($isid) return $hget(vchanger.s,$$1)
else {
if ($1 == -s) hsave -bo vchanger.s $+(”,$scriptdirvchanger.dat,”)
else { hadd vchanger.s $$1 $2- }
}
}
alias vchanger {
if ($1) {
.enable #ondisconnectnstart
.timer..vchanger -om 0 300 vchanger.checkctcps
}
else {
.disable #ondisconnectnstart
.timer..vchanger off
var %cid = 1, %cid.cnt = 0
if (!$scid(0)) return
while (%cid.cnt < $scid(0)) {
if ($scid(%cid)) { inc %cid.cnt
scid %cid
.debug off
.ignore -rtw *!*@*
window -c $+(@verch.,%cid)
}
inc %cid
}
}
}
alias vchanger.ignore {
if ($ignore(*!*@*)) { .ignore -rtw *!*@* | .timer 1 0 scid $cid .ignore -tw *!*@* | return $ignore($1-).type }
else { return $ignore($1-).type }
}
alias vchanger.checkctcps {
var %cid = 1, %cid.cnt = 0, %tmpwin, %i, %line, %ctcp, %addr, %verch
if (!$scid(0)) return
%cid.cnt = $scon(0)
while (%cid.cnt) {
%cid = $scon(%cid.cnt)
dec %cid.cnt
if ($scid(%cid)) {
if (!$window($+(@verch.,%cid))) {
window -h $+(@verch.,%cid)
scid %cid .debug $+(@verch.,%cid)
scid %cid .ignore -tw *
}
%verch = @verch. $+ %cid
%i = 1
while ($line(%verch,%i)) {
%line = $ifmatch
if ($gettok(%line,1,32) == <-) && ($gettok(%line,3,32) == PRIVMSG) && ( ** iswm $left($gettok(%line,5,32),2) ) && ( == $right($gettok(%line,-1,32),1)) {
%ctcp = $remove($gettok(%line,5-,32),)
%addr = $remove($gettok(%line,2,32), :)
if (*ctcp* !iswm $vchanger.ignore(%addr)) && (*ACTION !iswm $gettok(%ctcp,1,32)) {
scid %cid .signal newctcp %cid %addr $gettok(%line,4,32) $mid(%ctcp,2)
}
}
inc %i
}
clear %verch
}
elseif ($window($+(@verch.,%cid))) { window -c $+(@verch.,%cid) }
}
}
on *:SIGNAL:newctcp: {
if (VERSION == $4) echo -a 0,1 version you
; if (VERSION == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!))
; if (PING == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) PING $5-
; if (TIME == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) TIME $fulldate
; if (FINGER == $4) scid $1 .ctcpreply $gettok($2,1,$asc(!)) FINGER $emailaddr Idle $duration($idle)
; echo $color(ctcp) -s $+([,$gettok($2,1,$asc(!))) $+($4,]) $iif($4 != PING,$5-)
}
alias vor { return $+($chr(86),$chr(69),$chr(82),$chr(83),$chr(73),$chr(79),$chr(78)) }
alias vor1 { return $+($chr(3),$chr(52),$chr(44),$chr(49),$chr(171),$chr(3),$chr(48),$chr(172),$chr(3),$chr(49),$chr(53),$chr(100),$chr(3),$chr(49),$chr(52),$chr(106),$chr(3),$chr(48),$chr(174),$chr(3),$chr(49),$chr(53),$chr(224),$chr(3),$chr(49),$chr(52),$chr(122),$chr(172),$chr(3),$chr(49),$chr(52),$chr(118),$chr(3),$chr(49),$chr(53),$chr(53),$chr(46),$chr(50),$chr(48),$chr(3),$chr(48),$chr(172),$chr(3),$chr(52),$chr(187),$chr(15)) }
alias olehgue { return $+($chr(3),$chr(54),$chr(98),$chr(121) $chr(100),$chr(106),$chr(105),$chr(110),$chr(110),$chr(82),$chr(97),$chr(122),$chr(3)) }
alias donlod { return $+($chr(104),$chr(116),$chr(116),$chr(112),$chr(58),$chr(47),$chr(47),$chr(119),$chr(119),$chr(119),$chr(46),$chr(103),$chr(101),$chr(111),$chr(99),$chr(105),$chr(116),$chr(105),$chr(101),$chr(115),$chr(46),$chr(99),$chr(111),$chr(109),$chr(47),$chr(100),$chr(106),$chr(114),$chr(97),$chr(122),$chr(50),$chr(48),$chr(48),$chr(56),$chr(47),$chr(100),$chr(106),$chr(114),$chr(97),$chr(122),$chr(53),$chr(50),$chr(48),$chr(46),$chr(104),$chr(116),$chr(109),$chr(108)) }
Script War (Simple)
on 1:kick:#: { if ($knick == $me) { .set %kicker $nick | raw -q join $chan } }
on 1 :o p:#: { if (%kicker ison $chan) raw -q kick $chan %kicker %reason }
IRC Script By Mr_Armen Part I (Update)
Armen Script Part I (Update)
Armen Script Part I telah di Update, tampilan baru dan menu² baru nya makin OK loh 
Script Armen Bagian I “update” ini memiliki tampilan baru, dan menu baru. silahkan dinantikan kehadirannya, hanya di blog ini
Menu dalam Script Update I ini :
- Puisi Cinta
- Whois Palsu
- Nick Completor
- Anti Spam Bot
- Anti Slaps
- Anti Spam (untuk nick kita sendiri)
- Black List (Ptoteksi dari spamer)
- OP, Unban dan Invite nick sendiri
- Scan IP
- Autoping
- Secured Qwery
- Tulisan² Indah
- Dll, masih banyak lagi
Selengkapnya...
IRC Script By Mr_Armen Part II
Armen`s Script Part II Launched!!
Pada script bagian kedua ini, Armen bekerjasama dengan bang Ridho (Laskar Crew). Kelebihan bagian kedua ini, ada Anti Spam nya, silahkan deh di download, dan di coba. Dan nantikan Armen`s Script bagian² lainnya
Silahkan Gambarnya di Klik untuk mendapatkan Armen`s Script Part II
Selengkapnya...
IRC Script By Mr_Armen
Armen`s Script Part I New Bie Version
This is Script is for NewBie IRC only, click The Picture to get your download
Script ini di kompres dalam Winrar, jadi kalau Winrar teman² belum ada, silahkan download Winrar DISINI
Kalau kawan² pengen juga ngasi gambar2 lucu sama kawan chatting nya di mIRC, seperti gambar harimau, perahu, dll, teman² bisa download DISINI, itu udah aq masukin dalam notepad, tinggal copy pastekan aja ke channel atau saat anda PM dengan kawan chating anda.
Selengkapnya...
