Beiträge von Chris aka. ReyR

wattspackage_price = 1250


Wattsequip = createMarker ( -2455.5, -111.90000152588, 25, "cylinder", 1, 255, 0, 0, 150 )


function equip_func ( player )


	local money = tonumber ( laGetElementData ( player, "money" ) )
	if money >= wattspackage_price then
		local x, y, z = getElementPosition ( player )
		if getDistanceBetweenPoints3D ( x, y, z, -2455.5, -111.90000152588, 25 ) <= 5 then
			if isWatts ( player ) then
				if laGetElementData ( player, "rang" ) >= 2 then
					laSetElementData ( player, "money", money - wattspackage_price )
					takePlayerMoney ( player, wattspackage_price )
					playSoundFrontEnd ( player, 40 )
					triggerClientEvent ( player, "HudEinblendenMoney", getRootElement() )

					local weapon = 31
					local ammo = 150
					giveWeapon ( player, weapon, ammo, true )
					triggerClientEvent ( player, "sec_gun_give", getRootElement(), weapon, ammo )

					local weapon = 29
					local ammo = 120
					giveWeapon ( player, weapon, ammo, true )
					triggerClientEvent ( player, "sec_gun_give", getRootElement(), weapon, ammo )

					local weapon = 22
					local ammo = 56
					giveWeapon ( player, weapon, ammo, true )
					triggerClientEvent ( player, "sec_gun_give", getRootElement(), weapon, ammo )

					local weapon = 5
					local ammo = 0
					giveWeapon ( player, weapon, ammo, true )
					triggerClientEvent ( player, "sec_gun_give", getRootElement(), weapon, ammo )
				end
				if isWatts ( player ) then
				    outputChatBox ( "Ausruestung gekauft!", player, 125, 0, 0 )
				end	
			else
				outputChatBox ( "Du bist kein Watts-Mitglied", player, 125, 0, 0 )
			end
		else
			outputChatBox ( "Du bist nicht beim Lager!", player, 125, 0, 0 )
		end
	else
		triggerClientEvent ( player, "infobox_start", getRootElement(), "Du hast zu\nwenig Geld!\nDas Paket kostet\n"..wattspackage_price.." $!", 5000, 125, 0, 0 )
	end
end
addCommandHandler ( "equip", equip_func )

addEventHandler("onClientGUIClick", gGrid[1], 
			function ( btn, state )
				local row, column = guiGridListGetSelectedItem ( gGrid[1] )
				if row and offerID ~= _G[row.."DataID"] then
					local ends = _G[row.."DataEnds"]
					local anbieter = _G[row.."DataFrom"]
					local gebot = _G[row.."DataBet"]
					local hoechstbietender = _G[row.."DataTopOfferer"]

					offerID = _G[row.."DataID"]

					guiSetText ( gLabel[2], "Auktion läuft noch:\n"..ends )

					guiSetText ( gLabel[6], gebot.." $" )
					guiSetText ( gLabel[7], "Von: "..höchstbietender )

					triggerServerEvent ( "getDescriptionForObject", lp, offerTypes[auktionOffer], offerID )
				end
			end
		)
	end
)


function recieveDataForObjectList_func ( count, dataString )


	for i = 1, count do
		dataStringPart = gettok ( dataString, i, string.byte ( '~' ) )

		local id = gettok ( dataStringPart, 1, string.byte ( '|' ) )
		local anbieter = gettok ( dataStringPart, 2, string.byte ( '|' ) )
		local hoechstgebot = gettok ( dataStringPart, 3, string.byte ( '|' ) )
		local ends = gettok ( dataStringPart, 4, string.byte ( '|' ) )
		local counts = gettok ( dataStringPart, 5, string.byte ( '|' ) )
		local hoechstbietender = gettok ( dataStringPart, 6, string.byte ( '|' ) )

		local row = guiGridListAddRow ( gGrid[1] )

		_G[row.."DataEnds"] = nil
		_G[row.."DataID"] = nil
		_G[row.."DataFrom"] = nil
		_G[row.."DataBet"] = nil
		_G[row.."DataCount"] = nil
		_G[row.."DataTopOfferer"] = nil

		_G[row.."DataEnds"] = ends
		_G[row.."DataID"] = id
		_G[row.."DataFrom"] = anbieter
		_G[row.."DataBet"] = hoechstgebot
		_G[row.."DataCount"] = tonumber ( counts )
		_G[row.."DataTopOfferer"] = hoechstbietender
		guiGridListSetItemText ( gGrid[1], row, gColumn["offerFrom"], anbieter, false, false )
		guiGridListSetItemText ( gGrid[1], row, gColumn["offerGebot"], hoechstgebot.." $", false, false )
		if gColumn["secText"] then
			if secColumn == "Model" then
				counts = getVehicleNameFromModel ( tonumber ( counts ) )
			end
			guiGridListSetItemText ( gGrid[1], row, gColumn["secText"], tostring ( counts ), false, false )
		end
	end
