Ir para conteúdo

ajuda para mudar o script para Revscript

Por dfs1
em Suporte Tibia OTServer

Featured Replies

Postado

Preciso de ajuda por favor, estou enlouquecendo, tentei editar eu mesmo mas não consegui. eu uso otbr

 

I need help please, I'm going crazy, I tried to edit them myself but I didn't succeed. i use otbr
(I have used a translator)

 

First Items

  Citar

  


function onLogin(cid)
    local lastLogin = getPlayerLastLogin(cid)
    local playerVoc = getPlayerVocation(cid)

    if(lastLogin == 0) then
        local qResult = db.storeQuery("SELECT `town_id` FROM `players` WHERE `id`= 1;")
        local cTown = result.getDataInt(qResult, "town_id")
        doPlayerSetTown(cid, cTown)
        doTeleportThing(cid, getTownTemplePosition(cTown))
        if (playerVoc == 4) or (playerVoc == 8) then
            doPlayerAddItem(cid,2498,1)
            doPlayerAddItem(cid,2432,1)
            doPlayerAddItem(cid,2520,1)
            doPlayerAddItem(cid,2414,1)
            doPlayerAddItem(cid,2492,1)         
            while getPlayerSkill(cid, LEVEL_SKILL_AXE) < 70 do
                doPlayerAddSkillTry(cid, LEVEL_SKILL_AXE, 100)
            end
            while getPlayerSkill(cid, LEVEL_SKILL_SHIELDING) < 70 do
                doPlayerAddSkillTry(cid, LEVEL_SKILL_SHIELDING, 100)
            end
            while getPlayerMagLevel(cid) < 6 do
                doPlayerAddManaSpent(cid, 100, 100)
            end
        elseif (playerVoc == 3) or (playerVoc == 7)  then
            doPlayerAddItem(cid,2498,1)
            doPlayerAddItem(cid,2455,1)
            doPlayerAddItem(cid,2543,1)
            doPlayerAddItem(cid,2466,1)
            while getPlayerSkill(cid, LEVEL_SKILL_DISTANCE) < 70 do
                doPlayerAddSkillTry(cid, LEVEL_SKILL_DISTANCE, 100)
            end
            while getPlayerSkill(cid, LEVEL_SKILL_SHIELDING) < 70 do
                doPlayerAddSkillTry(cid, LEVEL_SKILL_SHIELDING, 100)
            end
            while getPlayerMagLevel(cid) < 15 do
                doPlayerAddManaSpent(cid, 100, 100)
            end
        else
            doPlayerAddItem(cid,2497,1)
            doPlayerAddItem(cid,2456,1)
            doPlayerAddItem(cid,2546,1)
            doPlayerAddItem(cid,2656,1)
            if (playerVoc == 1) or (playerVoc == 6)  then
                while getPlayerMagLevel(cid) < 40 do
                    doPlayerAddManaSpent(cid, 100, 100)
                end       
            else
                while getPlayerMagLevel(cid) < 45 do
                    doPlayerAddManaSpent(cid, 100, 100)
                end   
            end
        end
      
        -- Equips for All Vocs --
        doPlayerAddItem(cid,2643,1)
        doPlayerAddItem(cid,2488,1)         
        Container = doPlayerAddItem(cid, 2000, 1)
        Container = doPlayerAddItem(cid, 1995, 1)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
            doAddContainerItem(Container, 2273, 2)
        Container = doPlayerAddItem(cid, 1996, 1)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
            doAddContainerItem(Container, 2268, 2)
        Container = doPlayerAddItem(cid, 1993, 1)
            doAddContainerItem(Container, 2261, 2)
            doAddContainerItem(Container, 2305, 2)
            doAddContainerItem(Container, 2261, 2)
            doAddContainerItem(Container, 2305, 2)
            doAddContainerItem(Container, 2262, 2)
            doAddContainerItem(Container, 2310, 2)
            doAddContainerItem(Container, 2286, 2)
            doAddContainerItem(Container, 2291, 2)
        Container = doPlayerAddItem(cid, 1994, 1)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
            doAddContainerItem(Container, 2313, 2)
        Container = doPlayerAddItem(cid, 1997, 1)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2293, 2)
        Container = doPlayerAddItem(cid, 1987, 1)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2006, 7)
        Container = doPlayerAddItem(cid, 3939, 1)
            doAddContainerItem(Container, 2214, 1)
            doAddContainerItem(Container, 2562, 1)
            doAddContainerItem(Container, 2167, 1)
            doAddContainerItem(Container, 2169, 1)
            doAddContainerItem(Container, 2789, 1)
            doAddContainerItem(Container, 2420, 1)
        Container = doPlayerAddItem(cid, 1988, 1)
            doAddContainerItem(Container, 2293, 2)
            doAddContainerItem(Container, 2304, 3)
            doAddContainerItem(Container, 2261, 2)
            doAddContainerItem(Container, 2305, 2)
            doAddContainerItem(Container, 2262, 2)
            doAddContainerItem(Container, 2273, 3)
            doAddContainerItem(Container, 2006, 7)
            doAddContainerItem(Container, 2268, 2)
    end

    return true
