• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Rank Of Frags - INGAME

dukzin

New Member
Joined
Aug 18, 2008
Messages
161
Reaction score
3
I'm Here To Ask Some PVP-E Scripts.


1. I Want That The Killer Gets The Storage 3943. but it need to be +1.
(because i have a frags rank, and it need to add the storage 3943 +1.



Script.
Code:
function onKill(cid, target)
        if isPlayer(target) == TRUE then
		if getPlayerIp(cid) ~= getPlayerIp(target) then
        loot = 2152 
	  item = doPlayerAddItem(cid,loot,1)
	elseif getPlayerName(cid) == getPlayerName(target) then
	  doPlayerAddItem(cid,loot,1)
else
		doPlayerAddExperience(cid, -50000000)
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"You have been punished for killing a player of the same IP.")
        end
end
        return TRUE
end


OF COURSE - > REP ++.

Thanks.
 
Last edited:
Code:
function onKill(cid, target)
    if isPlayer(target) == TRUE then
        if getPlayerIp(cid) ~= getPlayerIp(target) then
        loot = 2152 
        item = doPlayerAddItem(cid,loot,1)
        elseif getPlayerName(cid) == getPlayerName(target) then
            doPlayerAddItem(cid,loot,1)
            setPlayerStorageValue(cid, 3943, getPlayerStorageValue(cid, 3943)+1)
        else
            doPlayerAddExperience(cid, -50000000)
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"You have been punished for killing a player of the same IP.")
        end
    end
    return TRUE
end
test this
 
Dont work,
maybe the problem is on my 'frag rank'

Code:
function getPlayerNameByGUID2(n)
        local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";")
        if c:getID() == -1 then
                return "SQL_ERROR["..n.."]"
        end
                return c:getDataString("name")
        end

function onSay(cid, words, param)
        local max = 10
        local letters_to_next = 20

local skills = {
        ['fist'] = 0,
        ['club'] = 1,
        ['sword'] = 2,
        ['axe'] = 3,
        ['distance'] = 4,
        ['shielding'] = 5,
        ['fishing'] = 6,
        ['dist'] = 4,
        ['shield'] = 5,
        ['fish'] = 6,
}
        local name_now
        local name = "Highscore for level\n"
        local rkn = 0
        local no_break = 0
                param = string.lower(param)
                dofile('config.lua')
    if param == "" or param == "level" and ( param ~= "magic" and param == "ml") and skills[param] == nil then
                name = name.."\n"
                name = name.."Rank Level - Nome do Jogador\n"
        local v = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `group_id` <= 2 ORDER BY `experience` DESC LIMIT 0,"..(max)..";")
        repeat
                no_break = no_break +1
        if v:getID() == -1 then
        break
        end
                rkn = rkn+1
                name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
                space = ""
        for i=1, letters_to_next-l do
                space = space.." "
        end
                name = name..rkn..". "..v:getDataInt("level") .."  -  "..name_now..space.." ".."\n" 
        if no_break >= 20 then
        break
        end
        until v:next() == false

        elseif param == "magic" or param == "ml" then
                name = name.."\n"
                name = name.."Rank Magic - Nome do Jogador\n"
        local v = db.getResult("SELECT `name`, `level`, `maglevel` FROM `players` WHERE `group_id` <= 2 ORDER BY `maglevel` DESC LIMIT 0,"..(max)..";")
        repeat
        if v:getID() == -1 then
        break
        end
                rkn = rkn+1
                name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
                space = ""
        for i=1, letters_to_next-l do
                space = space.." "
        end
                name = name..rkn..". "..v:getDataInt("maglevel").."  -  "..name_now..space.." ".." ".."".."\n" 
        until v:next() == false

        elseif param == "frag" or param == "frags" then
                name = name.."\n"
                name = name.."Rank Frags - Nome do Jogador\n"
        local v = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 3943 ORDER BY `value` DESC;")
        local kk = 0

        repeat
        if kk == max or v:getID() == -1 then
        break
        end
                kk = kk+1
                name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("play er_id")))
                space = ""
        for i=1, letters_to_next-l do
                space = space.." "
        end
        if name_now == nil then
                name_now = 'sql error['..v:getDataInt("player_id")..']'
        end
                name = name..kk..". "..v:getDataInt("value").."  -  "..name_now..space.." \n"
        until v:next() == false

        elseif skills[param] ~= nil then
                name = name.."\n"
                name = name.."Rank "..param.." fighting - Nome do Jogador\n"
        local v = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..skills[param].." ORDER BY `value` DESC;")
        local kk = 0

        repeat
        if kk == max or v:getID() == -1 then
        break
        end
                kk = kk+1
                name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("play er_id")))
                space = ""
        for i=1, letters_to_next-l do
                space = space.." "
        end
        if name_now == nil then
                name_now = 'sql error['..v:getDataInt("player_id")..']'
        end
                name = name..kk..". "..v:getDataInt("value").."  -  "..name_now..space.." \n"
        until v:next() == false
        end
        if name ~= "Highscore\n" then 
                doPlayerPopupFYI(cid, name)
        end

        return TRUE
end

please help :/
 
Last edited:
Back
Top