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

MoveEvent Fixed Super transformer ring

Elaney

Member
Joined
Jan 1, 2009
Messages
1,561
Reaction score
12
Location
Sweden
In movements add
PHP:
<movevent event="Equip" itemid="2127" function="onEquipItem" slot="ring" script="chaosbangle.lua"/>
	<movevent event="DeEquip" itemid="2127" function="onDeEquipItem" slot="ring" script="chaosbangle.lua"/>

In movement/script add a lua file named chaosbangle

PHP:
-- >> Small config section --
 
local outfitMale =
{
lookType = 12,
lookHead = 19,
lookBody = 79,
lookLegs = 3,
lookFeet = 81,
lookAddons = 0
}
 
local outfitFemale =
{
lookType = 12,
lookHead = 19,
lookBody = 53,
lookLegs = 92,
lookFeet = 79,
lookAddons = 0
}

local cointype = 2160 -- Id of the coin the spell will use (2148 = gold coin, 2152 = platinum coin, 2160 = crystal coin) --
local tbcw = 2000 -- coin wasting time interval (miliseconds) --
local ncws = 1 -- number of coins used up during time interval --
local ncni = 20 -- number of coins needed to trigger the transformation --
local stcn = 20 -- number of coins needed to execute script (must be higher than ncni value) --
local warn = 1 -- warns player when runing short on coins, 1 = yes --
local cwar = 20 -- number of coins that triggers the warnings --
 
local bmaineff = CONST_ME_YELLOW_RINGS
local bsecondeff = CONST_ME_BLOCKHIT
local bflingeff = CONST_ANI_SMALLHOLY
local blandeff = CONST_ME_HOLYAREA
local bringwaste = CONST_ME_FIREWORK_YELLOW
local bringabsorb = CONST_ME_MAGIC_GREEN
 
local gmaineff = CONST_ME_EXPLOSIONAREA
local gsecondeff = CONST_ME_FIREAREA
local gflingeff = CONST_ANI_FIRE
local glandeff = CONST_ME_FIREWORK_RED
local gringwaste = CONST_ME_FIREWORK_RED
local gringabsorb = CONST_ME_MAGIC_RED
 
-- Small config section << --
 
local condition1 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition1, CONDITION_PARAM_TICKS, -1)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 50)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 50)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 120)
 
local condition2 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, -1)
setConditionFormula(condition2, 2.5, 0, 3.0, 0) 

function superform1(param)
	if param.crca == 1 then
 
		local pos = getCreaturePosition(param.cid)
		local sex = getPlayerSex(param.cid)
 
		local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
		local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
		local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
		local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}
 
		local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
		local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
		local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
		local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}
 
		if sex == 1 then
			doSendMagicEffect(pos, bmaineff)
			doSendMagicEffect(pos, bsecondeff)
 
			doSendDistanceShoot(pos, nha, bflingeff)
			doSendDistanceShoot(pos, sha, bflingeff)
			doSendDistanceShoot(pos, wha, bflingeff)
			doSendDistanceShoot(pos, eha, bflingeff)
			doSendDistanceShoot(pos, nwa, bflingeff)
			doSendDistanceShoot(pos, nea, bflingeff)
			doSendDistanceShoot(pos, sea, bflingeff)
			doSendDistanceShoot(pos, swa, bflingeff)
 
			doSendMagicEffect(nha, blandeff)
			doSendMagicEffect(sha, blandeff)
			doSendMagicEffect(wha, blandeff)
			doSendMagicEffect(eha, blandeff)
			doSendMagicEffect(nwa, blandeff)
			doSendMagicEffect(nea, blandeff)
			doSendMagicEffect(sea, blandeff)
			doSendMagicEffect(swa, blandeff)
 
			doSetCreatureOutfit(param.cid, outfitMale, -1)
		else
			doSendMagicEffect(pos, gmaineff)
			doSendMagicEffect(pos, gsecondeff)
 
			doSendDistanceShoot(pos, nha, gflingeff)
			doSendDistanceShoot(pos, sha, gflingeff)
			doSendDistanceShoot(pos, wha, gflingeff)
			doSendDistanceShoot(pos, eha, gflingeff)
			doSendDistanceShoot(pos, nwa, gflingeff)
			doSendDistanceShoot(pos, nea, gflingeff)
			doSendDistanceShoot(pos, sea, gflingeff)
			doSendDistanceShoot(pos, swa, gflingeff)
 
			doSendMagicEffect(nha, glandeff)
			doSendMagicEffect(sha, glandeff)
			doSendMagicEffect(wha, glandeff)
			doSendMagicEffect(eha, glandeff)
			doSendMagicEffect(nwa, glandeff)
			doSendMagicEffect(nea, glandeff)
			doSendMagicEffect(sea, glandeff)
			doSendMagicEffect(swa, glandeff) 
			doSetCreatureOutfit(param.cid, outfitFemale, -1)
		end
 
        doAddCondition(param.cid, condition1)
        doAddCondition(param.cid, condition2)
 
        local mhp = getCreatureMaxHealth(param.cid)
        local mma = getPlayerMaxMana(param.cid)
        local chp = getCreatureHealth(param.cid)
        local cma = getPlayerMana(param.cid)
 
        local dhp = mhp - chp
        local dma = mma - cma
 
        doCreatureAddHealth(param.cid, dhp)
        doPlayerAddMana(param.cid, dma)  
		doPlayerRemoveItem(param.cid, cointype, ncni)
 
		param.crcb = 1
		param.sex = sex
		setPlayerStorageValue(param.cid, 50780, 1)
 
		addEvent(superform2, 1, param)
	end
