Spell Wolf Transform

dragonlorde · Mar 24, 2010

Cool but I seen a similar spell on OTServ Networks - Seu portal brasileiro de Open Tibia Server by Mock....
Take a look

semary · Mar 26, 2010

I got better idiea i hope some one can help me in it , it will be better to make .... [ Utito tempo trans ] [ For All Voc ] & [ For Each voc shape ]...

wojtek1990 · Mar 26, 2010

Great script

Btw can u add that druid can't heal myself and other players while is transformed ?

Also any spell to backt to normal form?

Henkos · Mar 26, 2010

I might edit this one, so it will become a Transformer instead of a Wolf xD

Strasxni · Mar 27, 2010

Is posible to, first time when i use spell it transfor me into the wolf, and second time it tranfor me in human? So it will not take 2 minutes to end. Just i need to turn it off, using spell again.

Boza · Apr 1, 2010

@strasxni
Bump

hellboy · Apr 2, 2010

#Strasxni#
Use storage value and set it to 1 after transform, after second cast set it to -1 and remove condition (or similar function) [and set -1 before in script onLogout]

Boza · Apr 3, 2010

Could you implement it into the script?

Bazzese · Apr 3, 2010

nice this looks cool

hellboy · Apr 4, 2010

Boza said:
Could you implement it into the script?

I will make it tommorow

hellboy · Apr 5, 2010

#Boza#
Replace this:

Lua:

function onCastSpell(cid, var)
        return doCombat(cid, combat, var)
end

For this:

Lua:

function onCastSpell(cid, var)
	if getPlayerStorageValue(cid, 3944) == -1 then
        doPlayerSetStorageValue(cid, 3944, 1)
		return doCombat(cid, combat, var)
	else
		for _, type_ in pairs({CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST}) do --- {CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST, CONDITION_ATTRIBUTES}
			doRemoveCondition(cid, type_)
		end
		doPlayerSetStorageValue(cid, 3944, -1)
	end
	return true
end

And add in login.lua befor "return true" this:

Lua:

doPlayerSetStorageValue(cid, 3944, -1)

Have fun

vegas · Apr 6, 2010

Lua:

--
--      Spell by Shawak
--     Wolf transform
--

local time = 120 * 1000        -- 120 * 1000  = 2 min
local addShielding = 20        -- how much shielding should be added leave it 0 if you want it disabled
local addFist = 55        -- how much shielding should be added leave it 0 if you want it disabled


local wolf = {lookType = 52, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0, lookTypeEx = 0, lookAddons = 0}
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, time)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, addShielding)
setConditionParam(condition, CONDITION_PARAM_SKILL_FIST, addFist)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setCombatCondition(combat, condition)

local speed = createConditionObject(CONDITION_HASTE)
setConditionParam(speed, CONDITION_PARAM_TICKS, time)
setConditionFormula(speed, 0.7, -56, 0.7, -56)
setCombatCondition(combat, speed)

local outfit = createConditionObject(CONDITION_OUTFIT)
setConditionParam(outfit, CONDITION_PARAM_TICKS, time)
addOutfitCondition(outfit, wolf.lookTypeEx, wolf.lookType, wolf.lookHead, wolf.lookBody, wolf.lookLegs, wolf.lookFeet)
setCombatCondition(combat, outfit)

local exhaust = createConditionObject(CONDITION_EXHAUST)
setConditionParam(exhaust, CONDITION_PARAM_SUBID, 2)
setConditionParam(exhaust, CONDITION_PARAM_TICKS, time)
setCombatCondition(combat, exhaust)

function onCastSpell(cid, var)
        return doCombat(cid, combat, var)
end

Code:

[2:24:24.198] [Error - Spell Interface]
[2:24:24.198] data/spells/scripts/support/wolf.lua
[2:24:24.198] Description:
[2:24:24.198] attempt to index a number value
[2:24:24.198] [Warning - Event::loadScript] Cannot load script (data/spells/scri
pts/support/wolf.lua)

