[MirageBot] script Autokick Capslock Ver.BB.0.1

nah setelah dipikir-pikir ternyata Post tentang Mirage lagi gpp sementra kuliah malah mengisi waktu luang yang ada.
nah sekarang aku mau berbagi tentang Script Autokick Capslock Ver.BB.01


langsung Saja

Option Explicit

Sub Script(Name, Major, Minor, Build, Author, Commands, Description)

Name = "Auto Kick CapsLock"

Major = 2

Minor = 3

Build = 0

Author = "BB"

Description = "Briyanbawanda.blogspot.com"

End Sub

Sub Event_UserTalk(CE)

dim x,String,hasil,tendang

x="."

If InStr((CE.Message),Ucase(CE.Message)) <> 0 Then

if Isnumeric(CE.Message) then

Else

If Instr(CE.Message,x) <> 0 then

String = replace(lcase(CE.Message), lcase(x), "") 

hasil= ((len(CE.Message) - len(String)) / len(x))

if hasil>1 then

else

if(len(CE.Message) > 1) then

Send "/kick " & GetAccount(CE.Username) & " Capsnya Udah Rusak Kka, Ganti Keyboard Giih !!"

End If

End if

Else

if(len(CE.Message) > 1) then

Send "/kick " & GetAccount(CE.Username) & " Capsnya Udah Rusak Kka, Ganti Keyboard Giih !!"

End If

End If

End If

End if

End Sub

Itu adalah Script Autokick Capslock  , Jika ingin mengganti kata-katanya tinggal ganti aja,

Selamat menikmati Gan ^^