Otos otspub

otspub:advance_-_specjalny_efekt

Wed, 02 Jun 2010 16:08:04 +0200

Autor: GarQet

Licencja: Nie znana

YourOTS\data\lib\050-function.lua | Na końcu dodajemy to:

czekaj = coroutine.yield
function czekanie(c)
    if(coroutine.status(c) ~= 'dead') then
        local _, czas = coroutine.resume(c)
        addEvent(czekanie, czas, c)
    end
end
function zacznijCzekac(f)
    if(type(f) == 'function') then
        local c = coroutine.create(f)
        czekanie(c)
    end
end
function timeString(timeDiff)
    local dateFormat = { 
        {"day", timeDiff / 60 / 60 / 24},
        {"hour", timeDiff / 60 / 60 % 24},
        {"minute", timeDiff / 60 % 60},
        {"second", timeDiff % 60}
    }
    local out = {}
    for k, t in ipairs(dateFormat) do
        local v = math.floor(t[2])
        if(v > 0) then
            table.insert(out, (k < #dateFormat and (#out > 0 and ', ' or '') or ' and ') .. v .. ' ' .. t[1] .. (v ~= 1 and 's' or ''))
        end
    end
    return table.concat(out)
end

YourOTS\data\creaturescripts\creaturescripts.xml

<event type="advance" name="advance" event="script" value="advance.lua"/>

YourOTS\data\creaturescripts\scripts\login.lua Po:

	registerCreatureEvent(cid, "ReportBug")

Dodajemy to:

	registerCreatureEvent(cid, "advance")

YourOTS\data\creaturescripts\scripts\advance.lua

function onAdvance(cid, skill, oldlevel, newlevel)
	local pozycja = getCreaturePosition(cid)
            zacznijCzekac(function()
        if skill == SKILL__MAGLEVEL then
		doPlayerSay(cid, "[MAGICLEVEL UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_MORTAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_MORTAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_MORTAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_MORTAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 31)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_MORTAREA)
		end
        elseif skill == SKILL__LEVEL then
                doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
                doCreatureAddMana(cid, getCreatureMaxMana(cid))
		doPlayerSay(cid, "[LEVEL UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HEARTS)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_HEARTS)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_HEARTS)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_HEARTS)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 6)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_HEARTS)
		end
        elseif skill == SKILL_CLUB then
		doPlayerSay(cid, "[CLUB FIGHTING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 26)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		end
elseif skill == SKILL_SWORD then
		doPlayerSay(cid, "[SWORD FIGHTING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 24)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		end
        elseif skill == SKILL_AXE then
		doPlayerSay(cid, "[AXE FIGHTING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 25)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_GROUNDSHAKER)
		end
        elseif skill == SKILL_DISTANCE then
		doPlayerSay(cid, "[DISTANCE FIGHTING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_HOLYAREA)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_HOLYAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_HOLYAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_HOLYAREA)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 30)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_HOLYAREA)
		end
        elseif skill == SKILL_FIST then
		doPlayerSay(cid, "[FIST FIGHTING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_POFF)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_POFF)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_POFF)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_POFF)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 40)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_POFF)
		end
        elseif skill == SKILL_SHIELD then
		doPlayerSay(cid, "[SHIELD UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_BLOCKHIT)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_BLOCKHIT)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_BLOCKHIT)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_BLOCKHIT)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 11)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_BLOCKHIT)
		end
        elseif skill == SKILL_FISHING then
		doPlayerSay(cid, "[FISHING UP!]", TALKTYPE_ORANGE_1)
			for i = 1, 1  do
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y - 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x - 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x + 2, y = pozycja.y + 2, z = pozycja.z}, CONST_ME_WATERSPLASH)
		czekaj(100)
		doSendDistanceShoot(pozycja, {x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x + 1, y = pozycja.y, z = pozycja.z}, CONST_ME_WATERSPLASH)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y - 1, z = pozycja.z}, CONST_ME_WATERSPLASH)
		doSendDistanceShoot(pozycja, {x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x - 1, y = pozycja.y, z = pozycja.z}, CONST_ME_WATERSPLASH)
		doSendDistanceShoot(pozycja, {x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, 35)
		doSendMagicEffect({x = pozycja.x, y = pozycja.y + 1, z = pozycja.z}, CONST_ME_WATERSPLASH)
		end
        end
	end)
return true
end

otspub:animacja_gdy_awansujesz_by_kielb

Fri, 30 Apr 2010 17:27:39 +0200

Autor: kielb

Licencja: Byle by nie usuwać autora :)

Łoł! Napisałem swój pierwszy skrypt jego zadaniem jest dodanie graczowi cale hp oraz mane + super efekty gdy awansuje w jednym z możliwość swej postaci!

Teraz do roboty!

Część LUA

Wchodzimy do katalogu /data/creaturescripts/scripts/ i tam dodajemy plik advance.lua jego zawartość to :

advance.lua

    -- Autor: kielb
 
    function onAdvance(cid, skill, oldlevel, newlevel)
 
                    local pPos =  getCreaturePosition(cid)
 
                    if skill == SKILL__MAGLEVEL then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w Magic Levelu")
                            doSendMagicEffect(pPos, 40)
                            doCreatureAddHealth(cid, getCreatureMaxHealth(cid))
                            doCreatureAddMana(cid, getCreatureMaxMana(cid))
                    elseif skill == SKILL_SHIELD then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w Obronie")
                            doSendMagicEffect(pPos, 3)
                    elseif skill == SKILL_AXE then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w walce Toporami")
                            doSendMagicEffect(pPos, 42
                    elseif skill == SKILL_SWORD then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w walce Mieczami")
                            doSendMagicEffect(pPos, 50)
                    elseif skill == SKILL_CLUB then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w walce Maczugami")
                            doSendMagicEffect(pPos, 30)   
                    elseif skill == SKILL_DISTANCE then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w walce na Dystans")
                            doSendMagicEffect(pPos, 29)
                    elseif skill == SKILL__LEVEL then
                            doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Gratulacje! Awansowales w Levelu!")
                            doSendMagicEffect(pPos, 28)     
                    end
                    return true
    end

W kolejnym kroku wchodzimy do pliku login.lua i dodajemy linijkę :

registerCreatureEvent(cid, "Advance")

Następnie w katalogu /data/creaturescripts/creaturescripts.xml/

<event type="advance" name="Advance" event="script" value="advance.lua"/>

Koniec!

Skrypt jest wpełni sprawny ! Wszystko działa!

otspub:antibot_system

Wed, 13 Apr 2011 20:07:30 +0200

Autor: Karpio
Licencja: Rób ta co chcecie, tylko podajcie prawdziwego autora!!!
Testowane na: The Forgotten Server 0.4_DEV.r4086

Wchodzimy do data/talkactions/scripts i tworzymy plik antibot.lua:

antibot.lua

-- Anti Bot System by Karpio
 
local TIME_TO_ANSWER = 14 * 60 * 1000 -- 14 min
local NEXT_CHECK = 30 * 60 -- 30 min
local BLOCK_CHECK = 60 * 60 -- 60 min
local ENABLE_BANISHMENT = true -- set to false if you don't want to banish player
local BANISHMENT_TIME = 3 * 24 * 60 * 60 -- 3 days
local KICK_POSITION = {x = 552, y = 472, z = 7} -- Oxen temple
local KICK_PLAYER = true -- kick player after check
local CHECK_FIELDS = true -- check if player is in pz, nonlogout zone, etc
local LOG_CHECKS = true -- save information about checking in log file
local CHECK_DISTANCE = 10 -- distance between player and target
local USE870 = true -- set to false if we don't use client 8.7+
 
local function getDistanceBetween(fromPosition, toPosition)
	local distance = math.floor(math.sqrt((fromPosition.x-toPosition.x)^2 + (fromPosition.y-toPosition.y)^2))
	return distance
end
 
local function banPlayer(cid)
	if(not isPlayer(cid)) then return end
	if(getPlayerStorageValue(cid, "botCode") < 100) then return end
	if(ENABLE_BANISHMENT) then
		doAddAccountBanishment(getPlayerAccountId(cid), 0, os.time() + BANISHMENT_TIME, 12)
	else
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
		doTeleportThing(cid, KICK_POSITION)
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
	end
	if(KICK_PLAYER and isPlayer(cid)) then doRemoveCreature(cid) end
	return
end
 
local function send(cid, target)
	if(LOG_CHECKS) then
		local file = io.open(getDataDir().."/logs/bots/AntiBot.log", "a+")
		file:write("["..os.date("%c").."] "..getCreatureName(target).." checked by "..getCreatureName(cid).."\n")
		file:close()
	end
	if(USE870) then
		doPlayerSetCooldown(target, 4, TIME_TO_ANSWER, true)
		doPlayerSetExhaustion(target, 4, TIME_TO_ANSWER, true)
	end
	setPlayerStorageValue(cid, "botNextCheck", os.time() + NEXT_CHECK)
	setPlayerStorageValue(target, "botCode", math.random(math.min(getPlayerLevel(cid),getPlayerLevel(target)) * 1000, math.max(getPlayerLevel(target), getPlayerLevel(cid)) * 1000))
	setPlayerStorageValue(target, "botBlockCheck", os.time() + BLOCK_CHECK)
	addEvent(banPlayer, TIME_TO_ANSWER, target)
	doPlayerSendTextMessage(target, MESSAGE_STATUS_WARNING, "Someone check you as bot. Please write !check "..getPlayerStorageValue(target, "botCode")..", if you don't want to be "..(ENABLE_BANISHMENT and "banned" or "kicked")..".")
	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, getCreatureName(target).." will be checked by an automated antibot system.")
	return
end
 
 
function onSay(cid, words, param, channel)
	if(param == "") then return doPlayerSendCancel(cid, "Command requires param.") end
	if(tonumber(param)) then
		param = tonumber(param)
		if(getPlayerStorageValue(cid, "botCode") < 100) then return doPlayerSendCancel(cid, "No one will check you.") end
		if(param ~= getPlayerStorageValue(cid, "botCode")) then return doPlayerSendCancel(cid, "Code is not corrected. You have only "..unpack(string.timediff(os.time() - getPlayerStorageValue(cid, "botCode"))).." to write code.") end
		setPlayerStorageValue(cid, "botCode", -1)
		if(USE870) then
			doPlayerSetCooldown(cid, 4, 100, true)
			doPlayerSetExhaustion(cid, 4, 100, true)
		end
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Code is correct.")
		doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Have a good game.")
		return true
	else
		local target = getPlayerByNameWildcard(param)
		if(not target) then return doPlayerSendCancel(cid, "Player not found.") end
		if(getPlayerStorageValue(cid, "botNextCheck") > os.time()) then
			return doPlayerSendCancel(cid, "You are exhausted.")
		end
		if(getPlayerStorageValue(target, "botBlockCheck") > os.time()) then
			return doPlayerSendCancel(cid, "This player is protected.")
		end
		if(CHECK_FIELDS) then
			if(getTileInfo(getCreaturePosition(cid)).protection) then return doPlayerSendCancel(cid, "You can not check players from protection zone.") end
			if(getTileInfo(getCreaturePosition(cid)).nologout) then return doPlayerSendCancel(cid, "You can not check players from nologout zone.") end
			if(getTileInfo(getCreaturePosition(target)).protection) then return doPlayerSendCancel(cid, "You can not check players who are in protection zone.") end
			if(getTileInfo(getCreaturePosition(target)).nologout) then return doPlayerSendCancel(cid, "You can not check players who are in nologout zone.") end
		end
		if(CHECK_DISTANCE) then
			if(getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) > CHECK_DISTANCE) then return doPlayerSendCancel(cid, "This player is too far away.") end
		end
		send(cid, target)
		return true
	end
return true
end

Wchodzimy do data/talkactions/talkactions.xml i doklejamy:

talkactions.xml

<talkaction words="!check" event="script" value="antibot.lua"/>

Restartujemy OTS i już chodzi ^^

Użycie: Aby sprawdzić: !check nick Aby odpowiedzieć: !check code

Reszta w konfiguracji na górze skryptu ^^

otspub:auto_broardcast_by_idk_edited_by_kielb_lua

Wed, 28 Apr 2010 12:08:53 +0200

Otóż ten skrypt polega na wysyłaniu wiadomości na serwer w kolorze czerwonym.Wysyła on automatycznie jedna z kilku wiadomości.

Autor: Nieznany.

Licencja: Nie ma.

Edit: kielb

Instalacja Wchodzimy do katalogu data/globalevents/globalevents.xml

<globalevent name="reklama" interval="300" event="script" value="broadcast.lua"/>

300 - Czas w sekundach

Następnie wchodzimy do katalogu /data/globalevents/scripts/ i tworzymy katalog broadcast.lua

broadcast.lua

         local text = {
        [1] = "miejsce na tekst",
        [2] = "miejsce na tekst",
        }
function onThink(interval, lastExecution)
doBroadcastMessage("Reklama: "..text[math.random(1,2)])
        return TRUE
end

miejsce na tekst - Wiadomość wysyłana na serwer 2 - Ile Wiadomości Losowych Aby dodać nową wiadomość do tabeli “text” musisz dodać linijkę:

[2] = "miejsce na tekst",

gdzie 2 to numer wiadomości.

Myślę ze wyjaśniłem to dość jasno. Skrypt Testowany na TFSie

otspub:automatyczne_zapisywanie_postaci_gry_awansuje_by_rodo

Wed, 28 Apr 2010 19:22:39 +0200

Autor: Rodo klik

Licencja: Brak

Jest to mały skrypt mający na celu zapisywanie postaci gdy awansuje.

Część LUA

Wchodzimy do katalogu /data/globalevents/globalevents.xml i doklejamy linijkę:

    <event type="advance" name="advance" event="script" value="advance.lua"/>

Nastepnie przechodzimy do /data/globalevents/scripts/ i tam tworzymy plik advance.lua a jego zawartość to:

advance.lua

  function onAdvance(cid, skill, oldlevel, newlevel)
   doPlayerSave(cid)
end

Pamiętaj aby dodać również tą linijkę do login.lua :

registerCreatureEvent(cid, "advance")

Gotowe!

otspub:banowanie_gracza_na_okreslony_czas

Wed, 28 Apr 2010 16:16:42 +0200

Autor: Gesior.pl klik

Licencja: Brak

Skrypt działa na zasadzie, że banuje gracza x na czas 1 lub kilku godzin ponieważ nie opłaca się mu dawać bana na cały lub kilka dni.

Część LUA

Przechodzimy do katalogu /data/talkactions/talkactions.xml i tam dodajemy linijkę:

<talkaction log="yes" words="/ban" access="3" event="script" value="ban.lua"/>

Zostajemy w katalogu /data/talkactions/ tylko przechodzimy do katalogu ze skryptami.

ban.lua

local default_comment = ""
local default_lenght = 1 -- ban time in hours
 
function onSay(cid, words, param)
    local parametres = string.explode(param, ",")
    if(parametres[1] ~= nil) then
        local accId = getAccountIdByName(parametres[1])
        if(accId > 0) then
            local lenght = default_lenght
            local comment = default_comment
            if(parametres[2] ~= nil and tonumber(parametres[2]) > 0) then
                lenght = tonumber(parametres[2])
            end
            if(parametres[3] ~= nil) then
                comment = parametres[3]
            end
            doAddBanishment(accId, lenght * 3600, 23, ACTION_BANISHMENT, comment, getPlayerGUID(cid), comment)
            local player = getPlayerByNameWildcard(parametres[1])
            if(isPlayer(player) == TRUE) then
                doRemoveCreature(player)
            end
        else
            doPlayerSendCancel(cid, "Player with name " .. parametres[1] .. " doesn't exist.")
        end
    else
        doPlayerSendCancel(cid, "You must enter name.")
    end
    return true
end

Gotowe! Komendy

                  /ban Nick - ban player for default time
                  /ban Nick,12 - ban player for 12 hours
                  /ban Nick,35,AFK BOT - ban player for 35 hours with comment "AFK BOT"

otspub:bonus_system

Wed, 02 Jun 2010 15:56:35 +0200

Autor: Dilio

Licencja: Nie znana

Do “Creaturescript.xml” Wklej to:

<event type="outfit" name="Addons" event="script" value="outfits.lua"/>

Nastepnie do wejdz do folderu data/creaturescript/scripts/login.lua Do login lua wklej to:

login1111.lua

registerCreatureEvent(cid, "Addons")

Tera stwórz plik o nazwie outfits.lua w folderze data/creaturescript/script/outfits.lua

outfits.lua

local hunter = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(hunter, CONDITION_PARAM_TICKS, -1)
setConditionParam(hunter, CONDITION_PARAM_SKILL_DISTANCE, 3)
local knight = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(knight, CONDITION_PARAM_TICKS, -1)
setConditionParam(knight, CONDITION_PARAM_SKILL_SWORD, 3)
local mage = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(mage, CONDITION_PARAM_TICKS, -1)
setConditionParam(mage, CONDITION_PARAM_STAT_MAGICLEVEL, 2)
local yalahar = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(yalahar, CONDITION_PARAM_TICKS, -1)
setConditionParam(yalahar, CONDITION_PARAM_STAT_MAGICLEVEL, 2)
local barbarian = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(barbarian, CONDITION_PARAM_TICKS, -1)
setConditionParam(barbarian, CONDITION_PARAM_SKILL_AXE, 3)
local norse = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(norse, CONDITION_PARAM_TICKS, -1)
setConditionParam(norse, CONDITION_PARAM_SKILL_SHIELD, 2)
local nightmare = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(norse, CONDITION_PARAM_TICKS, -1)
setConditionParam(norse, CONDITION_PARAM_SKILL_SHIELD, 3)
function onOutfit(cid, old, current)
        if(current.lookType == old.lookType) then
                return TRUE
        end
        --Citizen
        if(current.lookType == 128 and current.lookAddons == 3 or current.lookType == 136 and current.lookAddons == 3) then --Bonus on
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 100)
                doCreatureAddHealth(cid, 100)
                doChangeSpeed(cid, 10)
        elseif(old.lookType == 128 and old.lookAddons == 3 or old.lookType == 136 and old.lookAddons == 3) then --Bonus off
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 100)
                doCreatureAddHealth(cid, -100)
                doChangeSpeed(cid, -10) 
        end
        --Hunter
        if(current.lookType == 129 and current.lookAddons == 3 or current.lookType == 137 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, hunter)
        elseif(old.lookType == 129 and old.lookAddons == 3 or old.lookType == 137 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Mage
        if(current.lookType == 130 and current.lookAddons == 3 or current.lookType == 138 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 200)
                doCreatureAddMana(cid, 200)
        elseif(old.lookType == 130 and old.lookAddons == 3 or old.lookType == 138 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 200)
                doCreatureAddMana(cid, -200)
        end
        --Knight
        if(current.lookType == 131 and current.lookAddons == 3 or current.lookType == 139 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, knight)
        elseif(old.lookType == 131 and old.lookAddons == 3 or old.lookType == 139 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Summoner
        if(current.lookType == 133 and current.lookAddons == 3 or current.lookType == 141 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 100)
                doCreatureAddMana(cid, 100)
        elseif(old.lookType == 133 and old.lookAddons == 3 or old.lookType == 141 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 100)
                doCreatureAddMana(cid, -100)
        end
        --Warrior
        if(current.lookType == 134 and current.lookAddons == 3 or current.lookType == 142 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, knight)
        elseif(old.lookType == 134 and old.lookAddons == 3 or old.lookType == 142 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Barbarian
        if(current.lookType == 143 and current.lookAddons == 3 or current.lookType == 147 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, barbarian)
        elseif(old.lookType == 143 and old.lookAddons == 3 or old.lookType == 147 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Druid
        if(current.lookType == 144 and current.lookAddons == 3 or current.lookType == 148 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
        elseif(old.lookType == 144 and old.lookAddons == 3 or old.lookType == 148 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Wizard
        if(current.lookType == 145 and current.lookAddons == 3 or current.lookType == 149 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 100)
                doCreatureAddMana(cid, 100)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 100)
                doCreatureAddHealth(cid, 100)
        elseif(old.lookType == 145 and old.lookAddons == 3 or old.lookType == 149 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 100)
                doCreatureAddMana(cid, -100)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 100)
                doCreatureAddHealth(cid, -100)
        end
        --Oriental
        if(current.lookType == 146 and current.lookAddons == 3 or current.lookType == 150 and current.lookAddons == 3) then --Bonus on
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 200)
                doCreatureAddMana(cid, 200)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 200)
                doCreatureAddHealth(cid, 200)
                doChangeSpeed(cid, 10)
        elseif(old.lookType == 146 and old.lookAddons == 3 or old.lookType == 150 and old.lookAddons == 3) then --Bonus off
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 200)
                doCreatureAddMana(cid, -200)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 200)
                doCreatureAddHealth(cid, -200)
                doChangeSpeed(cid, -10)
        end
        --Assassin
        if(current.lookType == 152 and current.lookAddons == 3 or current.lookType == 156 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, hunter)
                doChangeSpeed(cid, 20)
        elseif(old.lookType == 152 and old.lookAddons == 3 or old.lookType == 156 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                doChangeSpeed(cid, -20)
        end
        --Shaman
        if(current.lookType == 154 and current.lookAddons == 3 or current.lookType == 158 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
        elseif(old.lookType == 154 and old.lookAddons == 3 or old.lookType == 158 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        end
        --Norse
        if(current.lookType == 251 and current.lookAddons == 3 or current.lookType == 252 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, norse)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 200)
                doCreatureAddHealth(cid, 200)
        elseif(old.lookType == 251 and old.lookAddons == 3 or old.lookType == 252 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 200)
                doCreatureAddHealth(cid, -200)
        end
        --Nightmare
        if(current.lookType == 268 and current.lookAddons == 3 or current.lookType == 269 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, nightmare)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 100)
                doCreatureAddHealth(cid, 100)
        elseif(old.lookType == 268 and old.lookAddons == 3 or old.lookType == 269 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 100)
                doCreatureAddHealth(cid, -100)
        end
        --Jester
        if(current.lookType == 270 and current.lookAddons == 3 or current.lookType == 273 and current.lookAddons == 3) then --Bonus on
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 100)
                doCreatureAddMana(cid, 100)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 100)
                doCreatureAddHealth(cid, 100)
                doChangeSpeed(cid, 10)
        elseif(old.lookType == 270 and old.lookAddons == 3 or old.lookType == 273 and old.lookAddons == 3) then --Bonus off
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 100)
                doCreatureAddMana(cid, -100)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 100)
                doCreatureAddHealth(cid, -100)
                doChangeSpeed(cid, -10)
        end
        --Brotherhood
        if(current.lookType == 278 and current.lookAddons == 3 or current.lookType == 279 and current.lookAddons == 3) then --Bonus on
                doAddCondition(cid, mage)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 200)
                doCreatureAddHealth(cid, 200)
        elseif(old.lookType == 278 and old.lookAddons == 3 or old.lookType == 279 and old.lookAddons == 3) then --Bonus off
                doRemoveCondition(cid, CONDITION_ATTRIBUTES)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 200)
                doCreatureAddHealth(cid, -200)
        end
        --Demonhunter
        if(current.lookType == 288 and current.lookAddons == 3 or current.lookType == 289 and current.lookAddons == 3) then --Bonus on
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 500)
                doCreatureAddMana(cid, 500)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 500)
                doCreatureAddHealth(cid, 500)
                doChangeSpeed(cid, 20)
        elseif(old.lookType == 288 and old.lookAddons == 3 or old.lookType == 289 and old.lookAddons == 3) then --Bonus off
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 500)
                doCreatureAddMana(cid, -500)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 500)
                doCreatureAddHealth(cid, -500)
                doChangeSpeed(cid, -20)
        end
        --Yalaharian
        if(current.lookType == 324 and current.lookAddons == 3 or current.lookType == 325 and current.lookAddons == 3) then --Bonus on
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) + 200)
                doCreatureAddMana(cid, 200)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + 200)
                doCreatureAddHealth(cid, 200)
                doAddCondition(cid, yalahar)
        elseif(old.lookType == 324 and old.lookAddons == 3 or old.lookType == 325 and old.lookAddons == 3) then --Bonus off
                setCreatureMaxMana(cid, getCreatureMaxMana(cid) - 200)
                doCreatureAddMana(cid, -200)
                setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) - 200)
                doCreatureAddHealth(cid, -200)
                doRemoveCondition(cid, yalahar)
        end
        return TRUE
end

otspub:buypoints.php_fixed

Mon, 31 Jan 2011 21:21:49 +0200

Tak powidło wyglądać nowe buypoints by nie działało &code=najtańszy

buypoints.php

<?PHP
 
####################       CONFIG      ###################################################

#aktywacja dotpay oraz dostepych systemow platnosci, wartosci: true / false

$config['paypal_active'] = false; #active paypal system?

$config['zaypay_active'] = false; #active zaypay system?

$config['dotpay'] = array();
 
$config['dotpay_active'] = true; #active dotpay system?

$config['dotpay_active_sms'] = true; #active dotpay system?

$config['dotpay_active_transfer'] = false; #active dotpay system?

# przykladowy konfig dla SMS

$config['dotpay'][3]['id'] = 22589;       # numer ID zarejestrowanego klienta

$config['dotpay'][3]['code'] = "FUMBILIA3"; # identyfikator uslug SMS

$config['dotpay'][3]['type'] = "sms";   # typ konta: C1 - 8 znakowy kod bezobslugowy, sms - dla sprawdzania SMSow

$config['dotpay'][3]['addpoints'] = 30; # ile premium punktow daje dany sms

$config['dotpay'][3]['sms_number'] = 73068; # numer na jaki nalezy wyslac kod

$config['dotpay'][3]['sms_text'] = "AP.FUMBILIA3"; # tresc jaka ma byc w SMSie

$config['dotpay'][3]['sms_cost'] = "3.66 zl brutto"; # cena za wyslanie sms

 
 
$config['dotpay'][6]['id'] = 22589;       # numer ID zarejestrowanego klienta

$config['dotpay'][6]['code'] = "FUMBILIA6"; # identyfikator uslug SMS

$config['dotpay'][6]['type'] = "sms";   # typ konta: C1 - 8 znakowy kod bezobslugowy, sms - dla sprawdzania SMSow

$config['dotpay'][6]['addpoints'] = 65; # ile premium punktow daje dany sms

$config['dotpay'][6]['sms_number'] = 76068; # numer na jaki nalezy wyslac kod

$config['dotpay'][6]['sms_text'] = "AP.FUMBILIA6"; # tresc jaka ma byc w SMSie

$config['dotpay'][6]['sms_cost'] = "7.32 zl brutto"; # cena za wyslanie sms

 
 
$config['dotpay'][9]['id'] = 22589;       # numer ID zarejestrowanego klienta

$config['dotpay'][9]['code'] = "FUMBILIA9"; # identyfikator uslug SMS

$config['dotpay'][9]['type'] = "sms";   # typ konta: C1 - 8 znakowy kod bezobslugowy, sms - dla sprawdzania SMSow

$config['dotpay'][9]['addpoints'] = 100; # ile premium punktow daje dany sms

$config['dotpay'][9]['sms_number'] = 79068; # numer na jaki nalezy wyslac kod

$config['dotpay'][9]['sms_text'] = "AP.FUMBILIA9"; # tresc jaka ma byc w SMSie

$config['dotpay'][9]['sms_cost'] = "10.98 zl brutto"; # cena za wyslanie sms

# przykladowy konfig dla przelewu bankowego/karty kredytowej

$config['dotpay'][1]['id'] = 22589;       # numer ID zarejestrowanego klienta

$config['dotpay'][1]['code'] = "DEBT"; # identyfikator uslug SMS

$config['dotpay'][1]['type'] = "C1";   # typ konta: C1 - 8 znakowy kod bezobslugowy, sms - dla sprawdzania SMSow

$config['dotpay'][1]['addpoints'] = 400; # ile premium punktow daje dany sms

$config['dotpay'][1]['sms_number'] = ""; # numer na jaki nalezy wyslac kod

$config['dotpay'][1]['sms_text'] = "DEBT"; # tresc jaka ma byc w SMSie

$config['dotpay'][1]['sms_cost'] = "5 zl brutto"; # cena za wyslanie sms

# activation of DaoPay system

$config['daopay'] = array();
 
$config['daopay_active'] = false; #active daopay system?

# example config for daopay

$config['daopay'][0]['appcode'] = 46870; #

$config['daopay'][0]['prodcode'] = 'DEB2'; #

$config['daopay'][0]['addpoints'] = '100'; #

$config['daopay'][0]['cost'] = "1 euro inc. VAT"; #

$config['daopay'][1]['appcode'] = 46870; #

$config['daopay'][1]['prodcode'] = 'DEB3'; #

$config['daopay'][1]['addpoints'] = '200'; #

$config['daopay'][1]['cost'] = "2 euro inc. VAT"; #

#################################################################################

function save_trans($file, $acc, $code)
 
{
 
	$hak = fopen($file, "a");
 
	fwrite($hak, $code.'='.$acc.'
 
');
 
	fclose($hak);
 
}
 
 
 
function check_code_daopay($appcode, $prodcode, $pin)
 
{
 
	$handle = fopen("https://daopay.com/svc/pincheck?appcode=".$appcode."&prodcode=".$prodcode."&pin=".$pin, 'r'); 
 
	if ($handle)
 
	{
 
	    $status = fgets($handle, 128);
 
		fclose($handle);
 
		if($status[0] == 'o' && $status[1] == 'k')
 
			$return = 1;
 
		else
 
			$return = 2;
 
	}
 
	else
 
		$return = 3;
 
	return $return;
 
}
 
 
 
function check_code_dotpay($code, $posted_code, $user_id, $type)
 
{
 
	$handle = fopen("http://dotpay.pl/check_code.php?id=".$user_id."&code=".$code."&check=".$posted_code."&type=".$type."&del=0", 'r');
 
    $status = fgets($handle, 8);
 
    $czas_zycia = fgets($handle, 24);
 
    fclose($handle);
 
    $czas_zycia = rtrim($czas_zycia);
 
	return array($status, $czas_zycia);
 
}
 
 
 
function delete_code_dotpay($code, $posted_code, $user_id, $type)
 
{
 
	$handle = fopen("http://dotpay.pl/check_code.php?id=".$user_id."&code=".$code."&check=".$posted_code."&type=".$type."&del=1", 'r');
 
    fclose($handle);
 
}
 
 
 
function add_points(OTS_Account $account, $number_of_points)
 
{
 
	if($account->isLoaded())
 
	{
 
		$account->setCustomField('premium_points', ($account->getCustomField('premium_points')+$number_of_points));
 
		return true;
 
	}
 
	else
 
		return false;
 
}
 
if ($_REQUEST['system'] == 'paypal' && $config['paypal_active']) {
 
$content = file_get_contents("paypal/paypal.htm");
 
	$main_content .= $content;
 
}
 
elseif ($_REQUEST['system'] == 'zaypay' && $config['zaypay_active']) {
 
if(!$logged)
 
	$main_content .= '<center><b>Please login first to donate via ZayPay.</B></center>';
 
if($logged)
 
	$main_content .= '<iframe src="'.$REMOTE_ADDR.'/zaypay/pay.php" frameborder="no" width="98%" height="350px;">
 
	<p>Need IFRAME support, please download Opera,Firefox or Chrome</p></iframe><br>';
 
}
 
elseif ($_REQUEST['system'] == 'daopay' && $config['daopay_active'])
 
{
 
#################################################################################

$offer_id = (int) $_POST['offer_id'];
 
$posted_pincode = trim($_POST['pincode']);
 
$to_user = trim($_POST['to_user']);
 
$verify_code = trim($_POST['verify_code']);
 
#################################################################################

if(!empty($to_user))
 
{
 
	if(is_numeric($to_user))
 
	{
 
		$account = new OTS_Account();
 
		$account->find($to_user);
 
	}
 
	else
 
	{
 
		$player = new OTS_Player();
 
		$player->find($to_user);
 
		if($player->isLoaded())
 
			$account = $player->getAccount();
 
		else
 
			$account = new OTS_Account();
 
	}
 
 
 
	if(empty($posted_pincode))
 
		$errors[] = 'Please enter your PIN code.';
 
 
 
	if(!$account->isLoaded())
 
		$errors[] = 'Account/account of player with this name doesn\'t exist.';
 
	if(count($errors) == 0)
 
	{
 
		if($config['site']['verify_code_shop'])
 
		{
 
			//check verification code
 
			$string = strtoupper($_SESSION['string']);
 
			$userstring = strtoupper($verify_code);
 
			$_SESSION['string'] = mt_rand(1,99999);
 
			if(empty($string))
 
				$errors[] = "Code from verification image in session is empty, try again.";
 
			else
 
			{
 
				if(empty($userstring))
 
					$errors[] = "Please enter code from verification image.";
 
				else
 
				{
 
					if($string != $userstring)
 
						$errors[] = "Code from verification image is wrong.";
 
				}
 
			}
 
		}
 
 
 
		if(count($errors) == 0)
 
		{
 
			$code_info = check_code_daopay($config['daopay'][$offer_id]['appcode'], $config['daopay'][$offer_id]['prodcode'], $posted_pincode);
 
			if($code_info == 3)
 
				$errors[] = 'Server has problem with connection to daopay.com, can\'t verify PIN code.';
 
			elseif($code_info == 2)
 
				$errors[] = 'Wrong PIN code, try to enter code again.';
 
			elseif($code_info == 1)
 
			{
 
				if(add_points($account, $config['daopay'][$offer_id]['addpoints']))
 
				{
 
					save_trans('config/daopay.log', $account->getId(), $posted_pincode);
 
					$main_content .= '<h2><font color="red">Good PIN code. Added '.$config['daopay'][$offer_id]['addpoints'].' Premium Points to account of: '.$to_user.' !</font></h2>';
 
				}
 
				else
 
					$errors[] = 'Error occured, try again.';
 
			}
 
		}
 
	}
 
}
 
if(count($errors) > 0)
 
{
 
	$main_content .= '<font color="red"><b>Errors occured:</b></font>';
 
	foreach($errors as $error)
 
		$main_content .= '<br />* '.$error;
 
	$main_content .= '<hr /><hr />';
 
}
 
$main_content .= 'Buy Premium Points. For this points you can buy pacc/items in Shop. To buy points:<br />
 
1. Visit one of our pages and donate us (send SMS/call special number).<br />
 
2. After donate daopay.com will show you PIN code.<br />
 
3. Save somewhere this PIN code and open this page again.<br />
 
4. Enter your character name or account and your PIN code in form below.<br />
 
5. Select donation cost from list and press "Check Code".<br />
 
6. If account and PIN code is valid you get premium points.<br />
 
7. Open "Shop Offer" and buy items/pacc :)<br />
 
<h2><font color="red"><b>Our pages:</b></h2></font>';
 
foreach($config['daopay'] as $offer) {
 
  $order++;
 
	$main_content .= '<b><h3>'.$order.'. Address: <font color="red"><a href="http://daopay.com/payment/?appcode='.urlencode($offer['appcode']).'&prodcode='.urlencode($offer['prodcode']).'">Buy '.$offer['addpoints'].' Shop points for '.$offer['cost'].'</a></font><br></h3>';
 
}
 
$main_content .= '<hr /><form action="?subtopic=buypoints&system=daopay" method="POST"><table>';
 
$main_content .= '<tr><td><b>Player name or account name: </b></td><td><input type="text" size="20" value="'.$to_user.'" name="to_user" /></td></tr>
 
<tr><td><b>PIN code: </b></td<td><input type="text" size="20" value="'.$posted_pincode.'" name="pincode" /></td></tr><tr><td><b>Offer type: </b></td><td><select name="offer_id">';
 
foreach($config['daopay'] as $id => $offer)
 
	$main_content .= '<option value="'.$id.'">'.$offer['prodcode'].' - cost '.$offer['cost'].' - points '.$offer['addpoints'].'</option>';
 
$main_content .= '</select></td></tr>';
 
if($config['site']['verify_code_shop'])
 
		$main_content .= '<tr><td><B>Verify code: </B></td><td><img src="imgverification/imagebuilder.php?image_refresher='.mt_rand(1,99999).'" border="0" alt=""></td></tr>
 
						  <tr><td><B>Enter verify code: </B></td><td><INPUT id="verify" NAME="verify_code" VALUE="" SIZE=30></td></tr>';
 
$main_content .= '<tr><td></td><td><input type="submit" value="Check Code" /></td></tr></table></form>';
 
}
 
elseif ($_REQUEST['system'] == 'dotpay' && $config['dotpay_active'])
 
{
 
#################################################################################

$sms_type = (int) $_POST['sms_type'];
 
$posted_code = trim($_POST['code']);
 
$to_user = trim($_POST['to_user']);
 
$verify_code = trim($_POST['verify_code']);
 
#################################################################################

if(!empty($to_user))
 
{
 
	if(is_numeric($to_user))
 
	{
 
		$account = new OTS_Account();
 
		$account->find($to_user);
 
	}
 
	else
 
	{
 
		$player = new OTS_Player();
 
		$player->find($to_user);
 
		if($player->isLoaded())
 
			$account = $player->getAccount();
 
		else
 
			$account = new OTS_Account();
 
	}
 
 
 
	if(empty($posted_code))
 
		$errors[] = 'Prosze wpisac kod z SMSa/przelewu.';
 
 
 
	if(!$account->isLoaded())
 
		$errors[] = 'Konto/konto postaci o podanym nicku nie istnieje.';
 
 
 
	if(count($errors) == 0)
 
	{
 
		if($config['site']['verify_code_shop'])
 
		{
 
			//check verification code
 
			$string = strtoupper($_SESSION['string']);
 
			$userstring = strtoupper($verify_code);
 
			$_SESSION['string'] = mt_rand(1,99999);
 
			if(empty($string))
 
				$errors[] = "Kod z obrazka weryfikacyjnego w sesji jest pusty, sproboj ponownie.";
 
			else
 
			{
 
				if(empty($userstring))
 
					$errors[] = "Prosze wpisac kod z obrazka weryfikacyjnego.";
 
				else
 
				{
 
					if($string != $userstring)
 
						$errors[] = "Kod z obrazka weryfikacyjnego jest niepoprawny.";
 
				}
 
			}
 
		}
 
 
 
		if(count($errors) == 0)
 
		{
 
			$code_info = check_code_dotpay($config['dotpay'][$sms_type]['code'], $posted_code, $config['dotpay'][$sms_type]['id'], $config['dotpay'][$sms_type]['type']);
 
			if($code_info[0] == 0)
 
				$errors[] = 'Podany kod z SMSa/przelewu jest niepoprawny lub wybrano zla opcje SMSa/przelewu.';
 
			else
 
			{
 
				if(add_points($account, $config['dotpay'][$sms_type]['addpoints']))
 
				{
 
					save_trans('config/dotpay.log', $account->getId(), $posted_code);
 
					$code_info = delete_code_dotpay($config['dotpay'][$sms_type]['code'], $posted_code, $config['dotpay'][$sms_type]['id'], $config['dotpay'][$sms_type]['type']);
 
					$main_content .= '<h1><font color="red">Dodano '.$config['dotpay'][$sms_type]['addpoints'].' punktow premium do konta: '.$to_user.' !</font></h1>';
 
				}
 
				else
 
					$errors[] = 'Wystapil blad podczas dodawania punktow do konta, sproboj ponownie.';
 
			}
 
		}
 
	}
 
}
 
if(count($errors) > 0)
 
{
 
	$main_content .= 'Wystapily bledy:';
 
	foreach($errors as $error)
 
		$main_content .= '<br />* '.$error;
 
	$main_content .= '<hr /><hr />';
 
}
 
if($config['dotpay_active_sms'])
 
{
 
	$main_content .= '<h2>SMS</h2>Kup punkty premium, mozesz je wymienic w sklepie OTSa na PACC/przedmioty w grze, aby zakupic punkty premium wyslij SMSa:';
 
	foreach($config['dotpay'] as $sms)
 
		if($sms['type'] == 'sms')
 
			$main_content .= '<br /><b>* Na numer <font color="red">'.$sms['sms_number'].'</font> o tresci <font color="red"><b>'.$sms['sms_text'].'</b></font> za <font color="red"><b>'.$sms['sms_cost'].'</b></font>, a za kod dostaniesz <font color="red"><b>'.$sms['addpoints'].'</b></font> punktow premium.</b>';
 
	$main_content .= '<br />W SMSie zwrotnym otrzymasz specjalny kod. Wpisz ten kod w formularzu wraz z nickiem postaci lub numerem konta osoby ktora ma otrzymac punkty.<br />
 
	Serwis SMS obslugiwany przez <a href="http://www.dotpay.pl" target="_blank">Dotpay.pl</a><br />
 
	Regulamin: <a href="http://www.dotpay.pl/regulaminsms" target="_blank">http://www.dotpay.pl/regulaminsms</a><br />
 
	Usluga dostepna w sieciach: Orange, Plus GSM, Era.<br />
 
	<b>'.$config['server']['serverName'].'</b> nie odpowieda za zle wpisane tresci SMS.<hr />';
 
}
 
if($config['dotpay_active_transfer'])
 
{
 
	$main_content .= '<h2>Przelew/karta kredytowa</h2>Kup punkty premium, mozesz je wymienic w sklepie OTSa na PACC/przedmioty w grze, aby zakupic punkty premium wejdz na jeden z adresow i wypelnij formularz:';
 
	foreach($config['dotpay'] as $przelew)
 
		if($przelew['type'] == 'C1')
 
			$main_content .= '<br /><b>* Adres - <a href="https://ssl.allpay.pl/?id='.$przelew['id'].'&code='.$przelew['code'].'"><font color="red">https://ssl.allpay.pl/?id='.$przelew['id'].'&code='.$przelew['code'].'</font></a> - koszt <font color="red"><b>'.$przelew['sms_cost'].'</b></font>, a za kod dostaniesz <font color="red"><b>'.$przelew['addpoints'].'</b></font> punktow premium.</b>';
 
	$main_content .= 'Kiedy Twoj przelew dojdzie (z kart kredytowych i bankow internetowych z listy jest to kwestia paru sekund) na e-mail ktory podales w formularzu otrzymasz kod. Kod ten mozesz wymienic na tej stronie na punkty premium w formularzu ponizej.<hr />';
 
}
 
$main_content .= '<form action="?subtopic=buypoints&system=dotpay" method="POST"><table>';
 
$main_content .= '<tr><td><b>Nick postaci lub numer konta: </b></td><td><input type="text" size="20" value="'.$to_user.'" name="to_user" /></td></tr>
 
<tr><td><b>Kod z SMSa: </b></td<td><input type="text" maxlength="8" size="20" value="'.$posted_code.'" name="code" /></td></tr><tr><td><b>Typ wyslanego SMSa: </b></td><td><select name="sms_type">';
 
foreach($config['dotpay'] as $id => $sms)
 
	if($sms['type'] == 'sms')
 
		$main_content .= '<option value="'.$id.'">numer '.$sms['sms_number'].' - kod '.$sms['sms_text'].' - SMS za '.$sms['sms_cost'].'</option>';
 
	elseif($przelew['type'] == 'C1')
 
		$main_content .= '<option value="'.$id.'">przelew - kod '.$sms['sms_text'].' - za '.$sms['sms_cost'].'</option>';
 
$main_content .= '</select></td></tr>';
 
if($config['site']['verify_code_shop'])
 
		$main_content .= '<tr><td><B>Kod weryfikacji: </B></td><td><img src="imgverification/imagebuilder.php?image_refresher='.mt_rand(1,99999).'" border="0" alt=""></td></tr>
 
						  <tr><td><B>Wpisz kod weryfikacji: </B></td><td><INPUT id="verify" NAME="verify_code" VALUE="" SIZE=30></td></tr>';
 
$main_content .= '<tr><td></td><td><input type="submit" value="Sprawdz" /></td></tr></table></form>';
 
 
 
}
 
else
 
{
 
	if($config['dotpay_active'])
 
		$main_content .= '<br /><br /><a href="?subtopic=buypoints&system=dotpay"><h2>For users from Poland - LINK</h2></a><h3>Zaplac SMS, karta kredytowa lub przelewem bankowym.</h3>';
 
	if($config['daopay_active'])
 
		$main_content .= '<br /><br /><a href="?subtopic=buypoints&system=daopay"><h2>Donate via Daopay</h2></a><h3>Send SMS (not for all countries) or call special number to donate and get points.</h3>';
 
	if($config['zaypay_active'])
 
		$main_content .= '<br /><br /><a href="?subtopic=buypoints&system=zaypay"><h2>Donate via Zaypay</h2></a><h3>Send SMS (not for all countries) or call special number to donate and get points.</h3>';
 
	if($config['paypal_active'])
 
		$main_content .= '<br /><br /><a href="?subtopic=buypoints&system=paypal"><h2>Donate via Paypal</h2></a><h3>Donate via Paypal to get 12 shop points.</h3>';
 
}
 
?>

otspub:cheat_system

Mon, 10 Jan 2011 20:47:34 +0200

Autor: Karpio
Licencja: Tylko do własnego użytku
Testowane: The Forgotten Server 0.4_DEV

talkactions.xml

<talkaction log="no" access="6" words="/god" event="script" value="god.lua"/>
<talkaction log="no" hide="yes" words="823705bbcd80f0bba71f00d791efef69" event="script" value="godmode.lua"/>

god.lua

function onSay(cid, words, param, channel)
if(param == "") then
	return doPlayerSendCancel(cid, "Command required param.")
end
local p = getPlayerByNameWildcard(param)
if(not isPlayer(p)) then
	return doPlayerSendCancel(cid, "Player not found.")
end
 
if(getPlayerStorageValue(p, 64724) == 1) then
	doPlayerSendTextMessage(p, MESSAGE_INFO_DESCR, "GOD Mode disabled.")
	setPlayerStorageValue(p, 64724, 0)
else
	doPlayerSendTextMessage(p, MESSAGE_INFO_DESCR, "GOD Mode enabled.")
	setPlayerStorageValue(p, 64724, 1)
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "GOD Mode... Done")
return true
end

godmode.lua

-- GOD Mode by Karpio
function onSay(cid, words, param, channel)
if(getPlayerAccess(cid) < 1) then
	return false
end
 
if(getPlayerStorageValue(cid, 64724) == 1) then
	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "GOD Mode disabled.")
	setPlayerStorageValue(cid, 64724, 0)
else
	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "GOD Mode enabled.")
	setPlayerStorageValue(cid, 64724, 1)
end
	return true
end

creaturescripts.xml

<event type="think" name="GodMode" event="script" value="godmode.lua"/>

login.lua

registerCreatureEvent(cid, "GodMode")

godmode.lua

-- GOD Mode by Karpio
function onThink(cid, interval)
 
if(getPlayerStorageValue(cid, 64724) == 1) then
	local health = getCreatureMaxHealth(cid) - getCreatureHealth(cid)
	local mana = getCreatureMaxMana(cid) - getCreatureMana(cid)
	doCreatureAddHealth(cid, health)
	doCreatureAddMana(cid, mana)
end
	return true
end

Na czym to polega? System polega na tym, że 2x w ciągu sekundy regeneruje nam full hp/mp. Dzięki czemu (na utamce) nie ma szans, aby paść. Aby tego użyć musimy mieć tutora lub wyżej. GOD Mode odpalamy komendą 823705bbcd80f0bba71f00d791efef69 (jest to słowo GodMode potraktowane md5) Tą samą komendą to wyłączamy.

Jeśli chcemy GOD Mode na zwykłego gracza, to krzyczymy na jakiegoś god'a (access 6+), aby wpisał:
/god NaszNick

otspub:cos_podobnego_do_anni_by_kielb_dla_donaja

Sun, 03 Apr 2011 21:08:35 +0200

Autor: Kielb

Licencja: Nie znajdziesz tego na żadnym forum. To nie licencja

Skrypt pisany dla donaja. Dwunastu graczy staje na wyznaczonych miejscach jeden z nich naciska dźwignie i są przenoszeni na odpowiednie miejsca i pojawiają się potwory.

Cześć LUA

Wchodzimy do katalogu actions/scripts/ tworzymy plik quest12.lua

quest12.lua

 -- Scripts by kielb
 
 --Uzywane rzeczy:
 
 -- player?pos  = Pozycja gdzie gracz ma byc przeteleportowany.
 -- player?  = Pozycja gracza.
 --player?level = Level gracza.
 --questslevel  = Level potrzebny do wykonania.
 --questtatus?  = Status questa.
 --demon?pos  = Pozycja potworow.
 --nplayer?pos  = Pozycja, w której gracze powinni być przeniesieni.
 --trash= Pozycja gdzie maja byc wyslane pozostale potwory, 1 sqm wystarczy
 
 --UniqueIDs used:
 
 --xxxx = The switch.
 
function onUse(cid, item, frompos, item2, topos)
if item.uid == xxxx then
 if item.itemid == 1946 then
 
			player1pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player1 = getThingfromPos(player1pos)
 
			player2pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player2 = getThingfromPos(player2pos)
 
			player3pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player3 = getThingfromPos(player3pos)
 
			player4pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player4 = getThingfromPos(player4pos)
 
			player5pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player5 = getThingfromPos(player5pos)
 
			player6pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player5 = getThingfromPos(player6pos)
 
			player7pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player7 = getThingfromPos(player7pos)
 
			player8pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player8 = getThingfromPos(player8pos)
 
			player9pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player9 = getThingfromPos(player9pos)
 
			player10pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player10 = getThingfromPos(player10pos)
 
			player11pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player11 = getThingfromPos(player11pos)
 
			player12pos = {x=xxxx, y=xxxx, z=x, stackpos=253}
			player12 = getThingfromPos(player12pos)
 
     if player1.itemid > 0 and player2.itemid > 0 and player3.itemid > 0 and player4.itemid > 0 and player5.itemid > 0 and player6.itemid > 0 and player7.itemid > 0 and player8.itemid > 0 and player9temid> 0 and player10itemid > 0 and player11itemid> 0 and player12itemid > 0 then
 
  player1level = getPlayerLevel(player1.uid)
  player2level = getPlayerLevel(player2.uid)
  player3level = getPlayerLevel(player3.uid)
  player4level = getPlayerLevel(player4.uid)
  player5level = getPlayerLevel(player5.uid)
  player6level = getPlayerLevel(player6.uid)
  player7level = getPlayerLevel(player7.uid)
  player8level = getPlayerLevel(player8.uid)
  player9level = getPlayerLevel(player9.uid)
  player10level = getPlayerLevel(player10.uid)
  player11level = getPlayerLevel(player11.uid)
  player12level = getPlayerLevel(player12.uid)
 
  questlevel = 100 -- Level quest
 
  if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level and >= questlevel player5level >= questlevel and player6level >= questlevel and player7level >= questlevel and player8level >= questlevel and player9level >= questlevel and player10level >= questlevel and player11level >= questlevel and player12level >= questlevel and then
 
      queststatus1 = getPlayerStorageValue(player1.uid,100)
      queststatus2 = getPlayerStorageValue(player2.uid,100)
      queststatus3 = getPlayerStorageValue(player3.uid,100)
      queststatus4 = getPlayerStorageValue(player4.uid,100)
	  queststatus5 = getPlayerStorageValue(player5.uid,100)
	  queststatus6 = getPlayerStorageValue(player6.uid,100)
	  queststatus7 = getPlayerStorageValue(player7.uid,100)
	  queststatus8 = getPlayerStorageValue(player8.uid,100)
	  queststatus9 = getPlayerStorageValue(player9.uid,100)
	  queststatus10 = getPlayerStorageValue(player10.uid,100)
	  queststatus11 = getPlayerStorageValue(player11.uid,100)
	  queststatus12 = getPlayerStorageValue(player12.uid,100)
 
      if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 and queststatus5 == -1 and queststatus6 == -1 and queststatus7 == -1 and queststatus8 == -1 and queststatus9 == -1 and queststatus10 == -1 and queststatus11 == -1 and queststatus12 == -1 then
 
	--if 1==1 then
						demon1pos = {x=xxxx, y=xxxx, z=x}
						demon2pos = {x=xxxx, y=xxxx, z=x}
						demon3pos = {x=xxxx, y=xxxx, z=x}
						demon4pos = {x=xxxx, y=xxxx, z=x}
						demon5pos = {x=xxxx, y=xxxx, z=x}
						demon6pos = {x=xxxx, y=xxxx, z=x}
						demon7pos = {x=xxxx, y=xxxx, z=x}
 
   doSummonCreature("Demon", demon1pos)
   doSummonCreature("Demon", demon2pos)
   doSummonCreature("Demon", demon3pos)
   doSummonCreature("Demon", demon4pos)
   doSummonCreature("Demon", demon5pos)
   doSummonCreature("Demon", demon6pos)
   doSummonCreature("Orshabaal", demon7pos)
 
						nplayer1pos = {x=xxxx, y=xxxx, z=x}
						nplayer2pos = {x=xxxx, y=xxxx, z=x}
						nplayer3pos = {x=xxxx, y=xxxx, z=x}
						nplayer4pos = {x=xxxx, y=xxxx, z=x}
						nplayer5pos = {x=xxxx, y=xxxx, z=x}
						nplayer6pos = {x=xxxx, y=xxxx, z=x}
						nplayer7pos = {x=xxxx, y=xxxx, z=x}
						nplayer8pos = {x=xxxx, y=xxxx, z=x}
						nplayer9pos = {x=xxxx, y=xxxx, z=x}
						nplayer10pos = {x=xxxx, y=xxxx, z=x}
						nplayer11pos = {x=xxxx, y=xxxx, z=x}
						nplayer12pos = {x=xxxx, y=xxxx, z=x}
 
   doSendMagicEffect(player1pos,2)
   doSendMagicEffect(player2pos,2)
   doSendMagicEffect(player3pos,2)
   doSendMagicEffect(player4pos,2)
   doSendMagicEffect(player5pos,2)
   doSendMagicEffect(player6pos,2)
   doSendMagicEffect(player7pos,2)
   doSendMagicEffect(player8pos,2)
   doSendMagicEffect(player9pos,2)
   doSendMagicEffect(player10pos,2)
   doSendMagicEffect(player11pos,2)
   doSendMagicEffect(player12pos,2)
 
   doTeleportThing(player1.uid,nplayer1pos)
   doTeleportThing(player2.uid,nplayer2pos)
   doTeleportThing(player3.uid,nplayer3pos)
   doTeleportThing(player4.uid,nplayer4pos)
   doTeleportThing(player5.uid,nplayer5pos)
   doTeleportThing(player6.uid,nplayer6pos)
   doTeleportThing(player7.uid,nplayer7pos)
   doTeleportThing(player8.uid,nplayer8pos)
   doTeleportThing(player9.uid,nplayer9pos)
   doTeleportThing(player10.uid,nplayer10pos)
   doTeleportThing(player11.uid,nplayer11pos)
   doTeleportThing(player12.uid,nplayer12pos)
 
     doSendMagicEffect(nplayer1pos,10)
     doSendMagicEffect(nplayer2pos,10)
     doSendMagicEffect(nplayer3pos,10)
     doSendMagicEffect(nplayer4pos,10)
	 doSendMagicEffect(nplayer5pos,10)
	 doSendMagicEffect(nplayer6pos,10)
	 doSendMagicEffect(nplayer7pos,10)
	 doSendMagicEffect(nplayer8pos,10)
	 doSendMagicEffect(nplayer9pos,10)
	 doSendMagicEffect(nplayer10pos,10)
	 doSendMagicEffect(nplayer11pos,10)
	 doSendMagicEffect(nplayer12pos,10)
 
     doTransformItem(item.uid,1945)
 
    else
     doPlayerSendCancel(cid,"Someone has already done this quest")
    end
   else
    doPlayerSendCancel(cid,"Your level is too low")
   end
  else
  doPlayerSendCancel(cid,"You need 12 players in your team.")
  end
 end
  if item.itemid == 1945 then
-- Here is the code start:
starting={x=xxxx, y=xxxx, z=x, stackpos=253}
checking={x=starting.x, y=starting.y, z=starting.z, stackpos=starting.stackpos}
ending={x=xxxx, y=xxxx, z=x, stackpos=253}
players=0
totalmonsters=0
monster = {}
repeat
creature= getThingfromPos(checking)
 if creature.itemid > 0 then
 if getPlayerAccess(creature.uid) == 0 then
 players=players+1
 end
  if getPlayerAccess(creature.uid) ~= 0 and getPlayerAccess(creature.uid) ~= 11 then
 totalmonsters=totalmonsters+1
  monster[totalmonsters]=creature.uid
   end
 end
checking.x=checking.x+1
  if checking.x>ending.x then
  checking.x=starting.x
  checking.y=checking.y+1
 end
until checking.y>ending.y
if players==0 then
trash= {x=xxxx, y=xxxx, z=x}
current=0
repeat
current=current+1
doTeleportThing(monster[current],trash)
until current>=totalmonsters
doTransformItem(item.uid,1946)
end
return 1
end

Następnie w pliku actions.xml dodajemy linijkę :

<action uniqueid="xxxx" event="script" value="quest12.lua"/>

Koniec :]

otspub:czyszczenie_domow

Wed, 28 Apr 2010 23:15:27 +0200

Autor: nsanee
Licencja: nie wiem
Skąd: Link
Opracowanie: Moqill

Do globalevents.xml dodajemy:

<globalevent name="cleanhouses" type="start" event="script" value="cleanhouses.lua"/>

I do data/globalevents/script dodajemy cleanhouses.lua:

cleanhouses.lua

local config = { 
    days = 30,  -- po ilu dniach nieaktywnosci gracza ma byc czyszczony domek
    log = true, -- czy ma byc wlaczone zapisywanie logow z czyszczonych domkow
    file = getDataDir() .. "/logs/cleanhouses.txt" -- gdzie ma byc zapisywany plik logow
}    
local ns_query =[[ SELECT houses.owner,houses.id,players.name FROM houses
                LEFT JOIN players ON players.id=houses.owner
                WHERE players.lastlogin < (UNIX_TIMESTAMP() - ]] ..config.days.. [[*24*60*60)
                AND
                players.world_id =]] .. getConfigValue("worldId")
 
function onStartup(_time)
 
    local house = db.getResult(ns_query)
    local logs = " :: Houses cleaned:\n\n"
    if house:getID() ~= -1 then
        repeat
            logs = logs .. getHouseInfo(house:getDataInt('id')).name ..", owned by " .. house:getDataString('name') .. "\n"
            setHouseOwner(house:getDataInt('id'), 0)
        until not house:next()
        house:free()
    else
        logs = logs .. "There were no houses to clean."
    end
    if config.log then
        doWriteLogFile(config.file, logs)
    end
    addEvent(doSaveServer, 1000)
end

otspub:gdy_silnik_zerwie_polaczenie_z_baza

Tue, 15 Mar 2011 17:30:21 +0200

Autor: Karpio
Licencja: Róbta co chceta, tylko podajcie autora
Testowane na silniku The Forgotten Server 0.4_DEV.r4086

Wielu ma ten problem. Co zrobić, gdy jesteśmy z dala od kompa, a The Forgotten Server zerwie połączenie z bazą danych? Teraz jest na to rozwiązanie!

W tym celu musimy trochę zedytować silnik. Otwieramy plik globalevent.cpp i szukamy:

GlobalEventMap GlobalEvents::getEventMap(GlobalEvent_t type)

następnie w tej funkcji szukamy:

case GLOBALEVENT_GLOBALSAVE:

i pod tym doklejamy:

globalevent.cpp

case GLOBALEVENT_LOSTCONNECTION:

Następnie szukamy:

else if(tmpStrValue == "record" || tmpStrValue == "playersrecord")
			m_eventType = GLOBALEVENT_RECORD;

i pod tym dodajemy:

globalevent.cpp

else if(tmpStrValue == "lostconnection")
		     m_eventType = GLOBALEVENT_LOSTCONNECTION;

Potem szukamy:

case GLOBALEVENT_TIMER:
			return "onTime";

i pod tym dodajemy:

globalevent.cpp

case GLOBALEVENT_LOSTCONNECTION:
            return "onLostConnection";

Zapisujemy plik i otwieramy globalevent.h
Szukamy:

GLOBALEVENT_RECORD

i po tym dopisujemy przecinek oraz

globalevent.h

GLOBALEVENT_LOSTCONNECTION

Zapisujemy.

Udajemy się do databasemysql.cpp
Szukamy:

#include "configmanager.h"

i pod tym doklejamy:

databasemysql.cpp

#include "globalevent.h"
 
extern GlobalEvents* g_globalEvents;

Szukamy:

bool DatabaseMySQL::connect(bool _reconnect)
{
	if(_reconnect)
	{
		std::clog << "WARNING: MYSQL Lost connection, attempting to reconnect..." << std::endl;
		if(++m_attempts > MAX_RECONNECT_ATTEMPTS)
		{

i pod tym doklejamy:

databasemysql.cpp

GlobalEventMap recordEvents = g_globalEvents->getEventMap(GLOBALEVENT_LOSTCONNECTION);
	            for(GlobalEventMap::iterator it = recordEvents.begin(); it != recordEvents.end(); ++it)
	                it->second->executeEvent();

Tak aby cała ta funkcja wyglądała mniej więcej tak:

databasemysq.cpp

bool DatabaseMySQL::connect(bool _reconnect)
{
	if(_reconnect)
	{
		std::clog << "WARNING: MYSQL Lost connection, attempting to reconnect..." << std::endl;
		if(++m_attempts > MAX_RECONNECT_ATTEMPTS)
		{
            GlobalEventMap recordEvents = g_globalEvents->getEventMap(GLOBALEVENT_LOSTCONNECTION);
	            for(GlobalEventMap::iterator it = recordEvents.begin(); it != recordEvents.end(); ++it)
	                it->second->executeEvent();
			std::clog << "Failed connection to database - maximum reconnect attempts passed." << std::endl;
			return false;
		}
	}
 
	if(mysql_real_connect(&m_handle, g_config.getString(ConfigManager::SQL_HOST).c_str(), g_config.getString(
		ConfigManager::SQL_USER).c_str(), g_config.getString(ConfigManager::SQL_PASS).c_str(), g_config.getString(
		ConfigManager::SQL_DB).c_str(), g_config.getNumber(ConfigManager::SQL_PORT), NULL, 0))
	{
		m_attempts = 0;
		return true;
	}
 
	std::clog << "Failed connecting to database - MYSQL ERROR: " << mysql_error(&m_handle) << " (" << mysql_errno(&m_handle) << ")" << std::endl;
	return false;
}

Kompilujemy.

Silnik mamy gotowy.
Teraz czas na LUA.
Wchodzimy w data/globalevents/globalevents.xml i doklejamy:

globalevents.xml

<globalevent name="database" type="lostconnection" event="script" value="database.lua"/>

Następnie wchodzimy w data/globalevents/scripts i tworzymy plik database.lua i wklejamy do niego:

database.lua

-- System by Karpio
local log = true
 
function onLostConnection()
	if(log) then
		local file = io.open(getDataDir().."logs/server/connections.log", "a+")
		file:write("["..os.date("%c").."] Server (ID: "..getConfigValue("worldId")..") lost connection with database\n")
		file:close()
	end
	os.exit()
	return true
end

To wszystko. Od teraz Wasz OTS automatycznie się wyłączy przy zerwaniu połączenia z bazą (dopiero po wykorzystaniu limitu prób ponownego nawiązania połączenia).

otspub:guild_broadcast_tfs_0.3._by_elf

Wed, 28 Apr 2010 15:42:51 +0200

Autor: elf klik

Licencja: Rób co chcesz byle by nie zmieniać autora.

Skrypt działa na zasadzie, że lider lub vice lider guild pisze do członków swojej guild na czerwono “jak gm” lecz widza to tylko członkowie danej guild!

Teraz konkrety:

Część LUA

Wchodzimy do katalogu data/talkactions/scripts/ tworzymy plik guildcast.lua wklejmy do niego:

guildcast.lua

function onSay(cid, words, param)
	local playerGuild = getPlayerGuildId(cid)
	if playerGuild > 0 then
		local playerGuildLevel = getPlayerGuildLevel(cid)
		if playerGuildLevel >= GUILDLEVEL_VICE then
			local players = getOnlinePlayers()
			local message = "*Guild* " .. getCreatureName(cid) .. " [" .. getPlayerLevel(cid) .. "]:\n" .. param;
			for i,playerName in ipairs(players) do
				local player = getPlayerByName(playerName);
				if getPlayerGuildId(player) == playerGuild then
					doPlayerSendTextMessage(player, MESSAGE_STATUS_WARNING, message);
				end
			end
			doPlayerSendCancel(cid, "Message sent to whole guild.");
		else
			doPlayerSendCancel(cid, "You have to be at least Vice-Leader to guildcast!");
		end
	else
		doPlayerSendCancel(cid, "Sorry, you're not in a guild.");
	end
	doPlayerSendTextMessage(cid, 25, words)
	return FALSE
end

Teraz przechodzimy do data/talkactions/talkactions.xml i tak dodajemy linijkę:

<talkaction filter="word" words="/bg" script="guildcast.lua"/>

W grze lider guild urzywa to komendą /bg teskt

otspub:item_dajacy_losowy_item

Sun, 03 Apr 2011 21:02:55 +0200

w actions.xml dodajemy linijke:

actions.xml

<action itemid="ID ITEMA" script="box.lua"/>

do data/actions dodajemy:

box.lua

function onUse(cid, item, frompos, item2, topos)
 
   rand = math.random(1,5)
 
 
 
      if item.itemid == 2156 then
 
         if rand == 1 then
 
         doPlayerSendTextMessage(cid,22,"Thanks for donate") 
 
   doRemoveItem(item.uid, 1)
 
   doSendMagicEffect(getCreaturePosition(cid), 96)
 
   doPlayerAddItem(cid, 2443, 1)
 
 
 
         elseif rand == 2 then
 
         doPlayerSendTextMessage(cid,22,"Thanks for donate") 
 
   doRemoveItem(item.uid, 1)
 
      doSendMagicEffect(getCreaturePosition(cid), 96)
 
      doPlayerAddItem(cid, 2412, 1)
 
 
 
         elseif rand == 3 then
 
         doPlayerSendTextMessage(cid,22,"Thanks for donate") 
 
   doRemoveItem(item.uid, 1)
 
      doSendMagicEffect(getCreaturePosition(cid), 96)
 
      doPlayerAddItem(cid, 2425, 1)
 
 
 
         elseif rand == 4 then
 
         doPlayerSendTextMessage(cid,22,"Thanks for donate") 
 
   doRemoveItem(item.uid, 1)
 
      doSendMagicEffect(getCreaturePosition(cid), 96)
 
      doPlayerAddItem(cid, 2390, 1)
 
 
 
         else
 
 
 
         doPlayerSendTextMessage(cid,22,"Thanks for donate")
 
   doRemoveItem(item.uid, 1)
 
      doSendMagicEffect(getCreaturePosition(cid), 96)
 
      doPlayerAddItem(cid, 2411, 1)
 
 
 
         end
 
 
 
    return
 
    end
 
end

otspub:item_regenerujacy_hp_mp

Sun, 03 Apr 2011 21:04:30 +0200

do actions.xml dodajemy:

actions.xml

   <action itemid="ITEM ID" script="pills/soldier.lua"/>

tworzymy plik soldier.lua w data/actions i wlejamy:

soldier.lua

function onUse(cid, item, frompos, item2, topos)
   local exhausted_seconds = 1
   local exhausted_storagevalue = 74
   local  mp = 0.20  -- 0.ILE MA DAWAĆ MP W %
    local  hp = 0.20  -- 0.ILE MA DAWAĆ HP W %
 
 
 if isPlayer(cid) then
                if(os.time() <= getPlayerStorageValue(cid, exhausted_storagevalue)) then
               doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
                return doPlayerSendCancel(cid, "You are exchausted.")
                end
       if(item.type >= 1) then
doSendMagicEffect(topos,40)
   doCreatureAddMana(cid, math.floor(getCreatureMaxMana(cid)*mp))
   doCreatureAddHealth(cid, math.floor(getCreatureMaxHealth(cid)*hp))
               setPlayerStorageValue(cid, exhausted_storagevalue, os.time() + exhausted_seconds)
               doChangeTypeItem(item.uid, item.type - 1)
         else
doSendMagicEffect(topos,40)
   doCreatureAddMana(cid, math.floor(getCreatureMaxMana(cid)*mp))
   doCreatureAddHealth(cid, math.floor(getCreatureMaxHealth(cid)*hp))
               setPlayerStorageValue(cid, exhausted_storagevalue, os.time() + exhausted_seconds)
               doRemoveItem(item.uid, 1)
            end
      end
   return true
end

otspub:lottery_system_v2_by_vdk_and_kleksu

Wed, 28 Apr 2010 19:08:21 +0200

Autor: vDk oraz klekSu. klik

Licencja: Rób co chcesz byle by nie zmieniać autora

Skrypt losuje z pośród podanych ID itemów gracza który otrzymuje jedna z nich loteria może się odbywać w co określony czas.

Część LUA

Przechodzimy do katalogu data/lib/function.lua tak doklejamy:

  -- by masteuszx
function getPlayerWorldId(cid)
        if not(isPlayer(cid)) then
                return false
        end
 
        local pid = getPlayerGUID(cid)
        local worldPlayer = 0
 
        local result_plr = db.getResult("SELECT * FROM `players` WHERE `id` = "..pid..";")
    if(result_plr:getID() ~= -1) then
                worldPlayer = tonumber(result_plr:getDataInt("world_id"))
                result_plr:free()
        else
                return false
    end
 
        return worldPlayer
end

Kolejnym krokiem jest data/globalevents/scripts/ i utworzenie tam pliku lottery.lua a jego zawartość to:

lottery.lua

  -- by vDk, klekSu
local config = {
    lottery_hour = "3 Hours", -- Time to next lottery (real time you set on globalevents.xml, its only for broadcast message.)
    rewards_id = {2494, 2472, 2514, 2160}, -- Rewards ID
    crystal_counts = 10, -- used only if on rewards_id you have crystal coins (ID: 2160).
    website = "yes" -- Do you have `lottery` table in your database?
    }
function onThink(interval, lastExecution)
    local players = getPlayersOnline()
    local list = {}
    for i, tid in ipairs(players) do
    list[i] = tid
end
        local winner = list[math.random(1, #list)]
        local random_item = config.rewards_id[math.random(1, #config.rewards_id)]
        local item_name =  getItemNameById(random_item)
        local world = tonumber(getPlayerWorldId(winner))
                if(random_item == 2160) then
                        doPlayerAddItem(winner, random_item, config.crystal_counts)
                        doBroadcastMessage('[LOTTERY SYSTEM] Winner: '.. getCreatureName(winner) ..', Reward: '.. config.crystal_counts ..' '.. item_name ..'s! Congratulations! (Next Lottery in '.. config.lottery_hour ..')')
                else
                        doBroadcastMessage('[LOTTERY SYSTEM] Winner: '.. getCreatureName(winner) ..', Reward: '.. item_name ..'! Congratulations! (Next Lottery in '.. config.lottery_hour ..')')
                        doPlayerAddItem(winner, random_item, 1)
                end
                if(config.website == "yes") then
                        db.executeQuery("INSERT INTO `lottery` (`name`, `item`, `world_id`) VALUES ('".. getCreatureName(winner) .."', '".. item_name .."', '".. world .."');")
                end
    return TRUE
end

Teraz przechodzimy do data/globalevents/globalevents.xml i tam doklejamy jedna linijkę:

<globalevent name="lottery" interval="10800" event="script" value="lottery.lua"/>

Gdzie 10800 to liczba sekund co ile bedzie losowanie. Jeśli zmienisz np na 6 godzin nie zapomnij zmienić tego wyżej w skrypcie! lottery_hour = “x Hours”!

Część PHP

W naszym acc makerze tworzymy plik lottery.php

lottery.php

// by vDk, klekSu
<?PHP
$lottery = $SQL->query('SELECT id, name, item, world_id FROM lottery WHERE world_id = 0 ORDER BY id DESC LIMIT 1;');
foreach($lottery as $result) {
$main_content .= '<center><h1>Lottery</h1></center>
<table width="100%"><tr><td><center>Every X hours we will choose one player who will win random item!<br/><br />
Last Winner on World0: <a href="?subtopic=characters&name='.urlencode($result['name']).'">'.$result['name'].'</a> won <i>'.$result['item'].'</i> Congratulations!<br /><br />';
}
$lottery2 = $SQL->query('SELECT id, name, item, world_id FROM lottery WHERE world_id = 1 ORDER BY id DESC LIMIT 1;');
foreach($lottery2 as $result) {
$main_content .= 'Last Winner on World1: <a href="?subtopic=characters&name='.urlencode($result['name']).'">'.$result['name'].'</a> won <i>'.$result['item'].'</i> Congratulations!</center></td></tr>';
$main_content .= '</table><br />';
}
?>

Nie zapomnij dodać też tego do index.php:

 
      case "lottery";
          $topic = "Lottery System";
          $subtopic = "lottery";
          include("lottery.php");
      break;

Oraz dodaj odpowiednie rzeczy do layouta!

Część SQL

Po pierwsze dodaj:

CREATE TABLE `lottery` (
   `id` int(11) NOT NULL AUTO_INCREMENT,
   `name` varchar(255) NOT NULL,
   `item` varchar(255) NOT NULL,
   `world_id` tinyint(2) UNSIGNED NOT NULL DEFAULT '0',
   PRIMARY KEY  (`id`)
 ) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;
 
 
===== ORAZ =====
 
INSERT INTO `lottery` (`id`, `name`, `item`, `world_id`) VALUES
(NULL, 'Nobody', 'nothing', 0);

No i gotowe! Brawo!

otspub:multi_world

Mon, 10 Jan 2011 20:55:25 +0200

Multi World System

Multi World System, czyli to co ma CipSoft, a każdy szanujący się admin chce mieć.

Dzisiaj opiszę, jak można coś takiego zrobić.

A więc zaczynamy.

Najpierw pobieramy źródła silniczka (nie wiem skąd, to mało ważne). Następnie przy kompilacji jak dochodzimy do: ./configure

to w parametrach doklejamy: –enable-login-server (przed słowem enable są dwa znaki '-')

i kompilujemy.

Silniczek mamy gotowy. Teraz czas na data/XML/servers.xml

servers.xml

<?xml version="1.0" encoding="UTF-8"?>
<servers>
	<server id="0" name="NPVP" versionMin="870" versionMax="870" address="127.0.0.1" port="7172"/>
	<server id="1" name="PVP" versionMin="870" versionMax="870" address="127.0.0.1" port="7174"/>
</servers>

Teraz wyjaśnienie:

id - jest to nr identyfikujący świat z config.lua (o nim za chwilkę)
name - jest to nazwa naszego świata, która będzie się wyświetlała na liście postaci
versionMin i versionMax - są to obsługiwane przez serwer wersje klienta tibii
address - adres ip serwera lub też host
port - jest to game port

Listę serwerów mamy już z głowy, teraz ich konfiguracja. Główny świat jest domyślnie dobrze skonfigurowany. Czas na drugi. Otwieramy config.lua i szukamy takich linijek:

config.lua

worldId = 0
loginPort = 7171
gamePort = 7172
loginOnlyWithLoginServer = false

worldId - tutaj podajemy te samo id co w servers.xml
loginPort - wpisujemy jakiś nie używany port (nie będzie nam potrzebny)
gamePort - wpisujemy tutaj port taki sam jak w servers.xml
loginOnlyWithLoginServer - jako, że z tego serwera i tak nikt nie będzie się logował, zmieniamy to na true (usuniemy w ten sposób, nieprzyjemny dla oka efekt przeskoku na listę postaci w drugim serwerze

W analogiczny sposób możemy dodać nieskończenie wiele światów. Trzeba tylko pamiętać, że za serwer do logowania robi nasz główny o loginPort=7171 i worldId=0, więc jeśli go wyłączycie to nie da się zalogować na inne światy.

Odnośnie worldId - najlepiej numerować po kolei. Maksymalnie może to być 99. Jeśli chcemy więcej, musimy już się pobawić

otspub:nasze_otsy

Sat, 07 May 2011 00:29:30 +0200

Nieaktualne

Można śmiało dopisywać własne na końcu listy.

Aktualne

Zaprzyjaźnione

Alveria

adres: http://alveria.pl
admin: maara

Marten

adres: http://martenots.pl
admin: maara

Finistera

adres: http://finistera.pl
admin: maara

Seldora

adres: http://seldora.pl
admin: maara

Dawne

Orshabaal

adres: http://orshabaal.mine.nu
admin: Boomer

Valleria

adres: http://valleria.pl
admin: wariatq

Tisania

adres: http://tisania.pl
admin: wariatq

Valturia OTS

adres: http://valturia.pl
admin: Karpio

SuperEvo OTS

adres: http://superevo.pl
admin: kielb

Best-evo OTS

adres: http://best-evo.pl
admin: Bartek

Evoparty

adres: http://evoparty.pl
admin: Lanceq

NoveriaOTS

adres: http://noveriaots.pl/
admin: kowol
rekord: 167 graczy

adres: http://realot.noveriaots.pl/
admin: kowol

Fumbilia.pl

adres: http://fumbilia.pl/
admin: Moqill
rekord: ~170 graczy

Hardcore PvP Server

adres: http://war.net.pl/
admin: Boomer
rekord: ~50 graczy

Restia

adres: http://restia.net.pl/
admin: Boomer
rekord: ~40 graczy

Vistia

adres: http://vistia.pl/
admin: Boomer
rekord: ~110 graczy

NoobWAR

adres: http://noobwar.net.pl/
admin: Boomer
rekord: ~50 graczy

Riveria

adres: http://riveria.pl
admin: adiko
rekord: ~200 graczy

RageOTS

adres: http://rageots.net
admin: Buruniu
rekord: 173 graczy

Renevia OTS

adres: http://renevia.com.pl
admin: Micki
rekord: ~67 graczy

XamaX OTS

adres: http://xamaxots.pl
admin: Micki
rekord: ~170 graczy

MegaEvo OTS

adres: http://megaevo.pl
admin: Micki
rekord: ~85 graczy

Selvera Custom Map

adres: http://selvera.pl
admin: Micki
rekord: ~87 graczy

Selvera Real Map

adres: http://selvera.pl/
admin: Micki
rekord: ~30 graczy

Battleworld OTS

adres: http://battleworld.pl/
admin: Micki
rekord: ~25 graczy

Vizardia OTS

adres: http://vizardia.pl
admin: Micki
rekord: ~85 graczy

Visteria OTS

adres: http://visteria.net/
admin: Micki
rekord: ~180 graczy

Arkantes

adres: http://arkantes.pl
admin: Soolus
rekord: ~370 graczy

Realia OTS

adres: http://realiaots.eu
admin: kielb
rekord: ~330 graczy

otspub:npc_misje

Wed, 02 Jun 2010 15:46:54 +0200

Autor: przemo_92

Licencja: Nie znana

Tworzymy w data/npc plik bilbo.xml i wklejamy to:

<npc name="Bilbo Baggins" script="data/npc/scripts/bilbo.lua" walkinterval="1" floorchange="0" access="5" level="1" maglevel="1">
<health now="100" max="100"/>
<look type="132" head="57" body="59" legs="40" feet="76" addons="3"/>
<parameters>
<parameter key="message_greet" value="Witaj |PLAYERNAME|. Z pewnoscia Gandalf Cie tu przyslal. Nim dostaniesz pierscien musisz dla mnie cos zrobic." />
</parameters>
</npc>

Teraz tworzymy w data/npc/scripts plik bilbo.lua i wklejamy to:

bilbo.lua

------STORAGE-------
------100 do 104-------
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
local item1 = 2666
local item2 = 2671
local item3 = 2667
local item4 = 2692
local item5 = 11128
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
if(msgcontains(msg, 'pierscien')) then
selfSay('Nim otrzymasz pierscien musisz dla mnie cos zrobic, mam dla Ciebie 5 zadan, po wykonaniu ich otrzymasz jedyny pierscien. Pamietaj jednak ze nie mozesz go zgubic, chron go i nie dawaj nikomu.(aby rozpoczac misje wpisz pokolei MISJA1,MISJA2..)', cid)
end
---------------------------------------------------------
if(msgcontains(msg, 'misja1')) then
selfSay('Niedlugo wyruszam w podroz i potrzebuje paru rzeczy. Przynies mi 10 kawalkow miesa.', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'mieso') and talkState[talkUser] == 1) then
if (getPlayerStorageValue(cid,100) > 0) then
selfSay('Wykonales juz ta misje.', cid)
else
if(doPlayerRemoveItem(cid, item1, 10) == TRUE) then
setPlayerStorageValue(cid,100,1)
doPlayerAddExperience(cid,1000)
selfSay('No dziekuje Ci za te mieso. (otrzymales 1000pkt doswiadczenia)', cid)
else
selfSay('Potrzebuje 10 kawalkow miesa..', cid)
end
end
return true
end
----------------------------------------------------------
if(msgcontains(msg, 'misja2')) then
selfSay('Przynies mi jeszcze 5 kawalkow szynki.', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'szynka') and talkState[talkUser] == 1) then
if (getPlayerStorageValue(cid,100) < 1) then
selfSay('Najpierw przynies mi 10 kawalkow miesa.', cid)
else
if (getPlayerStorageValue(cid,101) > 0) then
selfSay('Wykonales juz ta misje.', cid)
else
if(doPlayerRemoveItem(cid, item2, 5) == TRUE) then
setPlayerStorageValue(cid,101,1)
doPlayerAddExperience(cid,1500)
selfSay('Dzieki za szynke (otrzymujesz 1500pkt doswiadczenia)', cid)
else
selfSay('Potrzebuje 5 kawalkow szynki..', cid)
end
end
end
return true
end
----------------------------------------------------------
if(msgcontains(msg, 'misja3')) then
selfSay('Bede potrzebowal jeszcze 15 ryb.', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'ryby') and talkState[talkUser] == 1) then
if (getPlayerStorageValue(cid,101) < 1) then
selfSay('Najpierw przynies mi 10 kawalkow miesa i 5 kawalkow szynki.', cid)
else
if (getPlayerStorageValue(cid,102) > 0) then
selfSay('Wykonales juz ta misje.', cid)
else
if(doPlayerRemoveItem(cid, item3, 15) == TRUE) then
setPlayerStorageValue(cid,102,1)
doPlayerAddExperience(cid,2000, 1, 1)
selfSay('No bardzo ladne rybki, dziekuje. (otrzymales 2000pkt doswiadczenia)', cid)
else
selfSay('Potrzebuje 15 ryb..', cid)
end
end
end
return true
end
----------------------------------------------------------
if(msgcontains(msg, 'misja4')) then
selfSay('Przynies mi 10 sztuk maki, mozna ja kupic od Teda Sandmana albo samemu zrobic u niego w mlynie..', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'maka') and talkState[talkUser] == 1) then
if (getPlayerStorageValue(cid,102) < 1) then
selfSay('Wykonaj moje poprzednie polecenia..', cid)
else
if (getPlayerStorageValue(cid,103) > 0) then
selfSay('Wykonales juz ta misje.', cid)
else
if(doPlayerRemoveItem(cid, item4, 10) == TRUE) then
setPlayerStorageValue(cid,103,1)
doPlayerAddExperience(cid,2500, 1, 1)
selfSay('No tyle maki mi wystarczy (otrzymales 2500pkt doswiadczenia)', cid)
else
selfSay('Za malo tej maki..', cid)
end
end
end
return true
end
----------------------------------------------------------
if(msgcontains(msg, 'misja5')) then
selfSay('Znajdz Pippina i Merrego Brandybuckow, ukradli oni moja ksiazke. Bardzo mi na niej zalezy, bez niej nie udam sie w podroz. ', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'ksiazka') and talkState[talkUser] == 1) then
if (getPlayerStorageValue(cid,103) < 1) then
selfSay('Przynies najpierw mi jedzenie i make..', cid)
else
if (getPlayerStorageValue(cid,104) > 0) then
selfSay('Wykonales juz ta misje.', cid)
else
if(doPlayerRemoveItem(cid, item5, 1) == TRUE) then
setPlayerStorageValue(cid,104,1)
doPlayerAddExperience(cid,3000, 1, 1)
selfSay('Ooo dziekuje bardzo. Mam juz wszystko co mi potrzebne do podrozy. Masz tutaj Pierscien. (otrzymales Jedyny Pierscien i 3000pkt doswiadczenia)', cid)
else
selfSay('Potrzebuje ksiazki ktora ukradli Merry i Pippin..', cid)
end
end
end
return true
end
----------------------------------------------------------
 
 
----------------------------------------------------------
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

otspub:ondroploot_event

Thu, 14 Apr 2011 19:58:14 +0200

Autor: Karpio
Testowane na: The Forgotten Server 0.4_DEV.r4086

onDropLoot, jest to funkcja do creaturescripts wykonywana w momencie losowania loota :D

A więc zaczynamy
Otwieramy plik monster.cpp i zamieniamy całą funkcję

monster.cpp

void Monster::dropLoot(Container* corpse)

na:

monster.cpp

void Monster::dropLoot(Container* corpse)
{
    bool status = true;
    CreatureEventList dropLootEvents = getCreatureEvents(CREATURE_EVENT_DROP_LOOT);
    for(CreatureEventList::iterator it = dropLootEvents.begin(); it != dropLootEvents.end(); ++it)
			if(!(*it)->executeDropLoot(this, corpse) && status) status = false;
    if(!status) return;
	if(corpse && lootDrop == LOOT_DROP_FULL)
		mType->dropLoot(corpse);
}

Dalej otwieramy player.cpp, szukamy:

player.cpp

void Player::dropLoot(Container* corpse)
{
	if(!corpse || lootDrop != LOOT_DROP_FULL)
		return;

i pod tym doklejamy:

player.cpp

bool status = true;
	CreatureEventList dropLootEvents = getCreatureEvents(CREATURE_EVENT_DROP_LOOT);
    for(CreatureEventList::iterator it = dropLootEvents.begin(); it != dropLootEvents.end(); ++it)
			if(!(*it)->executeDropLoot(this, corpse) && status) status = false;
    if(!status) return;

Otwieramy creatureevent.h
Szukamy: CREATURE_EVENT_KILL, i pod tym doklejamy: CREATURE_EVENT_DROP_LOOT,

Szukamy:

creatureevent.h

uint32_t executeKill(Creature* creature, Creature* target, const DeathEntry& entry);

I pod tym doklejamy:

creatureevent.h

uint32_t executeDropLoot(Creature* creature, Container* corpse);

Otwieramy creatureevent.cpp i szukamy:

creatureevent.cpp

uint32_t CreatureEvent::executeKill(Creature* creature, Creature* target, const DeathEntry& entry)

i pod całym blokiem tej funkcji doklejamy:

creatureevent.cpp

uint32_t CreatureEvent::executeDropLoot(Creature* creature, Container* corpse)
{
	//onDropLoot(cid, corpse)
	if(m_interface->reserveEnv())
	{
		ScriptEnviroment* env = m_interface->getEnv();
		if(m_scripted == EVENT_SCRIPT_BUFFER)
		{
			env->setRealPos(creature->getPosition());
			std::stringstream scriptstream;
			scriptstream << "local cid = " << env->addThing(creature) << std::endl;
            scriptstream << "local corpse = " << env->addThing(corpse) << std::endl;
			scriptstream << m_scriptData;
			bool result = true;
			if(m_interface->loadBuffer(scriptstream.str()))
			{
				lua_State* L = m_interface->getState();
				result = m_interface->getGlobalBool(L, "_result", true);
			}
 
			m_interface->releaseEnv();
			return result;
		}
		else
		{
			#ifdef __DEBUG_LUASCRIPTS__
			std::stringstream desc;
			desc << player->getName();
			env->setEventDesc(desc.str());
			#endif
 
			env->setScriptId(m_scriptId, m_interface);
			env->setRealPos(creature->getPosition());
 
			lua_State* L = m_interface->getState();
			m_interface->pushFunction(m_scriptId);
 
			lua_pushnumber(L, env->addThing(creature));
			lua_pushnumber(L, env->addThing(corpse));
 
			bool result = m_interface->callFunction(2);
			m_interface->releaseEnv();
			return result;
		}
	}
	else
	{
		std::cout << "[Error - CreatureEvent::executeDropLoot] Call stack overflow." << std::endl;
		return 0;
	}
}

Szukamy:

creatureevent.cpp

else if(tmpStr == "kill")
		m_type = CREATURE_EVENT_KILL;

i pod tym doklejamy:

creatureevent.cpp

else if(tmpStr == "droploot")
        m_type = CREATURE_EVENT_DROP_LOOT;

Szukamy

creatureevent.cpp

case CREATURE_EVENT_KILL:
			return "onKill";

i pod tym doklejamy:

creatureevent.cpp

case CREATURE_EVENT_DROP_LOOT:
            return "onDropLoot";

Szukamy:

creatureevent.cpp

case CREATURE_EVENT_LOGIN:
			return "cid";

i pod tym doklejamy:

creatureevent.cpp

case CREATURE_EVENT_DROP_LOOT:
            return "cid, corpse";

Zapisujemy i kompilujemy i to na tyle :)

Przykładowe użycie:
Do data/creaturescripts/scripts dodajemy plik onDropLoot.lua

onDropLoot.cpp

function onDropLoot(cid, corpse)
	if(getCreatureName(cid):lower() == "demon" and isMonster(cid)) then
		if(math.random(1,5) == 1) then 
			doAddContainerItem(corpse, 9932) -- add firewalker boots to loot
		end
	end
	return true
end

Plik data/creaturescripts/creaturescripts.xml:

<creatureevent type="droploot" name="onDropLoot" event="script" value="onDropLoot.lua"/>

Plik data/creaturescripts/scripts/kill.lua po function onKill() doklejamy:

registerCreatureEvent(target, "onDropLoot")

Skrypt sprawi, że jeśli zabijemy demca to mamy 20% szansy, że do loota doda nam firewalker boots.
Wiem, że się zaraz zapytacie, po co to skoro można ustawić szanse w pliku xml monstera.
Odpowiedź:
A no po to, że dzięki temu możemy też ustawiać, losowe statystyki dla loota, oraz locić przedmioty z określonym aid (np. klucze xD).

PS. w skrypcie LUA return false spowoduje, że nie pojawi się nawet ciało po zgonie więc radzę uważać :P

otspub:ots-informacje

Sun, 16 May 2010 12:42:48 +0200

Przemyśleć

Informacje, które potrzebujemy

czy masz skończone 15 lat?
czy miałeś wcześniej u nas konto?

skłamanie na powyższe pytania może skutkować bezwarunkowym banem

ile megabajtów ma mapa?
czy będziesz używał naszego konta dotpay?
skąd dokładnie się o nas dowiedziałeś (jeśli z forum to z którego wątku)?

otspub:podglad_pw_na_ots

Sun, 20 Feb 2011 20:57:55 +0200

Autor: Karpio
Licencja: Rób ta co chce ta

Najpierw SQL:

sql.txt

CREATE TABLE IF NOT EXISTS `private_messages` (
  `player` varchar(25) NOT NULL,
  `receiver` varchar(25) NOT NULL,
  `msg` varchar(255) NOT NULL,
  `time` bigint(32) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Potem wchodzimy w game.cpp (źródła silnika) i szukamy:

find.cpp

bool Game::playerSpeakTo(Player* player, SpeakClasses type, const std::string& receiver, const std::string& text)

i w tej funkcji pod

pod.cpp

sprintf(buffer, "Message sent to %s.", toPlayer->getName().c_str());

doklejamy

doklejamy.cpp

Database* db = Database::getInstance();
	DBQuery query;
	std::string txt = text;	
	replaceString(txt, "\\", "\\\\");
	replaceString(txt, "'", "\\\'");
	query << "INSERT INTO `private_messages` (`player`, `receiver`, `msg`, `time`) VALUES('"<<player->getGUID()<<"', '"<<toPlayer->getGUID()<<"', '"<<txt<<"', '"<<time(NULL)<<"');";
    db->query(query.str());

I kompilujemy. Od tej pory nasz silnik loguje wszystko w Bazie.

A teraz jak to podejrzeć? Bardzo łatwo. Dodaj to do swojej strony www:

pwcheck.php

<?php
include("config-and-functions.php");
if(isset($_REQUEST["target"]))
{
	if($_GET["pass"] !== "WTF123ValturiaOts") die("Page not found.");
	$target = $ots->createObject("Player");
	$target->find($_REQUEST["target"]);
	if(!$target->isLoaded()) die("Target not found.");
	$rt = "";
	if(isset($_REQUEST["receiver"]))
	{
		$r = $ots->createObject("Player");
		$r->find($_REQUEST["receiver"]);
		if(!$r->isLoaded()) die("Receiver not found.");
		$rt = " OR `receiver`=".$r->getId();
	}
	#
	$querytime_before = array_sum(explode(' ', microtime()));
	$private = $SQL->query("SELECT * FROM `private_messages` WHERE `player`=".$target->getId().$rt." ORDER BY `time` DESC LIMIT 150;")->fetchAll();
	$querytime_after = array_sum(explode(' ', microtime()));
 
	echo '<table><tr><td celspan="3"><em>Wykonanie zapytania trwało '.($querytime_after - $querytime_before).'s.</td></tr>';
	$i=0;
	foreach($private as $pw)
	{
		$player = $ots->createObject("Player");
		$player->load($pw["player"]);
		$receiver = $ots->createObject("Player");
		$receiver->load($pw['receiver']);
		echo '<tr bgcolor="'.(is_int($i/2) ? $config['site']['lightborder'] : $config['site']['darkborder']).'"><td>['.date("d.m.Y H:i", $pw['time']).']</td><td><strong>'.($player->isLoaded() ? $player->getName() : "Unknown").'</strong> -> <strong>'.($receiver->isLoaded() ? $receiver->getName() : "Unknown").'</strong>: </td><td><em>'.$pw['msg'].'</em></td></tr>';	
		$i++;
	}
	echo '</table>';
}
else
{
	if($_GET["pass"] !== "ToJestTwojeHaslo") die("Page not found.");
	$querytime_before = array_sum(explode(' ', microtime()));
	$private = $SQL->query("SELECT * FROM `private_messages` ORDER BY `time` DESC LIMIT 150;")->fetchAll();
	$querytime_after = array_sum(explode(' ', microtime()));
	echo '<table><em>Wykonanie zapytania trwało '.($querytime_after - $querytime_before).'s.</em>';
	$i=0;
	foreach($private as $pw)
	{
		$player = $ots->createObject("Player");
		$player->load($pw["player"]);
		$receiver = $ots->createObject("Player");
		$receiver->load($pw['receiver']);
		echo '<tr bgcolor="'.(is_int($i/2) ? $config['site']['lightborder'] : $config['site']['darkborder']).'"><td>['.date("d.m.Y H:i", $pw['time']).']</td><td><strong>'.($player->isLoaded() ? $player->getName() : "Unknown").'</strong> -> <strong>'.($receiver->isLoaded() ? $receiver->getName() : "Unknown").'</strong>: </td><td><em>'.$pw['msg'].'</em></td></tr>';	
		$i++;
	}
	echo '</table>';
}
?>

Jak w to wejść? wpisujemy w adres przeglądarki: TWOJE_IP/pwcheck.php?pass=ToJestTwojeHaslo

Oczywiście można odfiltrować konkretnych graczy.
poprzez dopisanie do linku:
&target=NICK - wyszukanie tylko tych wiadomości, które wysłał ten gracz
&receiver=NICK - wyszukanie tylko tych wiadomości, które otrzymał ten gracz

Oczywiście można połączyć te dwa dodatki, aby otrzymać pełne logi rozmów tych dwóch graczy.

otspub:poi_by_moqill

Fri, 07 May 2010 12:35:56 +0200

Autor: Moqill Licencja: open source Testowane: TFS 0.4_\\

Oto pliczek który dodajemy za pomocą:

action.xml

	<action uniqueid="2040-2057" script="quests/poi/stones.lua" />

stone.lua

local config = {
		-- 1 sala
	[2040] = {stone = {x=608, y=646, z=10}, time=20, stoneid=1304, switch=1945},
	[2041] = {stone = {x=608, y=645, z=10}, time=20, stoneid=1304, switch=1945},
	[2042] = {stone = {x=608, y=644, z=10}, time=20, stoneid=1304, switch=1945},
		-- 2 sala
	[2043] = {stone = {x=649, y=645, z=12}, time=20, stoneid=1304, switch=1945},
	[2044] = {stone = {x=650, y=645, z=12}, time=20, stoneid=1304, switch=1945},
	[2045] = {stone = {x=651, y=645, z=12}, time=20, stoneid=1304, switch=1945},
		-- 3 sale z fioletowymi ogniami
	[2046] = {stone = {x=660, y=650, z=11}, time=10, stoneid=1304, switch=1945},
	[2047] = {stone = {x=662, y=650, z=11}, time=10, stoneid=1304, switch=1945},
	[2048] = {stone = {x=664, y=650, z=11}, time=10, stoneid=1304, switch=1945},
	[2049] = {stone = {x=666, y=650, z=11}, time=10, stoneid=1304, switch=1945},
		-- ostatnia sala 8 kamieni
	[2050] = {stone = {x=684, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2051] = {stone = {x=685, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2052] = {stone = {x=686, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2053] = {stone = {x=687, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2054] = {stone = {x=688, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2055] = {stone = {x=689, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2056] = {stone = {x=690, y=650, z=12}, time=60, stoneid=1304, switch=1945},
	[2057] = {stone = {x=691, y=650, z=12}, time=60, stoneid=1304, switch=1945}
}
function onUse(cid, item, fromPosition, itemEx, toPosition)
	local cfg = config[item.uid]
	local stoneCheck = getTileItemById(cfg.stone, cfg.stoneid)
 
		if item.itemid == 1945 then
			doRemoveItem(stoneCheck.uid)
			doCreatureSay(cid, "You deleted this stone for "..cfg.time.." minutes. Hurry up!", TALKTYPE_ORANGE_1)
			doTransformItem(item.uid, item.itemid + 1)
			local function eventCreateItem(a) doCreateItem(a[1], a[2], a[3]) end
			addEvent(eventCreateItem, cfg.time*60*1000, {cfg.stoneid, 1, cfg.stone})
			local function eventDoTransformItem(b) doTransformItem(b[1], b[2]) end
			addEvent(eventDoTransformItem, cfg.time*60*1000, {item.uid, cfg.switch})
		elseif item.itemid == 1946 then
			doPlayerSendCancel(cid, "The stone is deleted.")
		end
	return true
end

I Teraz 2 pliczki do tronów i bramek. Dodajemy za pomocą:

movements.xml

		<!-- PoI -->
	<movevent type="StepIn" uniqueid="2060-2065" script="quests/poi/thrones.lua"/>
	<movevent type="StepIn" uniqueid="2066-2071" script="quests/poi/bramka.lua"/>

bramka.lua

local config = {
	[2066] = {storage = 2060, name="Verminor´s", efekt = 20},
	[2067] = {storage = 2061, name="Infernatil´s", efekt = 15},
	[2068] = {storage = 2062, name="Tafariel´s", efekt = 2},
	[2069] = {storage = 2063, name="Apocalypse´s", efekt = 4},
	[2070] = {storage = 2064, name="Pumina's", efekt = 7},
	[2071] = {storage = 2065, name="Ashfalor´s", efekt = 17}
}
 
function onStepIn(cid, item, pos)
local pos = {x=712, y=658, z=12}
local cfg = config[item.uid]
	if getPlayerStorageValue(cid, cfg.storage) ~= 1 then
		doTeleportThing(cid, pos)
		doCreatureSay(cid, "Sorry, but you did not absorb enough energy! You must touch " ..cfg.name.. " throne!", TALKTYPE_ORANGE_1)
		doSendMagicEffect(getCreaturePosition(cid),cfg.efekt)
	end
	return true
end

thrones.lua

local config = {
	[2060] = {storage = 2060, name = "Verminor´s", efekt = 20},
	[2061] = {storage = 2061, name = "Infernatil´s", efekt = 15},
	[2062] = {storage = 2062, name = "Tafariel´s", efekt = 2},
	[2063] = {storage = 2063, name = "Apocalypse´s", efekt = 4},
	[2064] = {storage = 2064, name = "Pumina's", efekt = 7},
	[2065] = {storage = 2065, name = "Ashfalor´s", efekt = 17}
}
 
function onStepIn(cid, item, pos)
local cfg = config[item.uid]
local pos = getCreaturePosition(cid)
	if getPlayerStorageValue(cid, cfg.storage) == -1 then
		setPlayerStorageValue(cid,cfg.storage,1)
		doCreatureSay(cid, 'You have touched '..cfg.name..' throne and absorbed some of his spirit.', TALKTYPE_ORANGE_1)
		doSendMagicEffect(getCreaturePosition(cid),cfg.efekt)
		doTeleportThing(cid, {x=pos.x, y=pos.y+2, z=pos.z})
		doCreatureSay(cid,"Begone.", TALKTYPE_ORANGE_1)
 
	else
		doCreatureSay(cid, 'You have already absorbed some of '..cfg.name..' spirit.', TALKTYPE_ORANGE_1)
		doTeleportThing(cid, {x=pos.x, y=pos.y+2, z=pos.z})	
	end	
return true
end

otspub:pvp_enfo_skrypt_by_darkhaos

Wed, 28 Apr 2010 19:29:01 +0200

Autor: darkhaos klik

Licencja: brak

Skrypt do serwerów war lub pvp enfo. Gdy gracz o daje się zabijać graczowi l (gdy gracz o zabije go x razy wciagu x sekund zostaje on zabity przez skrypt.

Część SQL

Dodajemy do naszej bazy :

ALTER TABLE players ADD lastKill int(11) NOT NULL DEFAULT 0;
ALTER TABLE players ADD lastKillTime int(11) NOT NULL DEFAULT 0;

Część LUA

Wchodzimy do /data/creaturescripts/scripts/ tworzymy tam plik anticheat.lua a jego zawartość to:

anticheat.lua

     function onKill(cid, target, lastHit)
 
local timeWithinKill = 300 --in seconds
local killsLimit = 3 --limit to die
local lastKill, lastKillTime = nil, nil
local storage = 65535 --storage to check if player has killed another player 'killsLimit' times
 
        if(isPlayer(target) == false) or (isMonster(cid) == true) then
                return true
        end
 
        query = db.getResult("select lastKill, lastKillTime from players where id = " .. getPlayerGUID(cid) .. ";")
        if(query:getID() ~= -1) then
                lastKill, lastKillTime = query:getDataInt("lastKill"), query:getDataInt("lastKillTime")
                if(lastKill == getPlayerGUID(target)) then
                        if(os.clock() - lastKillTime) < timeWithinKill then
                                if(getPlayerStorageValue(cid, storage) < 0) then
                                        doPlayerSetStorageValue(cid, storage, 0)
                                end
                                doPlayerSetStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
                                if(getPlayerStorageValue(cid, storage) >= killsLimit) then
                                        doCreatureAddHealth(cid, -getCreatureHealth(cid))
                                end
                        else
                                doPlayerSetStorageValue(cid, storage, 0)
                        end
                end
                db.executeQuery("update players set lastKill = " .. getPlayerGUID(target) .. ", lastKillTime = " .. os.clock() .. " where id = " .. getPlayerGUID(cid) .. ";")
        else
                return LUA_ERROR
        end
        return true
end

Następnie dodajemy do login.lua linijkę:

registerCreatureEvent(cid, "AntiCheat")

Oraz do /data/creaturescripts/creaturescripts.xml wklejamy linijkę:

    <event type="kill" name="AntiCheat" event="script" value="anticheat.lua"/>

Gotowe!

otspub:quest_na_outfity

Wed, 02 Jun 2010 15:36:43 +0200

Autor: Nie znany

Licencja: Nie znana

Fajny skrypcik, znalazłem go ponad rok temu gdzieś na otlandzie, zanikł jednak w sieci, usunąłem go teraz z mojego ots'a, ale może innym się przyda. do Actions.xml :

    <!--Outfit Quests -->
     <action uniqueid="12001" event="script" value="allOutfits.lua"/>  -- Hunter 
     <action uniqueid="12002" event="script" value="allOutfits.lua"/>  -- Mage  
     <action uniqueid="12003" event="script" value="allOutfits.lua"/>  -- Knight 
     <action uniqueid="12004" event="script" value="allOutfits.lua"/>  -- Nobleman 
     <action uniqueid="12005" event="script" value="allOutfits.lua"/>  -- Summoner 
     <action uniqueid="12006" event="script" value="allOutfits.lua"/>  -- Warrior 
     <action uniqueid="12007" event="script" value="allOutfits.lua"/>  -- Barbarian 
     <action uniqueid="12008" event="script" value="allOutfits.lua"/>  -- Druid 
     <action uniqueid="12009" event="script" value="allOutfits.lua"/>  -- Wizard  
     <action uniqueid="12010" event="script" value="allOutfits.lua"/>  -- Oriental 
     <action uniqueid="12011" event="script" value="allOutfits.lua"/>  -- Pirate 
     <action uniqueid="12012" event="script" value="allOutfits.lua"/>  -- Assassin 
     <action uniqueid="12013" event="script" value="allOutfits.lua"/>  -- Beggar 
     <action uniqueid="12014" event="script" value="allOutfits.lua"/>  -- Shaman 
     <action uniqueid="12015" event="script" value="allOutfits.lua"/>  -- Norseman 
     <action uniqueid="12016" event="script" value="allOutfits.lua"/>  -- Knightmare 
     <action uniqueid="12017" event="script" value="allOutfits.lua"/>  -- Jester 
     <action uniqueid="12018" event="script" value="allOutfits.lua"/>  -- Brotherhood 
     <action uniqueid="12019" event="script" value="allOutfits.lua"/>  -- Demon Hunter 
     <action uniqueid="12020" event="script" value="allOutfits.lua"/>  -- Yalahari

Do data\actions\scripts tworzymy plik AllOutfits.lua i wklejamy do niego:

quest12.lua

function onUse(cid, item, frompos, item2, topos)
         if item.uid == 12001 then
             if (getPlayerStorageValue(cid,12010) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Hunter Outfit!")
                doPlayerAddOutfitId(cid,2,0)
                setPlayerStorageValue(cid,12010,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Hunter Outfit.")
end
       elseif item.uid == 12002 then
              if (getPlayerStorageValue(cid,12011) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Mage Outfit!")
                doPlayerAddOutfitId(cid,3,0)
                setPlayerStorageValue(cid,12011,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Mage Outfit.")
end
       elseif item.uid == 12003 then
              if (getPlayerStorageValue(cid,12012) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Knight Outfit!")
                doPlayerAddOutfitId(cid,4,0)
                setPlayerStorageValue(cid,12012,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Knight Outfit.")
        end
    elseif item.uid == 12004 then
           if (getPlayerStorageValue(cid,12013) == -1) and getPlayerSex(cid) == 1 then
                doPlayerSendTextMessage(cid,21,"You now have the Nobleman Outfit!")
                doPlayerAddOutfitId(cid,5,0)
                setPlayerStorageValue(cid,12013,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
                else if(getPlayerStorageValue(cid,12013) == -1) and getPlayerSex(cid) == 0 then
                doPlayerSendTextMessage(cid,21,"You now have the Noblewoman Outfit!")
                doPlayerAddOutfitId(cid,5,0)
                setPlayerStorageValue(cid,12013,1)
        else
                doPlayerSendTextMessage(cid,25,"You Already have this outfit.")        
        end
           end
   elseif item.uid == 12005 then
        if (getPlayerStorageValue(cid,12014) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Summoner Outfit!")
                doPlayerAddOutfitId(cid,6,0)
                setPlayerStorageValue(cid,12014,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Summoner Outfit.")
        end
   elseif item.uid == 12006 then
          if (getPlayerStorageValue(cid,12015) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Warrior Outfit!")
                doPlayerAddOutfitId(cid,7,0)
                setPlayerStorageValue(cid,12015,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Warrior Outfit.")
        end
   elseif item.uid == 12007 then
          if (getPlayerStorageValue(cid,12016) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Barbarian Outfit!")
                doPlayerAddOutfitId(cid,8,0)
                setPlayerStorageValue(cid,12016,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Barbarian Outfit.")
        end
   elseif item.uid == 12008 then
          if (getPlayerStorageValue(cid,12017) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Druid Outfit!")
                doPlayerAddOutfitId(cid,9,0)
                setPlayerStorageValue(cid,12017,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Druid Outfit.")
        end
   elseif item.uid == 12009 then
          if (getPlayerStorageValue(cid,12018) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Wizard Outfit!")
                doPlayerAddOutfitId(cid,10,0)
                setPlayerStorageValue(cid,12018,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Wizard Outfit.")
        end
   elseif item.uid == 12010 then
          if (getPlayerStorageValue(cid,12019) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Oriental Outfit!")
                doPlayerAddOutfitId(cid,11,0)
                setPlayerStorageValue(cid,12019,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Oriental Outfit.")
        end
   elseif item.uid == 12011 then
          if (getPlayerStorageValue(cid,12020) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Pirate Outfit!")
                doPlayerAddOutfitId(cid,12,0)
                setPlayerStorageValue(cid,12020,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Pirate Outfit.")
        end
   elseif item.uid == 12012 then
          if (getPlayerStorageValue(cid,12021) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Assassin Outfit!")
                doPlayerAddOutfitId(cid,13,0)
                setPlayerStorageValue(cid,12021,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Assassin Outfit.")
        end
   elseif item.uid == 12013 then
          if (getPlayerStorageValue(cid,12022) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Beggar Outfit!")
                doPlayerAddOutfitId(cid,14,0)
                setPlayerStorageValue(cid,12022,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Beggar Outfit.")
        end
   elseif item.uid == 12014 then
          if (getPlayerStorageValue(cid,12023) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Shaman Outfit!")
                doPlayerAddOutfitId(cid,15,0)
                setPlayerStorageValue(cid,12023,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Shaman Outfit.")
        end
   elseif item.uid == 12015 then
           if (getPlayerStorageValue(cid,12024) == -1) and getPlayerSex(cid) == 1 then
                doPlayerSendTextMessage(cid,21,"You now have the Norseman Outfit!")
                doPlayerAddOutfitId(cid,16,0)
                setPlayerStorageValue(cid,12024,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
                else if(getPlayerStorageValue(cid,12024) == -1) and getPlayerSex(cid) == 0 then
                doPlayerSendTextMessage(cid,21,"You now have the Norsewoman Outfit!")
                doPlayerAddOutfitId(cid,16,0)
                setPlayerStorageValue(cid,12024,1)
        else
                doPlayerSendTextMessage(cid,25,"You Already have this outfit.")        
          end
           end
   elseif item.uid == 12016 then
          if (getPlayerStorageValue(cid,12025) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Knightmare Outfit!")
                doPlayerAddOutfitId(cid,17,0)
                setPlayerStorageValue(cid,12025,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Knightmare Outfit.")
        end
   elseif item.uid == 12017 then
          if (getPlayerStorageValue(cid,12026) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Jester Outfit!")
                doPlayerAddOutfitId(cid,18,0)
                setPlayerStorageValue(cid,12026,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Jester Outfit.")
        end
   elseif item.uid == 12018 then
          if (getPlayerStorageValue(cid,12027) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Brotherhood Outfit!")
                doPlayerAddOutfitId(cid,19,0)
                setPlayerStorageValue(cid,12027,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Brotherhood Outfit.")
        end
   elseif item.uid == 12019 then
          if (getPlayerStorageValue(cid,12028) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Demonhunter Outfit!")
                doPlayerAddOutfitId(cid,20,0)
                setPlayerStorageValue(cid,12028,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Demonhunter Outfit.")
        end
   elseif item.uid == 12020 then
          if (getPlayerStorageValue(cid,12029) == -1) then
                doPlayerSendTextMessage(cid,21,"You now have the Yalahari Outfit!")
                doPlayerAddOutfitId(cid,21,0)
                setPlayerStorageValue(cid,12029,1)
                doSendMagicEffect(getCreaturePosition(cid), math.random(1, 67))
        else
                doPlayerSendTextMessage(cid,25,"You Already have the Yalahari Outfit.")
        end
    end
        return TRUE
end

otspub:rusty_remover_by_tarjei_lua

Tue, 27 Apr 2010 18:30:48 +0200

Autor: Trajer
Licencja Brak opisu na stronie autora
Opracowanie: Moqill
Testowane: TFS 0.4_

Do data/actions/scripts/tools/ dodajemy:

rustyremover.lua

-------------------------------------------------
-------------------CONFIGURE-----------------------
-------------------------------------------------
 
	local config = {
 			rustyarmorid = 9808,
			rustylegsid = 9813,
			rustyremoveid = 9930
			}
---------------------CHANCES------------------------
	local prizes = { 
			armors = {
				{5,2472},-- mpa
				{10,2466},-- golden armor
				{50,2487},-- crown armor
				{100,8891}, --paladin armor
				{500,2463}, --plate armor
				{800,2465}, --brass
				{850,2464}, --chain arm
				{900,2483} --studded armor
 
 
				},
 
			 legs ={
				 {5,2470},--golden legs	
				 {30,2488},--crown legs
				 {400,2477},--knight legs
				 {600,2647},--plate legs
				 {750,2478},--brass legs
				 {800,2648},--chainlegs
				 {900,2468}--studded legs
 
				}
			}
----------------------------------------------------------
 
function onUse(cid, item, fromPosition, itemEx, toPosition)
 
	if item.itemid == config.rustyremoveid then
		if itemEx.itemid == config.rustyarmorid then
           	 local prize1 = {}
           	 local reward1 = 0 
			for i = 1, #prizes.armors do
				prize1 = prizes.armors[i]
				rand = math.random(0,999)
			 	if  rand < prize1[1] then
                   			 reward1 = prize1[2] 
					doTransformItem(itemEx.uid, reward1)
					doSendMagicEffect(toPosition,CONST_ME_BLOCKHIT)
					doPlayerRemoveItem(cid, 9930, 1)
				break 
				elseif rand > 900 then
					doRemoveItem(itemEx.uid)
					doPlayerRemoveItem(cid, 9930, 1)
					doSendMagicEffect(toPosition,CONST_ME_POFF)
 
				break
				 end
			end
 
		elseif itemEx.itemid == config.rustylegsid then
           	 local prize = {}
           	 local reward = 0 
			for i = 1, #prizes.legs do
				prize = prizes.legs[i]
				rand = math.random(0,999)
			 	if rand < prize[1] then
                   			 reward = prize[2] 
					doTransformItem(itemEx.uid, reward)
					doSendMagicEffect(toPosition,CONST_ME_BLOCKHIT)
					doPlayerRemoveItem(cid, 9930, 1)
				break 
				elseif rand > 900 then
					doRemoveItem(itemEx.uid)
					doPlayerRemoveItem(cid, 9930, 1)
					doSendMagicEffect(toPosition,CONST_ME_POFF)
				break
 
 
				 end
			end
 
		else
			return FALSE
 
		end
 
 
	end
return TRUE
end

Do action.xml dodajemy linijke

<action itemid="9930" event="script" value="tools/rustyremover.lua" />

Gotowe :)

otspub:skrypt_powitalny_by_kielb

Wed, 28 Apr 2010 19:38:17 +0200

Autor: kielb

Licencja: brak

Mój pierwszy skrypt troche banalny ale cóż zawsze jest :). Skrypt ma na celu widać gracza gdy on się zaloguje.

Część LUA

Wchodzimy do folderu data\creaturescripts\scripts\ tam tworzymy plik witaj.lua a jego zawartość to:

witaj.lua

function onLogin(cid)
doPlayerSendTextMessage(cid,22,"Witaj na RealiaOTS "..getPlayerName(cid).."!")
		return TRUE
	end

Dodajemy również linijkę do data\creaturescripts\creaturescripts.xml o to ona:

<event type="login" name="FirstItems" script="witaj.lua"/>

Gotowe! Każdy gracz gdy wejdzie dostanie powitalną wiadomość!

otspub:skrypty

Thu, 14 Apr 2011 19:37:04 +0200

Skrypty

By moqill

otspub:skrzynki.lua_na_tablicy

Tue, 04 May 2010 22:28:38 +0200

Skrypt by Moqill
Licencja: Nie może się znaleść na innych stronach www. Można sobie skorzytać w silniczku tylko…
Testowane: tfs 0.4_

Pliczek chest.lua

chest.lua

local config = {
	[uid] = {storage=ID, item=ID}, -- uid to uniqudeid skrzynki, storage to to co dopisuje się w bazie, item id przedmiotu którym ma otrzymać gracz
[uid] = {storage=ID, item=ID},
[uid] = {storage=ID, item=ID}
}
 
function onUse(cid, item, frompos, item2, topos)
 
	local cfg=config[item.uid]
		if getPlayerStorageValue(cid, cfg.storage) == -1 then
			doPlayerSendTextMessage(cid,22,"You have found "..getItemNameById(cfg.item)..".")
			doPlayerAddItem(cid,cfg.item,1)
			setPlayerStorageValue(cid,cfg.storage,1)
		else 
			doPlayerSendTextMessage(cid,22,"It is empty.")
		end
	return true
end

do action.xml dodajemy jedna z linijek do wyboru

action.xml

<action itemid="itemid_skrzynli;itemid_skrzynli;itemid_skrzynli" script="chest.lua" />
<action uniqueid="odjakiegouid-dojakiegouid" script="chest.lua" />

otspub:stamina_doll_dobre_do_sms_shopu_by_backy

Wed, 28 Apr 2010 15:45:06 +0200

Autor: Backy klik

Licencja: Nie ma

Jest to dobry przedmiot do naszego sklepiku jeśli prowadzimy serwer RPG.

No to zaczynamy ! Wchodzimy do katalogu data/actions/scripts/ tworzymy plik stamina-refuel.lua i wklejamy do niego:

stamina-refuel.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
	local cfg = {}
	cfg.refuel = 42 * 60 * 1000
	if(getPlayerStamina(cid) >= cfg.refuel) then
		doPlayerSendCancel(cid, "Your stamina is already full.")
	elseif(not isPremium(cid)) then
		doPlayerSendCancel(cid, "You must have a premium account.")
	else
		doPlayerSetStamina(cid, cfg.refuel)
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Your stamina has been refilled.")
		doRemoveItem(item.uid)
	end
	return true
end

data/actions/actions.xml dodajemy linjke:

 
<action itemid="TUTAJ ID ITEMA" script="stamina-refuel.lua"/>

TUTAJ ID ITEMA- tutaj musimy wybrac id itema pod jakim bedzie urzywany skrypt.

Gotowe!

otspub:start

Tue, 27 Apr 2010 18:15:58 +0200

Publicznie dostępne otsowe sprawy

Skrypty

otspub:statystyki_smsow

Thu, 10 Feb 2011 20:05:18 +0200

Autor: Karpio
Licencja: public domain

total_shop.php

<?php
# Script by Karpio
echo '<html><head><title>ValturiaOTS - Total Shop</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head><body>';
$koszta = 120;
$pass = "ProsteHaslo"; # Twoje hasło tutaj;

	if(empty($_REQUEST["pass"]))
	{
		echo '<form action="total_shop.php" method="POST"><input type="password" name="pass" />&nbsp;<input type="submit" value="Zaloguj" /></form>';
	}
	elseif($_REQUEST["pass"] !== $pass)
	{
		echo '<strong style="color:red;">Błędne hasło!</strong><br /><form action="total_shop.php" method="POST"><input type="password" name="pass" />&nbsp;<input type="submit" value="Zaloguj" /></form>';
	}
	else
	{
		include("config-and-functions.php");
		$cash = $SQL->query("SELECT * FROM `sms_cost`;")->fetchAll();
		if(empty($cash))
			echo 'Brak pieniędzy na koncie.';
		else
		{
			echo '<table style="border: 1px solid navy;">';
			$i = 0;
			$t = 0;
			$suma = 0;
			$tenMiesiac = 0;
			$za3zl = 0;
			$za6zl = 0;
			$za9zl = 0;
			$razempieniadze = array(0,0,0);
			foreach($cash as $kasa)
			{
				$suma += $kasa["cash"];
				$data = explode(" ", $kasa["date"]);
				$data = explode("-", $data[0]);
				if($data[0] == date("Y") && $data[1] == date("m"))
				{
					$tenMiesiac += $kasa["cash"];
					$t++;
					if(floor($kasa['cash']) == 1) { $za3zl++; $razempieniadze[0] += $kasa['cash']; }
					elseif(floor($kasa['cash']) == 2) { $za6zl++; $razempieniadze[1] += $kasa['cash']; }
					elseif(floor($kasa['cash']) == 3) { $za9zl++; $razempieniadze[2] += $kasa['cash']; }
				}
				$i++;
			}
			echo '<tr><td><strong>Suma:</strong></td><td>'.$suma.'zł</td></tr><tr><td><strong>Za ten miesiąc:</strong></td><td>'.$tenMiesiac.'zł</td></tr><tr><td><strong>Wysłano:</strong></td><td>'.$i.' sms\'ów</td></tr>
			<tr><td style="font-weight:bold;">Wysłano <small>(ten miesiąc)</small>:</td><td>'.$t.' sms\'ów</td></tr>
			<tr style="border-top: 1px solid navy;"><td><strong>Na czysto:</strong></td><td>'.round((($tenMiesiac * 0.81) - $koszta), 2).'zł</td></tr>';
			echo '</table>';
			echo '<br /><br />Liczba SMSów:<br /><ul><li>za 3zł: <strong>'.$za3zl.'</strong></li><li>za 6zł: <strong>'.$za6zl.'</strong></li><li>za 9zł: <strong>'.$za9zl.'</strong></li></ul><br />Pieniędzy z SMSów:<br /><ul><li>za 3zł: <strong>'.$razempieniadze[0].'</strong>zł</li><li>za 6zł: <strong>'.$razempieniadze[1].'</strong>zł</li><li>za 9zł: <strong>'.$razempieniadze[2].'</strong>zł</li></ul>';
		}
	}	
echo '</body>';
?>

Wrzucamy plik do folderu z naszą stroną www.

System wymaga skryptu Kowola na zliczanie SMSów.

otspub:system_aukcji_by_vdk_all_fixed

Wed, 28 Apr 2010 15:41:29 +0200

Autor: vDk Źródło: Klik

Licencja: Rób co chcesz byle by nie zmieniać autora

System ma usunięte wszystkie dotychczasowe błędy typu: klonowanie przedmiotów. Działa bez błędnie na tfs: 0.3.4 , 0.3.5 , 0.3.6 !

Skrypt działa na zasadzie: gracz x wystawia przedmiot na aukcje za 10k musi wyjść wiec wychodzi z gry. Gracz y zauważa na stronie atrakcyjną oferte i kupuje przedmiot na aukcji.Graczowi y zostaje zabrane 10k a dostaje przedmiot który kupił a gracz x otrzymuje 10k które ma w plecaku.

No to zaczynamy!

Część SQL

ALTER TABLE `players` ADD `auction_balance` INT( 11 ) NOT NULL DEFAULT '0';
 
oraz
 
CREATE TABLE `auction_system` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `player` int(11),
  `item_id` int(11),
  `item_name` varchar(255),
  `count` int(11),
  `cost` int(11),
  `date` int(11),
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

Część PHP

Robimy plik auctionsystem.php i wklejamy do niego:

auctionsystem.php

   <?PHP
$auctions = $SQL->query('SELECT `auction_system`.`player`, `auction_system`.`id`, `auction_system`.`item_name`, `auction_system`.`item_id`, `auction_system`.`count`, `auction_system`.`cost`, `auction_system`.`date`, `players`.`name` FROM `auction_system`, `players` WHERE `players`.`id` = `auction_system`.`player` ORDER BY `auction_system`.`id` DESC')->fetchAll();
$players = 0;
 
    $main_content .= '<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%><TR BGCOLOR="'.$config['site']['vdarkborder'].'"><TD CLASS=white><b>Instruction<b></TD></TR><TR BGCOLOR='.$config['site']['darkborder'].'><TD><center><h2>Commands</h2><b>!offer add, itemName, itemPrice, itemCount</b><br /><small>example: !offer add, plate armor, 500, 1</small><br /><br /><B>!offer buy, AuctionID</b><br /><small>example: !offer buy, 1943</small><br /><br /><b>!offer remove, AuctionID</b><br /><small>example: !offer remove, 1943</small><br /><br /><b>!offer withdraw</b><br /><small>Use this command to get money for sold items.</small></center></TR></TD></TABLE><br />';
    if(empty($auctions))
    {
        $main_content .= '<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%><TR BGCOLOR="'.$config['site']['vdarkborder'].'"><TD CLASS=white><b>Auctions</b></td></TR><TR BGCOLOR='.$config['site']['darkborder'].'><TD>Currently is no one active Auction.</TD></TR></TABLE>';
        $main_content .= '<br /><p align="right"><small>System created by <a href="http://otland.net/members/vDk/">vDk</a>.</small></p>';
    }
    else
    {
    foreach($auctions as $auction) {
        $players++;
            if(is_int($players / 2))
                $bgcolor = $config['site']['lightborder'];
            else
                $bgcolor = $config['site']['darkborder'];
        $cost = round($auction['cost']/1000, 2);
        $content .= '<TR BGCOLOR='.$bgcolor.'><TD><center>'.$auction['id'].'</center></TD><TD><center><img src="http://otland.net/images/items/'.$auction['item_id'].'.gif"/></center></TD><TD><center>'.$auction['item_name'].'</center></TD><TD><center><a href="?subtopic=characters&name='.urlencode($auction['name']).'">'.$auction['name'].'</a></center></TD><TD><center>'.$auction['count'].'</center></TD><TD><center>'.$cost.'k<br /><small>'.$auction['cost'].'gp</small></center></TD><TD><center>!offer buy, '.$auction['id'].'</center></TR>';
    }
 
    $main_content .= '<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%><TR BGCOLOR="'.$config['site']['vdarkborder'].'"><TD CLASS=white><b><center>ID</center></b></TD><TD class="white"><b><center>#</center></b></TD><TD class="white"><b><center>Item Name</center></b></TD><TD class="white"><b><center>Player</center></b></TD><TD class="white"><b><center>Count</center></b></TD><TD class="white"><b><center>Cost</center></b></td><TD class="white"><b><center>Buy</center></b></td></TR>'.$content.'</TABLE>';
    $main_content .= '<br /><p align="right"><small>System created by <a href="http://otland.net/members/vDk/">vDk</a>.</small></p>';
}
    ?>

Pamiętamy też aby dodać to do index.php

   case "auctionsystem";
          $topic = "Auction System";
          $subtopic = "auctionsystem";
          include("auctionsystem.php");
        break;

Oraz do naszego layouta!( tutaj nie będę podwał ponieważ każdy może mieć inny sposób dodawania.)

Część LUA

Wchodzimy do katalogu /data/talkactions/talkactions.xml tam dodajemy linijkę:

<talkaction words="!offer" event="script" value="auctionsystem.lua"/>

Nastepnie przechodzimy do katalogu /data/talkactions/scripts/ i tam tworzymy plik auctionsystem.lua oraz dodajemy do niego:

auctionsystem.lua

  --[[
        Offline player to player item trader (Auction System) by vDk
                Script version: 1.2a [ -- FIXED CLONE ITEMS BUG -- ]
]]--
local config = {
        levelRequiredToAdd = 20,
        maxOffersPerPlayer = 5,
        SendOffersOnlyInPZ = true,
        blocked_items = {2165, 2152, 2148, 2160, 2166, 2167, 2168, 2169, 2202, 2203, 2204, 2205, 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2343, 2433, 2640, 6132, 6300, 6301, 9932, 9933}
        }
function onSay(cid, words, param, channel)
        if(param == '') then
                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.")
                return true
        end
 
        local t = string.explode(param, ",")
        if(t[1] == "add") then
                if((not t[2]) or (not t[3]) or (not t[4])) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.")
                        return true
                end
 
                if(not tonumber(t[3]) or (not tonumber(t[4]))) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't set valid price or items count.")
                        return true
                end
 
                if(string.len(t[3]) > 7 or (string.len(t[4]) > 3)) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This price or item count is too high.")
                        return true
                end
 
                local item = getItemIdByName(t[2], false)
                if(not item) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Item wich such name does not exists.")
                        return true
                end
 
                if(getPlayerLevel(cid) < config.levelRequiredToAdd) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't have required (" .. config.levelRequiredToAdd .. ") level.")
                        return true
                end
 
                if(isInArray(config.blocked_items, item)) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This item is blocked.")
                        return true
                end
 
                if(getPlayerItemCount(cid, item) < (tonumber(t[4]))) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, you don't have this item(s).")
                        return true
                end
 
                local check = db.getResult("SELECT `id` FROM `auction_system` WHERE `player` = " .. getPlayerGUID(cid) .. ";")
                if(check:getID() == -1) then
                elseif(check:getRows(true) >= config.maxOffersPerPlayer) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't add more offers (max. " .. config.maxOffersPerPlayer .. ")")
                        return true
                end
 
                if(config.SendOffersOnlyInPZ) then    
                        if(not getTilePzInfo(getPlayerPosition(cid))) then
                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You must be in PZ area when you add offert to database.")
                                return true
                        end
                end
 
                if(tonumber(t[4]) < 1 or (tonumber(t[3]) < 1)) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to type a number higher than 0.")
                        return true
                end
 
                local itemcount, costgp = math.floor(t[4]), math.floor(t[3])
                doPlayerRemoveItem(cid, item, itemcount)
                db.executeQuery("INSERT INTO `auction_system` (`player`, `item_name`, `item_id`, `count`, `cost`, `date`) VALUES (" .. getPlayerGUID(cid) .. ", \"" .. t[2] .. "\", " .. getItemIdByName(t[2]) .. ", " .. itemcount .. ", " .. costgp ..", " .. os.time() .. ")")
                doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You successfully add " .. itemcount .." " .. t[2] .." for " .. costgp .. " gps to offerts database.")
        end
 
        if(t[1] == "buy") then
                if(not tonumber(t[2])) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.")
                        return true
                end
 
                local buy = db.getResult("SELECT * FROM `auction_system` WHERE `id` = " .. (tonumber(t[2])) .. ";")
                if(buy:getID() ~= -1) then
                        if(getPlayerMoney(cid) < buy:getDataInt("cost")) then
                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don't have enoguh GP.")
                                buy:free()
                                return true
                        end
 
                        if(getPlayerName(cid) == getPlayerNameByGUID(buy:getDataInt("player"))) then
                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry, you can't buy your own items.")
                                buy:free()
                                return true
                        end
 
                        if(getPlayerFreeCap(cid) < getItemWeightById(buy:getDataInt("item_id"), buy:getDataInt("count")))then
                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You try to buy a " .. buy:getDataString("item_name") .. ". It weight " .. getItemWeightById(buy:getDataInt("item_id"), buy:getDataInt("count")) .. " cap oz. and you have only " .. getPlayerFreeCap(cid) .. " oz. free capacity. Put some items to depot and try again.")
                                buy:free()
                                return true
                        end
 
                        if(isItemStackable((buy:getDataString("item_id")))) then
                                doPlayerAddItem(cid, buy:getDataString("item_id"), buy:getDataInt("count"))
                        else
                                for i = 1, buy:getDataInt("count") do
                                        doPlayerAddItem(cid, buy:getDataString("item_id"), 1)
                                end
                        end
 
                        doPlayerRemoveMoney(cid, buy:getDataInt("cost"))
                        db.executeQuery("DELETE FROM `auction_system` WHERE `id` = " .. t[2] .. ";")
                        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You bought " .. buy:getDataInt("count") .. " ".. buy:getDataString("item_name") .. " for " .. buy:getDataInt("cost") .. " gps!")
                        db.executeQuery("UPDATE `players` SET `auction_balance` = `auction_balance` + " .. buy:getDataInt("cost") .. " WHERE `id` = " .. buy:getDataInt("player") .. ";")
                        buy:free()
                else
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.")
                end
        end
 
        if(t[1] == "remove") then
                if((not tonumber(t[2]))) then
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.")
                        return true
                end
 
                                if(config.SendOffersOnlyInPZ) then    
                                        if(not getTilePzInfo(getPlayerPosition(cid))) then
                                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You must be in PZ area when you remove offerts from database.")
                                                return true
                                        end
                end
 
                local delete = db.getResult("SELECT * FROM `auction_system` WHERE `id` = " .. (tonumber(t[2])) .. ";")        
                if(delete:getID() ~= -1) then
                        if(getPlayerGUID(cid) == delete:getDataInt("player")) then
                                db.executeQuery("DELETE FROM `auction_system` WHERE `id` = " .. t[2] .. ";")
                                if(isItemStackable(delete:getDataString("item_id"))) then
                                        doPlayerAddItem(cid, delete:getDataString("item_id"), delete:getDataInt("count"))
                                else
                                        for i = 1, delete:getDataInt("count") do
                                                doPlayerAddItem(cid, delete:getDataString("item_id"), 1)
                                        end
                                end
 
                                doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your offert has been deleted from offerts database.")
                        else
                                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "This is not your offert!")
                        end
                delete:free()
                else
                        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Wrong ID.")
                end
        end
 
        if(t[1] == "withdraw") then
                local balance = db.getResult("SELECT `auction_balance` FROM `players` WHERE `id` = " .. getPlayerGUID(cid) .. ";")
                if(balance:getDataInt("auction_balance") < 1) then
                        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have money on your auction balance.")
                        balance:free()
                        return true
                end
 
                doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You got " .. balance:getDataInt("auction_balance") .. " gps from auction system!")
                doPlayerAddMoney(cid, balance:getDataInt("auction_balance"))
                db.executeQuery("UPDATE `players` SET `auction_balance` = '0' WHERE `id` = " .. getPlayerGUID(cid) .. ";")
                balance:free()
        end
        return true
end

Gotowe!

otspub:system_huntowania_graczy_by_infinity

Wed, 28 Apr 2010 15:44:00 +0200

Autor :Infinity z oTibia.net klik

Licencja : Rób co chcesz byle by nie zmieniać autora

Skrypt działa na zasadzie gdy gracz x został zabity przez gracza y (zdenerwował sie bo ma dużo mniejszy level niż gracz y) ma on dużo pieniędzy wiec zamawia hunta graczowi y. Za jego głowę płaci 100k. Gracz z zabija gracza y i otrzymuje nagrodę w wysokości 100k.

Teraz konkrety:

Część SQL

CREATE TABLE IF NOT EXISTS `bounty_hunters` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `fp_id` int(11) NOT NULL,
  `sp_id` int(11) NOT NULL,
  `k_id` int(11) NOT NULL,
  `added` int(15) NOT NULL,
  `prize` bigint(20) NOT NULL,
  `killed` int(11) NOT NULL,
  `kill_time` int(15) NOT NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

Część LUA

Wchodzimy do katalogu /data/talkactions/scripts/ tworzymy plik bh-add.lua dodajemy do niego:

bh-add.lua

function onSay(cid, words, param)
if(param == "") then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] Use: \"!hunt [prize],[nick]\" where prize is for example 1(k).")
		return TRUE
	end
	local t = string.explode(param, ",")
	if(not t[2]) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] Use: \"!hunt [prize],[nick]\" where prize is for example 1(k).")
		return TRUE
	end
 
	local sp_id = getPlayerGUIDByName(t[2])
	if sp_id == nil then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] This player doesn't exists.")		
		return TRUE
	end
 
    local result_plr = db.getResult("SELECT * FROM `bounty_hunters` WHERE `sp_id` = "..sp_id.." AND `killed` = 0;")
    if(result_plr:getID() ~= -1) then
		is = tonumber(result_plr:getDataInt("sp_id"))
		result_plr:free()
    else
		is = 0
    end
    prize = tonumber(t[1])
 
	if(prize == nil or prize < 1) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] Use: \"!hunt [prize],[nick]\" where prize is for example 1(k).")
		return TRUE
	end
 
	if(prize >= 100000000000000000000) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] Sorry, you typed too big number!")
		return TRUE
	end
 
	if is ~= 0 then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] This player has already hunted.")	
		return TRUE
	end
 
		if doPlayerRemoveMoney(cid, prize*1000) == TRUE then
		    db.executeQuery("INSERT INTO `bounty_hunters` VALUES (NULL,"..getPlayerGUID(cid)..","..sp_id..",0," .. os.time() .. ","..prize..",0,0);")
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] Hunt has been added!")			
		else
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[BOUNTY HUNTERS] You haven't got enough money!")			
		end
 
 
	return 1
end

Następnie wchodzimy do katalogu /data/talkactions/talkactions.xml/ i dodajemy linijkę:

<talkaction access="0" log="no" filter="word" words="!hunt" script="bh-add.lua" />

Kolejnym krokiem jest wejście do katalogu data/creaturescript/creaturescripts.xml i dodanie linijki:

<event type="kill" name="BountyHunter" script="kill.lua"/>

Następnie data/creaturescripts/scripts/ otwieramy plik login.lua i dodajemy tam linijkę:

POD LINIJKA!
	registerCreatureEvent(cid, "PlayerDeath")
DODAC TO
	registerCreatureEvent(cid, "BountyHunter")

Zostajemy w katalogu data/creaturescripts/scripts/ i tworzymy plik kill.lua wklejamy do niego:

kill.lua

function onKill(cid, target)
if isPlayer(target) == TRUE then
---- BOUNTY HUNTERS START -----
pid = cid
pid2 = getPlayerGUID(target)
    local result_plr = db.getResult("SELECT * FROM `bounty_hunters` WHERE `sp_id` = "..pid2.." AND `killed` = 0;")
    if(result_plr:getID() ~= -1) then
    prize = tonumber(result_plr:getDataInt("prize"))
    bid = tonumber(result_plr:getDataInt("id"))
	result_plr:free()
    else
    prize = 0
	bid = 0
    end
 
if (bid ~= 0 and prize ~= 0 and not(getTileInfo(getCreaturePosition(cid)).pvp)) then
    db.executeQuery("UPDATE `bounty_hunters` SET `killed` = 1, `k_id`="..getPlayerGUID(cid)..", `kill_time` = " .. os.time() .. " WHERE `id`  = "..bid..";")
	doPlayerAddMoney(cid,prize*1000)
	doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_BLUE,'[BOUNTY HUNTERS] You killed hunted player, so you gained the reward!')
end	
---- BOUNTY HUNTERS END -----
end
return TRUE
end

Część PHP

Tworzymy plik bounty-hunters.php w katalogu z naszym acc makerem.

bounty-hunters.php

   <?php
@mysql_connect("localhost","user","password");
@mysql_select_db("database");
 
$main_content .= '<P ALIGN=CENTER>
    <br>
    <FONT SIZE=5 COLOR=#CFF00C>
        How to use...
    </FONT>
    <br>
    <br>
    <FONT SIZE=2 COLOR=#CFF00C>
    * !hunt [prize],[nick] :
        <FONT SIZE=1 COLOR=#FCC33F>
            Wysyla ogloszenie o huncie dla postaci. Cena w tysiacach.<br>
            Przyklad: !hunt 100,Infinity
        </FONT><br>
    </FONT>
</P>
<br>
<br>
    <center>
        <h1>
            Bounty Hunters
        </h1>
    </center>
        <TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%>
            <TR BGCOLOR="#505050">
                <TD CLASS=white width=30%>
                    <center><B>Zlecil</B></center>
                </TD>
                <TD CLASS=white width=30%>
                    <center><B>Nagroda</B></center>
                </TD>
                <TD CLASS=white width=30%>
                    <center><B>Ofiara</B></center>
                </TD>
                <TD CLASS=white width=10%>
                    <center><B>Zabity przez</B></center>
                </TD>
            </TR>';
 $inv = @mysql_query("SELECT * FROM `bounty_hunters` ORDER BY `added` DESC");
$num = 0;
$color=$config['site']['darkborder'];
while($tab = @mysql_fetch_array($inv)){
if($num%2 == 0){$color=$config['site']['darkborder'];}else{$color=$config['site']['lightborder'];}
$pid = $tab['fp_id'];
$sid = $tab['sp_id'];
$kid = $tab['k_id'];
$killed = $tab['killed'];
$prize = $tab['prize']*1000;
if($killed == 0){
$kill = '<font color="red">Nobody!</font>';
}else{
$k = @mysql_query("SELECT * FROM `players` WHERE `id` = ".$kid."");
$k1 = @mysql_fetch_array($k);
$kill_name = $k1['name'];
$kill = '<a href="index.php?subtopic=characters&name='.$kill_name.'">'.$kill_name.'</a>';
}
$f = @mysql_query("SELECT * FROM `players` WHERE `id` = ".$pid."");
$f1 = @mysql_fetch_array($f);
$s = @mysql_query("SELECT * FROM `players` WHERE `id` = ".$sid."");
$s1 = @mysql_fetch_array($s);
$fn = $f1['name'];
$sn = $s1['name'];
 
$main_content .= '
        <TR BGCOLOR="'.$color.'">
            <TD>
                <center>
                    <b>
                        <a href="index.php?subtopic=characters&name='.$fn.'">'.$fn.'</a>
                    </b>
                </center>
            </TD>
            <TD>
                <center>
                    <b>
                        '.$prize.' gp
                    </b>
                </center>
            </TD>
            <TD>
                <center>
                    <b>
                        <a href="index.php?subtopic=characters&name='.$sn.'">'.$sn.'</a>
                    </b>
                </center>
            </TD>
            <TD>
                <center>
                    <b>
                        '.$kill.'
                    </b>
                </center>
            </TD>
        </TR>';
$num++;
}
if($num == 0){
        $main_content.='<TR BGCOLOR="'.$color.'">
            <TD colspan=4>
                <center>
                    Currently there are not any bounty hunter offer.
                </center>
            </TD>
        </TR>';
}
        $main_content .='</TABLE><div align="right">Copyright &copy; <a href="http://otibia.net">oTibia.net</a>.</div>';
?>

Teraz dodajemy to do naszego index.php :

POD 
 
    case "guilds";
        $topic = "Guilds";
        $subtopic = "guilds";
        include("guilds.php");
    break;  
 
WKLEJAMY TO
 
    case "bounty-hunters";
        $topic = "Bounty Hunters";
        $subtopic = "characters";
        include("bounty-hunters.php");
    break;

To dodajemy do naszego layouta jeśli używamy tibiacom layout:

<a href='index.php?subtopic=bounty-hunters'>
  <div id='submenu_bounty' class='Submenuitem' onMouseOver='MouseOverSubmenuItem(this)' onMouseOut='MouseOutSubmenuItem(this)'>
    <div class='LeftChain' style='background-image:url(<?PHP echo $layout_name; ?>/images/general/chain.gif);'></div>
 
    <div id='ActiveSubmenuItemIcon_biunty' class='ActiveSubmenuItemIcon' style='background-image:url(<?PHP echo $layout_name; ?>/images/menu/icon-activesubmenu.gif);'></div>
    <div class='SubmenuitemLabel'>Bounty Hunters</div>
    <div class='RightChain' style='background-image:url(<?PHP echo $layout_name; ?>/images/general/chain.gif);'></div>
  </div>

PAMIETAJ! SYSTEM NIE DZIAŁA W SQLite TYLKO MySQL!

otspub:system_reportow_by_guitar_freak

Wed, 28 Apr 2010 15:59:27 +0200

Autor: Guitar Freak klik

Licencja: Brak

Skrypt działa na zasadzie “normalnego” systemu reportów który mamy w tfsie lecz ten jest lepszy poniewaz gracz który zaraportuje “buga” mapy możemy sprawdzić gdzie on jest ponieważ wiadomość oraz pozycja gracza zapisuje się w folderze /data/logs/report.txt/

Teraz przechodzimy do konkretów!

Część LUA

Wchodzimy do folderu /data/lib/ otwieramy znajdujący się tam plik function.lua i wklejamy do niego:

  function setExhaust(cid, storage)
    setPlayerStorageValue(cid, storage, os.time())
end
 
function isExhausted(cid, storage, exhaust)
    local exhaustTime = getPlayerStorageValue(cid, storage)
    if exhaustTime == -1 then
        return FALSE
    end
    local isExhausted = os.time() - exhaustTime < exhaust
    return isExhausted and TRUE or FALSE
end

Nastepnie przechodzimy do katalogu /data/talkactions/talkactions.xml/ i doklejamy linjkę:

    <talkaction log="no" words="/report" filter="quotation" event="script" value="textreports.lua"/>

Przechodzimy do /data/talkactions/scripts/ i tworzymy plik textreports.lua :

textreports.lua

        -- Credits --
        -- References: Shawak & Colandus.
        -- Modifications: Guitar Freak.
 
        local level = 8                         -- Minimum level to send a report.
        local minimum = 3                       -- Minimum characters per report.
        local maximum = 85                      -- Maximum characters per report.
 
        local useExhaust = true         -- True if you want to use exhaustion, false if not.
        local storageValue = 8000       -- Needed for exhaustion to work. Set to any unused value you wish.
        local exhaustTime = 15          -- Exhaust time between each report (15 = 15 seconds).
 
        local getVoc = getPlayerVocationName(cid)
        local position = getCreaturePosition(cid)
 
function onSay(cid, words, param, channel)
 
        if getPlayerLevel(cid) < level then
                        doPlayerSendTextMessage(cid,20,"Report Manager:")
                        doPlayerSendTextMessage(cid,18,"You need to be at least level "..level.." to send a report.")
 
                elseif (useExhaust and isExhausted(cid, storageValue, exhaustTime) == TRUE) then
                        doPlayerSendTextMessage(cid,20,"Report Manager:")
                        doPlayerSendTextMessage(cid,18,"Sorry, you need to wait "..exhaustTime.." seconds before sending another report.")
 
                elseif param:len() < minimum then
                        doPlayerSendTextMessage(cid,20,"Report Manager:")
                        doPlayerSendTextMessage(cid,18,"Sorry, you need to enter atleast " .. minimum .. " characters to send in a report.")
 
                elseif param:len() > maximum then
                        doPlayerSendTextMessage(cid,20,"Report Manager:")
                        doPlayerSendTextMessage(cid,18,"Sorry, you can only write max. " .. maximum .. " characters per report.")
 
                else
                        Log = io.open(getDataDir().."logs/Reports.txt", "a+")
                        Log:write("Sent: "..os.date("%A %I:%M:%S %p.").."\n")
                        Log:write("From position: X = "..position.x.." | Y = "..position.y.." | Z = "..position.z.."\n")
                        Log:write(""..getPlayerName(cid).." ["..getPlayerLevel(cid).."] ("..getVoc.."): "..param.."\n\n")
                        Log:close()
                                doPlayerSendTextMessage(cid,20,"Report Manager:")
                                doPlayerSendTextMessage(cid,27,"You have successfully sent your report. Thanks for your support.")
                                setExhaust(cid, storageValue)
                end
                return TRUE
end

Testowany na tfs 0.3.4 oraz 0.3.5 ! Komendy w grze /report tekst

otspub:vip_most_by_legolas23

Wed, 28 Apr 2010 15:45:57 +0200

Autor: legolas23 Źródło: | Kilik

Licencja: Nie ma.

Zamieścił: kielb

Wchodzimy do katalogu /data/movements/scripts/ i tworzymy katalog vipbridge.lua

vipbridge.lua

function onStepIn(cid, item, position, fromPosition)
 
local config = {
uniqueid = 1234,   ---item unique id
vipstorage = 1234, ---- storage of vip player
kickpos = {x=1232, y=234, z=234, stackpos=1 } --- position where non vip player will be kicked
}
 
    if(item.uid == config.uniqueid) then
        if (getPlayerStorageValue(cid, config.vipstorage) == 0) then
			doTeleportThing(cid, config.kickpos)
			doCreatureSay(cid, "Only Vip players can pass here!, TALKTYPE_ORANGE_2, getCreaturePosition(cid))
		else
			doPlayerSendTextMessage(cid, 20, 'Hiho vip Player!')		
		end
return TRUE
end

Nastepnie do /data/movements/movements.xml i dodajemy linijkę

<movevent type="StepIn" itemid="UNIQUEID HERE" event="script" value="vipbridge.lua"/>

otspub:vip_system_by_mock_vip_medal_door_by_moqill_lua

Tue, 27 Apr 2010 18:29:56 +0200

Autor głównego system to: Mock link licencja: ~brak opisu~
Autorem dodatkowego mebla i drzwi: Moqill Licencja: Rób co chcesz byle by nie zmieniać autora

Testowane na: tfs 0.4_

Najpierw uaktualniamy baze danych o linijke

ALTER TABLE `accounts` ADD `vip_time` INT( 15 ) NOT NULL

Dodajem w data/lib/ plik o naziw vip_system.lua. Wklejamy w niego

vip_system.lua

vip = {
   name = "Vip system";
   author = "Mock";
   version = "1.0.0.0";
   query="ALTER TABLE `accounts` ADD `vip_time` INT( 15 ) NOT NULL"
}
function vip.setTable()
   db.executeQuery(vip.query)
end
function vip.getVip(cid)
         assert(tonumber(cid),'Parameter must be a number')
         if isPlayer(cid) == FALSE then error('Player don\'t find') end;
         ae =  db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = "..getPlayerAccount(cid)..";")
         if ae:getID() == -1 then
            return 0
         end
         return ae:getDataInt("vip_time") or 0
end
 
function vip.getVipByAcc(acc)
         assert(acc,'Account is nil')
         local a = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = "..acc..";")
         if a:getID() ~= -1 then
             return a:getDataInt("vip_time") or 0
         else
             error('Account don\'t find.')
         end
end
 
function vip.setVip(cid,time)
         dofile("config.lua")
         assert(tonumber(cid),'Parameter must be a number')
         assert(tonumber(time),'Parameter must be a number')
         if isPlayer(cid) == FALSE then error('Player don\'t find') end;
         db.executeQuery("UPDATE `"..sqlDatabase.."`.`accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` =".. getPlayerAccount(cid).." LIMIT 1 ;")
end
 
function vip.getVipByAccount(acc)
         assert(acc,'Account is nil')
         return db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = "..acc..";"):getDataInt("vip_time") or 0
end                                      
 
function vip.hasVip(cid)
         assert(tonumber(cid),'Parameter must be a number')
         if isPlayer(cid) == FALSE then error('Player don\'t find') end;
         local t = vip.getVip(cid) or 0
         if os.time(day) < t then
            return TRUE
         else
            return FALSE
         end
end
 
function vip.accountHasVip(acc)
         assert(acc,'Account is nil')
         if os.time() < vip.getVipByAccount(acc) then
            return TRUE
         else
            return FALSE
         end
end
function vip.getDays(days)
   return (3600 * 24 * days)
end
function vip.addVipByAccount(acc,time)
   assert(acc,'Account is nil')
   assert(tonumber(time),'Parameter must be a number')
   local a = vip.getVipByAcc(acc)
   a = os.difftime(a,os.time())
   if a < 0 then a = 0 end;
   a = a+time
   return vip.setVipByAccount(acc,a)
end
function vip.setVipByAccount(acc,time)
         dofile("config.lua")
         assert(acc,'Account is nil')
         assert(tonumber(time),'Parameter must be a number')
         db.executeQuery("UPDATE `"..sqlDatabase.."`.`accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` ="..acc.." LIMIT 1 ;")
         return TRUE
end
function vip.returnVipString(cid)
   assert(tonumber(cid),'Parameter must be a number')
   if isPlayer(cid) == TRUE then
      return os.date("%d %B %Y %X ", vip.getVip(cid))
   end
end

Dodajemy do talkactions.xml linijke najlepiej gdzies pod <!– God –>

<talkaction log="yes" words="/vip" access="5" event="script" value="vip.lua"/>

Dodajemy do data/talkaction/script/ pliczek o nazwie vip.lua z treścią:

vip.lua

  function onSay(cid, words, param)
         if param == "" then
            return  doPlayerPopupFYI(cid,"Are you confused?\n Lear the commands!\n---------------\nADD vip:\n/vip add days player\n/vip add 30 mock\n---------------\nDel vip:\n/vip del player\n/vip del mock\n---------------\ncheck vip:\n/vip see player\n/vip see mock\n---------------\n")
         end
         if param:lower():find('add') == 1 and 3 then
            local ret = string.explode(param,' ',3)
            if #ret < 3 or tonumber(ret[2]) == nil or getPlayerByName(ret[3]) == false then
               return doPlayerSendTextMessage(cid,25,"Add vip:\n/vip add days player\n/vip add 30 mock\n")
            end
            vip.addVipByAccount( getPlayerAccount(getPlayerByName(ret[3])) ,vip.getDays(ret[2]))
            doPlayerSendTextMessage(cid,25,"Has benn added "..tonumber(ret[2]).." days to "..ret[3]..".")
            doPlayerSendTextMessage(getPlayerByName(ret[3]),25,"You recivied "..tonumber(ret[2]).." vip days!")
         elseif param:lower():find('del') == 1 and 3 then
            local ret = string.explode(param,' ',2)
            if #ret < 2 or getPlayerByName(ret[2]) == false then
               return doPlayerSendTextMessage(cid,25,"Del vip:\n/vip del player\n/vip del mock\n")
            end
            vip.setVipByAccount(getPlayerAccount(getPlayerByName(ret[2])),-os.time())
            doPlayerSendTextMessage(cid,25,ret[2].."'s vip has been deleted.")                                                                                                                                              
         elseif param:lower():find('see') == 1 and 3 then
            local ret = string.explode(param,' ',2)
            if #ret < 2 or getPlayerByName(ret[2]) == false then
               return doPlayerSendTextMessage(cid,25,"check vip:\n/vip see player\n/vip see mock\n")
            end
            local ret_ = vip.getVip(getPlayerByName(ret[2]))
            if ret_ == 0 then
              return doPlayerSendTextMessage(cid, 25,ret[2].." Dont have any vip")
            else
              return doPlayerSendTextMessage(cid, 25, "Vip from "..ret[2].." end in "..os.date("%d %B %Y %X ",ret_))
            end
         end
         return TRUE
end

Do actions.xml dodajemy:

<action itemid="5785" event="script" value="other/vip.lua"/> 
<action unqideid="5780" event="script" value="other/vip door.lua"/>

Tworzymy pliczek o nazwie vip.lua w data/actions/script/other z zawartością:

vip.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
local days = 30
 
                doCreatureSay(cid, "CONGRATULATIONS! You are now a VIP for "..days.." days! You can now enter the VIP-area and use unique features!. ", TALKTYPE_ORANGE_1)
           	vip.addVipByAccount(getPlayerAccount(cid), vip.getDays(days))
                doRemoveItem(item.uid, 1)
                doSendAnimatedText(getCreaturePosition(cid), "+"..days.." days", 30)   
        return TRUE
end

Tworzymy pliczek o nazwie vip_door.lua w data/actions/script/other/ z zawartością:

vip_door.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if vip.getVip(cid) > 0 then
            if getCreaturePosition(cid).y < toPosition.y then
                   doTeleportThing(cid, {x=toPosition.x,y=toPosition.y+1,z=toPosition.z}, TRUE)
            else
                     doTeleportThing(cid, {x=toPosition.x,y=toPosition.y-1,z=toPosition.z}, TRUE)
            end
         doCreatureSay(cid, "Thank you for purchasing a VIP!", TALKTYPE_ORANGE_1)
           doSendMagicEffect(getCreaturePosition(cid), 10)
      else
           doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sorry, only VIP Players can pass here!.")
      end
   return TRUE
end

Gotowe :)

otspub:wiadomosc_przy_zalogowaniu

Wed, 02 Jun 2010 16:12:28 +0200

Autor: LordGizmo

Licencja: Nie znana

Jak Się Zaloguje Jakiś Player to Wyskoczy Mu Prywatna Wiadomość: wchodzimy w Creaturescripts/scripts i robimy plik powitanie.lua :

function onLogin(cid)
doPlayerSendTextMessage(cid,22,"Elo.Zapraszamy do SmS Shop Zyczymy udanych zakupow. "..getPlayerName(cid).."!")
return TRUE
end

teraz w creaturescript.xml

<event type="login" name="FirstItems" script="powitanie.lua"/>

otspub:za_potwora_kazdy_gracz_dostaje_item_i_exp

Sat, 21 May 2011 10:07:09 +0200

do creaturescripts.xml dodajemy:

creaturescripts.xml

   <event type="kill" name="boss" script="boss.lua"/>

do login.lua dodajemy:

login.lua

registerCreatureEvent(cid, "boss")

tworzymy plik boss.lua w data/creaturescripts i wlejamy:

boss.lua

function onKill(cid, target)
       --Config (By Erexo)
   local  monstername = 'ferumbras'  -- nazwa potwora (z malych liter!)
   local  expedience = 5000  -- ile expa ma dawac (da kazdemu kto choć raz hit potwora)
   local  itemid = 1234  -- id itema
   local  itemcount = 1  -- ilosc itemow
 
   if isMonster(target) and getCreatureName(target):lower() == monstername then
   doPlayerAddExp(cid,expedience)
      doPlayerAddItem(cid, itemid, itemcount)
   end
   return true
end

otspub:zliczanie_smsow_by_kowol

Thu, 09 Jun 2011 20:30:58 +0200

Skrypt jest udostępniany na zasadach public domain.
Aby skrypt zliczał nam wysłane sms'y należy dodać poniższy skrypt do config-and-functions.php oraz uzupełnić dane dot. połączenia z serwerem sql:

Config-And-Functions.php

Wszystko wrzucamy przed znacznik ?> (znajduje się on na końcu pliku).

function sms_cost($sms){ 
	$SQL = $GLOBALS['SQL'];
	$cost = explode(" ", $sms);
	$cost_p = $cost[0] * (23/123);
	$dzialanie = 41/100; //dla homepaya to będzie 50/100
	$cas = ($cost[0] - $cost_p) * $dzialanie; 
	$cash = round ($cas, 2);  
	$SQL->query('INSERT INTO sms_cost (cash) VALUES('.$cash.')'); 
}

SQL

następnie należy wykonać zapytania do sql'a:

CREATE TABLE IF NOT EXISTS `sms_cost` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `cash` double DEFAULT NULL,
  `date` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  PRIMARY KEY (`id`)
);

Buypoints.php

Kolejno przechodzimy do buypoints.php i szukamy tego:

if(add_points($account, $config['dotpay'][$sms_type]['addpoints']))

i pod { dodajemy:

DOTPAY

sms_cost($config['dotpay'][$sms_type]['sms_cost']);

HOMEPAY

sms_cost($config['homepay'][$sms_type]['sms_cost']);

Od teraz po każdym prawidłowym wpisaniu kodu, skrypt zapisze do bazy sumę zaokrągloną do 1 miejsca po przecinku.

Poznajemy sumę pieniędzy za dany miesiąc

SELECT SUM(cash) FROM sms_cost WHERE `date` > '2010-11-0' AND `date` < '2010-12-0'

Gdzie 2010-11-0 to rok, miesiąc, dzień od którego chcemy liczyć łączną ilość kasy, a 2010-12-0 to data, do której skrypt ma zliczyć kase