im using TFS Dev 0.4

EDIT : found out had to change addOutfitCondition(outfit, wolf)

Boza · Apr 6, 2010

hellboy said:

#Boza#
Replace this:

Lua:

function onCastSpell(cid, var)
        return doCombat(cid, combat, var)
end

For this:

Lua:

function onCastSpell(cid, var)
	if getPlayerStorageValue(cid, 3944) == -1 then
        doPlayerSetStorageValue(cid, 3944, 1)
		return doCombat(cid, combat, var)
	else
		for _, type_ in pairs({CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST}) do --- {CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST, CONDITION_ATTRIBUTES}
			doRemoveCondition(cid, type_)
		end
		doPlayerSetStorageValue(cid, 3944, -1)
	end
	return true
end

And add in login.lua befor "return true" this:

Lua:

doPlayerSetStorageValue(cid, 3944, -1)

Have fun

Works perfectly, Only issue! When you cast yourself out of the wolf from, the haste and shielding don't go away.

Boza · Apr 6, 2010

Fixed: Just added "CONDITION_ATTRIBUTES" to the function.

Lua:

function onCastSpell(cid, var)
        if getPlayerStorageValue(cid, 3944) == -1 then
        doPlayerSetStorageValue(cid, 3944, 1)
                return doCombat(cid, combat, var)
        else
                for _, type_ in pairs({CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST, CONDITION_ATTRIBUTES}) do --- {CONDITION_HASTE, CONDITION_OUTFIT, CONDITION_EXHAUST, CONDITION_ATTRIBUTES}
                        doRemoveCondition(cid, type_)
                end
                doPlayerSetStorageValue(cid, 3944, -1)
        end
        return true
end

dustinvdh · Apr 6, 2010

doesnt work at me

hellboy · Apr 6, 2010

dustinvdh said:
doesnt work at me

Any errors in console?
TFS 0.3.5 or 0.3.6 ???

Djivar · Apr 23, 2010

I'm using it and it work for me and i have tfs 0.3.5

Haate · Apr 30, 2010

Help me to wolf transform can add speed, please.

Johanz · May 5, 2010

before return true in login.lua you said. Can you be more specific where in login.lua? before what return true?

Johanz · May 5, 2010

-- ### CONFIG ###
-- message send to player by script "type" (types you can check in "global.lua")
SHOP_MSG_TYPE = 17
-- time (in seconds) between connections to SQL database by shop script
SQL_interval = 30
-- ### END OF CONFIG ###
SQL_COMUNICATION_INTERVAL = SQL_interval * 1000
function onLogin(cid)
if(InitShopComunication == 0) then
local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, {})
InitShopComunication = eventServ
end
end

function sql_communication(parameters)
local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';")
if(result_plr:getID() ~= -1) then
while(true) do
id = tonumber(result_plr:getDataInt("id"))
action = tostring(result_plr:getDataString("action"))
delete = tonumber(result_plr:getDataInt("delete_it"))
cid = getPlayerByName(tostring(result_plr:getDataString("name")))
if isPlayer(cid) == TRUE then
if action == 'give_item' then
local itemtogive_id = tonumber(result_plr:getDataInt("param1"))
local itemtogive_count = tonumber(result_plr:getDataInt("param2"))
local container_id = tonumber(result_plr:getDataInt("param3"))
local container_count = tonumber(result_plr:getDataInt("param4"))
local add_item_type = tostring(result_plr:getDataString("param5"))
local add_item_name = tostring(result_plr:getDataString("param6"))
local b_head_slot = getPlayerSlotItem(cid, 1)
local b_necklace_slot = getPlayerSlotItem(cid, 2)
local b_backpack_slot = getPlayerSlotItem(cid, 3)
local b_armor_slot = getPlayerSlotItem(cid, 4)
local b_right_hand = getPlayerSlotItem(cid, 5)
local b_left_hand = getPlayerSlotItem(cid, 6)
local b_legs_slot = getPlayerSlotItem(cid, 7)
local b_feet_slot = getPlayerSlotItem(cid, 8)
local b_ring_slot = getPlayerSlotItem(cid, 9)
local b_arrow_slot = getPlayerSlotItem(cid, 10)
if b_arrow_slot.itemid == 0 or (b_left_hand.itemid == 0 and b_right_hand.itemid == 0) then
local full_weight = 0
if add_item_type == 'container' then
container_weight = getItemWeight(container_id, 1)
items_weight = container_count * getItemWeight(itemtogive_id, itemtogive_count)
full_weight = items_weight + container_weight
else
full_weight = getItemWeight(itemtogive_id, itemtogive_count)
end
local free_cap = getPlayerFreeCap(cid)
if full_weight <= free_cap then
if add_item_type == 'container' then
local new_container = doCreateItemEx(container_id)
local iter = 0
while iter ~= container_count do
doAddContainerItem(new_container, itemtogive_id, itemtogive_count)
iter = iter + 1
end
doPlayerAddItemEx(cid, new_container)
itemtogive_id = container_id
else
local addeditem = doPlayerAddItem(cid, itemtogive_id, itemtogive_count)
end
local head_slot = getPlayerSlotItem(cid, 1)
local necklace_slot = getPlayerSlotItem(cid, 2)
local backpack_slot = getPlayerSlotItem(cid, 3)
local armor_slot = getPlayerSlotItem(cid, 4)
local right_hand = getPlayerSlotItem(cid, 5)
local left_hand = getPlayerSlotItem(cid, 6)
local legs_slot = getPlayerSlotItem(cid, 7)
local feet_slot = getPlayerSlotItem(cid, 8)
local ring_slot = getPlayerSlotItem(cid, 9)
local arrow_slot = getPlayerSlotItem(cid, 10)
if ring_slot.itemid == itemtogive_id or feet_slot.itemid == itemtogive_id or legs_slot.itemid == itemtogive_id or armor_slot.itemid == itemtogive_id or necklace_slot.itemid == itemtogive_id or head_slot.itemid == itemtogive_id or arrow_slot.itemid == itemtogive_id or left_hand.itemid == itemtogive_id or right_hand.itemid == itemtogive_id or backpack_slot.itemid == itemtogive_id then
if b_ring_slot.uid ~= ring_slot.uid or b_feet_slot.uid ~= feet_slot.uid or b_legs_slot.uid ~= legs_slot.uid or b_armor_slot.uid ~= armor_slot.uid or b_necklace_slot.uid ~= necklace_slot.uid or b_head_slot.uid ~= head_slot.uid or b_backpack_slot.uid ~= backpack_slot.uid or b_right_hand.uid ~= right_hand.uid or b_left_hand.uid ~= left_hand.uid or b_arrow_slot.uid ~= arrow_slot.uid then
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS shop. You should re-login now to become sure your new item will not disappear if any error occur.')
db.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";")
db.executeQuery("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";")
else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop not added. Unknown error occured. Wait about '.. SQL_interval ..' seconds. If error will occur again contact with admin. Error item ID is: '.. id ..'')
end
else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop not added. Unknown error occured. Wait about '.. SQL_interval ..' seconds. If error will occur again contact with admin. Error item ID is: '.. id ..'')
end
else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot or give to friend and wait about '.. SQL_interval ..' seconds to get it.')
end

else
doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please take items from both hands or item from arrow slot and wait about '.. SQL_interval ..' seconds to get it.')
end
end
end
if not(result_plr:next()) then
break
end
end
result_plr:free()
end
local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, parameters)

registerCreatureEvent(cid, "onPrepareDeath")
end

please write it on the correct spot

thx

Spell Wolf Transform

New Member

[BB] OTland

New Member

New Member

ღ

New Member

Intermediate OT User

New Member

Experienced Noob

Intermediate OT User

Intermediate OT User

d(^.-)b

New Member

New Member

Job: U.F.O Pilot

Intermediate OT User

AKA Wickedviruz

John Ever Stone

New Member

New Member

Similar threads