Jump to content

Recommended Posts

Atualmente este script está dando experiência fixa e eu gostaria que ele estivesse ganhando em porcentagem (configurável) e se ele matar um player 10 leveis(configurável) menor que o dele não ganhar experiência nenhuma

Se for possível adicionar a perda de experiência ao matar com o mesmo IP em porcentagem e não fixa.

 

  function onKill(cid, target)
--config----------------------------
local lvl = getPlayerLevel(cid) --players level
local nlvl = getPlayerLevel(cid) + 1 -- add 5 levels
--end-------------------------------
    if isPlayer(target) == TRUE then
        if getPlayerIp(cid) ~= getPlayerIp(target) then
                        local exp = (50 * (lvl) * (lvl) * (lvl) - 130 * (lvl) * (lvl) + 400 * (lvl)) / 5
                        local nexp = (50 * (nlvl) * (nlvl) * (nlvl) - 130 * (nlvl) * (nlvl) + 400 * (nlvl)) / 5
                        local newexp = nexp - exp
                        doPlayerAddExp(cid,newexp)
                        doSendAnimatedText(getPlayerPosition(cid), "Orgasmic~", 198)
                else
            doPlayerAddExperience(cid, -90000000)
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"You have been punished for killing a player of the same IP.")
        end
        end
    return TRUE
end 

 

Link to post
Share on other sites

Não entendi a parte de ganhar em 'porcentagem', o ganho de XP está seguindo as fórmulas 'exp' e 'nexp'. Dá mais detalhes de como quer, e assim que possível eu vejo pra ti.

 

PS: Acho que ficaria legal se a fórmula fosse calculada em cima do level do player que morreu, e não em cima do lvl de quem matou (como está atualmente), daí colocar um limite de lvl tbm, pra evitar que jogadores iniciantes matem high lvl e abusem do ganho de xp.

Link to post
Share on other sites

17 minutos atrás, Pisces disse:

Não entendi a parte de ganhar em 'porcentagem', o ganho de XP está seguindo as fórmulas 'exp' e 'nexp'. Dá mais detalhes de como quer, e assim que possível eu vejo pra ti.

 

PS: Acho que ficaria legal se a fórmula fosse calculada em cima do level do player que morreu, e não em cima do lvl de quem matou (como está atualmente), daí colocar um limite de lvl tbm, pra evitar que jogadores iniciantes matem high lvl e abusem do ganho de xp.

@Pisces Eu gostaria que o jogador que matou o outro player ganhar uma porcentagem da exp perdida do jogador e que essa porcentagem seja configurável e ao matar um player level menor que o dele não ganhar exp

e se matar o jogador com o mesmo IP perder a experiência que ele ganharia do jogador que ele matou, nem sei se isso é possível nesse script.

Eu não conseguir deixar explicado isso no post por não entender sobre script estou começando agora e estou aprendendo conforme eu vou pesquisando vou aprendendo

Edited by Breniinx (see edit history)
Link to post
Share on other sites

A quantidade de XP que o jogador irá receber tu consegue definir nas variáveis "exp", "nexp", e "newexp", basta alterar as operações matemáticas que estão sendo feitas dentro delas. Modifiquei pra que o cálculo seja feito em cima do level do jogador inimigo, assim fica algo mais proveitoso e menos "fixo". Testa aí e me fala:

 

Spoiler

function onKill(cid, target)
local lvlCid = getPlayerLevel(cid)
local lvlTarget = getPlayerLevel(target)

------------- Em exp/nexp/newexp são as fórmulas de cálculo para decidir qual será a XP que o jogador irá obter.

  local exp = (50 * (lvlTarget) * (lvlTarget) * (lvlTarget) - 130 * (lvlTarget) * (lvlTarget) + 400 * (lvlTarget)) / 5
  local nexp = (50 * (lvlCid) * (lvlCid) * (lvlCid) - 130 * (lvlCid) * (lvlCid) + 400 * (lvlCid)) / 5
  local newexp = (exp - nexp) / 2
  local punishment = 2 -- Valor que será multiplicado pelo resultado de 'newexp'. (Punição por matar player do mesmo IP)

  if (isPlayer(target)) and (lvlTarget >= lvlCid)then
    if getPlayerIp(cid) ~= getPlayerIp(target) then
      doPlayerAddExp(cid, newexp)
      doCreatureSay(cid, "You earned " .. newexp .. " points of experience.", TALKTYPE_MONSTER)
    else
      doPlayerAddExperience(cid, -((newexp) * punishment))
      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"You have been punished for killing a player of the same IP.")
    end
  end
  return true
