[Mod] Contagem Ctf

Adolfohrq · Maio 15, 2012

E ae meus queridos amigos Xtibianos, gostaria de pedir ajuda de vocês para solucionar um pequeno erro que está ocorrendo em meu MOD Capture the Flag.. Sempre que um player captura a bandeira do time oponente e leva até sua 'base' o contador de quantas vezes a bandeira foi pega não aumenta. Sempre que um jogador conquista a bandeira o marcador não sobe para 1 ponto para o time azul por exemplo..

MOD SCRIPT:

<?xml version="1.0" encoding="UTF-8"?>

<config name="toto"><![CDATA[

--[[ Storage Settings]]--

Owner = 31900 -- put empty storage

FLAG2_INn = 34000 -- put empty storage

FLAG_IN = 34001 -- put empty storage

TEAM1_FLAGS = 33030 -- put empty storage

TEAM2_FLAGS = 33031 -- put empty storage

Event_Start = 33032 -- put empty storage

Event_timeend = 33033 -- put empty storage

Event_Tile_Close = 33039 -- put empty storage

joined = 32023 --put empty storage

Timer = 31010 --put empty storage

--------------------------------------

--[[ Places setting ]]--

BLUE_FLAG = {x=1245,y=988,z=7} -- Blue flag Place

RED_FLAG = {x=1319,y=1042,z=7} --red flag Place

Tp_Place = {x=1463,y=1090,z=7} -- Place where the event teleport will be created.

Wait_Place = {x=1149, y=1046, z=3} -- Positions Players will be sent when the enter event's teleport

frompos = {x=1366,y=1164,z=7} --start sqm in the waiting room(1 floor)

topos = {x=1379,y=1177,z=7} -- end sqm in the waiting room(1 floor)

Red_Position = {x=1328,y=1049,z=7} -- Red team temple pos

Blue_Position = {x=1257,y=984,z=7} -- Blue team temple pos

---------------------------------------

--[[Event setting ]]--

Event_WaitTime = 1 -- time for the collection of player then event will start (in minutes)

Event_MaxTime = 15 --- in minutes ( this is the max time for an event to bb running )

Players_Speed = 300 -- put the level of base speed in event ( like if you want the speed of lvl 300 then wright 300)

Flag_Holder_Speed = 300 -- Old-Styled feature] speed for the player when he hold a flag better not to increase.

TEAM2_NAME = "Red" -- team 2 name

TEAM1_NAME = "Green" -- team 1 name

FLAG_SCORE = 5 -- score when team gets he wins

Teleport_On_Score = true -- this teleport all players to their team main position when some one score a flag , make false to disable.

Players_Least_Number = 2 -- this means if there is less than 2 players joined the event will be cancelled

Min_Join_Level = 80 -- min lvl for a player to join event

rewards_random = {

[60] = { -- Rewards of 60% , if it is then it will randomly give one of the items in the items verible if there you put more than one item there

items = {2446,2446,2446}

},

[30] = { -- Rewards of 30%

items = {2466,2466,2466}

},

[10] = { -- Rewards of 10%

items = {2160,2160,2160}

}

]]></config>

