28.01.2012, 21:26
(
Last edited by SnG.Scot_MisCuDI; 02/02/2012 at 10:09 PM.
)
A to Z Pawno Tool is a simple-to-use tool. Right now there is only creating a teleport.
You can pick between ZCMD or DCMD
You can also pick if you want the car to be teleported with and send the user a message on teleport.
5 easy steps:
1. Pick ZCMD or DCMD
2. Type in the command you wish it to be
3. Get the cords from your saveposition folder.
4. (optional) Check the Enable box and choose the corresponding options
5. Click generate and paste the code into Pawno
HOW TO USE PICKUP MAKER
1. Choose what icon and type of pickup you want.
2. Name the pickup
3. Click "saved positions"
4. The first X Y Z is the location the pickup will be. Paste the cords from saved positions
5. X2 Y2 Z2 is the location the pickup will take you to. Paste the cords from saved positions
6. Click generate and paste code into Pawno
(you can always change the way the pickup is used. Just edit the code in the third box)
BUGS
None: Report them here
SUGGESTIONS
COMING IN v2
Weapon chooser
+suggestions
DOWNLOAD
v1.5
http://www.mediafire.com/?4bxaum8mhq0yw05
CHANGE LOG
You can pick between ZCMD or DCMD
You can also pick if you want the car to be teleported with and send the user a message on teleport.
5 easy steps:
1. Pick ZCMD or DCMD
2. Type in the command you wish it to be
3. Get the cords from your saveposition folder.
4. (optional) Check the Enable box and choose the corresponding options
5. Click generate and paste the code into Pawno
HOW TO USE PICKUP MAKER
1. Choose what icon and type of pickup you want.
2. Name the pickup
3. Click "saved positions"
4. The first X Y Z is the location the pickup will be. Paste the cords from saved positions
5. X2 Y2 Z2 is the location the pickup will take you to. Paste the cords from saved positions
6. Click generate and paste code into Pawno
(you can always change the way the pickup is used. Just edit the code in the third box)
BUGS
None: Report them here
SUGGESTIONS
COMING IN v2
Weapon chooser
+suggestions
DOWNLOAD
v1.5
http://www.mediafire.com/?4bxaum8mhq0yw05
CHANGE LOG
Code:
v1.5 strcmp commands on first tab Pickup Maker Easy command maker Shortcut to saved positions
Code:
Public Class Form1
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If RadioButton2.Checked And CheckBox2.Checked = True Then
TextBox14.Text = "CMD:" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton2.Checked = True And CheckBox2.Checked = False Then
TextBox14.Text = "CMD:" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton2.Checked = True And CheckBox3.Checked = True Then
TextBox14.Text = "CMD:" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton2.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True Then
TextBox14.Text = "CMD:" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton2.Checked = True And CheckBox3.Checked = True Then
TextBox14.Text = "CMD:" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton3.Checked And CheckBox2.Checked = True Then
TextBox14.Text = "dcmd_" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton3.Checked = True And CheckBox2.Checked = False Then
TextBox14.Text = "dcmd_" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton3.Checked = True And CheckBox3.Checked = True Then
TextBox14.Text = "dcmd_" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton3.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True Then
TextBox14.Text = "dcmd_" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton3.Checked = True And CheckBox3.Checked = True Then
TextBox14.Text = "dcmd_" + TextBox1.Text + "(playerid, params[])" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
If RadioButton11.Checked = True And CheckBox3.Checked = True And CheckBox2.Checked = True Then
TextBox14.Text = " if(strcmp(" + """" + TextBox1.Text + """" + ",cmdtext,true) == 0)" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton11.Checked = True And CheckBox3.Checked = True Then
TextBox14.Text = " if(strcmp(" + """" + TextBox1.Text + """" + ",cmdtext,true) == 0)" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " new str[128];" + vbCrLf
TextBox14.Text &= " format(str,sizeof(str),""You Have Been Teleported"");" + vbCrLf
TextBox14.Text &= " SendClientMessage(playerid,-1,str);" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton11.Checked = True And CheckBox2.Checked = True Then
TextBox14.Text = " if(strcmp(" + """" + TextBox1.Text + """" + ",cmdtext,true) == 0)" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetVehiclePos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
ElseIf RadioButton11.Checked = True And CheckBox2.Checked = False Then
TextBox14.Text = " if(strcmp(" + """" + TextBox1.Text + """" + ",cmdtext,true) == 0)" + vbCrLf
TextBox14.Text &= " {" + vbCrLf
TextBox14.Text &= " SetPlayerPos(playerid," + TextBox10.Text + "," + TextBox11.Text + "," + TextBox12.Text + ");" + vbCrLf
TextBox14.Text &= " return 1;" + vbCrLf
TextBox14.Text &= " }" + vbCrLf
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TabPage3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
System.Diagnostics.Process.Start("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=AQSJWBWZEYPBU")
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub Label17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
End Sub
Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
End Sub
Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
End Sub
Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox5_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox5.Enter
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
CheckBox2.Enabled = True
CheckBox3.Enabled = True
ElseIf CheckBox1.Checked = False Then
CheckBox2.Enabled = False
CheckBox3.Enabled = False
CheckBox2.Checked = False
CheckBox3.Checked = False
End If
End Sub
Private Sub PictureBox1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox9_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
End Sub
Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox11_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton23_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox15_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slot0.SelectedIndexChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
Private Sub GroupBox13_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox13.Enter
End Sub
Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slot4.SelectedIndexChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If godmode.Checked And zcmd.Checked = True Then
TextBox7.Text = "CMD:god(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(playerid,1000000);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If healme.Checked And zcmd.Checked = True Then
TextBox7.Text = "CMD:healme(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(playerid,100);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If armourme.Checked And zcmd.Checked = True Then
TextBox7.Text = "CMD:armourme(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerArmour(playerid,100);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If givecash.Checked And zcmd.Checked = True Then
TextBox7.Text = "CMD:cash(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " GivePlayerCash(playerid,1000000);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If godmode.Checked And dcmd.Checked = True Then
TextBox7.Text = "dcmd_god(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(playerid,1000000);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If healme.Checked And dcmd.Checked = True Then
TextBox7.Text = "dcmd_healme[playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(playerid,100);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If armourme.Checked And dcmd.Checked = True Then
TextBox7.Text = "dcmd_armourme(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " SetPlayerArmour(playerid,100);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
If givecash.Checked And dcmd.Checked = True Then
TextBox7.Text = "dcmd_cash(playerid, params[])" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " GivePlayerCash(playerid,1000000);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
End If
End Sub
Private Sub zcmd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zcmd.CheckedChanged
If zcmd.Checked = True Then
dcmd.Enabled = False
ElseIf zcmd.Checked = False Then
dcmd.Enabled = True
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
System.Diagnostics.Process.Start("C:\Users\Robert\Documents\GTA San Andreas User Files\SAMP\savedpositions.txt")
End Sub
Private Sub dcmd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dcmd.CheckedChanged
If dcmd.Checked = True Then
zcmd.Enabled = False
ElseIf dcmd.Checked = False Then
zcmd.Enabled = True
End If
End Sub
Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub LinkLabel1_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TabPage5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zcmd1.CheckedChanged
If zcmd1.Checked = True Then
dcmd1.Enabled = False
ElseIf zcmd1.Checked = False Then
dcmd1.Enabled = True
End If
End Sub
Private Sub dcmd1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dcmd1.CheckedChanged
If dcmd1.Checked = True Then
zcmd1.Enabled = False
ElseIf dcmd1.Checked = False Then
zcmd1.Enabled = True
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If nuke.Checked = True And zcmd1.Checked = True Then
TextBox7.Text = "CMD:nuke(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /nuke [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " new Float: x, Float: y, Float: z;" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " GetPlayerPos(targetid, x, y, z);" + vbCrLf
TextBox7.Text &= " CreateExplosion(x, y, z, 7, 10);" + vbCrLf
TextBox7.Text &= " format(string, 128, ""%s (%d) has died from a mysterious explosion..."", pname, targetid);" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(targetid,0);" + vbCrLf
TextBox7.Text &= " SendClientMessageToAll(0xFF00FFFF, string);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have died from a mysterious explosion..."");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have nuked %s (%d)"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If heal.Checked = True And zcmd1.Checked = True Then
TextBox7.Text = "CMD:heal(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /heal [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(targetid,100);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have been healed"");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have healed %s (%d)"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If armour.Checked = True And zcmd1.Checked = True Then
TextBox7.Text = "CMD:armour(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /armour [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " SetPlayerArmour(targetid,100);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have been given armour"");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have gave %s (%d) armour"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If gc.Checked = True And zcmd1.Checked = True Then
TextBox7.Text = "CMD:gc(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " if(IsPlayerAdmin(playerid))" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " new id, money, name[MAX_PLAYER_NAME], aname[MAX_PLAYER_NAME], str[128];" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""ui"", id, money)) return SendClientMessage(playerid, 0xCC0000AA, ""USAGE: /givecash <id/partofname> <amount>"");" + vbCrLf
TextBox7.Text &= " GivePlayerMoney(id, money);" + vbCrLf
TextBox7.Text &= " GetPlayerName(playerid, aname, sizeof(aname));" + vbCrLf
TextBox7.Text &= " GetPlayerName(id, name, sizeof(name));" + vbCrLf
TextBox7.Text &= " format(str,sizeof(str), ""Admin %s has given you $%d!"", aname, money);" + vbCrLf
TextBox7.Text &= " SendClientMessage(id, -1, str);" + vbCrLf
TextBox7.Text &= " format(str,sizeof(str), ""You have given %s $%d!"", name, money);" + vbCrLf
TextBox7.Text &= " SendClientMessage(playerid, -1, str);" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
TextBox7.Text &= " else return SendClientMessage(playerid, 0xCC0000AA, ""You aren't an admin!"");" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If nuke.Checked = True And dcmd1.Checked = True Then
TextBox7.Text = "dcmd_nuke(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /nuke [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " new Float: x, Float: y, Float: z;" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " GetPlayerPos(targetid, x, y, z);" + vbCrLf
TextBox7.Text &= " CreateExplosion(x, y, z, 7, 10);" + vbCrLf
TextBox7.Text &= " format(string, 128, ""%s (%d) has died from a mysterious explosion..."", pname, targetid);" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(targetid,0);" + vbCrLf
TextBox7.Text &= " SendClientMessageToAll(0xFF00FFFF, string);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have died from a mysterious explosion..."");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have nuked %s (%d)"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If heal.Checked = True And dcmd1.Checked = True Then
TextBox7.Text = "dcmd_heal(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /heal [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " SetPlayerHealth(targetid,100);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have been healed"");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have healed %s (%d)"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If armour.Checked = True And dcmd1.Checked = True Then
TextBox7.Text = "dcmd_armour(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " new pname[24], targetid, string[128];" + vbCrLf
TextBox7.Text &= " if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, ""SERVER: Unknown Command."");" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""u"", targetid)) return SendClientMessage(playerid, red, ""USAGE: /armour [playerid/name]"");" + vbCrLf
TextBox7.Text &= " if(!IsPlayerConnected(targetid)) return SendClientMessage(playerid, red, ""ERROR: That player isn't online!"");" + vbCrLf
TextBox7.Text &= " GetPlayerName(targetid, pname, 24);" + vbCrLf
TextBox7.Text &= " SetPlayerArmour(targetid,100);" + vbCrLf
TextBox7.Text &= " SendClientMessage(targetid, 0xFF00FFFF, ""You have been given armour"");" + vbCrLf
TextBox7.Text &= " format(string, 128, ""You have gave %s (%d) armour"", pname, targetid);" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
If gc.Checked = True And dcmd1.Checked = True Then
TextBox7.Text = "dcmd_gc(playerid,params[])" + vbCrLf
TextBox7.Text &= "{" + vbCrLf
TextBox7.Text &= " if(IsPlayerAdmin(playerid))" + vbCrLf
TextBox7.Text &= " {" + vbCrLf
TextBox7.Text &= " new id, money, name[MAX_PLAYER_NAME], aname[MAX_PLAYER_NAME], str[128];" + vbCrLf
TextBox7.Text &= " if(sscanf(params, ""ui"", id, money)) return SendClientMessage(playerid, 0xCC0000AA, ""USAGE: /givecash <id/partofname> <amount>"");" + vbCrLf
TextBox7.Text &= " GivePlayerMoney(id, money);" + vbCrLf
TextBox7.Text &= " GetPlayerName(playerid, aname, sizeof(aname));" + vbCrLf
TextBox7.Text &= " GetPlayerName(id, name, sizeof(name));" + vbCrLf
TextBox7.Text &= " format(str,sizeof(str), ""Admin %s has given you $%d!"", aname, money);" + vbCrLf
TextBox7.Text &= " SendClientMessage(id, -1, str);" + vbCrLf
TextBox7.Text &= " format(str,sizeof(str), ""You have given %s $%d!"", name, money);" + vbCrLf
TextBox7.Text &= " SendClientMessage(playerid, -1, str);" + vbCrLf
TextBox7.Text &= " }" + vbCrLf
TextBox7.Text &= " else return SendClientMessage(playerid, 0xCC0000AA, ""You aren't an admin!"");" + vbCrLf
TextBox7.Text &= " return 1;" + vbCrLf
TextBox7.Text &= "}" + vbCrLf
End If
End Sub
Private Sub TabPage4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage4.Click
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
System.Diagnostics.Process.Start("C:\Users\Robert\Documents\GTA San Andreas User Files\SAMP\savedpositions.txt")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generate.Click
If info.Checked And notpickup.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1239,1," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If info.Checked And respawn.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1239,2," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If info.Checked And car.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1239,14," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If info.Checked And blow.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1239,11," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If heart.Checked And notpickup.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1240,1," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If heart.Checked And respawn.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1240,2," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If heart.Checked And car.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1240,14," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If heart.Checked And blow.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1240,12," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If house.Checked And notpickup.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1273,1," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If house.Checked And respawn.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1273,2," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If house.Checked And blow.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1273,12," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If house.Checked And car.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1273,14," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If arrow.Checked And notpickup.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1318,1," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If arrow.Checked And respawn.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1318,2," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If arrow.Checked And car.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1318,14," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
If arrow.Checked And blow.Checked = True Then
code.Text = "new" + " " + pname.Text + ";"
gamemode.Text = "public OnGameModeInit()" + vbCrLf
gamemode.Text &= "{" + vbCrLf
gamemode.Text &= pname.Text + " = CreatePickup(1318,12," + x.Text + "," + y.Text + "," + z.Text + "," + "-1);"
penter.Text = "public OnPlayerPickUpPickup(playerid, pickupid)" + vbCrLf
penter.Text &= "{" + vbCrLf
penter.Text &= " if(pickupid ==" + pname.Text + ")" + vbCrLf
penter.Text &= " {" + vbCrLf
penter.Text &= " SetPlayerPos(playerid," + x2.Text + "," + y2.Text + "," + z2.Text + ");" + vbCrLf
penter.Text &= " return 1;" + vbCrLf
penter.Text &= " }"
End If
End Sub
Private Sub code_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles code.TextChanged, code.TextChanged
End Sub
End Class
But No Proplem Good i give you 6/10 +Rep 