end
addEvent ( "recieveDataForObjectList", true )
addEventHandler ( "recieveDataForObjectList", getRootElement(), recieveDataForObjectList_func )


function recieveDescriptionForObject_func ( text, id )


	if offerID == id then
		guiSetText ( gMemo[1], text )
	end
end
addEvent ( "recieveDescriptionForObject", true )
addEventHandler ( "recieveDescriptionForObject", getRootElement(), recieveDescriptionForObject_func )

function ComptonDeliver_func ( player, dim )
if isCompton (player) then
	local veh = getPedOccupiedVehicle ( player )
	if veh then
		if getPedOccupiedVehicleSeat ( player ) == 0 then
			if getElementModel ( veh ) == 609 then
				if laGetElementData ( veh, "matstruck" ) == 1 then

					local mats = laGetElementData ( veh, "mats" )
					local kosten = laGetElementData ( veh, "kosten" )

					ComptonMats = tonumber ( MySQL_GetString("fraktionen", "DepotMaterials", "Name LIKE 'Compton'") )
					ComptonFamkasse = tonumber ( MySQL_GetString("fraktionen", "DepotGeld", "Name LIKE 'Compton'") )


					local Fammatsneu = ComptonMats + mats
					local ComptonFamkasseNew = ComptonFamkasse - kosten

					MySQL_SetString("fraktionen", "DepotMaterials", Fammatsneu, "Name LIKE 'Compton'")
					MySQL_SetString("fraktionen", "DepotGeld", ComptonFamkasseNew, "Name LIKE 'Compton'")		

					ComptonMats = tonumber ( MySQL_GetString("fraktionen", "DepotMaterials", "Name LIKE 'Compton'") )
					ComptonFamkasse = tonumber ( MySQL_GetString("fraktionen", "DepotGeld", "Name LIKE 'Compton'") )

					outputChatBox ( "Matslieferung abgegeben. Du erhältst "..kosten.."$ aus der Fraktionskasse zurück!", player, 0, 200, 0 )
					local msg = "[MATSTRUCK]: Der Matstruck wurde erfolgreich abgegeben!"
					sendMSGForFaction ( msg, 1, 200, 0, 0 )
					sendMSGForFaction ( msg, 2, 200, 200, 0 )
					sendMSGForFaction ( msg, 3, 200, 200, 0 )
					sendMSGForFaction ( msg, 6, 200, 0, 0 )
					sendMSGForFaction ( msg, 7, 200, 200, 0 )
					sendMSGForFaction ( msg, 8, 200, 0, 0 )
					sendMSGForFaction ( msg, 9, 0, 150, 0 )
					sendMSGForFaction ( msg, 10, 200, 200, 0 )
					outputLog ( "[MATSTRUCK]: "..getPlayerName ( player ).." hat bei den Comptons einen Matstruck fuer "..kosten.."$ abgegeben!", "bad" )
					laSetElementData ( player, "money", laGetElementData ( player, "money" ) + kosten )
					givePlayerMoney ( player, kosten )
					setElementVisibleTo ( ComptonDeliver, player, false )
					setElementVisibleTo ( ComptonDeliverBlip, player, false )