Jump to content

تعديل علي مود مسابقات

#,Dr.To[sh]iBa

By #,Dr.To[sh]iBa
in البرمجة

Recommended Posts

#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
Posted

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


عندي مود مسابقات حق اول من يكتب يعني اناااحدد كلمه والكلمه تظهر علي الشاشه واول من يكتب ذي الكلمه ياخد فلوس انا ابي اسوي انا اللاعب ما يقدر يفوز مرتين متتالتين وشكرا

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted (edited)
6 minutes ago, abulghar said:

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


عندي مود مسابقات حق اول من يكتب يعني اناااحدد كلمه والكلمه تظهر علي الشاشه واول من يكتب ذي الكلمه ياخد فلوس انا ابي اسوي انا اللاعب ما يقدر يفوز مرتين متتالتين وشكرا

سوي شي من عندك مثلاً
x
وحط لها قيمة مثلاً
false

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

وسوي تحقق اذا كتب مرة ثانية يتحقق من هذا الشي اللي انت ضفته

مثال

  

x = false -- وقت اللاعب يكتبها لأول مرة الكلمة
x = true -- وقت تبدأ مسابقة جديدة

if x == false then -- وقت اللاعب يكتب الكلمة مرة ثانية سوي تحقق
-- code Ex
takePlayerMoney ( ... )
elseif x == true then -- اذا كانت القيمة حقيقية سوي اللي تبيه
-- code Ex
givePlayerMoney ( ... )
end

 

Edited by Killer Project
تنسيق الكلام
Link to comment
Master_MTA Hoo-Rider

Master_MTA

Posted
Posted
9 hours ago, Killer Project said:

سوي شي من عندك مثلاً
x
وحط لها قيمة مثلاً
false

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

وسوي تحقق اذا كتب مرة ثانية يتحقق من هذا الشي اللي انت ضفته

مثال

  


x = false -- وقت اللاعب يكتبها لأول مرة الكلمة
x = true -- وقت تبدأ مسابقة جديدة

if x == false then -- وقت اللاعب يكتب الكلمة مرة ثانية سوي تحقق
-- code Ex
takePlayerMoney ( ... )
elseif x == true then -- اذا كانت القيمة حقيقية سوي اللي تبيه
-- code Ex
givePlayerMoney ( ... )
end

 

كلامك خطا كذا بيمنع الجميع من المشاركة

تقدر تسوي متغير بسيريال اللاعب اللي فاز وتتحقق بالايفينت

onPlayerChat

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
Just now, Master_MTA said:

كلامك خطا كذا بيمنع الجميع من المشاركة

تقدر تسوي متغير بسيريال اللاعب اللي فاز وتتحقق بالايفينت

onPlayerChat

هذا هو المطلوب انه يمنع الكل لأنه رح يسويها لأول مرة فقط

يعني لأول شخص يكتب رح يكسب فلوس غير كذا لا

ورح يرجع القيمة مرة ثانية وقت يبدأ مسابقة ثانية

Link to comment
Master_MTA Hoo-Rider

Master_MTA

Posted
Posted
Just now, Killer Project said:

هذا هو المطلوب انه يمنع الكل لأنه رح يسويها لأول مرة فقط

يعني لأول شخص يكتب رح يكسب فلوس غير كذا لا

ورح يرجع القيمة مرة ثانية وقت يبدأ مسابقة ثانية

راجع كلامه

14 minutes ago, Killer Project said:

هذا هو المطلوب انه يمنع الكل لأنه رح يسويها لأول مرة فقط

يعني لأول شخص يكتب رح يكسب فلوس غير كذا لا

ورح يرجع القيمة مرة ثانية وقت يبدأ مسابقة ثانية

يا حبيب قلبي هو يبيه ما يفوز مرتين مب شخصين يفوزو

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
2 hours ago, #BrosS said:

ض أظن أن المود حقي ومسويه مايقدر يفوز مرتين

واذا مو حقي إطرح الأكواد

لا مو حقك حق العقرب 

اكواد السيرفر  

--***********************************--
--***********************************--
--           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

 

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
2 hours ago, Master_MTA said:

راجع كلامه

يا حبيب قلبي هو يبيه ما يفوز مرتين مب شخصين يفوزو


