Inviter SUPER DAHSYAT dengan mIRC

Inviter? Banyak ditemui di beberapa channel besar. Tingkah dari para inviter ini tentunya sangat mengganggu (melalui: notice, query, invite, memoserv), tetapi kadang juga menguntungkan karena kita bisa tahu channel yang menarik.

Gunakan ilmu ini untuk tujuan yang baik (sorry, saya nggak sempat pikirin segi positifnya. Jadi lu pikirin sendiri aja). Sebagai tambahan: “Mass Invite” tidak diperbolehkan di beberapa server IRC (DALnet, Undernet, Efnet), maksudnya “Mass” itu: besar-besaran. Berikut ini saya akan berikan beberapa teknik invite yang bagus:

1. Expert Inviter (Anti Banned) by CyberMad, kecuali oleh IRC Cop.

Cara kerjanya adalah mIRC 1 (Spy) mencatat data nick yang join ke suatu channel ke InviteList.txt pada folder Data. Lalu mIRC 2 (Inviter) mengambil data nick, lalu mengirim pesan invite. Bila nick tersebut OP, Voice, Quit, ganti Nick, error Nick akan segera di delete nicknya. Pastikan menggunakan 2 IP berbeda.

Berikut ini script pada mIRC 1 yang bertugas sebagai spy / mata-mata. Pastikan anda sudah membuat folder Data pada direktori mIRC.

[ REMOTE ]
#ExpertInvite off
on 1:join:#: {
if ($nick == $me) { halt } else { set %nick $nick write Data/InviteList.txt %nick }
}
on 1:op:#: {
write -dw* $+ $opnick $+ * Data/InviteList.txt
echo -s * __7I__12nvite to (_1 $+ $opnick $+ _12) stoped! They were oped in (_1 $+ $chan $+ _12)
}
on 1:voice:#: {
write -dw* $+ $vnick $+ * Data/InviteList.txt
echo -s * __7I__12nvite to (_1 $+ $vnick $+ _12) stoped! They were voiced in (_1 $+ $chan $+ _12)
}
on 1:quit: {
if ($nick == me) { halt } else { write -dl1 Data/InviteList.txt echo -s * __7I__12nvite to (_1 $+ $nick $+ _12) stoped! They quit IRC }
write -dw* $+ $nick $+ * InviteList.txt
}
on 1:nick: {
write -dw* $+ $nick $+ * Data/InviteList.txt
write Data/InviteList.txt $newnick
echo -s * __7I__12nvite to (_1 $+ $nick $+ _12) stoped! They changed there nickname to (_1 $+ $newnick $+ _12)
}
raw 401:*: {
write -dw* $+ $2 $+ * Data/InviteList.txt
echo -a * __7E__12rror sending invite to (_1 $+ $2 $+ _12) aborting
}
#ExpertInvite end

[POPUP-menubar]
Expert
.Start Spy:/enable #ExpertInvite
.Stop Spy:/disable #ExpertInvite

Berikut ini script pada mIRC 2 yang bertugas sebagai Inviter.
[REMOTE]
on 1:START: titlebar .:: MadCodes Script ::. OffLine [[ %InvitedPeople people invited ]]
on 1:CONNECT: titlebar .:: MadCodes Script ::. OnLine [[ %InvitedPeople people invited ]]
on 1:DISCONNECT: titlebar .:: MadCodes Script ::. OffLine [[ %InvitedPeople people invited ]]

[POPUP-menubar]
Start Invite:/StartInvite
Stop Invite:/timerInvite off
-
Set Message:/set %ExpertInviter.Message $$?="Message"

[ALIASES]
/StartInvite /timerInvite 0 5 /gabung
/gabung /set %invite $read -l1 ../Data/InviteList.txt msg %invite %ExpertInviter.Message inc %InvitedPeople write -dl1 ../Data/InviteList.txt


2. Advanced Inviter

Tipe inviter satu ini hampir mirip dengan xGuest, tetapi kelebihan yang satu ini adalah OpenSource dan langsung di mIRC hehehe. Jadi dapat lu kembangkan menjadi lebih baik.

Save script dibawah dengan nama massinviteoke.mrc di folder mIRC, lalu load file tersebut dari mIRC.

Credit: Script untuk Advanced Inviter (massinviteoke.mrc). saya hanya menulis ulang disini. Sangat disayangkan... saya tidak mengetahui nama pembuat aslinya.



on 1:LOAD:/auser me $me
alias tanya {
if ( %tc == $null ) { set %tc $chan }
if ( %server = $null ) { /set %server $$?="enter SERVER" }
if ( %msg != $null ) goto msg1
:msg
/set %msg $$?=" enter message"
:msg1
//echo -a 5This is your message: %msg
/set %msgok $$?="Message okay? Y/N"
if ( %msgok == N ) { goto msg halt }
/undang
/unset %msgok
}
alias undang {
set %tp $nopnick(%tc,0)
set %pn 1
:begin
set %p $nopnick(%tc,%pn)
/write penghuni.txt %p
inc %pn
if ( %pn >= %tp ) { goto end }
goto begin
:end
/part %tc
/pesan
}
alias pesan {
:mulai
inc %cunt1
if ( %cunt > %tp ) { .remove penghuni.txt unset %tc unset %tp unset %pn unset %p unset %pn1 unset %cunt unset %cunt1 /echo -s DONE! /quit halt }
set %p $read -l $+ %cunt penghuni.txt
set %FILTER3 $addtok(%FILTER3,%p,44)
if ($gettok(%FILTER3,0,44) == 4) { .msg $gettok(%FILTER3,1-4,44) %msg unset %FILTER3 }
/echo -s 12 Msg sent to 4 $read -l $+ %cunt penghuni.txt 1 at 3 %tc 6 %cunt of %tp
inc %cunt
if ( %cunt1 == 51 ) { /timer 1 2 /unset %cunt1 /timer 1 5 /quit leaving /timer 1 7 /server %server halt }
goto mulai
}
raw 401:*: { halt }
raw 403:*: { halt }
on 1:CONNECT: {
if ( %cunt == $null ) { halt }
/pesan
}
menu menubar {
<<>>
-
Join a channel (invite from this channel): /set %tc $$?="Enter channel invite from" /join %tc
-
Start Mass-invite: /tanya
-
End Mass-invite / Reset: /disconnect unset %tc %tp %pn %p %cunt* remove penghuni.txt
}

on me:JOIN:#: set %tc $chan
alias undangall {
set %tp $nick(%tc,0)
set %pn 1
:begin
set %p $nick(%tc,%pn)
/write penghuni.txt %p
inc %pn
if ( %pn >= %tp ) { goto end }
goto begin
:end
/part %tc
/pesan
}
on 1:CHAT:*: /ignore -pntik *!*@*


Salam, untuk temen2x IRC DALnet