[HELP] vehicle script

Agon · August 7, 2012

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431,  
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524,  
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534,  
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 444, 
556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 606, 
607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
  
function fGiveVehicle(player, command, id) 
    if id == vehicleIDS then 
        if not isPedInVehicle(player) then 
            local x, y, z = getElementPosition(player) 
                local xr, yr, zr = getElementRotation(player) 
                    local veh = createVehicle(id, x, y, z, xr, yr, zr) 
                        warpPedIntoVehicle(player, veh) 
        else local ocVeh = getPedOccupiedVehicle(player) 
            setElementModel(ocVeh, id) 
    else outputChatBox("Invalid vehicle id", 255, 0, 0) 
end 
end 
end 
addCommandHandler("vehicle", fGiveVehicle)

i did this script but i think i screwed up because it doesn't work.

This is meta.xml

<meta> <script src="vehicle.lua" type="client" /> </meta>

I also want to use both vehicle ids and names. i thought of using getVehicleIDFromName and getVehicleNameFromID but couldn't make waiting for your helps

August 7, 2012

It is a server sided script, not client.

For your second question:

getVehicleNameFromModel

Agon · August 7, 2012

but i used clientside codes i think

edit: tried serverside but didn't work

August 7, 2012

but i used clientside codes i think

No

+ Commands don't have player parameter if it is clientside

+ warpPedIntoVehicle is server-only-function.

edit: tried serverside but didn't work

if id == vehicleIDS then

You expect a string to be a table?

Agon · August 7, 2012

You expect a string to be a table?

I want to check if the written id is in vehicleIDS table.

By the way how can i fix the script? It doesn't work...

Castillo · August 7, 2012

function isModelInTable ( theModel ) 
    local found = false 
    for _, model in ipairs ( vehicleIDS ) do 
        if ( model == theModel ) then 
            found = true 
            break 
        end 
    end 
  
    return found 
end

Agon · August 8, 2012

uhm.. like this?

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431,  
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524,  
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534,  
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 444, 
556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 606, 
607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
function isModelInTable ( theModel ) 
    local found = false 
    for _, model in ipairs ( vehicleIDS ) do 
        if ( model == theModel ) then 
            found = true 
            break 
        end 
    end 
    return found 
end 
  
  
function fGiveVehicle(source, command, id) 
    if isModelInTable(id) then 
        if not isPedInVehicle(source) then 
            x, y, z = getElementPosition(source) 
                xr, yr, zr = getElementRotation(source) 
                    veh = createVehicle(id, x, y, z, xr, yr, zr) 
                        warpPedIntoVehicle(source, veh) 
        else ocVeh = getPedOccupiedVehicle(source) 
            setElementModel(ocVeh, id) 
    else outputChatBox("Invalid vehicle id", 255, 0, 0) 
end 
end 
end 
addCommandHandler("vehicle", fGiveVehicle)

it says

loading script failed: veh\vehicle.lua:32: 'end' expected (to close 'if' at line 25) near 'else'

August 8, 2012

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 444, 
556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 606, 
607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
function isModelInTable ( theModel ) 
    local found = false 
    for _, model in ipairs ( vehicleIDS ) do 
        if ( model == theModel ) then 
            found = true 
            break 
        end 
    end 
    return found 
end 
  
  
function fGiveVehicle(source, command, id) 
    if isModelInTable(id) then 
        if not isPedInVehicle(source) then 
            x, y, z = getElementPosition(source) 
            xr, yr, zr = getElementRotation(source) 
            veh = createVehicle(id, x, y, z, xr, yr, zr) 
            warpPedIntoVehicle(source, veh) 
        else 
            ocVeh = getPedOccupiedVehicle(source) 
            setElementModel(ocVeh, id) 
        end 
    else 
        outputChatBox("Invalid vehicle id",source,255, 0, 0) 
    end 
end 
addCommandHandler("vehicle", fGiveVehicle)

Agon · August 8, 2012

now it says invalid vehicle id even i try that ids in the table

Castillo · August 8, 2012

Because the 'id' argument will return a string, you must convert it to a number with: tonumber ( ).

if isModelInTable ( tonumber ( id ) ) then

Agon · August 9, 2012

oh thanks now how can i make it both vehicle id's and names? should i make vehicle names' table?

August 9, 2012

oh thanks now how can i make it both vehicle id's and names? should i make vehicle names' table?

getVehicleModelFromName

getVehicleNameFromModel

Agon · August 9, 2012

i know getVehicleNameFromModel but don't know how to place it in the script

made the vehicle table now what? btw can i make something that when i type either car name or id and it will see it as the vehicle's id and spawn the vehicle? i'm not good at tables but i think it was something like that:

vehicleTable = { [429] = "Banshee", [500] = "Mesa"}

. when i type mesa, it will find the id in the table and spawn the vehicle by it's id not name. that can be very easy if you tell me how can i make this.

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 444, 
556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 606, 
607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
vehicleNames = { alpha, blista compact, bravura, buccaneer, cadrona, club, esperanto, feltzer, fortune, hermes, hustler, majestic, manana, picador, 
previon, stafford, stallion, tampa, virgo, admiral, damaged glendale, elegant, emperor, euros, glendale, greenwood, intruder, merit, nebula, oceanic, 
premier, primo, sentinel, stretch, sunrise, tahoma, vincent, washington, willard, andromada, at-400, beagle, cargobob, cropduster, dodo, hunter, hydra, 
leviathan, maverick, nevada, news chopper, police maverick, raindance, rustler, seasparrow, shamal, skimmer, sparrow, stuntplane, bf-400, bike, bmx, faggio, 
fcr-900, freeway, mountain bike, nrg-500, pcj-600, pizza boy, sanchez, wayfarer, coastguard, dinghy, jetmax, launch, marquis, predator, reefer, speeder, squalo, 
tropic, baggage, utility van, bus, cabbie, coach, sweeper, taxi, towtruck, trashmaster, ambulance, barracks, enforcer, fbi rancher, fbi truck, fire truck, hpv1000,  
patriot, police car, police ranger, S.W.A.T., securicar, benson, black boxville, boxville, cement truck, combine harvester, dft-30, dozer, dumper, dune, flatbed, hotdog, 
linerunner, mr. whoopee, mule, packer, roadtrain, tractor, yankee, berkley's rc van, bobcat, burrito, damaged sadler, forklift, moonbeam, mower, news van, pony, rumpo, sadler, 
tug, walton, yosemite, blade, broadway, remington, savanna, slamvan, tornado, voodoo, buffalo, clover, phoenix, sabre, tram, freight, brown streak, flat freight, box freight, rc bandit, 
rc baron, rc goblin, rc raider, rc tiger, bandito, bf injection, bloodring banger, caddy, camper, journey, kart, mesa, monster, monster 2, monster 3, quadbike, sandking, vortex, 
banshee, bullet, cheetah, comet, elegy, flash, hotknife, hotring racer, hotring racer 2 ,hotring racer 3, infernus, jester, stratum, sultan, super gt, turismo, uranus, windsor, 
zr-350, huntley, landstalker, perennial, rancher, regina, romero, solair, baggaga trailer, farm trailer, street clean trailer, stairs, trailer 1, trailer 2, trailer 3, rc cam} 
  
function isModelInTable ( theModel ) 
    local found = false 
    for _, model in ipairs ( vehicleIDS ) do 
        if ( model == theModel ) then 
            found = true 
            break 
        end 
    end 
    return found 
end 
  
function fGiveVehicle(source, command, id) 
    if isModelInTable ( tonumber ( id ) ) then 
        if not isPedInVehicle(source) then 
            x, y, z = getElementPosition(source) 
            xr, yr, zr = getElementRotation(source) 
            veh = createVehicle(id, x, y, z, xr, yr, zr) 
            warpPedIntoVehicle(source, veh) 
        else 
            ocVeh = getPedOccupiedVehicle(source) 
            setElementModel(ocVeh, id) 
        end 
    else 
        outputChatBox("Invalid vehicle id",source,255, 0, 0) 
    end 
end 
addCommandHandler("vehicle", fGiveVehicle)

August 9, 2012

vehicleIDS = { 602, 545, 496, 517, 401, 410, 518, 600, 527, 436, 589, 580, 419, 439, 533, 549, 526, 491, 474, 445, 467, 604, 426, 507, 547, 585, 
405, 587, 409, 466, 550, 492, 566, 546, 540, 551, 421, 516, 529, 592, 553, 577, 488, 511, 497, 548, 563, 512, 476, 593, 447, 425, 519, 520, 460, 
417, 469, 487, 513, 581, 510, 509, 522, 481, 461, 462, 448, 521, 468, 463, 586, 472, 473, 493, 595, 484, 430, 453, 452, 446, 454, 485, 552, 431, 
438, 437, 574, 420, 525, 408, 416, 596, 433, 597, 427, 599, 490, 432, 528, 601, 407, 428, 544, 523, 470, 598, 499, 588, 609, 403, 498, 514, 524, 
423, 532, 414, 578, 443, 486, 515, 406, 531, 573, 456, 455, 459, 543, 422, 583, 482, 478, 605, 554, 530, 418, 572, 582, 413, 440, 536, 575, 534, 
567, 535, 576, 412, 402, 542, 603, 475, 449, 537, 538, 441, 464, 501, 465, 564, 568, 557, 424, 471, 504, 495, 457, 539, 483, 508, 571, 500, 444, 
556, 429, 411, 541, 559, 415, 561, 480, 560, 562, 506, 565, 451, 434, 558, 494, 555, 502, 477, 503, 579, 400, 404, 489, 505, 479, 442, 458, 606, 
607, 610, 590, 569, 611, 584, 608, 435, 450, 591, 594 } 
  
function isModelInTable ( theModel ) 
    local found = false 
    for _, model in ipairs ( vehicleIDS ) do 
        if ( model == theModel ) then 
            found = true 
            break 
        end 
    end 
    return found 
end 
  
  
function fGiveVehicle(source, command, id) 
    if id then 
        local id = tonumber(id) or getVehicleModelFromName(id) 
        if isModelInTable(id) then 
            if not isPedInVehicle(source) then 
                x, y, z = getElementPosition(source) 
                xr, yr, zr = getElementRotation(source) 
                veh = createVehicle(id, x, y, z, xr, yr, zr) 
                warpPedIntoVehicle(source, veh) 
                outputChatBox("You spawned a "..getVehicleNameFromModel(id),source,0,255,255) 
            else 
                ocVeh = getPedOccupiedVehicle(source) 
                setElementModel(ocVeh, id) 
            end 
        else 
            outputChatBox("Invalid vehicle name/id",source,255, 0, 0) 
        end 
    else 
        outputChatBox("Please use: /vehicle [id or name]",source,0,255,255) 
    end 
end 
addCommandHandler("vehicle", fGiveVehicle)

Agon · August 10, 2012

Thank you it works but i have a problem. when i type /vehicle blista compact, it sees the command as /vehicle blista. so i found this

id:gsub(' ', ' ')

but it doesn't work (on the 5th line)

function fGiveVehicle(source, command, id) 
    if id then 
        local id = tonumber(id) or getVehicleModelFromName(id) 
        if isModelInTable(id) then 
        id:gsub(' ', ' ') 
            if not isPedInVehicle(source) then 
                x, y, z = getElementPosition(source) 
                xr, yr, zr = getElementRotation(source) 
                veh = createVehicle(id, x, y, z, xr, yr, zr) 
                warpPedIntoVehicle(source, veh) 
                outputChatBox("You spawned a "..getVehicleNameFromModel(id),source,0,255,255) 
            else 
                ocVeh = getPedOccupiedVehicle(source) 
                setElementModel(ocVeh, id) 
            end 
        else 
            outputChatBox("Invalid vehicle name/id",source,255, 0, 0) 
        end 
    else 
        outputChatBox("Please use: /vehicle [id or name]",source,0,255,255) 
    end 
end 
addCommandHandler("vehicle", fGiveVehicle)

August 10, 2012

function fGiveVehicle(source, command, ...) 
    local id = table.concat(arg," ") 
    if id then 
        local id = tonumber(id) or getVehicleModelFromName(id) 
        if isModelInTable(id) then 
            if not isPedInVehicle(source) then 
                x, y, z = getElementPosition(source) 
                xr, yr, zr = getElementRotation(source) 
                veh = createVehicle(id, x, y, z, xr, yr, zr) 
                warpPedIntoVehicle(source, veh) 
                outputChatBox("You spawned a "..getVehicleNameFromModel(id),source,0,255,255) 
            else 
                ocVeh = getPedOccupiedVehicle(source) 
                setElementModel(ocVeh, id) 
            end 
        else 
            outputChatBox("Invalid vehicle name/id",source,255, 0, 0) 
        end 
    else 
        outputChatBox("Please use: /vehicle [id or name]",source,0,255,255) 
    end 
end 
addCommandHandler("vehicle", fGiveVehicle)

Agon · August 10, 2012

thank you guys it works

edit: btw why this?

function fGiveVehicle(source, command, ...) 
    local id = table.concat(arg," ")

I mean what do table.concat(arg, " ") and ... do?

August 10, 2012

What table.concat does:

http://www.lua.org/manual/5.1/manual.ht ... ble.concat

http://lua-users.org/wiki/TableLibraryTutorial

http://lua-users.org/wiki/SplitJoin

How I got that hidden arg and what exactly is it?:

http://www.lua.org/pil/5.2.html/

[HELP] vehicle script

Recommended Posts

Link to comment

Guest Guest4401

Link to comment

Link to comment

Guest Guest4401

Link to comment

Link to comment

Link to comment

Link to comment

Guest Guest4401

Link to comment

Link to comment

Link to comment

Link to comment

Guest Guest4401

Link to comment

Link to comment

Guest Guest4401

Link to comment

Link to comment

Guest Guest4401

Link to comment

Link to comment

Guest Guest4401

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members