#[ تحويل الجائزه من فلوس الي ساعات ]#

[#,Dr.To[sh]iBa]

سلام عليكم عندي مود اول من يكتب والجائزه تكون فلوس ابي احولها من فلوس الي ساعات وشكرا...


 

--server side
--***********************************--
--***********************************--
--           Random Words            --
--            By Al3grab             --
--***********************************--
--***********************************--

---- Changeable
captchaNums = 5 -- captcha letters length
wordTimeInSec = 25 --- the time before the word disappear in seconds [ default 11 seconds ]
prizefrom,prizeto = 500,800 -- the prize random num
timerfrom,timerto = 1.5,5.5 -- the random timer that shows the word [ default from 3 to 15 minutes ]
---- unChangeable
wordOn = false
theWord = nil
thePrize = nil
wordTime = wordTimeInSec * 1000
--
outputDebugString("Random Words By Al3grab | Started")
--
function createCode(code,prize)
	for k,v in ipairs( getElementsByType("player") ) do
		exports.easytext:displayMessageForPlayer(v,1, "=========", wordTime, 0.07, 0.5, 0, 255, 0, 255, 1.6)
		exports.easytext:displayMessageForPlayer(v,2, "Word : "..code.."", wordTime, 0.07, 0.533, 255, 255, 0, 255, 1.6)
		exports.easytext:displayMessageForPlayer(v,3, "Prize : "..prize.."$", wordTime, 0.07, 0.563, 255, 255, 0, 255, 1.6)
		exports.easytext:displayMessageForPlayer(v,4, "=========", wordTime, 0.07, 0.593, 0, 255, 0, 255, 1.6)
	end
outputChatBox("- Random Words : #FFFF00Enter the word shown below to win the prize.",root,0,255,0,true)
outputChatBox("=========",root,0,255,0,true)
outputChatBox("Word : "..code.."",root,255,255,0,true)
outputChatBox("Prize : "..prize.."$",root,255,255,0,true)
outputChatBox("=========",root,0,255,0,true)
outputChatBox("- #FFFF00You can see the word down on your screen.",root,0,255,0,true)
--
startCodeTimer()
wordOn = true
end

function makeRandomCode(Word,Prize)
	if ( Word and Prize ) then
		theWord = Word
		thePrize = Prize
	else
		theWord =  makeCaptcha(captchaNums)
		thePrize = math.random(prizefrom,prizeto)
	end
	if ( tostring(theWord) and tonumber(thePrize) ) then
		createCode(theWord,thePrize)
	end
end

function startCodeTimer()
	codeTimer = setTimer( function ()
		removeCode()
		outputChatBox("- #FFFF00No one won the prize",root,0,255,0,true)
	end , wordTime , 1 )
end

function removeCode()
	for k,v in ipairs( getElementsByType("player") ) do
		exports.easytext:clearMessageForPlayer(v,1)
		exports.easytext:clearMessageForPlayer(v,2)
		exports.easytext:clearMessageForPlayer(v,3)
		exports.easytext:clearMessageForPlayer(v,4)
	end
	if isTimer ( codeTimer ) then
		killTimer(codeTimer)
	end
	theWord = nil
	thePrize = nil
	wordOn = false
end

function makeCaptcha(capNumz)
 theC = ""
  tCode = { "a","A", "b","B", "c","C", "d","D", "e","E", "f","F", "g","G", "h","H", "j","J", "k","K", "l","L", "m","L", "n","N", "o","O", "p","P", "q","Q", "r","R", "s","S", "t","T", "u","U", "v","V", "x","X", "y","Y", "z","Z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "!", "@", "#", "?" }
for k=1,capNumz or 5 do
  randomCode = math.random (#tCode )
  theC = ""..theC..""..tCode[randomCode]..""
end
            return theC
end

function onPlayerWin(player)
	outputChatBox("* "..getPlayerName(player).." #FFFF00Has won the Prize #00FF00$"..thePrize,root,255,255,0,true)
	givePlayerMoney(player,thePrize)
	removeCode()
end

function detcetChatMessage(msg,msgtype)
	if ( wordOn == true and msg and msgtype == 0 ) then
		if msg == theWord then
			onPlayerWin(source)
		end
	end
end
addEventHandler("onPlayerChat",root,detcetChatMessage)

addEventHandler("onResourceStop",resourceRoot,function()
	removeCode()
end )

function setRandomTimer()
	setTimer(function()
		if not wordOn then
			makeRandomCode()
		end
			setRandomTimer()
	end , math.random(timerfrom,timerto) * 60 * 1000 , 1 )
end

addEventHandler("onResourceStart",resourceRoot,function() setRandomTimer()
	easytext = getResourceFromName("easytext")
	if ( easytext  ) then
		if getResourceState(easytext) == "loaded" then
		startResource(easytext)
		end
	else
		outputChatBox("* Error , need for easytext resource to start")
		cancelEvent()
	end
end )

for k,v in ipairs ( {"randomcode","randomword","rw","rd"} ) do
addCommandHandler(v,function(plr,cmd,prize,...)
	if plr and hasObjectPermissionTo(plr,"function.kickPlayer") then
		if ( not prize ) then
			makeRandomCode()
		else
			word = table.concat({...}, " ")
			if ( word ) then
				makeRandomCode(word,prize)
			end
		end
	end
end )
end

 

[Abdul KariM]

سطر 87 استبدل وظيفة اعطاء الفلوس

بوظيفة اعطاء الساعات والي هي الالمنت داتا 

local Data = getElementData ( player , "playerTime" ) or 0

setElementData ( player , "playerTime" , Data + thePrize )

لاسم الداتا حقت الساعات playerTime طبعا غير 

[#,Dr.To[sh]iBa]

1 minute ago, Abdul KariM said:

سطر 87 استبدل وظيفة اعطاء الفلوس

بوظيفة اعطاء الساعات والي هي الالمنت داتا 

local Data = getElementData ( player , "playerTime" ) or 0

setElementData ( player , "playerTime" , Data + thePrize )

لاسم الداتا حقت الساعات playerTime طبعا غير 

فقط يا غالي ؟ وهل يشتغل ولا يبيله شئ ثاني

[Abdul KariM]

لا بس هذا استبدل سطر 87 بالي عطيتك اياه وتغيير المطلوب

[#,Dr.To[sh]iBa]

5 minutes ago, Abdul KariM said:

لا بس هذا استبدل سطر 87 بالي عطيتك اياه وتغيير المطلوب

استبدلت وما اشتفل 

function onPlayerWin(player)
	outputChatBox("* "..getPlayerName(player).." #FFFF00Has won the Prize #00FF00$"..thePrize,root,255,255,0,true)
	local Data = getElementData ( player , "playTime" ) or 0
setElementData ( player , "playTime" , Data + thePrize )
	removeCode()
end

 

[iPrestege]

اعتقد ان 

playtime

عندك هي

PlayTime

 

تاكد من الداتا

[#,Dr.To[sh]iBa]

6 minutes ago, FaHaD said:

اعتقد ان 

playtime

عندك هي

PlayTime

 

تاكد من الداتا

function onPlayerWin(player)
	outputChatBox("* "..getPlayerName(player).." #FFFF00Has won the Prize #00FF00$"..thePrize,root,255,255,0,true)
	local Data = getElementData ( player , "PlayTime" ) or 0
    setElementData ( player , "PlayTime" , Data + thePrize )
	removeCode()
end

 تم يا غالي ولم تشتغل مدري وش الحل

Edited November 2, 2016 by abulghar

[iPrestege]

اطرح اكواد مود حفظ الوقت عندك

[#,Dr.To[sh]iBa]

1 hour ago, FaHaD said:

اطرح اكواد مود حفظ الوقت عندك

هذا حصلته بالكلنت حق الساعات 

return getElementData(plr,"PlayTime")

 

[iPrestege]

اطرح مود الساعات كامل والمفروض يشتغل عموماً جرب كذا وشوف تزيد ساعاتك ولالا استخدم الكوماند

aAdd

 

addCommandHandler ( 'aAdd',
	function ( aPlayer )
		if aPlayer then
   		 aPlayTime = getElementData ( aPlayer,'PlayTime' ) or 0 
    	setElementData ( aPlayer,'PlayTime',aPlayTime + 15 );
    	outputChatBox ( '* تم زيادة ساعاتك بمقدار 15 ساعه',aPlayer )
    end
end
);

 

شوف يزيد او لا واطرح ملف السيرفر حق حفظ الساعات الى الان شاك ان الداتا عندك خطا  مدري يعني المود منتشر فعادي اطرحة

[#,Dr.To[sh]iBa]

9 minutes ago, FaHaD said:

اطرح مود الساعات كامل والمفروض يشتغل عموماً جرب كذا وشوف تزيد ساعاتك ولالا استخدم الكوماند

aAdd

 

addCommandHandler ( 'aAdd',
	function ( aPlayer )
		if aPlayer then
   		 aPlayTime = getElementData ( aPlayer,'PlayTime' ) or 0 
    	setElementData ( aPlayer,'PlayTime',aPlayTime + 15 );
    	outputChatBox ( '* تم زيادة ساعاتك بمقدار 15 ساعه',aPlayer )
    end
end
);

 

شوف يزيد او لا واطرح ملف السيرفر حق حفظ الساعات الى الان شاك ان الداتا عندك خطا  مدري يعني المود منتشر فعادي اطرحة

لا يا غالي مب منشور بجيك خاص واعطيك المود لان المود في تعديلات مسويها

[#,Dr.To[sh]iBa]

38 minutes ago, FaHaD said:

اطرح مود الساعات كامل والمفروض يشتغل عموماً جرب كذا وشوف تزيد ساعاتك ولالا استخدم الكوماند

aAdd

 

addCommandHandler ( 'aAdd',
	function ( aPlayer )
		if aPlayer then
   		 aPlayTime = getElementData ( aPlayer,'PlayTime' ) or 0 
    	setElementData ( aPlayer,'PlayTime',aPlayTime + 15 );
    	outputChatBox ( '* تم زيادة ساعاتك بمقدار 15 ساعه',aPlayer )
    end
end
);

 

شوف يزيد او لا واطرح ملف السيرفر حق حفظ الساعات الى الان شاك ان الداتا عندك خطا  مدري يعني المود منتشر فعادي اطرحة

ووش ذا الكود يا غالي

[Abdul KariM]

[#,Dr.To[sh]iBa]

... تم الحل يغلق