end
 

function superform2(param)
	if param.crca == 1 and param.crcb == 1 and isCreature(param.cid) == TRUE and getPlayerStorageValue(param.cid, 50780) == 1 then
		local pos = getCreaturePosition(param.cid)
		doPlayerRemoveItem(param.cid, cointype, ncws)
		if param.sex == 1 then		
			doSendMagicEffect(pos, bringwaste)
			doSendMagicEffect(pos, bringabsorb)
		else
			doSendMagicEffect(pos, gringwaste)
			doSendMagicEffect(pos, gringabsorb)
		end
		local goldleft = getPlayerItemCount(param.cid, cointype)
		if goldleft < cwar and warn == 1 then
			doPlayerSendTextMessage(param.cid, MESSAGE_STATUS_CONSOLE_RED, "Coins left: " ..goldleft.. ".")
		end
		if goldleft < ncws then
			param.crca = 0
			param.crcb = 0
			setPlayerStorageValue(param.cid, 50780, 0)
			doPlayerSendTextMessage(param.cid, MESSAGE_EVENT_DEFAULT, "No cash left!")
			
			local pos = getCreaturePosition(param.cid)
 
			local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
			local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
			local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
			local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}
 
			local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
			local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
			local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
			local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}
 
 
			doRemoveCondition(param.cid, CONDITION_OUTFIT)
			doRemoveCondition(param.cid, CONDITION_ATTRIBUTES)
			doRemoveCondition(param.cid, CONDITION_HASTE)
 
			if param.sex == 1 then
				doSendMagicEffect(pos, bmaineff)
				doSendMagicEffect(pos, bsecondeff)
 
				doSendDistanceShoot(pos, nha, bflingeff)
				doSendDistanceShoot(pos, sha, bflingeff)
				doSendDistanceShoot(pos, wha, bflingeff)
				doSendDistanceShoot(pos, eha, bflingeff)
				doSendDistanceShoot(pos, nwa, bflingeff)
				doSendDistanceShoot(pos, nea, bflingeff)
				doSendDistanceShoot(pos, sea, bflingeff)
				doSendDistanceShoot(pos, swa, bflingeff)
 
				doSendMagicEffect(nha, blandeff)
				doSendMagicEffect(sha, blandeff)
				doSendMagicEffect(wha, blandeff)
				doSendMagicEffect(eha, blandeff)
				doSendMagicEffect(nwa, blandeff)
				doSendMagicEffect(nea, blandeff)
				doSendMagicEffect(sea, blandeff)
				doSendMagicEffect(swa, blandeff)
			else
				doSendMagicEffect(pos, gmaineff)
				doSendMagicEffect(pos, gsecondeff)
 
				doSendDistanceShoot(pos, nha, gflingeff)
				doSendDistanceShoot(pos, sha, gflingeff)
				doSendDistanceShoot(pos, wha, gflingeff)
				doSendDistanceShoot(pos, eha, gflingeff)
				doSendDistanceShoot(pos, nwa, gflingeff)
				doSendDistanceShoot(pos, nea, gflingeff)
				doSendDistanceShoot(pos, sea, gflingeff)
				doSendDistanceShoot(pos, swa, gflingeff)
 
				doSendMagicEffect(nha, glandeff)
				doSendMagicEffect(sha, glandeff)
				doSendMagicEffect(wha, glandeff)
				doSendMagicEffect(eha, glandeff)
				doSendMagicEffect(nwa, glandeff)
				doSendMagicEffect(nea, glandeff)
				doSendMagicEffect(sea, glandeff)
				doSendMagicEffect(swa, glandeff)
			end
		else
			addEvent(superform2, tbcw, param)
		end
	end
 
end
 
function onEquip(cid, item, slot)
	local param = {cid = cid, item = item, slot = slot}
	local gold = getPlayerItemCount(cid, cointype)
	if gold > stcn then
		param.crca = 1
		--can equip here?
		addEvent(superform1, 1, param)
		return TRUE
	end
