Masih pake mIRC nih :d
Script dibawah ini buat yang suka kopas artikel atau tulisan sendiri di room tanpa harus nge"flood" room dan di kick oleh Fathimah
Cara pakai cukup klik kanan di channel dan klik mKopas, setelah muncul kotak dialog kopas aja text atau artikel yang mau di kirim.
Jika ada yang mau di edit, bisa di edit, untuk penambahan line tekan (ctrl + enter)
Script dibawah di "kopas" juga ke remote mirc (tekan ALT + R)
kodenya:
;
;mKopas
;ini untuk menu klik kanan di channel
menu channel {
mKopas { Kopas mKopas mKopas }
}
;dialog
on *:dialog:mKopas:*:*:{
if ($devent == sclick) {
if ($did == 2) && (($did($dname,1).lines > 1) || ($did($dname,1).text != $null)) && (($me ison $active) || ($query($active) != $null) || ($chat($right($active,-1)) != $null)) {
write -c kopas.txt
set %~paste 0
:start
inc %~paste 1
;detik dalam milisecond 5 dtk = 5000, biar gak kena tendang sama Jundi atau Fathimah :d
;kalo kurang lama atau terlalu cepat ubah saja detiknya
if (%~paste > $did($dname,1).lines) { unset %~paste | .play $active kopas.txt 5000 }
else {
write kopas.txt $did($dname,1,%~paste).text
goto start
}
}
if ($did == 3) {
did -r $dname 1
}
if ($did == 4) {
play stop kopas.txt
}
}
}
;kotak dialog
dialog mKopas {
title "myQ Kopas"
size -1 -1 800 250
edit "", 1, 10 10 780 205, multi, vsbar
button "Kirim", 2, 140 220 80 25
button "Bersihkan", 3, 225 220 80 25
button "Stop", 4, 310 220 80 25, cancel
button "Tutup", 5, 600 220 80 25, cancel
}
;credit ke orang2 di #helpdesk dalnet utk bantuan nyekrip :d
;EOF
CMIIW
