Thorn
Spriting since 2013
Hello otland, well i have a script of soccer system but i don't know what actions/unique ids to use on the floor and on the lever...plz help me, here is my script:
XML:
<?xml version="1.0" encoding="UTF-8"?>
<mod name="Foot ball" version="1.0" author="Damadger" contact="otland.net" enabled="yes">
<config name="tutorial_m"><![CDATA[
c = {
speed = 250,
players = 1,
pitchpos = {fromx = 1012, fromy = 1015, tox = 1034, toy = 1023, z = 7},
ballpos = {x = 1023, y = 1019, z = 7},
bluePos = {x = 1025, y = 1024, z = 7},
redPos = {x = 1023, y = 1024, z = 7},
reddestination = {x = 1027, y = 1019, z = 7},
bluedestination = {x = 1020, y = 1019, z = 7},
original = 60 ,
team1pos = {
{x = 1025, y = 1024, z = 7},
{x = 1023, y = 1024, z = 7}},
destination = {
{x = 1027, y = 1019, z = 7},
{x = 1020, y = 1019, z = 7}},
storage = 1919,
BLUE_SCORE = 1223,
RED_SCORE = 1224,
rewards = true,
rewards_id = {2494, 2472, 2514, 2160}
}
]]></config>
<lib name="football-lib"><![CDATA[
function getSpeed(cid,level)
value = (220 +(2 *(level -1)))
return value
end
function addTotal(cid)
return db.executeQuery("UPDATE `players` SET `total` = `total` + " .. 1 .. " WHERE `id`= '" .. getPlayerGUID(cid) .. "' LIMIT 1;")
end
function addGoal(cid)
return db.executeQuery("UPDATE `players` SET `goals` = `goals` + " .. 1 .. " WHERE `id`= '" .. getPlayerGUID(cid) .. "' LIMIT 1;")
end
function addWin(cid)
return db.executeQuery("UPDATE `players` SET `wins` = `wins` + " .. 1 .. " WHERE `id`= '" .. getPlayerGUID(cid) .. "' LIMIT 1;")
end
]]></lib>
<action actionid="2275" event="script"> <![CDATA[
domodlib('tutorial_m')
domodlib('football-lib')
local bmale = createConditionObject(CONDITION_OUTFIT)
setConditionParam(bmale, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(bmale, {lookType = math.random(128,134), lookHead = 88, lookBody = 88, lookLegs = 88, lookFeet = 88, lookTypeEx = 0, lookAddons = 3})
local bfemale = createConditionObject(CONDITION_OUTFIT)
setConditionParam(bfemale, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(bfemale, {lookType = math.random(136,142), lookHead = 88, lookBody = 88, lookLegs = 88, lookFeet = 88, lookTypeEx = 0, lookAddons = 3})
local rmale = createConditionObject(CONDITION_OUTFIT)
setConditionParam(rmale, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(rmale, {lookType = math.random(128,134), lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94, lookTypeEx = 0, lookAddons = 3})
local rfemale = createConditionObject(CONDITION_OUTFIT)
setConditionParam(rfemale, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(rfemale, {lookType = math.random(136,142),lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94, lookTypeEx = 0, lookAddons = 3})
function onUse(cid, item, fromPosition, itemEx, toPosition)
local n = 1
if getGlobalStorageValue(1222) > 0 then
doPlayerSendCancel(cid,"There is a on going match right now, please come again later.")
return true
end
local players = {}
for _, position in ipairs(c.team1pos) do
local pid = getTopCreature(position).uid
if(pid == 0 or not isPlayer(pid)) then
doPlayerSendCancel(cid, "You need ".. c.players * 2 .." players to start the match.")
return true
end
table.insert(players, pid)
end
for i, pid in ipairs(players) do
setPlayerStorageValue(pid,c.storage,n)
n = n+1
doTeleportThing(pid, c.destination[getPlayerStorageValue(pid,c.storage)], false)
doSendMagicEffect(c.destination[i], CONST_ME_ENERGYAREA)
end
for i, pid in ipairs(players) do
addTotal(pid)
if getPlayerStorageValue(pid,c.storage) > 0 and getPlayerStorageValue(pid,c.storage) <= c.players then
doAddCondition(pid, ( getPlayerSex(cid) == 1 and bmale or bfemale) )
elseif getPlayerStorageValue(pid,c.storage) > c.players then
doAddCondition(pid, ( getPlayerSex(cid) == 1 and rmale or rfemale) )
end
end
for i = c.pitchpos.fromy, c.pitchpos.toy do
for j = c.pitchpos.fromx, c.pitchpos.tox do
local pos = {x = j, y = i, z = c.pitchpos.z}
local ball = getTileItemById(pos,2109).uid
if ball > 0 then
doRemoveItem(ball)
end
end
end
if getTileItemById(c.ballpos,2109).uid < 1 then
doCreateItem(2109,1,c.ballpos)
end
setGlobalStorageValue(1222,c.original)
return item.itemid == 1945 and doTransformItem(item.uid,1946) or doTransformItem(item.uid,1945)
end
]]> </action>
<movevent type="AddItem" tileitem="1" fromaid="7070" toaid="7072" event="script"><![CDATA[
domodlib('tutorial_m')
domodlib('football-lib')
function onAddItem(moveitem, tileitem, position, cid)
if(moveitem.itemid ~= 2109) then
if getItemDescriptionsById(moveitem.itemid).type == ITEM_TYPE_MAGICFIELD then
doRemoveItem(moveitem.uid)
else
doPlayerAddItem(cid, moveitem.itemid,1)
doRemoveItem(moveitem.uid)
end
else
if getGlobalStorageValue(1222) < 0 then
doTeleportThing(moveitem.uid,c.ballpos)
else
if tileitem.actionid == 7070 then
if getGlobalStorageValue(1222) >= c.original/2 then
if getPlayerStorageValue(cid,c.storage) > 0 then
doTeleportThing(moveitem.uid,c.ballpos,false)
addEvent(doSendAnimatedText,20,c.ballpos,getPlayerStorageValue(cid,c.storage) > c.players and "Goal!" or "Own goal!",getPlayerStorageValue(cid,c.storage) > c.players and TEXTCOLOR_LIGHTBLUE or TEXTCOLOR_RED)
setGlobalStorageValue( c.RED_SCORE, getGlobalStorageValue(c.RED_SCORE) +1)
if getPlayerStorageValue(cid,c.storage) > c.players then
addGoal(cid)
end
for _,tid in ipairs(getPlayersOnline()) do
if getPlayerStorageValue(tid,c.storage) > 0 then
doTeleportThing(tid,c.destination[getPlayerStorageValue(tid,c.storage)])
for i = 1, #c.destination do
doSendMagicEffect(c.destination[i],10)
end
end
end
end
elseif getGlobalStorageValue(1222) < c.original/2 then
if getPlayerStorageValue(cid,c.storage) > 0 then
doTeleportThing(moveitem.uid,c.ballpos,false)
addEvent(doSendAnimatedText,20,c.ballpos,getPlayerStorageValue(cid,c.storage) <= c.players and "Goal!" or "Own goal!",getPlayerStorageValue(cid,c.storage) <= c.players and TEXTCOLOR_LIGHTBLUE or TEXTCOLOR_RED)
setGlobalStorageValue( c.BLUE_SCORE, getGlobalStorageValue(c.BLUE_SCORE) +1)
if getPlayerStorageValue(cid,c.storage) <= c.players then
addGoal(cid)
end
for _,tid in ipairs(getPlayersOnline()) do
if getPlayerStorageValue(tid,c.storage) > 0 then
doTeleportThing(tid, (getPlayerStorageValue(tid,c.storage) <= c.players and c.destination[getPlayerStorageValue(tid,c.storage)+c.players] or c.destination[getPlayerStorageValue(tid,c.storage)-c.players]))
for i = 1, #c.destination do
doSendMagicEffect(c.destination[i],10)
end
end
end
end
end
elseif tileitem.actionid == 7071 then
if getGlobalStorageValue(1222) >= c.original/ 2 then
if getPlayerStorageValue(cid,c.storage) > 0 then
doTeleportThing(moveitem.uid,c.ballpos,false)
addEvent(doSendAnimatedText,20,c.ballpos,getPlayerStorageValue(cid,c.storage) <= c.players and "Goal!" or "Own goal!",getPlayerStorageValue(cid,c.storage) <= c.players and TEXTCOLOR_LIGHTBLUE or TEXTCOLOR_RED)
setGlobalStorageValue( c.BLUE_SCORE, getGlobalStorageValue(c.BLUE_SCORE) +1)
if getPlayerStorageValue(cid,c.storage) <= c.players then
addGoal(cid)
end
for _,tid in ipairs(getPlayersOnline()) do
if getPlayerStorageValue(tid,c.storage) > 0 then
doTeleportThing(tid,c.destination[getPlayerStorageValue(tid,c.storage)])
for i = 1, #c.destination do
doSendMagicEffect(c.destination[i],10)
end
end
end
end
elseif getGlobalStorageValue(1222) < c.original / 2 then
if getPlayerStorageValue(cid,c.storage) > 0 then
doTeleportThing(moveitem.uid,c.ballpos,false)
addEvent(doSendAnimatedText,20,c.ballpos,getPlayerStorageValue(cid,c.storage) > c.players and "Goal!" or "Own goal!",getPlayerStorageValue(cid,c.storage) > c.players and TEXTCOLOR_LIGHTBLUE or TEXTCOLOR_RED)
setGlobalStorageValue( c.RED_SCORE, getGlobalStorageValue(c.RED_SCORE) +1)
if getPlayerStorageValue(cid,c.storage) > c.players then
addGoal(cid)
end
for _,tid in ipairs(getPlayersOnline()) do
if getPlayerStorageValue(tid,c.storage) > 0 then
doTeleportThing(tid, (getPlayerStorageValue(tid,c.storage) <= c.players and c.destination[getPlayerStorageValue(tid,c.storage)+c.players] or c.destination[getPlayerStorageValue(tid,c.storage)-c.players]))
for i = 1, #c.destination do
doSendMagicEffect(c.destination[i],10)
end
end
end
end
end
end
end
end
return true
end
]]> </movevent>
<movevent type="StepIn" actionid="7072" event="script">
<![CDATA[
domodlib('tutorial_m')
domodlib('football-lib')
function onStepIn(cid, item, position, fromPosition)
if(getCreatureSpeed(cid) ~= speed) then
doRemoveCondition(cid, CONDITION_HASTE)
doChangeSpeed(cid, c.speed - getCreatureSpeed(cid))
end
return true
end
]]> </movevent>
<globalevent name="timer" interval="1" event="script"><![CDATA[
domodlib('tutorial_m')
domodlib('football-lib')
function onThink(cid,interval)
local half = c.original/2
local random_item = c.rewards_id[math.random(1, #c.rewards_id)]
if getGlobalStorageValue(1222) >= 0 then
setGlobalStorageValue(1222,getGlobalStorageValue(1222) - 1)
else
setGlobalStorageValue(c.BLUE_SCORE,0)
setGlobalStorageValue(c.RED_SCORE,0)
end
for _,cid in ipairs(getPlayersOnline()) do
if getGlobalStorageValue(1222) >= 0 and getGlobalStorageValue(1222) < half then
if getPlayerStorageValue(cid,c.storage) > 0 then
doPlayerSendCancel(cid, "Time per half : "..( os.date("%M : %S",half)).." | Second half : "..( os.date("%M : %S",getGlobalStorageValue(1222))).." | Red : "..getGlobalStorageValue(c.RED_SCORE).." goals * Blue : "..getGlobalStorageValue(c.BLUE_SCORE).." goals")
end
elseif getGlobalStorageValue(1222) >= half and getGlobalStorageValue(1222) <= c.original then
if getPlayerStorageValue(cid,c.storage) > 0 then
doPlayerSendCancel(cid, "Time per half : "..( os.date("%M : %S", half )).." | First half : "..( os.date("%M : %S",getGlobalStorageValue(1222))).." | Red : "..getGlobalStorageValue(c.RED_SCORE).." goals * Blue : "..getGlobalStorageValue(c.BLUE_SCORE).." goals")
end
end
if getPlayerStorageValue(cid,c.storage) > 0 then
if getGlobalStorageValue(1222) < 0 then
doChangeSpeed(cid, getSpeed(cid, getPlayerLevel(cid)) - getCreatureSpeed(cid))
if c.rewards == true then
if getGlobalStorageValue(c.RED_SCORE) > getGlobalStorageValue(c.BLUE_SCORE) then
if getPlayerStorageValue(cid,c.storage) > c.players then
doPlayerSendTextMessage(cid,25, "Your teams won the match. And recieved a ["..getItemNameById(random_item).."].")
doPlayerAddItem(cid,random_item,1)
addWin(cid)
elseif getPlayerStorageValue(cid,c.storage) <= c.players then
doPlayerSendTextMessage(cid,22,"You team have lost. No reward for you!")
end
elseif getGlobalStorageValue(c.BLUE_SCORE) > getGlobalStorageValue(c.RED_SCORE) then
if getPlayerStorageValue(cid,c.storage) <= c.players then
doPlayerAddItem(cid,random_item,1)
doPlayerSendTextMessage(cid,25, "Your teams won the match. And recieved a ["..getItemNameById(random_item).."].")
addWin(cid)
elseif getPlayerStorageValue(cid,c.storage) > c.players then
doPlayerSendTextMessage(cid,22,"You team have lost. No reward for you!")
end
else
doPlayerSendTextMessage(cid,22,"Neither of teams won. No rewards!")
end
end
doRemoveConditions(cid, FALSE)
doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)))
doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)
setPlayerStorageValue(cid,c.storage,-1)
for i = c.pitchpos.fromy, c.pitchpos.toy do
for j = c.pitchpos.fromx, c.pitchpos.tox do
local pos = {x = j, y = i, z = c.pitchpos.z}
local ball = getTileItemById(pos,2109).uid
if ball > 0 then
doRemoveItem(ball)
end
end
end
if getTileItemById(c.ballpos,2109).uid < 1 then
doCreateItem(2109,1,c.ballpos)
end
elseif getGlobalStorageValue(1222) == half then
doTeleportThing(cid, (getPlayerStorageValue(cid,c.storage) <= c.players and c.destination[getPlayerStorageValue(cid,c.storage)+c.players] or c.destination[getPlayerStorageValue(cid,c.storage)-c.players]))
doPlayerSendTextMessage(cid,22,"Refree : Second half begins.")
for i = 1, #c.destination do
doSendMagicEffect(c.destination[i],10)
end
for i = c.pitchpos.fromy, c.pitchpos.toy do
for j = c.pitchpos.fromx, c.pitchpos.tox do
local pos = {x = j, y = i, z = c.pitchpos.z}
local ball = getTileItemById(pos,2109).uid
if ball > 0 then
doRemoveItem(ball)
end
end
end
if getTileItemById(c.ballpos,2109).uid < 1 then
doCreateItem(2109,1,c.ballpos)
end
end
end
end
return true
end
]]></globalevent>
<globalevent name="tim" type="start" event="script"><![CDATA[
domodlib('tutorial_m')
domodlib('football-lib')
function onStartup()
setGlobalStorageValue(c.BLUE_SCORE,0)
setGlobalStorageValue(c.RED_SCORE,0)
for i = c.pitchpos.fromy, c.pitchpos.toy do
for j = c.pitchpos.fromx, c.pitchpos.tox do
local pos = {x = j, y = i, z = c.pitchpos.z}
local ball = getTileItemById(pos,2109).uid
if ball > 0 then
doRemoveItem(ball)
end
end
end
if getTileItemById(c.ballpos,2109).uid < 1 then
doCreateItem(2109,1,c.ballpos)
end
return true
end
]]></globalevent>
</mod>