end
 
function onDeEquip(cid, item, slot)
	if isPlayer(cid) and getPlayerStorageValue(cid, 50780) == 1 then
 
		doRemoveCondition(cid, CONDITION_OUTFIT)
		doRemoveCondition(cid, CONDITION_ATTRIBUTES)
		doRemoveCondition(cid, CONDITION_HASTE)
 
		local pos = getCreaturePosition(cid)
		setPlayerStorageValue(cid, 50780, 0)
		local sex = getPlayerSex(cid)
 
		local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
		local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
		local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
		local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}
 
		local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
		local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
		local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
		local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}
 
		if sex == 1 then
			doSendMagicEffect(pos, bmaineff)
			doSendMagicEffect(pos, bsecondeff)
 
			doSendDistanceShoot(pos, nha, bflingeff)
			doSendDistanceShoot(pos, sha, bflingeff)
			doSendDistanceShoot(pos, wha, bflingeff)
			doSendDistanceShoot(pos, eha, bflingeff)
			doSendDistanceShoot(pos, nwa, bflingeff)
			doSendDistanceShoot(pos, nea, bflingeff)
			doSendDistanceShoot(pos, sea, bflingeff)
			doSendDistanceShoot(pos, swa, bflingeff)
 
			doSendMagicEffect(nha, blandeff)
			doSendMagicEffect(sha, blandeff)
			doSendMagicEffect(wha, blandeff)
			doSendMagicEffect(eha, blandeff)
			doSendMagicEffect(nwa, blandeff)
			doSendMagicEffect(nea, blandeff)
			doSendMagicEffect(sea, blandeff)
			doSendMagicEffect(swa, blandeff)
		else
			doSendMagicEffect(pos, gmaineff)
			doSendMagicEffect(pos, gsecondeff)
 
			doSendDistanceShoot(pos, nha, gflingeff)
			doSendDistanceShoot(pos, sha, gflingeff)
			doSendDistanceShoot(pos, wha, gflingeff)
			doSendDistanceShoot(pos, eha, gflingeff)
			doSendDistanceShoot(pos, nwa, gflingeff)
			doSendDistanceShoot(pos, nea, gflingeff)
			doSendDistanceShoot(pos, sea, gflingeff)
			doSendDistanceShoot(pos, swa, gflingeff)
 
			doSendMagicEffect(nha, glandeff)
			doSendMagicEffect(sha, glandeff)
			doSendMagicEffect(wha, glandeff)
			doSendMagicEffect(eha, glandeff)
			doSendMagicEffect(nwa, glandeff)
			doSendMagicEffect(nea, glandeff)
			doSendMagicEffect(sea, glandeff)
			doSendMagicEffect(swa, glandeff)
		end
	end
return TRUE
end

Note: I didnt do this script so i dont take credits for it. Just giving it to the community as i know it's been requested alot.

If the x guy got enugh crystal coins on him he can wear it. If not it will say u cant wear this item.

Edit: been tested on TFS 0.2 Mystic~

For people who dont know what this do, I will give an short explanation about it.

Code:
Player X put on emerald bangle. Transforms to an arch demon (takes 20cc) for every 1-2 seconds it takes away 2 cc.

The ring also gives 20% more max mana/hp. Adds 50+ to all skills and m lvl.
 
Last edited:
what it does?

Player X put on emerald bangle. Transforms to an arch demon (takes 20cc) for every 1-2 seconds it takes away 2 cc.

The ring gives 20% more max mana/hp. Adds 50+ to all skills and m lvl.

When money starts to run out it show warning text and when there is no more crystal coins it will stop working.
 
you just copy it from roxor server? :p
 
Last edited by a moderator:
Ehm nope i didnt. The one from roxor server said "u cant wear this item" My dont. actually it was realesed by someone on otfans, Dunno name. Only edited by me (so it works)
 
her mak shortek ++++++ shortek!!
Code:
-- >> Small config section --
 
local outfitMale =
{
lookType = 12,
lookHead = 19,
lookBody = 79,
lookLegs = 3,
lookFeet = 81,
lookAddons = 0
}
 
local outfitFemale =
{
lookType = 12,
lookHead = 19,
lookBody = 53,
lookLegs = 92,
lookFeet = 79,
lookAddons = 0
}

local cointype = 2160 -- Id of the coin the spell will use (2148 = gold coin, 2152 = platinum coin, 2160 = crystal coin) --
local tbcw = 2000 -- coin wasting time interval (miliseconds) --
local ncws = 1 -- number of coins used up during time interval --
local ncni = 20 -- number of coins needed to trigger the transformation --
local stcn = 20 -- number of coins needed to execute script (must be higher than ncni value) --
local warn = 1 -- warns player when runing short on coins, 1 = yes --
local cwar = 20 -- number of coins that triggers the warnings --
 
local effects = {
    -- {maleEffect, femaleEffect}
    main = {CONST_ME_YELLOW_RINGS, CONST_ME_EXPLOSIONAREA},
    second = {CONST_ME_BLOCKHIT, CONST_ME_FIREAREA},
    fling = {CONST_ANI_SMALLHOLY, CONST_ANI_FIRE},
    land = {CONST_ME_HOLYAREA, CONST_ME_FIREWORK_RED},
    ringWaste = {CONST_ME_FIREWORK_YELLOW, CONST_ME_FIREWORK_RED},
    ringAbsorb = {CONST_ME_MAGIC_GREEN, CONST_ME_MAGIC_RED}
}
 
-- Small config section << --
 
local condition1 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition1, CONDITION_PARAM_TICKS, -1)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 50)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 50)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 50)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 120)
 
local condition2 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, -1)
setConditionFormula(condition2, 2.5, 0, 3.0, 0) 

function superform1(param)
    if param.crca == 1 then
        local sex = getPlayerSex(param.cid)

        doTransformSendEffects(cid)
        doSetCreatureOutfit(param.cid, (sex == 1 and outfitMale or outfitFemale), -1)
 
        doAddCondition(param.cid, condition1)
        doAddCondition(param.cid, condition2)
 
        local dhp = getCreatureMaxHealth(param.cid) - getCreatureHealth(param.cid)
        local dma = getPlayerMaxMana(param.cid) - getPlayerMana(param.cid)
 
        doCreatureAddHealth(param.cid, dhp)
        doPlayerAddMana(param.cid, dma)  
        doPlayerRemoveItem(param.cid, cointype, ncni)
 
        param.crcb = 1
        param.sex = math.min(sex, 1)
        setPlayerStorageValue(param.cid, 50780, 1)
 
        addEvent(superform2, 1, param)
    end
end
 

function superform2(param)
    if param.crca == 1 and param.crcb == 1 and isCreature(param.cid) == TRUE and getPlayerStorageValue(param.cid, 50780) == 1 then
        local pos = getCreaturePosition(param.cid)
        doPlayerRemoveItem(param.cid, cointype, ncws)
       
        doSendMagicEffect(pos, effects.ringWaste[param.sex])
        doSendMagicEffect(pos, effects.ringAbsorb[param.sex])
            
        local goldleft = getPlayerItemCount(param.cid, cointype)
        if goldleft < cwar and warn == 1 then
            doPlayerSendTextMessage(param.cid, MESSAGE_STATUS_CONSOLE_RED, "Coins left: " ..goldleft.. ".")
        end
        if goldleft < ncws then
            param.crca = 0
            param.crcb = 0
            setPlayerStorageValue(param.cid, 50780, 0)
            doPlayerSendTextMessage(param.cid, MESSAGE_EVENT_DEFAULT, "No cash left!")
 
            doRemoveCondition(param.cid, CONDITION_OUTFIT)
            doRemoveCondition(param.cid, CONDITION_ATTRIBUTES)
            doRemoveCondition(param.cid, CONDITION_HASTE)
 
            doTransformSendEffects(param.cid)
        else
            addEvent(superform2, tbcw, param)
        end
    end
 
end
 
function onEquip(cid, item, slot)
    local param = {cid = cid, item = item, slot = slot}
    local gold = getPlayerItemCount(cid, cointype)
    if gold > stcn then
        param.crca = 1
        --can equip here?
        addEvent(superform1, 1, param)
        return TRUE
    end
end
 
function onDeEquip(cid, item, slot)
    if isPlayer(cid) and getPlayerStorageValue(cid, 50780) == 1 then
 
        doRemoveCondition(cid, CONDITION_OUTFIT)
        doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        doRemoveCondition(cid, CONDITION_HASTE)
 
        setPlayerStorageValue(cid, 50780, 0)
        
        doTransformSendEffects(cid)
    end
    return TRUE
end  

function getTransformEffectPositions(cid)
    local pos = getCreaturePosition(cid)
    return {
        {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255},
        {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255},
        {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255},
        {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255},

        {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255},
        {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255},
        {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255},
        {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}
    }
end

function doTransformSendEffects(cid)
    local pos = getCreaturePosition(cid)
    local sex = math.max(getPlayerSex(cid), 1)

    doSendMagicEffect(pos, effects.main[sex])
    doSendMagicEffect(pos, effects.second[sex])
    
    local positions = getTransformEffectPositions(cid)
    for _, ePos in ipairs(positions) do
        doSendDistanceShoot(pos, ePos, effects.fling[sex])
        doSendMagicEffect(ePos, effects.land[sex])
    end
end
you kodak 317,,,, my kodak 169
 
Back
Top