<lib name="CTF-lib"><![CDATA[

function isTeamTwo(cid)

return (isPlayer(cid) and getPlayerStorageValue(cid,5054) > -1)

end

function isTeamOne(cid)

return (isPlayer(cid) and getPlayerStorageValue(cid,5055) > -1)

end

function resetTheTeams(cid)

return (isPlayer(cid) and setPlayerStorageValue(cid,5054,-1) and setPlayerStorageValue(cid,5055,-1))

end

function setflagOwner(cid)

return setPlayerStorageValue(cid,Owner,1)

end

function flagOwner(cid)

return (isPlayer(cid) and getPlayerStorageValue(cid,Owner) > 0)

end

function releaseBF(cid)

setGlobalStorageValue(FLAG_IN,-1)

setPlayerStorageValue(cid,103, 0)

setPlayerStorageValue(cid,Owner,-1)

return true

end

function releaseRF(cid)

setGlobalStorageValue(FLAG2_INn,-1)

setPlayerStorageValue(cid,103, 0)

setPlayerStorageValue(cid,Owner,-1)

return true

end

function setFirstTeam(cid)

return setPlayerStorageValue(cid,5055,1)

end

function setSecondTeam(cid)

return setPlayerStorageValue(cid,5054,2)

end

function addToRed()

return setGlobalStorageValue(TEAM2_FLAGS,getGlobalStorageValue(TEAM2_FLAGS)+1)

end

function addToBlue()

return setGlobalStorageValue(TEAM1_FLAGS,getGlobalStorageValue(TEAM1_FLAGS)+1)

end

function getBlueScore()

return getGlobalStorageValue(TEAM1_FLAGS)

end

function getRedScore()

return getGlobalStorageValue(TEAM2_FLAGS)

end

function getTheSpeed(level)

value = (220 +(2 *(level -1)))

return value

end

function resetTheStorage()

setGlobalStorageValue(Event_Start,-1)

setGlobalStorageValue(Event_timeend,-1)

setGlobalStorageValue(TEAM1_FLAGS,0)

setGlobalStorageValue(FLAG2_INn,-1)

setGlobalStorageValue(FLAG_IN,-1)

setGlobalStorageValue(TEAM2_FLAGS,0)

return true

end

function blueStolen()

return getGlobalStorageValue(FLAG_IN)

end

function redStolen()

return getGlobalStorageValue(FLAG2_INn)

end

function giveReward(cid)

local t = math.random(1,100)

if t <= 10 then

local rare = rewards_random[10].items[math.random(1,#rewards_random[10].items)]

doPlayerAddItem(cid,rare,1)

doPlayerSendTextMessage(cid,25,"Rare rate Reward : you won "..getItemNameById(rare)..".")

elseif t > 10 and t <= 40 then

local semi = rewards_random[30].items[math.random(1,#rewards_random[30].items)]

doPlayerAddItem(cid,semi,1)

doPlayerSendTextMessage(cid,25,"Semi rate Reward : you won "..getItemNameById(semi)..".")

elseif t > 40 then

local aver = rewards_random[60].items[math.random(1,#rewards_random[60].items)]

doPlayerAddItem(cid,aver,1)

doPlayerSendTextMessage(cid,25,"Averege rate Reward : you won "..getItemNameById(aver)..".")

end

return true

end

]]></lib>

<event type="login" name="Tutorial Login" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onLogin(cid)

if getGlobalStorageValue(Event_Start) < 1 then

if isTeamOne(cid) or isTeamTwo(cid) then

resetTheTeams(cid)

end

registerCreatureEvent(cid, "Attk")

registerCreatureEvent(cid, "ctff")

registerCreatureEvent(cid, "prepare")

return true

end

]]></event>

<event type="combat" name="Attk" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onCombat(cid, target)

if isTeamOne(cid) and isTeamOne(target) then

return false

end

if isTeamTwo(cid) and isTeamTwo(target) then

return false

end

return true

end

]]></event>

<event type="statschange" name="prepare" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

local corpse_ids = {

[0] = 3065, -- female

[1] = 3058 -- male

}

function onStatsChange(cid, attacker, type, combat, value)

if combat == COMBAT_HEALING then

return true

end

if getCreatureHealth(cid) > value then

return true

end

if getGlobalStorageValue(Event_Start) > 0 then

if flagOwner(cid) then

if isTeamOne(cid) then

doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Flag Holder].")

doTeleportThing(cid,Blue_Position,false)

doSendMagicEffect(Blue_Position,10)

doCreatureAddHealth(cid,getCreatureMaxHealth(cid))

doCreatureAddMana(cid,getCreatureMaxMana(cid))

releaseRF(cid)

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) or isTeamTwo(cid) then

doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " has died with the "..TEAM2_NAME.." team flag. The flag is returned back to the "..TEAM1_NAME.." team.")

end

return false

elseif isTeamTwo(cid) then

doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Flag Holder].")

doTeleportThing(cid,Red_Position,false)

doSendMagicEffect(Red_Position,10)

doCreatureAddHealth(cid,getCreatureMaxHealth(cid))

doCreatureAddMana(cid,getCreatureMaxMana(cid))

releaseBF(cid)

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) or isTeamTwo(cid) then

doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " has died with the "..TEAM1_NAME.." team flag. The flag is returned back to the "..TEAM1_NAME.." team.")

end

return false

end

else

if isTeamOne(cid) or isTeamTwo(cid) then

doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Normal kill].")

doTeleportThing(cid,( isTeamTwo(cid) and Red_Position or Blue_Position ),false)

doSendMagicEffect(Red_Position,10)

doCreatureAddHealth(cid,getCreatureMaxHealth(cid))

doCreatureAddMana(cid,getCreatureMaxMana(cid))

return false

end

return true

end

]]></event>

<movevent type="StepIn" actionid="6000" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function eventEnds()

doBroadcastMessage('CTF-Event : The '..TEAM2_NAME..' team won and reciaved their reward.')

for _,cid in ipairs(getPlayersOnline()) do

if isTeamTwo(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

resetTheTeams(cid)

doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid))

giveReward(cid)

elseif isTeamOne(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

doPlayerSendTextMessage(cid,22,'Your team have lost.')

resetTheTeams(cid)

doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid))

end

addEvent(resetTheStorage,5)

end

function onStepIn(cid, item, position, fromPosition)

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

if isTeamTwo(cid) and redStolen() < 0 then

if not flagOwner(cid) then

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

doPlayerSendTextMessage(cid, 27, "This is your team flag, you cant take it!")

end

elseif isTeamTwo(cid) and redStolen() > 0 and blueStolen() < 0 then

doPlayerSendTextMessage(cid, 27, "Your team's Flag has been stolen, go get it back!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

return true

end

if isTeamTwo(cid) and flagOwner(cid) and blueStolen() > 0 and redStolen() < 0 then

if getRedScore() == FLAG_SCORE -1 then

addEvent(eventEnds,1000)

addToRed()

doTeleportThing(cid, fromPosition,TRUE)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) )

releaseBF(cid)

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the last flag and earned match win to the ".. TEAM2_NAME.." team!")

end

else

releaseBF(cid)

addToRed()

doTeleportThing(cid, fromPosition,TRUE)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) )

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the flag and earned 1 point to the ".. TEAM2_NAME.." team!")

if Teleport_On_Score == true then

doTeleportThing(tid,( isTeamTwo(tid) and Red_Position or Blue_Position ), false)

doSendMagicEffect(getThingPos(tid),10)

end

if isTeamOne(cid) then

if blueStolen() < 0 and redStolen() > 0 then

if flagOwner(cid) then

doPlayerSendTextMessage(cid, 27, "You already holding the flag!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

elseif (not flagOwner(cid)) then

doPlayerSendTextMessage(cid, 27, "Your Team mates already stole the oponent flag, defend him!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

end

elseif blueStolen() > 0 and redStolen() < 0 then

doPlayerSendTextMessage(cid, 27, "Your team's flag is taken you can't capture or steel a flag!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

end

if redStolen() < 0 and blueStolen() < 0 then

setGlobalStorageValue(FLAG2_INn,1)

setflagOwner(cid)

setPlayerStorageValue(cid,103, os.time()+300)

doTeleportThing(cid, fromPosition,TRUE)

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " stolen the "..TEAM2_NAME.." team flag!")

end

return true

end

]]> </movevent>

<movevent type="StepIn" actionid="3435" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)

if getStorage(Event_Tile_Close) > 0 then

if getPlayerLevel(cid) < Min_Join_Level then

