SA-MP Forums

Go Back   SA-MP Forums > SA-MP Scripting and Plugins > Filterscripts > Tools and Files

Reply
 
Thread Tools Display Modes
Old 28/01/2012, 10:26 PM   #1
SnG.Scot_MisCuDI
Gangsta
 
SnG.Scot_MisCuDI's Avatar
 
Join Date: Mar 2011
Location: Gilbert, Arizona
Posts: 883
Reputation: 56
Default A to Z Pawno Tool

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

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



__________________

aka Googamalugafoo
[FS/Tool] Dynamic Biz - Dynamic Bank - FFA DM - Pawno Tool
[Tuts] Map Editor - Nuke - Using Pickups - Timers



Last edited by SnG.Scot_MisCuDI; 02/02/2012 at 11:09 PM.
SnG.Scot_MisCuDI is offline   Reply With Quote
Old 28/01/2012, 10:29 PM   #2
thedark222
Little Clucker
 
thedark222's Avatar
 
Join Date: Dec 2011
Posts: 18
Reputation: 0
Default Re: A to Z Pawno Tool

Not Bad But you didn't make anything new you just made a copy of Scriptting Machine By Chaoz
But Not Bad waitting More
thedark222 is offline   Reply With Quote
Old 28/01/2012, 10:32 PM   #3
SnG.Scot_MisCuDI
Gangsta
 
SnG.Scot_MisCuDI's Avatar
 
Join Date: Mar 2011
Location: Gilbert, Arizona
Posts: 883
Reputation: 56
Default Re: A to Z Pawno Tool

Lol i didnt even know about that
And if you have suggestions post them!
__________________

aka Googamalugafoo
[FS/Tool] Dynamic Biz - Dynamic Bank - FFA DM - Pawno Tool
[Tuts] Map Editor - Nuke - Using Pickups - Timers


SnG.Scot_MisCuDI is offline   Reply With Quote
Old 28/01/2012, 11:09 PM   #4
[KHK]Khalid
Gangsta
 
[KHK]Khalid's Avatar
 
Join Date: Jan 2012
Location: Alexandria, Egypt
Posts: 855
Reputation: 136
Default Re: A to Z Pawno Tool

nice one and what about a dialog creator with some cool ideas that make it easier for newbies? (just suggesting)
[KHK]Khalid is offline   Reply With Quote
Old 28/01/2012, 11:41 PM   #5
thedark222
Little Clucker
 
thedark222's Avatar
 
Join Date: Dec 2011
Posts: 18
Reputation: 0
Default Re: A to Z Pawno Tool

Why you didn't add the normal way of pawno in adding commands i mean if (strcmp there are some people till now using it But No Proplem Good i give you 6/10 +Rep
thedark222 is offline   Reply With Quote
Old 29/01/2012, 12:12 AM   #6
SnG.Scot_MisCuDI
Gangsta
 
SnG.Scot_MisCuDI's Avatar
 
Join Date: Mar 2011
Location: Gilbert, Arizona
Posts: 883
Reputation: 56
Default Re: A to Z Pawno Tool

Quote:
Originally Posted by HellSphinX View Post
nice one and what about a dialog creator with some cool ideas that make it easier for newbies? (just suggesting)
There is already one made http://forum.sa-mp.com/showthread.php?t=282220
Quote:
Originally Posted by thedark222 View Post
Why you didn't add the normal way of pawno in adding commands i mean if (strcmp there are some people till now using it But No Proplem Good i give you 6/10 +Rep
I was going to but i had problems.. Will be in the next update for sure!
__________________

aka Googamalugafoo
[FS/Tool] Dynamic Biz - Dynamic Bank - FFA DM - Pawno Tool
[Tuts] Map Editor - Nuke - Using Pickups - Timers


SnG.Scot_MisCuDI is offline   Reply With Quote
Old 02/02/2012, 11:11 PM   #7
SnG.Scot_MisCuDI
Gangsta
 
SnG.Scot_MisCuDI's Avatar
 
Join Date: Mar 2011
Location: Gilbert, Arizona
Posts: 883
Reputation: 56
Default Re: A to Z Pawno Tool

Version 1.5 is now out! I need some testers
__________________

aka Googamalugafoo
[FS/Tool] Dynamic Biz - Dynamic Bank - FFA DM - Pawno Tool
[Tuts] Map Editor - Nuke - Using Pickups - Timers


SnG.Scot_MisCuDI is offline   Reply With Quote
Old 05/02/2012, 04:57 AM   #8
SnG.Scot_MisCuDI
Gangsta
 
SnG.Scot_MisCuDI's Avatar
 
Join Date: Mar 2011
Location: Gilbert, Arizona
Posts: 883
Reputation: 56
Default Re: A to Z Pawno Tool

bump
__________________

aka Googamalugafoo
[FS/Tool] Dynamic Biz - Dynamic Bank - FFA DM - Pawno Tool
[Tuts] Map Editor - Nuke - Using Pickups - Timers


SnG.Scot_MisCuDI is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
[Tool/Web/Other] Pawno Object Calculator Final (V2) [MAPPACK + TOOL] *MUST HAVE* gamer931215 Tools and Files 21 16/03/2011 05:37 PM
[Tool/Web/Other] (MUSTHAVE FOR MAPPERS) Gamer's Pawno Spawner tool gamer931215 Tools and Files 6 22/07/2010 11:11 PM


All times are GMT. The time now is 01:43 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.