 |
| Contoh |
Cara Penggunaan :
1 . Download Scriptnya
2. Masukan File ke Folder Script
3. Lalu buka AGOES.TXT Lihat pada bagian ini :
————————————————————————
Sub Event_UserTalk(CE)
If InStr(LCase(CE.Message), LCase(“agus“)) <> 0 Then
Send “sorry bro,agusnya lagi afk
”Exit Sub
End If
End Sub
————————————————————————
1 . Pada tulisan yang warna biru ganti aja dengan kata-kata kalian
Contohnya : Agus
jadi setiap yang ketik agus maka bot kalian akan menjawab automatis
2 . Pada tulisan merah ganti sesuai kata-kata kalian , setiap orang chat nyebut kata agus maka akan keluar kata-kata yang di tulisan merah
4 . Lalu Save
Lalu Buka MIRAGEBOT kalian dan AKTIFkan "AGOES.txt"
Caranya :
 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Cara aktifinnya |
 | ||||||||||||||||||||||||||||||||||||||||||||||||||
| Jika Sudah Aktif |
Jika ada Pertnyaan silahkan koment aja
www.agusdota.tk
4 komentar:
mau tanya gan itu cara buat scirpt daftar soalnya gimana ?
nih gan contohny
siapa paling ganteng disini?|agus
di jakarta pukul 13.00 wib di papua pukul? | 15.00 WIT
nih contoh selengkapnya gan
http://www.mediafire.com/?4n15d2gl1ae75tk
bos kalau mau 2 teks dalam 1 script gimana?
misal text 1 "agus" : reply "lagi afk"
text 2 "main yuk" : reply "nanti dulu"
@alex gk bisa kekny gan
Saran gw bikin scrift 1 lg aj
nih contohnya :
Sub Script(Name, Major, Minor, Build, Author, Commands, Description)
Name = "Cari kata di text"
Major = 1
Minor = 0
Build = 0
Author = "AGOES"
Description = "set status di bot - www.agusdota.tk"
End Sub
Sub Event_UserTalk(CE)
If InStr(LCase(CE.Message), LCase("main yuk")) <> 0 Then
Send "Nanti dulu
Exit Sub
End If
End Sub
Posting Komentar