DARK KINGS
Thanks For Visit The Forum:) Download Tools And Enjoy:) Join Mig33 Chat Room >dhaka onuvab<

Dhaka

September 2018
SunMonTueWedThuFriSat
      1
2345678
9101112131415
16171819202122
23242526272829
30      

Calendar Calendar

Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Dark B00mb3r by fajiil-(free)
Mon Apr 11, 2016 3:22 pm by me.punk.7

» ID creator with proxy changer and gmail dot generator
Sat Apr 09, 2016 7:47 pm by me.punk.7

» Unlimited Ids Login , Balance And Level Checker
Sat Apr 09, 2016 7:45 pm by me.punk.7

» Multy credit transfer project
Sun Feb 21, 2016 6:53 am by rezkiye

» Sockmix v2.6 Fresh Project
Fri Nov 20, 2015 12:08 pm by papeshh

» Offline Registration SYstem And Key Generator By DevelopMig33.Tk
Fri Nov 20, 2015 12:08 pm by papeshh

» All Ocx Box
Thu Oct 22, 2015 7:26 am by papeshh

» multy maker + auto activator ( updated )
Thu Oct 22, 2015 7:15 am by papeshh

» radixel kicking tool(crack) full fee
Thu Sep 03, 2015 7:26 am by rise-of-moon

free counters

Nedd Auto Welcome and Badword Detect Project

Go down

Nedd Auto Welcome and Badword Detect Project

Post  joelin on Mon Feb 24, 2014 9:28 am

Dear Admin please how to make auto welcome and bad word detect with auto warning text for 4 time and the 5 times will be kicked

i find the project but stil have a problem

Private Sub Timer2_Timer()
For i = 0 To List1.ListCount - 1
If Texta.Text = List1.List(i) Then
If asd5.Value = True Then
Else
If asd1.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, Text1.Text + " " + action.Text)
List2.AddItem (Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd2.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/kick " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd4.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/ban " + Text1.Text + " 1")
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd3.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/bump " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
Else
If asd6.Value = True Then
kirim mig33Controls.SendToRoom(tuname, room, "/mute " + Text1.Text)
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
End If
End If
End If
End If
End If
End If
End If
Next i
Texta.Text = ""
Text3.Text = ""
Text1.Text = ""
End Sub

thanks

joelin

Posts : 31
Points : 35
Reputation : 0
Join date : 2014-02-17

View user profile

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum