=][مشكلة | معرض سيارات][=

[Maksoud]

السلام عليكم و رحمة الله و بركاته

سويت معرض سيارات

و المعرض شغال كله معادا زرارين بس

زر تنزيل العربية

و زر بيع العربية

لما اجى انزل العربية

بيطلب الاي دي

و انا معرف كيف اسويلها داتا

للقريد ليست و انا مسوى حفظ داتا بالاكس ام ال

كوداتى المستخدمة فى جلب الاسماء و الاسعار حق السيارات

#Client

bindKey("F4","down", function (row) 
guiSetVisible(MyWnd, not guiGetVisible(MyWnd)) 
showCursor(guiGetVisible(MyWnd)) 
guiSetInputEnabled(guiGetVisible(MyWnd)) 
    local veh = xmlLoadFile ( 'Vehicles1.xml' ) 
        if veh then 
            guiGridListClear ( MyGrid ) 
                for k, car in ipairs ( xmlNodeGetChildren ( veh ) ) do 
                    RowForRow = guiGridListAddRow( MyGrid ) 
                    guiGridListSetItemText( MyGrid, RowForRow, 1, xmlNodeGetAttributes(car).Name ,false, false) 
                    guiGridListSetItemText( MyGrid, RowForRow, 2, xmlNodeGetAttributes(car).Money, false, false) 
            end 
                    xmlUnloadFile( veh ) 
                     
        end 
    end 
) 

[SycroX]

السلام عليكم و رحمة الله و بركاته

سويت معرض سيارات

و المعرض شغال كله معادا زرارين بس

زر تنزيل العربية

و زر بيع العربية

لما اجى انزل العربية

بيطلب الاي دي

و انا معرف كيف اسويلها داتا

للقريد ليست و انا مسوى حفظ داتا بالاكس ام ال

كوداتى المستخدمة فى جلب الاسماء و الاسعار حق السيارات

#Client

bindKey("F4","down", function (row) 
guiSetVisible(MyWnd, not guiGetVisible(MyWnd)) 
showCursor(guiGetVisible(MyWnd)) 
guiSetInputEnabled(guiGetVisible(MyWnd)) 
    local veh = xmlLoadFile ( 'Vehicles1.xml' ) 
        if veh then 
            guiGridListClear ( MyGrid ) 
                for k, car in ipairs ( xmlNodeGetChildren ( veh ) ) do 
                    RowForRow = guiGridListAddRow( MyGrid ) 
                    guiGridListSetItemText( MyGrid, RowForRow, 1, xmlNodeGetAttributes(car).Name ,false, false) 
                    guiGridListSetItemText( MyGrid, RowForRow, 2, xmlNodeGetAttributes(car).Money, false, false) 
            end 
                    xmlUnloadFile( veh ) 
                     
        end 
    end 
) 

[Maksoud]

بوضح لك شوي

المفروض انى لما اختار سيارة من القريد ليست و اضغط على زر اظهار يظهرها

هو ما يظهرها

و الدي بق يقول انه توقع رقم

[فاّرس]

انت منزل اكواد احنا ما راح نحتاجها! وين اكواد اول ماتنزل السياره؟

[Maksoud]

#Client

addEventHandler("onClientGUIClick",root, 
function() 
local sel = guiGridListGetSelectedItem(MyGrid) 
if ( source == SpawnButton ) then 
if sel ~= -1 then 
local getSelectedCar1 = guiGridListGetItemText(MyGrid, guiGridListGetSelectedItem(MyGrid), 1) 
local getCarID1 = guiGridListGetItemData(MyGrid, guiGridListGetSelectedItem(MyGrid), 1) 
triggerServerEvent("SpawnMyCar",localPlayer,getCarID1) 
else 
outputChatBox("# Error : You Must Choose A Vehicle.",255,0,0,true) 
end 
end 
end 
) 

#Server

addEvent("BuyVehicle",true) 
addEventHandler("BuyVehicle",root, 
    function (name,money,id) 
        if not isGuestAccount(getPlayerAccount(source)) then 
            if getPlayerMoney(source) >= tonumber(money) then    
                takePlayerMoney(source,money) 
                outputChatBox("#Successful : You Have Bought " .. name .. " For | " .. money .." $",source,0,255,0) 
                triggerClientEvent(source,"AddVehicle",source) 
            else 
                outputChatBox("#Error : You Don`t Have Enough Money.",source,255,0,0) 
            end 
        else 
            outputChatBox("#Error : You Must Login.",source,255,0,0) 
        end 
    end 
) 

[Maksoud]

#Client

addEventHandler("onClientGUIClick",root, 
function() 
local sel = guiGridListGetSelectedItem(MyGrid) 
if ( source == SpawnButton ) then 
if sel ~= -1 then 
local getSelectedCar1 = guiGridListGetItemText(MyGrid, guiGridListGetSelectedItem(MyGrid), 1) 
local getCarID1 = guiGridListGetItemData(MyGrid, guiGridListGetSelectedItem(MyGrid), 1) 
triggerServerEvent("SpawnMyCar",localPlayer,getCarID1) 
else 
outputChatBox("# Error : You Must Choose A Vehicle.",255,0,0,true) 
end 
end 
end 
) 

#Server

addEvent("BuyVehicle",true) 
addEventHandler("BuyVehicle",root, 
    function (name,money,id) 
        if not isGuestAccount(getPlayerAccount(source)) then 
            if getPlayerMoney(source) >= tonumber(money) then    
                takePlayerMoney(source,money) 
                outputChatBox("#Successful : You Have Bought " .. name .. " For | " .. money .." $",source,0,255,0) 
                triggerClientEvent(source,"AddVehicle",source) 
            else 
                outputChatBox("#Error : You Don`t Have Enough Money.",source,255,0,0) 
            end 
        else 
            outputChatBox("#Error : You Must Login.",source,255,0,0) 
        end 
    end 
) 

[N3xT]

ماني شايف أي وظيفة تسوي سيارة

[Maksoud]

تقصد createVehicle

لول

addEvent("SpawnMyCar",true) 
addEventHandler("SpawnMyCar",root, 
function(getCarID1) 
  if isElement(Vehicle1) then destroyElement(Vehicle1) end 
  local name = getPlayerName(source) 
  player_1 = getPlayerFromName(name) 
  local x, y, z = getElementPosition(source) 
  Vehicle1 = createVehicle ( getCarID1, x+2, y, z + 2 ) 
  outputChatBox("# Successful : You Have Spawned Your Car Successfully.",source,0,255,0,true) 
end) 

بس على فكرة كل الهو عايزه

guiGridListSetItemData

guiGridListGetItemData

بس انا معرف وش الداتا المطلوبة ! و كيف احطها مع اكس ام ال نود

[Maksoud]

شباب مساعدةة

[فاّرس]

ما اشوف انك حفظت معلومات السياره في الاكس ام ال وبالكلينت تجيب معلومات من الاكس ام ال وانت مو ضايفها كيف؟

[Maksoud]

تم الحذف

Edited August 27, 2016 by Guest

[فاّرس]

اول شي العصبيه تسبب افراز هرمون يسبب الغباء, شفيك معصب

اذكر الاكواد ذي انا معدلها لك بكود قديم او انا غلطان؟

ثاني شي, يوم اللاعب يشتري السياره انت احفظ الايدي حق السياره وضيفه للإكس ام ال نفس طريقة حفظك لإسم السياره والسعر

وبعدين جيب الايدي اذا جاء بينزل السياره, صعبه؟

[Maksoud]

جربت كل الطرق والله

ذى اساسا المحاولة حقتى

و انا اسف عشان اتعصبت

[Maksoud]

مشكور صلحته

[فاّرس]

دام انحلت مشكلتك تقدر تحذف آخر اكواد نزلتها عشان ما تكون زعلان .

[Maksoud]

في شئ اخر لو سمحتم

بدى لما ابيع سيارة يعطى فلوس للاعب

الاكواد المستخدمة :

addEventHandler("onClientGUIClick",root, 
function ( ) 
local sel = guiGridListGetSelectedItem(MyGrid)   
    if ( source == SellButton ) then 
    if sel ~= -1 then 
      local veh = xmlLoadFile ( 'Vehicles1.xml' ) 
        if veh then 
            for k,v in ipairs ( xmlNodeGetChildren ( veh ) ) do 
                if xmlNodeGetAttributes ( v ).Name == guiGridListGetSelectedItemText ( MyGrid, 1 ) then  
                    xmlNodeSetAttribute ( v, 'Name', nil ) 
                        xmlNodeSetAttribute ( v, 'Money', nil ) 
                        xmlNodeSetAttribute (v, 'VehID', nil) 
                            xmlDestroyNode ( v ) 
            end 
        end 
            xmlSaveFile ( veh ) 
                xmlUnloadFile ( veh ) 
                    guiGridListRemoveRow(MyGrid,guiGridListGetSelectedItem(MyGrid)) 
                    triggerServerEvent("GiveMoneyDestroyVehicle",localPlayer) 
                    moneya = guiGridListGetSelectedItem(MyGrid) 
                    MoneyData = guiGridListGetItemData(MyGrid,guiGridListGetSelectedItem(MyGrid),2) 
                    givePlayerMoney(MoneyData) 
                    outputChatBox("# Successful : Vehicle Sold For | "..MoneyData.." $",source,0,255,0,true) 
                end 
            end 
        end 
end 
) 

المشكلة

انه يبي داتا

و معرفت اسوي الداتا اساسا

[فاّرس]

مافهمتك, اي داتا؟ عن اي داتا تتكلم؟ وليه راح تحتاج الداتا؟, اول ما يبيع السياره تحذف السياره من الاكس ام ال والجريد ليست, وترسل تريقر للسيرفر وتعطيه فلوس, وش مشكلتك؟

[Maksoud]

مهو وش ثمن البييع ؟؟

هو محتاج داتا بثمن البيع

[Mhmd.z]

استخدم مشان تعطي الاعب فلوس

givePlayerMoney 

[Maksoud]

في شئ اخر لو سمحتم

بدى لما ابيع سيارة يعطى فلوس للاعب

الاكواد المستخدمة :

addEventHandler("onClientGUIClick",root, 
function ( ) 
local sel = guiGridListGetSelectedItem(MyGrid)   
    if ( source == SellButton ) then 
    if sel ~= -1 then 
      local veh = xmlLoadFile ( 'Vehicles1.xml' ) 
        if veh then 
            for k,v in ipairs ( xmlNodeGetChildren ( veh ) ) do 
                if xmlNodeGetAttributes ( v ).Name == guiGridListGetSelectedItemText ( MyGrid, 1 ) then  
                    xmlNodeSetAttribute ( v, 'Name', nil ) 
                        xmlNodeSetAttribute ( v, 'Money', nil ) 
                        xmlNodeSetAttribute (v, 'VehID', nil) 
                            xmlDestroyNode ( v ) 
            end 
        end 
            xmlSaveFile ( veh ) 
                xmlUnloadFile ( veh ) 
                    guiGridListRemoveRow(MyGrid,guiGridListGetSelectedItem(MyGrid)) 
                    triggerServerEvent("GiveMoneyDestroyVehicle",localPlayer) 
                    moneya = guiGridListGetSelectedItem(MyGrid) 
                    MoneyData = guiGridListGetItemData(MyGrid,guiGridListGetSelectedItem(MyGrid),2) 
                    givePlayerMoney(MoneyData) -- وش هذا مثلا ؟ 
                    outputChatBox("# Successful : Vehicle Sold For | "..MoneyData.." $",source,0,255,0,true) 
                end 
            end 
        end 
end 
) 

المشكلة

انه يبي داتا

و معرفت اسوي الداتا اساسا

[Maksoud]

مساعدة !

[فاّرس]

ثمن البيع انت حافظه داخل الاكس ام ال صح؟

[Maksoud]

يب

addEvent("AddVehicle",true) 
addEventHandler("AddVehicle",root, 
function() 
    local veh = xmlLoadFile ( 'Vehicles1.xml' ) 
    if veh then 
        local name = xmlCreateChild( veh, 'veh' ) 
        local sel = guiGridListGetSelectedItem(VehGrid) 
        if sel ~= -1 then 
        xmlNodeSetAttribute ( name, 'Name', guiGridListGetSelectedItemText( VehGrid, 1 ) ) 
          xmlNodeSetAttribute ( name, 'Money', guiGridListGetSelectedItemText( VehGrid, 2 ) ) 
          xmlNodeSetAttribute ( name, 'VehID', guiGridListGetItemData(VehGrid,sel,1) ) 
          xmlNodeSetAttribute ( name, 'Money2', guiGridListGetItemData(VehGrid,sel,2) ) 
        xmlSaveFile ( veh ) 
        xmlUnloadFile ( veh ) 
    end 
end 
end) 

[فاّرس]

طيب جيب القيمه من الاكس ام ال زي كذا :

xmlNodeGetAttributes ( v ).Money 

.عشان توقف اللوبbreak طبعا حطها داخل متغير عشان مايمديك تستخدمها خارج اللوب ولازم تستخدم

[Maksoud]

guiGridListSetItemData( MyGrid, RowForRow, 2, xmlNodeGetAttributes(car).Money2) 

انا مسوي هذا

بس مفى داتا اتسجلت !