يخي افهمني اقول يسوي الشي اللي ضافه مثلاً وهمي اذا خلصت المسابقة واحد كتب الكلمة لأول مرة

في هذه الحالة اذا كتب الكلمة مرة ثانية مارح يكسب شي الا اذا كان المتغير حقيقي وليس وهمي

Link to comment
Master_MTA Hoo-Rider

Master_MTA

Posted
Posted
58 minutes ago, Killer Project said:


يخي افهمني اقول يسوي الشي اللي ضافه مثلاً وهمي اذا خلصت المسابقة واحد كتب الكلمة لأول مرة

في هذه الحالة اذا كتب الكلمة مرة ثانية مارح يكسب شي الا اذا كان المتغير حقيقي وليس وهمي

تمام افرض غيره كتب الكلمه؟

المتغير في السيرفر يتغير على السيرفر كامل مش لشخص واحد فقط +_+

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
Just now, Master_MTA said:

تمام افرض غيره كتب الكلمه؟

المتغير في السيرفر يتغير على السيرفر كامل مش لشخص واحد فقط +_+


رح تقتلني بكلامك الغريب ذذ
 

4 hours ago, Master_MTA said:

كلامك خطا كذا بيمنع الجميع من المشاركة

تقدر تسوي متغير بسيريال اللاعب اللي فاز وتتحقق بالايفينت

onPlayerChat

 

Link to comment
Master_MTA Hoo-Rider

Master_MTA

Posted
Posted
2 minutes ago, Killer Project said:


رح تقتلني بكلامك الغريب ذذ
 

 

افهم قصده الاول يا عسل

هوا قصده

المسابقه ابتدت تمام

انا كسبت المسابقه

والمسابقه خلصت

ابتدت مسابقه تانيه جيت انا كسبتها تاني

هوا مش عايزني اكسبها تاني عايز في مره ومره فهمت

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
4 hours ago, Master_MTA said:

افهم قصده الاول يا عسل

هوا قصده

المسابقه ابتدت تمام

انا كسبت المسابقه

والمسابقه خلصت

ابتدت مسابقه تانيه جيت انا كسبتها تاني

هوا مش عايزني اكسبها تاني عايز في مره ومره فهمت

يعني مش عايز نفس اللاعب يكسب مرتين !!!

 

 

Just now, abulghar said:

:(ما احد افادني ؟ كله يسولف بموضوعي 

استعمل الداتا بـ إسم حساب اللاعب مثلاً

ووقت يجي يكتب الكلمة سوي تحقق من آخر شخص كتب الكلمة

لو كان اسم حساب آخر شخص نفس اسم حساب الشخص اللي كتب ثاني مرة لا تعطيه فلوس او سوي كانسل افينت

  

setAccountData
getAccountData

 

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
Just now, abulghar said:

طيب كيف اسويها انا حاولت كذا بس ما نفعت


سوي هذا الكود وقت اللاعب يكتب الكلمة مثلاً

  

local playeraccount = getPlayerAccount ( source )

if ( playeraccount ) and not isGuestAccount ( playeraccount ) then

accname = getAccountName ( playeraccount )

if getAccountData ( playeraccount, "killerProjectData" ) == accname then

outputChatBox ( "wait...", source )

else

for id, players in ipairs(getElementsByType("player")) do 

local playeraccountall = getPlayerAccount ( players )

if ( playeraccountall ) and not isGuestAccount ( playeraccountall ) then

setAccountData ( playeraccountall , "killerProjectData", "noaccname" )

end

end 

givePlayerMoney ( source, 5000 )
outputChatBox ( "money money money...", root )
setTimer ( setAccountData , 1000, 1 , playeraccount, "killerProjectData", accname )

end

end



جرب ورد خبر

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
3 minutes ago, Killer Project said:


سوي هذا الكود وقت اللاعب يكتب الكلمة مثلاً

  


local playeraccount = getPlayerAccount ( source )

if ( playeraccount ) and not isGuestAccount ( playeraccount ) then

accname = getAccountName ( playeraccount )

if getAccountData ( playeraccount, "killerProjectData" ) == accname then

outputChatBox ( "wait...", source )

else

for id, players in ipairs(getElementsByType("player")) do 

local playeraccountall = getPlayerAccount ( players )

if ( playeraccountall ) and not isGuestAccount ( playeraccountall ) then

setAccountData ( playeraccountall , "killerProjectData", "noaccname" )

end

end 

givePlayerMoney ( source, 5000 )
outputChatBox ( "money money money...", root )
setTimer ( setAccountData , 1000, 1 , playeraccount, "killerProjectData", accname )

end

end



جرب ورد خبر

يعني اضيف ذا الكود فقط ؟

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
3 minutes ago, Killer Project said:


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

ضيفها مكان ما اللاعب يكسب فلوس

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

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

استبدله بهذا الكود ؟

Link to comment
AHMED MOSTAFA Lil' G

AHMED MOSTAFA

Posted
Posted
Just now, abulghar said: 

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

استبدله بهذا الكود ؟


استبدل كل اللي انت ارسلته لي الحين بهذا

  

function onPlayerWin(player)
 
local playeraccount = getPlayerAccount ( player )

if ( playeraccount ) and not isGuestAccount ( playeraccount ) then

accname = getAccountName ( playeraccount )

if getAccountData ( playeraccount, "killerProjectData" ) == accname then

outputChatBox ( "wait...", player )

else

for id, players in ipairs(getElementsByType("player")) do 

local playeraccountall = getPlayerAccount ( players )

if ( playeraccountall ) and not isGuestAccount ( playeraccountall ) then

setAccountData ( playeraccountall , "killerProjectData", "noaccname" )

end

end

removeCode()
givePlayerMoney ( player, thePrize )
outputChatBox ( "money money money...", root )
setTimer ( setAccountData , 1000, 1 , playeraccount, "killerProjectData", accname )

end

end

end

 

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted
1 minute ago, Killer Project said:


استبدل كل اللي انت ارسلته لي الحين بهذا

  


function onPlayerWin(player)
 
local playeraccount = getPlayerAccount ( player )

if ( playeraccount ) and not isGuestAccount ( playeraccount ) then

accname = getAccountName ( playeraccount )

if getAccountData ( playeraccount, "killerProjectData" ) == accname then

outputChatBox ( "wait...", player )

else

for id, players in ipairs(getElementsByType("player")) do 

local playeraccountall = getPlayerAccount ( players )

if ( playeraccountall ) and not isGuestAccount ( playeraccountall ) then

setAccountData ( playeraccountall , "killerProjectData", "noaccname" )

end

end

removeCode()
givePlayerMoney ( player, thePrize )
outputChatBox ( "money money money...", root )
setTimer ( setAccountData , 1000, 1 , playeraccount, "killerProjectData", accname )

end

end

end

 

تسلم يا غالي ما قصرت وربي + ابيك بالخاص

Link to comment
#,Dr.To[sh]iBa Mark

#,Dr.To[sh]iBa

Posted
  • Author
Posted

يا غالي انت هي ما ظبطت 100% الحين لو احد فاز بالمسابقه وجه احد ثاني فاز بالمسابقه وسويت مسابقه ثاني الشخص الاول ما يقدر يفوز 

 اللي انا ابي اسويه ان الشخص ما يفوز مرتين متتالتين لكن يقدر يفوز مره اخري عادي المهم لا تكون مرتين متتالتين 

#تعديل كيلر اللي سواه 
  

function onPlayerWin(player)
 
local playeraccount = getPlayerAccount ( player )

if ( playeraccount ) and not isGuestAccount ( playeraccount ) then

accname = getAccountName ( playeraccount )

if getAccountData ( playeraccount, "killerProjectData" ) == accname then

outputChatBox ( "wait...", player )

else

for id, players in ipairs(getElementsByType("player")) do 

local playeraccountall = getPlayerAccount ( players )

if ( playeraccountall ) and not isGuestAccount ( playeraccountall ) then

setAccountData ( playeraccountall , "killerProjectData", "noaccname" )

end

end

removeCode()
givePlayerMoney ( player, thePrize )
outputChatBox ( "money money money...", root )
setTimer ( setAccountData , 1000, 1 , playeraccount, "killerProjectData", accname )

end

end

end

الصراحه ما قصر كيلر بس هو فهم خطا اللي يقدر يعدلها علي انا ابيه شكرا

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...