doTeleportThing(cid,fromPosition,false)

doSendMagicEffect(fromPosition,10)

doPlayerSendTextMessage(cid,21,"Only players of level "..Min_Join_Level.." are allowed to pass.")

else

doTeleportThing(cid,Wait_Place,false)

doSendMagicEffect(Wait_Place,10)

end

else

doTeleportThing(cid,fromPosition,false)

doSendMagicEffect(fromPosition,10)

doPlayerSendTextMessage(cid,21,"Come back later, event is closed now.")

end

return true

end

]]> </movevent>

<movevent type="StepIn" actionid="6001" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function eventEnded()

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

doBroadcastMessage('CTF-Event : The '.. TEAM1_NAME..' team won and reciaved their reward.')

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

resetTheTeams(cid)

doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid))

giveReward(cid)

elseif isTeamTwo(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

doPlayerSendTextMessage(cid,22,'Your team have lost.')

resetTheTeams(cid)

doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid))

end

addEvent(resetTheStorage,5)

end

function onStepIn(cid, item, position, fromPosition)

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

if isTeamOne(cid) and blueStolen() < 0 then

if not flagOwner(cid) then

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

doPlayerSendTextMessage(cid, 27, "This is your team flag, you cant take it!")

end

elseif isTeamOne(cid) and blueStolen() > 0 and redStolen() < 0 then

doPlayerSendTextMessage(cid, 27, "Your team's Flag has been stolen, go get it back!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

return true

end

if isTeamOne(cid) and flagOwner(cid) and redStolen() > 0 and blueStolen() < 0 then

if getBlueScore() == FLAG_SCORE -1 then

addEvent(eventEnded,1000)

addToBlue()

doTeleportThing(cid, fromPosition,TRUE)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) )

releaseRF(cid)

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the last flag and earned match win to the ".. TEAM1_NAME.." team!")

end

else

releaseRF(cid)

addToBlue()

doTeleportThing(cid, fromPosition,TRUE)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) )

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the flag and earned 1 point to the ".. TEAM1_NAME.." team!")

if Teleport_On_Score == true then

doTeleportThing(tid,( isTeamTwo(tid) and Red_Position or Blue_Position ), false)

doSendMagicEffect(getThingPos(tid),10)

end

if isTeamTwo(cid) then

if blueStolen() > 0 and redStolen() < 0 then

if flagOwner(cid) then

doPlayerSendTextMessage(cid, 27, "You already holding the flag!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

elseif (not flagOwner(cid)) then

doPlayerSendTextMessage(cid, 27, "Your Team mates already stole the oponent flag, defend him!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

end

elseif redStolen() > 0 and blueStolen() < 0 then

doPlayerSendTextMessage(cid, 27, "Your team's flag is taken you can't capture or steel a flag!")

doTeleportThing(cid, fromPosition,TRUE)

doSendMagicEffect(getThingPos(cid),2)

end

if blueStolen() < 0 and redStolen() < 0 then

setGlobalStorageValue(FLAG_IN,1)

setflagOwner(cid)

setPlayerStorageValue(cid,103, os.time()+300)

doTeleportThing(cid, fromPosition,TRUE)

for _,tid in ipairs(getPlayersOnline()) do

if isTeamOne(tid) or isTeamTwo(tid) then

doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " stolen the "..TEAM1_NAME.." team flag!")

end

return true

end

]]> </movevent>

<globalevent name="ctf" interval="900" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

local players = {}

local bmale = createConditionObject(CONDITION_OUTFIT)

setConditionParam(bmale, CONDITION_PARAM_TICKS, -1)

addOutfitCondition(bmale, {lookType = math.random(128,134), lookHead = 115, lookBody =114, lookLegs = 81, lookFeet = 81, lookTypeEx = 0, lookAddons = 3})

local bfemale = createConditionObject(CONDITION_OUTFIT)

setConditionParam(bfemale, CONDITION_PARAM_TICKS, -1)