end 

 

 

Link to post
Share on other sites

7 horas atrás, Pisces disse:

A quantidade de XP que o jogador irá receber tu consegue definir nas variáveis "exp", "nexp", e "newexp", basta alterar as operações matemáticas que estão sendo feitas dentro delas. Modifiquei pra que o cálculo seja feito em cima do level do jogador inimigo, assim fica algo mais proveitoso e menos "fixo". Testa aí e me fala:

 

  Ocultar conteúdo




function onKill(cid, target)
local lvlCid = getPlayerLevel(cid)
local lvlTarget = getPlayerLevel(target)

------------- Em exp/nexp/newexp são as fórmulas de cálculo para decidir qual será a XP que o jogador irá obter.

  local exp = (50 * (lvlTarget) * (lvlTarget) * (lvlTarget) - 130 * (lvlTarget) * (lvlTarget) + 400 * (lvlTarget)) / 5
  local nexp = (50 * (lvlCid) * (lvlCid) * (lvlCid) - 130 * (lvlCid) * (lvlCid) + 400 * (lvlCid)) / 5
  local newexp = (exp - nexp) / 2
  local punishment = 2 -- Valor que será multiplicado pelo resultado de 'newexp'. (Punição por matar player do mesmo IP)

  if (isPlayer(target)) and (lvlTarget >= lvlCid)then
    if getPlayerIp(cid) ~= getPlayerIp(target) then
      doPlayerAddExp(cid, newexp)
      doCreatureSay(cid, "You earned " .. newexp .. " points of experience.", TALKTYPE_MONSTER)
    else
      doPlayerAddExperience(cid, -((newexp) * punishment))
      doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"You have been punished for killing a player of the same IP.")
    end
  end
  return true
end 

 

 

a parte da punição por matar pelo mesmo ip não está funcionando e não aparece nenhum erro na distro, o resto tá funcionando perfeitamente, eu sei que estou pedindo demais mas não teria como deixar de forma mais clara essa formula de cálculo ? eu sinceramente não entendi nada e sobre a diferença de level deve  está na formula também e como eu não entendi fica difícil fazer alguma modificação eu queria que o jogador que matar o outro for 100 leveis menor ganhar 50% da exp perdida se forem level igual ou 10 nivel de diferença ganhar 100% da exp perdida e se ele for 20 nivel ou mais não ganhar exp nenhuma, se tiver varios player matando 1 jogador a exp seja shareada de forma igual dentro das condiçôes citada.

 

não precisa ser necessariamente esse script, se você tiver algum outro funcional que consiga fica o mais próximo possivel das condiçôes citada eu ficaria grato eternamente.

 

eu acho que já estou pedindo demais mas se não for possivel tudo bem, o script tá funcionando perfeitamente tirando a parte do IP

Edited by Breniinx (see edit history)
Link to post
Share on other sites

10 horas atrás, Pisces disse:

As fórmulas são apenas cálculos comuns (adição, subtração, etc..) de acordo como você desejar. Irei pensar em um outro script, de modo que fique mais claro e envio aqui no tópico. 😁

Estarei esperando ansiosamente :)

Link to post
Share on other sites

Em 15/01/2021 em 13:27, Pisces disse:

As fórmulas são apenas cálculos comuns (adição, subtração, etc..) de acordo como você desejar. Irei pensar em um outro script, de modo que fique mais claro e envio aqui no tópico. 😁

Não pensou em nada sobre o outro script?

Link to post
Share on other sites

Estava com pouco tempo.. Mas estranho não estar funcionando a parte do IP, sendo que é a mesma linha de código que tu enviou anteriormente kkk

 

O script só vai funcionar se o target for um jogador e que este seja maior ou igual ao level do cid, talvez você matou alguém de level inferior.

Link to post
Share on other sites

3 horas atrás, Pisces disse:

Estava com pouco tempo.. Mas estranho não estar funcionando a parte do IP, sendo que é a mesma linha de código que tu enviou anteriormente kkk

 

O script só vai funcionar se o target for um jogador e que este seja maior ou igual ao level do cid, talvez você matou alguém de level inferior.

Jogador morto level 550, o killer era 600 e ambos com mesmo ip porque sou eu testando e não teve punição ou não entendi direito?