end

 

 

Fragslook

  Citar

  


--Script By Theax ""
function getPlayerFrags(cid)
    local time = os.time()
    local times = {today = (time - 86400), week = (time - (7 * 86400))}
 
    local contents, result = {day = {}, week = {}, month = {}}, db.getResult("SELECT `pd`.`date`, `pd`.`level`, `p`.`name` FROM `player_killers` pk LEFT JOIN `killers` k ON `pk`.`kill_id` = `k`.`id` LEFT JOIN `player_deaths` pd ON `k`.`death_id` = `pd`.`id` LEFT JOIN `players` p ON `pd`.`player_id` = `p`.`id` WHERE `pk`.`player_id` = " .. getPlayerGUID(cid) .. " AND `k`.`unjustified` = 1 AND `pd`.`date` >= " .. (time - (30 * 86400)) .. " ORDER BY `pd`.`date` DESC")
    if(result:getID() ~= -1) then
        repeat
            local content = {date = result:getDataInt("date")}
            if(content.date > times.today) then
                table.insert(contents.day, content)
            elseif(content.date > times.week) then
                table.insert(contents.week, content)
            else
                table.insert(contents.month, content)
            end
        until not result:next()
        result:free()
    end
 
    local size = {
        day = table.maxn(contents.day),
        week = table.maxn(contents.week),
        month = table.maxn(contents.month)
    }
    return size.day + size.week + size.month
end
 
function onLogin(cid)
    registerCreatureEvent(cid, "fraglook")
    return true
end
 
function onLook(cid, thing, position, lookDistance)
    if isPlayer(thing.uid) and thing.uid ~= cid then
        doPlayerSetSpecialDescription(thing.uid,' [Frags: '..getPlayerFrags(thing.uid)..']')
        return true
    elseif thing.uid == cid then
        doPlayerSetSpecialDescription(cid,' [Frags: '..getPlayerFrags(cid)..']')
        local string = 'You see yourself.'
        if getPlayerFlagValue(cid, PLAYERFLAG_SHOWGROUPINSTEADOFVOCATION) then
            string = string..' You are '.. getPlayerGroupName(cid) ..'.'
        elseif getPlayerVocation(cid) ~= 0 then
            string = string..' You are '.. getPlayerVocationName(cid) ..'.'
        else
            string = string..' You have no vocation.'
        end
        string = string..getPlayerSpecialDescription(cid)..''
 
        if getPlayerNameByGUID(getPlayerPartner(cid), false, false) ~= nil then
            string = string..' You are '.. (getPlayerSex(cid) == 0 and 'wife' or 'husband') ..' of '.. getPlayerNameByGUID(getPlayerPartner(cid)) ..'.'
        end
 
        if getPlayerGuildId(cid) > 0 then
            string = string..' You are ' .. (getPlayerGuildRank(cid) == '' and 'a member' or getPlayerGuildRank(cid)) ..' of the '.. getPlayerGuildName(cid)
            string = getPlayerGuildNick(cid) ~= '' and string..' ('.. getPlayerGuildNick(cid) ..').' or string..'.'
        end
 
        if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEECREATUREDETAILS) then
            string = string..'nHealth: ['.. getCreatureHealth(cid) ..' / '.. getCreatureMaxHealth(cid) ..'], Mana: ['.. getCreatureMana(cid) ..' / '.. getCreatureMaxMana(cid) ..'].'
            string = string..'nIP: '.. doConvertIntegerToIp(getPlayerIp(cid)) ..'.'
        end
 
        if getPlayerFlagValue(cid, PLAYERCUSTOMFLAG_CANSEEPOSITION) then
            string = string..'nPosition: [X:'.. position.x..'] [Y:'.. position.y..'] [Z:'.. position.z..'].'
        end
        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string) 
        return false
    end
    return true