addOutfitCondition(bfemale, {lookType = math.random(136,142), lookHead = 115, lookBody =114, lookLegs = 81, lookFeet = 81, 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})

local fight = createConditionObject(CONDITION_INFIGHT)

setConditionParam(fight, CONDITION_PARAM_TICKS, -1)

function eventEnd()

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

if getRedScore() > getBlueScore() then

doBroadcastMessage('CTF-Event : O Team '.. TEAM2_NAME..' Venceu e recebeu a recompensa.')

for _,cid in ipairs(getPlayersOnline()) do

if isTeamTwo(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

resetTheTeams(cid)

giveReward(cid)

elseif isTeamOne(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

doPlayerSendTextMessage(cid,22,'Your team have lost.')

resetTheTeams(cid)

end

elseif getRedScore() < getBlueScore() then

doBroadcastMessage('CTF-Event : O Team '.. TEAM1_NAME..' venceu e recebeu a recompensa.')

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

resetTheTeams(cid)

giveReward(cid)

elseif isTeamTwo(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

doPlayerSendTextMessage(cid,22,'Your team have lost.')

resetTheTeams(cid)

end

elseif getRedScore() == getBlueScore() then

doBroadcastMessage('CTF-Event : O evento terminou com um empate!')

for _,cid in ipairs(getPlayersOnline()) do

if isTeamTwo(cid) or isTeamOne(cid) then

doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false)

doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10)

doRemoveConditions(cid,false)

doPlayerSendTextMessage(cid,22,'It was a draw between both teams.')

resetTheTeams(cid)

end

addEvent(resetTheStorage,1000)

end

function eventStart()

doSetStorage(Event_Tile_Close,-1)

setGlobalStorageValue(Event_timeend,1)

setGlobalStorageValue(Timer, os.time() + Event_MaxTime*60)

addEvent(eventEnd,Event_MaxTime*60*1000)

for v = frompos.x , topos.x do

for k = frompos.y , topos.y do

for i = 1, 200 do

position = {x = v, y = k, z = 7, stackpos = i}

pid = getThingfromPos(position).uid

if(pid ~= nil and isPlayer(pid)) then

table.insert(players, pid)

end

if math.mod(#players, 2) ~= 0 then

doTeleportThing(players[#players],getTownTemplePosition(getPlayerTown(players[#players])),false)

doSendMagicEffect(getThingPosition(players[#players]),10)

doPlayerSendTextMessage(players[#players], 19, "Sorry, you have been kicked from event to balance teams.")

table.remove(players)

end

if #players < Players_Least_Number then

resetTheStorage()

if #players > 0 then

for i = 1,#players do

doTeleportThing(players,getTownTemplePosition(getPlayerTown(players)),false)

doSendMagicEffect(getThingPos(players), 10)

end

else

doBroadcastMessage("CTF Event iniciou!")

for i = 1, math.floor(#players/2) do

setFirstTeam(players)

end

for i = math.floor(#players/2)+1 , #players do

setSecondTeam(players)

end

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) then

if getPlayerSex(cid) == 1 then

doAddCondition(cid, bmale)

elseif getPlayerSex(cid) ~= 1 then

doAddCondition(cid, bfemale)

end

doAddCondition(cid, fight)

doTeleportThing(cid,Blue_Position,false)

doSendMagicEffect(Blue_Position, 10)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid))

elseif isTeamTwo(cid) then

if getPlayerSex(cid) == 1 then

doAddCondition(cid, rmale)

elseif getPlayerSex(cid) ~= 1 then

doAddCondition(cid, rfemale)

end

doAddCondition(cid, fight)

doTeleportThing(cid,Red_Position,false)

doSendMagicEffect(Red_Position, 10)

doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid))

end

players = {}

end

function onThink(interval)

if getGlobalStorageValue(Event_Start) < 0 then

setGlobalStorageValue(Event_Start,1)

-- doSetStorage(Event_Tile_Close,1)

players = {}

if getTileItemById(Tp_Place, 1387).uid < 1 then

doItemSetAttribute(doCreateItem(1387,1, Tp_Place), "aid", 3435)

end

f= Event_WaitTime - 1

for i = 1,Event_WaitTime-1 do

addEvent(doBroadcastMessage,i*60*1000,"")

f= f-1

end

addEvent(eventStart,Event_WaitTime*60*1000)

end

return true

end

]]></globalevent>

<event type="think" name="ctff" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

local bl = BLUE_FLAG

local re = RED_FLAG

function onThink(interval)

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

if redStolen() < 0 then

doSendAnimatedText(re,"FLAG!",TEXTCOLOR_DARKRED)

doSendMagicEffect(re, CONST_ME_SOUND_RED)

end

if blueStolen() < 0 then

doSendAnimatedText(bl,"FLAG!",TEXTCOLOR_GREEN)

doSendMagicEffect(bl, CONST_ME_SOUND_GREEN)

end

for _, cid in ipairs(getPlayersOnline()) do

if flagOwner(cid) then

if isTeamOne(cid) or isTeamTwo(cid) then

if hasCondition(cid,CONDITION_HASTE) then

doRemoveCondition(cid,CONDITION_HASTE)

end

pl = getThingPos(cid)

if isTeamTwo(cid) then

if getPlayerStorageValue(cid,103) < os.time() then

releaseBF(cid)

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) or isTeamTwo(cid) then

doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " wasted 5 minutes with FLAG."..TEAM2_NAME.." flag is again on spawn!")

end

else

doSendAnimatedText(pl,"FLAG!",TEXTCOLOR_GREEN)

doSendMagicEffect(pl, CONST_ME_SOUND_GREEN)

end

elseif isTeamOne(cid) then

if getPlayerStorageValue(cid,103) < os.time() then

releaseRF(cid)

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) or isTeamTwo(cid) then

doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " wasted 5 minutes with FLAG."..TEAM1_NAME.." flag is again on spawn!")

end

else

doSendAnimatedText(pl,"FLAG!",COLOR_RED)

doSendMagicEffect(pl, CONST_ME_SOUND_RED)

end

return true

end

]]></event>

<talkaction words="!resetctf" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onSay(cid, words, param, channel)

resetTheStorage()

return true

end

]]></talkaction>

<globalevent name="timer" interval="1000" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onThink(interval)

for _,cid in ipairs(getPlayersOnline()) do

if isTeamOne(cid) or isTeamTwo(cid) then

if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then

if getGlobalStorageValue(Timer)- os.time() >= 0 then

doPlayerSendCancel(cid, "Time -> ".. os.date("%M:%S ",getGlobalStorageValue(Timer)- os.time()) .. " | ".. TEAM1_NAME.." Score : "..getBlueScore(cid).."/"..FLAG_SCORE.." captures | ".. TEAM2_NAME.." Score : "..getRedScore(cid).."/"..FLAG_SCORE.." captures")

end

return true

end

]]></globalevent>

<globalevent name="starting" type="startup" event="script"><![CDATA[

domodlib('toto')

domodlib('CTF-lib')

function onStartup()

resetTheStorage()

return true

end

]]></globalevent>

</mod>

Erro no Console:

Entrar

[Mod] Contagem Ctf

Pergunta

Adolfohrq 12

Link para o comentário

Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Quem Está Navegando 0 membros estão online

Conteúdo Similar

otserver Alguem poderia me ajudar ?? Com esse Mapa de POKETIBIA

Baiak Titan 8.6 200X - 24h/7 Dedicado BR (COM MONTARIAS)

script alguém pode me ajudar nessa spells aqui, queira que colocassem pro meu personagem ficar inatingível por 6 segundos e podendo atacar livremente

Cliente 10.00 Bug Quando o jogador usa qualquer magia ou posição

Fóruns

Tutoriais

Suporte