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

Dhaka

November 2017
SunMonTueWedThuFriSat
   1234
567891011
12131415161718
19202122232425
2627282930  

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

View previous topic View next topic 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

View previous topic View next topic Back to top

- Similar topics

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