end

 

 

REWARDS

  Citar

  


function onKill(cid, target, lastHit)
 if cid ~= target and isPlayer(target) then
 if getPlayerIp(cid) == getPlayerIp(target) then
 doCreatureAddHealth(cid, -200)
 doCreatureAddMana(cid, -200)
 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You have been punished for killing a player of the same IP.')
 else
 doPlayerAddItem(cid, 2152, 1)
 setPlayerStorageValue(cid, 6776, getCreatureStorage(cid, 6776) + 1)
 end
 end

 if(getPlayerStorageValue(cid, 6776) == 5) and getCreatureStorage(cid, 6001) == -1 then
 broadcastMessage(getCreatureName(cid) .. " is on killing spree! He killed 5 players!")
 setPlayerStorageValue(cid, 6001, 1)
 doCreatureSetSkullType(cid, 3)  -- 3 is white

 elseif(getPlayerStorageValue(cid, 6776) == 10) and getCreatureStorage(cid, 6002) == -1 then
 broadcastMessage(getCreatureName(cid) .. " is dominating! He killed 10 players!")
 setPlayerStorageValue(cid, 6002, 1)
 doCreatureSetSkullType(cid, 4)  -- 3 is red

 elseif(getPlayerStorageValue(cid, 6776) == 25) and getCreatureStorage(cid, 6003) == -1 then
 broadcastMessage(getCreatureName(cid) .. " is CRAZY! He killed 25 players!")
 setPlayerStorageValue(cid, 6003, 1)
 doCreatureSetSkullType(cid, 5)  -- 5 is black

 elseif(getPlayerStorageValue(cid, 6776) == 50) and getCreatureStorage(cid, 6004) == -1 then
 broadcastMessage(getCreatureName(cid) .. " is UNSTOPPABLE!! He killed 50 players! DO SOMETHING!")
 setPlayerStorageValue(cid, 6004, 1)
 doPlayerAddItem(cid, 2640, 1)  -- soft boots as reward for killing 50 players

 elseif(getPlayerStorageValue(cid, 6776) == 100) and getCreatureStorage(cid, 6005) == -1 then
 broadcastMessage("Bow down to your new god! " ..getCreatureName(cid).. " has 100 frags!")
 setPlayerStorageValue(cid, 6005, 1)
 doPlayerAddItem(cid, 8266, 1)  -- kosheis amulet as reward for killing 100 players

 elseif(getPlayerStorageValue(cid, 6776) == 150) and getCreatureStorage(cid, 6006) == -1 then
 broadcastMessage(getCreatureName(cid) .. " is not a human! He killed 150 players!")
 setPlayerStorageValue(cid, 6006, 1)
 doPlayerAddItem(cid, 9932, 1)  -- firewalker boots as reward for killing 150 players
 return true
end

 

 

Editado por dfs1 (veja o histórico de edições)

  • Citar
  • Mention
    • dfs1 mudou o título para ajuda para mudar o script para Revscript

    Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept