-
Posts
16 -
Joined
-
Last visited
Posts posted by Mr.KoK
-
-
المود تمام بس وقت تسجيل الدخول توقف الاغنية
-
السلام عليكم ورحمة الله وبركاته
شباب محتاج مساعد بخصوص الـ قيم مود
ابي الاغنية توقف لما يختار الشخصية وانا حاولت وماعرفت
local Anims = {"DAN_UP_A", "dnce_M_b", "DAN_Left_A", "DAN_Down_A", "DAN_Loop_A", "dance_loop"}
x, y = guiGetScreenSize()
font="default-bold"
fontTam=5
spcGam=dxGetTextWidth ("حرب جدة",fontTam,font)
function intro()
ahora = getTickCount()
count=ahora-start
dxDrawImage(0, 0, x, y, 'fondo.png',0,0,0,tocolor(255,255,255),false)
sizeX=64*1.21
sizeY=64*1.21
varX,varY,varZ = anim(start,1000,spcGam,0,0,0,spcGam,150,"OutBack")
dxDrawText("حرب جدة",0+x/2-varY/2,y/2-100,varY+x/2-varY/2,y,tocolor(38,205,0,255),fontTam,font,nil,nil,true)
dxDrawText("",1+x/-varY/6-dxGetTextWidth ("i",fontTam,font),y/2-100,varY+x/2-varY/2,y,tocolor(255,255,255,255),fontTam,font,nil,nil,false,false,false,true)
dxDrawText("♥",x/2+varY/2,y/2-100,varY+x/2-varY/2,y,tocolor(255,255,255,255),fontTam,font,nil,nil,false,false,false,true)
if (count>1500) then
varX2,varY2,varZ2 = anim(start+1500,1000,0,0,0,200,250,360,"OutBack")
dxDrawText("اهلا و سهلا بكم في سيرفر حرب جدة ",0+x/2-varY/2,y/2-100+dxGetFontHeight(fontTam,font),varY+x/2-varY/2,y,tocolor(255,255,255,varX2),1.5,font,"center",nil,false,false,false,true)
dxDrawText("نتمنا ان ينال السيرفر اعجابكم",0+x/2-varY/2,y/2-80+dxGetFontHeight(fontTam,font),varY+x/2-varY/2,y,tocolor(255,255,255,varX2),1.5,font,"center",nil,false,false,false,true)
dxDrawText("Welcome to sever War Jeddah ..",0+x/2-varY/2,y/2-60+dxGetFontHeight(fontTam,font),varY+x/2-varY/2,y,tocolor(255,255,255,varX2),1.5,font,"center",nil,false,false,false,true)
end
if (count>2000) then
varX2,varY3,varZ3 = anim(start+2000,1000*10,0,0,0,200,250,360*5,"Linear")
dxDrawImage ( x/2-sizeX/2, y/2+50, sizeX, sizeY, 'img/cargando2.png',180+varZ3)
dxDrawText("Loading..",12,y/2+60+sizeY+1,x,y,tocolor(0,0,0,85),1.5,font,"center",nil,false,false,false,true)
dxDrawText("Loading..",10,y/2+60+sizeY,x,y,tocolor(255,255,255,255),1.5,font,"center",nil,false,false,false,true)
end
end
function anim(tag,animTime,de1,de2,de3,hasta1,hasta2,hasta3,typeAnim)
local now = getTickCount()
local endTime = tag + animTime
local elapsedTime = now - tag
local duration = endTime - tag
local progress = elapsedTime / duration
local a, b, c = interpolateBetween ( de1,de2,de3,hasta1,hasta2,hasta3, progress, typeAnim)
return a, b, c
end
fileDelete("intro_c.lua")
local sx, sy = guiGetScreenSize()
alpha = 250
MP = "files/1.png"
MX = sx
MY = sy
function adjIntro(adj)
_, times = getTimerDetails(IntroTimer)
if adj == "M1" then
MX = (MX*0.95)+5
MY = (MY*0.95)
if times == 1 then
setTimer(function()
if (alpha <= 250) and not (alpha <= 0) then
alpha = alpha - 10
else
IntroTimer = setTimer(adjIntro, 50, 26, "M2")
end
end, 50, 26)
end
elseif adj == "M2" then
if (alpha < 250) and (alpha >= 0) then
alpha = alpha + 10
end
MX = (MX/0.95)-5
MY = (MY/0.95)
MP = "files/2.png"
if times == 1 then
setTimer(function()
MP = "files/3.png"
setTimer(function()
IntroTimer = setTimer(adjIntro, 50, 26, "M3")
end, 3500, 1)
end, 4000, 1)
end
elseif adj == "M3" then
MX = (MX*0.95)+5
MY = (MY*0.95)
if times == 1 then
MP = "files/4.png"
MX = (MX/0.95)-5
MY = (MY/0.95)
setTimer(function()
setTimer(function()
if (alpha <= 250) and not (alpha <= 0) then
alpha = alpha - 10
else
removeEventHandler("onClientRender", root, drawIntro)
fadeCamera(true, 6, 0, 0, 0)
setCameraMatrix(-1475.5, 831.18, 65.5, -1487.5, 800.18, 65.5)
showCursor(true)
guiSetVisible(GUIEditor.window[1], true)
destroyElement(IntroSong)
end
end, 50, 26)
end, 3500, 1)
end
end
end
function drawIntro()
dxDrawImage(sx/2-(MX/2), sy/2-(MY/2), MX, MY, MP, 0, 0, 0, tocolor(255, 255, 255, alpha))
end
function main()
fadeCamera(false, 0)
showChat(false)
IntroSong = playSound("files/Intro.mp3")
showPlayerHudComponent("all", false)
start = getTickCount()
addEventHandler("onClientRender",getRootElement(),intro)
setTimer ( function()
removeEventHandler("onClientRender",getRootElement(),intro)
IntroTimer = setTimer(adjIntro, 50, 26, "M1")
addEventHandler("onClientRender", root, drawIntro)
triggerEvent("onFinishIntro",getRootElement())
setCameraMatrix(-1475.5, 831.18, 65.5, -1487.5, 800.18, 65.5)
end, 5000, 1 )
end
addEventHandler("onClientResourceStart",getResourceRootElement(getThisResource()),main)
GUIEditor = {
tab = {},
tabpanel = {},
edit = {},
button = {},
window = {},
label = {},
memo = {}
}
GUIEditor.window[1] = guiCreateWindow(sx/2-(601/2), sy/2-(344/2), 601, 344, "", false)
guiSetVisible(GUIEditor.window[1], false)
guiWindowSetSizable(GUIEditor.window[1], false)
guiSetAlpha(GUIEditor.window[1], 1.00)
guiSetInputMode("no_binds_when_editing")
GUIEditor.tabpanel[1] = guiCreateTabPanel(10, 21, 579, 313, false, GUIEditor.window[1])
-----------------------------|Login|-----------------------------
GUIEditor.tab[1] = guiCreateTab("الدخول", GUIEditor.tabpanel[1])
local MainText = xmlNodeGetValue(xmlLoadFile("Main.xml")) or ""
GUIEditor.memo[1] = guiCreateMemo(7, 8, 271, 270, MainText, false, GUIEditor.tab[1])
guiMemoSetReadOnly(GUIEditor.memo[1], true)
GUIEditor.label[1] = guiCreateLabel(395, 28, 65, 18, "الاسم", false, GUIEditor.tab[1])
guiSetFont(GUIEditor.label[1], "default-bold-small")
GUIEditor.edit[1] = guiCreateEdit(322, 50, 210, 30, "", false, GUIEditor.tab[1])
GUIEditor.label[2] = guiCreateLabel(395, 107, 65, 18, "كلمة المرور", false, GUIEditor.tab[1])
guiSetFont(GUIEditor.label[2], "default-bold-small")
GUIEditor.edit[2] = guiCreateEdit(322, 130, 210, 30, "", false, GUIEditor.tab[1])
guiEditSetMasked(GUIEditor.edit[2], true)
GUIEditor.button[1] = guiCreateButton(313, 207, 235, 34, "تسجيل دخول", false, GUIEditor.tab[1])
-----------------------------|Register|-----------------------------
GUIEditor.tab[2] = guiCreateTab("التسجيل", GUIEditor.tabpanel[1])
GUIEditor.label[3] = guiCreateLabel(273, 26, 60, 19, "الاسم", false, GUIEditor.tab[2])
guiSetFont(GUIEditor.label[3], "default-bold-small")
GUIEditor.edit[3] = guiCreateEdit(198, 49, 212, 27, "", false, GUIEditor.tab[2])
GUIEditor.label[4] = guiCreateLabel(273, 90, 60, 19, "كلمة المرور", false, GUIEditor.tab[2])
guiSetFont(GUIEditor.label[4], "default-bold-small")
GUIEditor.edit[4] = guiCreateEdit(198, 119, 212, 27, "", false, GUIEditor.tab[2])
GUIEditor.label[5] = guiCreateLabel(256, 162, 107, 16, "اعادة كلمة المرور", false, GUIEditor.tab[2])
guiSetFont(GUIEditor.label[5], "default-bold-small")
GUIEditor.edit[5] = guiCreateEdit(198, 188, 212, 27, "", false, GUIEditor.tab[2])
GUIEditor.button[2] = guiCreateButton(153, 233, 312, 36, "تسجيل", false, GUIEditor.tab[2])
-----------------------------|Rules|-----------------------------
GUIEditor.tab[3] = guiCreateTab("القوانين", GUIEditor.tabpanel[1])
local RulesText = xmlNodeGetValue(xmlLoadFile("Rules.xml")) or ""
GUIEditor.memo[2] = guiCreateMemo(10, 8, 559, 271, RulesText, false, GUIEditor.tab[3])
guiMemoSetReadOnly(GUIEditor.memo[2], true)
addEventHandler("onClientGUIClick", root,
function()
if source == GUIEditor.button[1] then
local userName = guiGetText(GUIEditor.edit[1])
local passWord = guiGetText(GUIEditor.edit[2])
if userName ~= "" and passWord ~= "" then
triggerServerEvent("Login-Register", localPlayer, "Login", userName, passWord)
guiSetEnabled(GUIEditor.button[1], false)
setTimer(function() guiSetEnabled(GUIEditor.button[1], true) end, 3000, 1)
end
elseif source == GUIEditor.button[2] then
local userName = guiGetText(GUIEditor.edit[3])
local passWord1 = guiGetText(GUIEditor.edit[4])
local passWord2 = guiGetText(GUIEditor.edit[5])
if userName ~= "" and passWord1 ~= "" and passWord2 ~= "" then
if #passWord1 < 4 then
outputChatBox("The Password should be at least 4 characters long.", 255, 100, 0)
elseif passWord1 ~= passWord2 then
outputChatBox("The password does not match.", 255, 0, 0)
else
guiSetEnabled(GUIEditor.button[2], false)
setTimer(function() guiSetEnabled(GUIEditor.button[2], true) end, 3000, 1)
triggerServerEvent("Login-Register", localPlayer, "Register", userName, passWord1)
end
end
end
end)
addEvent("onLoginSuccess", true)
addEventHandler("onLoginSuccess", root,
function()
guiSetVisible(GUIEditor.window[1], false)
showCursor(false)
local ped = createPed ( 0,737.40912 ,-1276.15332 ,13.554, 90)
setPedAnimation( ped, "ped", "WALK_civi")
local cam = setCameraMatrix ( 739.41571044922, -1276.4376220703, 13.415299797058, 738.42529296875, -1276.4196777344, 13.378232955933 )
setElementDimension( localPlayer, 20 )
setElementDimension( ped, 20 )
setTimer (function ()
setPedAnimation(ped,false)
end, 6500, 1)
setTimer (function ()
skinCount = 0
sPed = createPed(105, -2682.7624511719,1148.40100 ,19.59490)
addEventHandler("onClientPedDamage",sPed,cancelEvent)
sRight()
bindKey("arrow_l", "down", sLeft)
bindKey("arrow_r", "down", sRight)
bindKey("enter", "down", EnterSpawn)
addEventHandler("onClientPreRender", root, drawTeamName)
destroyElement( ped )
setElementDimension( localPlayer, 0 )
setTime( 12, 0 ) -
-
-
-
-
حطيت الكود و سويت restart
للمود برضو مازبط
-
سويت زي ما قلت مازبط ممكن تعدلي وخلاص
هذا ملف
الـClient
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] ---------------------- ---------------------- -- Setting ---------------------- local Key = "F7" local Admin = { {"V.I.P","15"}, {"King.Dirft","20"}, {"King.Of.Time","25"}, {"Police","35"}, {"Moderator1","45"}, {"Moderator2","55"}, {"SuperModerator1","75"}, {"SuperModerator2","100"}, {"Admin1","150"}, {"Head.Admin","250"}, } ---------------------- -- Setting ---------------------- GiveAdmin = { Window = {}, gridlist = {}, button = {}, label = {}, } function centerWindow(center_window) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false); local x,y = (screenW-windowW)/2,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false); end GiveAdmin.Window[1] = guiCreateWindow(343, 157, 427, 290, "ساعات الرتب #", false); centerWindow(GiveAdmin.Window[1]); guiSetVisible(GiveAdmin.Window[1],false); guiWindowSetSizable(GiveAdmin.Window[1], false); guiSetAlpha(GiveAdmin.Window[1], 1.00); guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FFFF00FF"); GiveAdmin.gridlist[1] = guiCreateGridList(9, 21, 409, 200, false, GiveAdmin.Window[1]); guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة #", 0.6); guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات #", 0.2); GiveAdmin.button[1] = guiCreateButton(120,228,177,519, "اختيار الرتبة #", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.button[1], "default-bold-small"); guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FF00FFFF"); for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GiveAdmin.gridlist[1]); guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[1],false,false); guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[2],false,false); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,255); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,2550); guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); end xMainFunctions_ = function ( ) local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] ) local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,3 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("# الرجاء اختيار رتبة",255,0,255,true); end end addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); xBindFunction_ = function () guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); showCursor(guiGetVisible(GiveAdmin.Window[1])); end bindKey(Key,"down",xBindFunction_);
وهذا ملف الـServer
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = aclGroupGetName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("# الرجاء التسجيل اولا",source,255,0,255,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("# لديك هذيه الرتبه الرجاء اختيار رتبه اخرا",source,255,0,255,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("# تهانينا تمت الترقيه بنجاح "..Name,source,255,0,255,true); else outputChatBox("# الرجاء اكمال التواجد",source,255,0,255,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
-
-
-
-
كل شي تمام لكن اسم الرتبه مايطلع بل شات
حق الرتب تمام
انا اذا اشتريت اول شي مشرف 2 يجي بل شات مشرف 2 لكن لو بديت مثل كبار الشخصيات
بعدين ابي ارقي نفسي لل كنق الدرفت مايتغير يجلس كبار الشخصيات
لكن اذا شفتو من لوحة الادمن الرتبه موجوده لكن اسم الرتبه مايطلع بل شات
-
شكرا
لكن ماعندك حل للمود
-
السلام عليكم ورحمة الله وبركاته
كيفكم شباب انشاء الله بخير
عندي مشكلة في مود شراء الرتب
لما اشتري رتبه مثل مشرف1 يجيني في الشات مشرف1 تمام
لكن لما اشتري مشرف2 مايتغير
وانا ابي كود يحذف الرتبه الى قبلها انشاء الله فهمتوني
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] ---------------------- ---------------------- -- Setting ---------------------- local Key = "F7" local Admin = { {"V.I.P","15"}, {"King.Dirft","20"}, {"King.Of.Time","25"}, {"Police","35"}, {"Moderator1","45"}, {"Moderator2","55"}, {"SuperModerator1","75"}, {"SuperModerator2","100"}, {"Admin1","150"}, {"Head.Admin","250"}, } ---------------------- -- Setting ---------------------- GiveAdmin = { Window = {}, gridlist = {}, button = {}, label = {}, } function centerWindow(center_window) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false); local x,y = (screenW-windowW)/2,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false); end GiveAdmin.Window[1] = guiCreateWindow(343, 157, 427, 290, "ساعات الرتب #", false); centerWindow(GiveAdmin.Window[1]); guiSetVisible(GiveAdmin.Window[1],false); guiWindowSetSizable(GiveAdmin.Window[1], false); guiSetAlpha(GiveAdmin.Window[1], 1.00); guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FFFF00FF"); GiveAdmin.gridlist[1] = guiCreateGridList(9, 21, 409, 200, false, GiveAdmin.Window[1]); guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة #", 0.6); guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات #", 0.2); GiveAdmin.button[1] = guiCreateButton(120,228,177,519, "اختيار الرتبة #", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.button[1], "default-bold-small"); guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FF00FFFF"); for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GiveAdmin.gridlist[1]); guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[1],false,false); guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[2],false,false); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,255); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,2550); guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); end xMainFunctions_ = function ( ) local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] ) local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,3 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("# الرجاء اختيار رتبة",255,0,255,true); end end addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); xBindFunction_ = function () guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); showCursor(guiGetVisible(GiveAdmin.Window[1])); end bindKey(Key,"down",xBindFunction_);
-
اول شي سويته مود اخذ سيارة من الماركر
على قد حالي
طلب تعديل على قيم مود
in البرمجة
Posted
خلاص حليتها بنفسي