gif_morte.gif

Em 20/01/2021 em 15:39, XGaduX disse:

@WooX Ver se resolver esse...

Serei eternamente grato

Link to post
Share on other sites

O script por completo só funciona se o level do jogador morto for maior que o level do jogador que matou, assim como pediu ali atrás:

"e ao matar um player level menor que o dele não ganhar exp."

E o gif que mostrou ali, o player é lvl 600 e está matando um 550 :d

 

Se o Bruno for level 500, e matar o Guilherme que é lvl 400, o script não vai ser executado. Porque está configurado para que funcione apenas se o Guilherme tiver um level maior que o do Bruno.

Dá pra colocar a punição independente do level, mas não faz sentido dado o contexto. Visto que se o jogador for de level menor, ele não ganhará experiência nem nada.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Similar Content

    • By stauro
      Alguém sabe como adicionar atributo de sorte no item? Tipo  "Luck + 2%"
      Não consigo achar nenhum item que tenha pra eu copiar, os itens que eu sei não estão com esse atributo
       
       
       
       
         
       
       
      Resolvido.
    • By Bruce Pereira
      Alguém me ajudar a adicionar uma storage nessa script, tentei de varias formas e não consegui.
       
       
    • By raphadoidera
      .Qual servidor ou website você utiliza como base? 
      8.60
      Qual o motivo deste tópico? 
      Esse script de trap está dando exhausted no combo. Eu queria que o char depois de usar a Trap, continuasse combando no alvo. Alguém pode ajudar?
      Está surgindo algum erro? Se sim coloque-o aqui. 
       
      Você tem alguma imagem que possa auxiliar no problema? Se sim, coloque-a aqui. 

      WhatsApp_Video_2021-05-03_at_16_03_21.mp4 @139 salva nessa irmão?
    • By Kyria
      .Qual servidor ou website você utiliza como base? 
      Estou usando a Base PMX.
      Qual o motivo deste tópico? 
      Estou querendo uma ajuda sobre o ensinamento de um script, a me ensinar a programar de um script e tal, eu queria tirar duvidas, perguntas, etc.
      Agora, eu queria saber como mexer o opcode, module pra rodar no client e servidor.
      Exemplo de Print:
       
      Explicação: Eu tenho tentando fazer as scripts desse tipo de coisa, na hora de clicar os itens e aparecia esse module, ao clicar o item vai remover 5 tipos de itens e receberia um item feito na imagem. 
      OBS: Não estou pedindo script, estou pedindo pra me ensinar, sou iniciante, desculpe por ser iniciante e burro.
       
      Obrigado.
    • By Luanmax21
      Bom tenho um script mas queria uma modificada nele, para ter dia e hora pra ele ser executado no servidor exemplo pode escolher os dias da semana! , se alguem poder modificar pramin e um MOD!
      @Vodkart
       
      <?xml version="1.0" encoding="UTF-8"?> <mod name="CTF" version="1.0" author="Doggynub" contact="otland.net" enabled="yes"> <config name="CTF_CONFIG"><![CDATA[ --[[ Storage Settings]]-- Owner = 1900 -- put empty storage FLAG2_INn = 4000 -- put empty storage FLAG_IN = 4001 -- put empty storage TEAM1_FLAGS = 3030 -- put empty storage TEAM2_FLAGS = 3031 -- put empty storage Event_Start = 3032 -- put empty storage Event_timeend = 3033 -- put empty storage Event_Tile_Close = 3039 -- put empty storage joined = 2023 --put empty storage Timer = 1010 --put empty storage -------------------------------------- --[[ Places setting ]]-- BLUE_FLAG = {x=5036,y=2037,z=7} -- Blue flag Place RED_FLAG = {x=5114,y=2112,z=7} --red flag Place Tp_Place = {x=1000,y=994,z=7} -- Place where the event teleport will be created. Wait_Place = {x=5053, y=2059, z=7} -- Positions Players will be sent when the enter event's teleport frompos = {x=5051,y=2057,z=7} --start sqm in the waiting room(1 floor) topos = {x=5055,y=2061,z=7} -- end sqm in the waiting room(1 floor) Red_Position = {x=5114,y=2101,z=7} -- Red team temple pos Blue_Position = {x=5046,y=2036,z=7} -- Blue team temple pos --------------------------------------- --[[Event setting ]]-- Event_WaitTime = 0.2 -- time for the collection of player then event will start (in minutes) Event_MaxTime = 3 --- in minutes ( this is the max time for an event to bb running ) Players_Speed = 200 -- put the level of base speed in event ( like if you want the speed of lvl 300 then wright 300) Flag_Holder_Speed = 7 -- [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 = 3 -- 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 = 50 -- 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('CTF_CONFIG') domodlib('CTF-lib') function onLogin(cid) if getGlobalStorageValue(Event_Start) < 1 then if isTeamOne(cid) or isTeamTwo(cid) then resetTheTeams(cid) end end registerCreatureEvent(cid, "Attk") registerCreatureEvent(cid, "prepare") return true end ]]></event> <event type="combat" name="Attk" event="script"><![CDATA[ domodlib('CTF_CONFIG') 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('CTF_CONFIG') 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 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 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 end end return true end ]]></event> <movevent type="StepIn" actionid="6000" event="script"><![CDATA[ domodlib('CTF_CONFIG') 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 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) releaseBF(cid) 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 last flag and earned match win to the ".. TEAM2_NAME.." team!") end 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 end end end 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) doChangeSpeed(cid, getTheSpeed(Flag_Holder_Speed) - getCreatureSpeed(cid) ) 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 end end end end return true end ]]> </movevent> <movevent type="StepIn" actionid="3435" event="script"><![CDATA[ domodlib('CTF_CONFIG') 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('CTF_CONFIG') 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 end 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 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 end end end 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) doChangeSpeed(cid, getTheSpeed(Flag_Holder_Speed)- getCreatureSpeed(cid) ) 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 end end end end return true end ]]> </movevent> <globalevent name="ctf" time="12:19:05" event="script"><![CDATA[ domodlib('CTF_CONFIG') domodlib('CTF-lib') local players = {} function eventEnd() if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if getRedScore() > getBlueScore() then doBroadcastMessage('CTF-Event : The '.. TEAM2_NAME..' team won and recieved 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 end elseif getRedScore() < getBlueScore() then doBroadcastMessage('CTF-Event : The '.. TEAM1_NAME..' team won and recieved 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 end elseif getRedScore() == getBlueScore() then doBroadcastMessage('CTF-Event : The Event ended with a draw between both teams.') 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) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end end addEvent(resetTheStorage,1000) end 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) 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) 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 end end 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 doBroadcastMessage("CTF event was cancelled because less than "..Players_Least_Number.." players joined.[joined : "..#players.." players]") resetTheStorage() if #players > 0 then for i = 1,#players do doTeleportThing(players[i],getTownTemplePosition(getPlayerTown(players[i])),false) doSendMagicEffect(getThingPos(players[i]), 10) end end else doBroadcastMessage("CTF started") for i = 1, math.floor(#players/2) do setFirstTeam(players[i]) end for i = math.floor(#players/2)+1 , #players do setSecondTeam(players[i]) 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 end players = {} end end function onTime() if getGlobalStorageValue(Event_Start) < 0 then setGlobalStorageValue(Event_Start,1) doSetStorage(Event_Tile_Close,1) doBroadcastMessage("CTF event is opened and teleport is created. It will start in "..Event_WaitTime.." minutes.") 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,"CTF event is opened and teleport is created. It will start in "..f.." minutes.") f= f-1 end addEvent(eventStart,Event_WaitTime*60*1000) end return true end ]]></globalevent> <globalevent name="ctf" interval="3000" event="script"><![CDATA[ domodlib('CTF_CONFIG') 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 isTeamOne(cid) or isTeamTwo(cid) then if hasCondition(cid,CONDITION_HASTE) then doRemoveCondition(cid,CONDITION_HASTE) end end if flagOwner(cid) then 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 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 end else doSendAnimatedText(pl,"FLAG!",COLOR_RED) doSendMagicEffect(pl, CONST_ME_SOUND_RED) end end end end end return true end ]]></globalevent> <globalevent name="timer" interval="400" event="script"><![CDATA[ domodlib('CTF_CONFIG') 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 end end end return true end ]]></globalevent> <globalevent name="starting" type="startup" event="script"><![CDATA[ domodlib('CTF_CONFIG') domodlib('CTF-lib') function onStartup() resetTheStorage() return true end ]]></globalevent> </mod>  
  • Recently Browsing   0 members

    No registered users viewing this page.


×
×
  • Create New...

Important Information

Confirmação de Termo