[LUA] & possibly [C++] requests - Sizaro

Sizaro · Sep 23, 2014

So I've been playing around with a new server of mine for a while now and I need a few things, thought I'd request them.

(If you have a better idea that works the same way please let me know)

[DONE] #1: onLogin add outfit (once) based on gender and vocation.
Thanks Ninja
Heres the code:

data\creaturescripts\Actions.xml

Code:

    <event type="login" name="FirstOutfit" script="firstoutfit.lua"/>

data\creaturescripts\scripts\firstoutfit.lua

Code:

local config = {
[1] = {female = 575, male = 574},
[2] = {female = 269, male = 268},
[3] = {female = 142, male = 134},
[4] = {female = 138, male = 130},
[5] = {female = 148, male = 144},
[6] = {female = 137, male = 129}
}

function onLogin(cid)
local player = Player(cid)
local targetVocation = config[player:getVocation():getBase():getId()]
if not targetVocation then
return true
end

if player:hasOutfit(player:getSex() == 0 and targetVocation.female or targetVocation.male) then
return true
end

player:addOutfit(targetVocation.female)
player:addOutfit(targetVocation.male)
return true
end

\data\global or compat.lua
bottom add:

Code:

add this to your global/compat.lua, credits goes to dalkon
function Vocation.getBase(self)
local demotion = self:getDemotion()
while demotion do
local tmp = demotion:getDemotion()
if not tmp then
return demotion
end
demotion = tmp
end
return self
end

[DONE] #2: Dual-Wielding daggers (Swords)

Thanks hakeee

[DONE] #3: Teleport to house exit function StepIn.
Thanks Ninja
Heres the code:

data\movements\movements.xml

Code:

<movevent event="StepIn" actionid="x" script="houseTeleport.lua" />

data\movements\scripts\houseTeleport.lua

Code:

function onStepIn(cid, item, position, fromPosition)
local player = Player(cid)
if not player then
return true
end

local house = player:getHouse()
if not house then
player:teleportTo(fromPosition, true)
fromPosition:sendMagicEffect(CONST_ME_TELEPORT)
return true
end

player:teleportTo(house:getExitPosition())
player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
return true
end

[DONE] #3: Summons following you

XML:

<talkaction words="utevo res" separator=" " script="summonmonster.lua" />

Lua:

local summonables = {
    'Rat',
    'Bat',
    'Cat'
}
local sum = {}
for _, mon in pairs(summonables) do -- LOWERCASE ALL MONSTER NAMES FOR COMPARISON WITH PARAMETER
    table.insert(sum,mon:lower())
end
function onSay(player, words, param)
    local name = param:match('%a+')
    if not name then
        player:sendCancelMessage('Invalid parameters.')
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
        return false
    end
    if #player:getSummons() > 1 then
        player:sendCancelMessage('You cannot summon any more creatures.')
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
        return false
    end
    if not isInArray(sum,name:lower()) then
        player:sendCancelMessage('You cannot summon this monster.')
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
        return false
    end
    local monster = Game.createMonster(name, player:getPosition())
    if not monster then
        player:sendCancelMessage('There is not enough room.')
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
        return false
    end
    monster:setMaster(player)
    monster:registerEvent('summonfollow')
    return false
end

and then in creaturescripts.xml

XML:

<event type="think" name="summonfollow" script="summonfollow.lua" />

and in summonfollow.lua

Lua:

function onThink(cid, interval)
    local cpos = cid:getPosition()
    local ppos = cid:getMaster():getPosition()
    if cpos.z ~= ppos.z or math.abs(cpos.x - ppos.x) > 8 or math.abs(cpos.y - ppos.y) > 6 then
        cid:teleportTo(ppos)
    end
    return true
end

don't forget to remove utevo res from spells.xml

Ninja · Sep 23, 2014

1.

Code:

local config = {
    [1] = {female = 575, male = 574},
    [2] = {female = 269, male = 268},
    [3] = {female = 142, male = 134},
    [4] = {female = 138, male = 130},
    [5] = {female = 148, male = 144},
    [6] = {female = 137, male = 129}
}

--[[ add this to your global/compat.lua, credits goes to dalkon
function Vocation.getBase(self)
    local demotion = self:getDemotion()
    while demotion do
        local tmp = demotion:getDemotion()
        if not tmp then
            return demotion
        end
        demotion = tmp
    end
    return self
end
]]

function onLogin(cid)
    local player = Player(cid)
    local targetVocation = config[player:getVocation():getBase():getId()]
    if not targetVocation then
        return true
    end

    if player:hasOutfit(player:getSex() == 0 and targetVocation.female or targetVocation.male) then
        return true
    end

    player:addOutfit(targetVocation.female)
    player:addOutfit(targetVocation.male)
    return true
end

StreamSide · Sep 23, 2014

http://otland.net/threads/dual-wield.179434/#post-1818720 take a look

Sizaro · Sep 23, 2014

@StreamSide
Does this even work anymore? It's from 2013 and the code looks so much different now.

StreamSide · Sep 23, 2014

Sizaro said:
@StreamSide
Does this even work anymore? It's from 2013 and the code looks so much different now.

actual source could be a bit different but you can change some things and it should work (?)

ZeeBeast · Sep 23, 2014

Sizaro said:
@StreamSide
Does this even work anymore? It's from 2013 and the code looks so much different now.

This code still works I assure you.

Sizaro · Sep 23, 2014

ZeeBeast said:
This code still works I assure you.

You sure?

http://pastie.org/private/plauhsjsi9zdvo2ivm8w

latest version of TFS

StreamSide · Sep 24, 2014

can u post the whole code of item.h

Sizaro · Sep 24, 2014

item.h
http://pastie.org/private/9neix6w9f6lpekzi7k9w

StreamSide · Sep 25, 2014

test http://pastie.org/9592196

Sizaro · Sep 25, 2014

error:
http://pastie.org/private/3ieo9kjhtwhv85j5lw

player.cpp
http://pastebin.com/dVZmBTqY

items.cpp
http://pastebin.com/2qV5sYiz

StreamSide · Sep 25, 2014

I will try to fix it but I can't assure you that it will work cus im bad with c/c++

Sizaro · Sep 25, 2014

Welcome to the club.

Anyone got the 10.50 monsters?

For example, Moohtant, Minotaur Amazon and Minotaur Hunter?

Heres a big idea of mine, maybe it's too much to ask but.

if actionid = x then decay tree (first stage) to tree (second stage) after 45-60 minutes
upon decaying once (second stage), grow 1 fruit around tree randomly placed 1 sq around tree (if bush = ontop) and decay to next stage after 45-60 minutes
upon decaying twice (third stage), grow (1-2) fruits around tree randomly placed 1 sq around tree (if bush = ontop) then decay to next stage (dead tree) after 45-60 min
upon decaying 4 times (fourth stage) grow (1-3) fruit around tree randomly placed 1 sq around tree or bush and decay back to tree (first stage) after 45-60 min
upon decaying back to first stage, remove all fruits within 1 sq

Decay should happen once every 45 - 60 minutes so a tree will go back to normal after 180-240 minutes of irl time.

A simple start would be to make just a tomato bush like shown in my example.

examples:

Is it possible to doSendMagicEffect(frompos, topos, x) ?
(Using this as a support thread xD)

StreamSide · Sep 30, 2014

you can do it with loops

Sizaro · Sep 30, 2014

Elaborate

StreamSide · Sep 30, 2014

Sizaro said:
Elaborate

PHP:

local pos = getPlayerPosition(cid)
local positions = {
    {x=pos.x+1,y=pos.y-1,z=pos.z},
    {x=pos.x-1,y=pos.y-1,z=pos.z},
}
    for i = 1, #positions do
        doSendMagicEffect(positions[i], 30)
        break
    end

play w it
ps. i dont know how to post lua codes

Sizaro · Oct 2, 2014

Is it possible to make a teleport that teleports players to their house?

Cornex · Oct 2, 2014

Sizaro said:
Is it possible to make a teleport that teleports players to their house?

I did it before, check: http://otland.net/threads/teleport-to-your-house-command.186099/
Same would go for teleport action I guess.

Sizaro · Oct 2, 2014

houseTeleport.lua

Code:

function onStepIn(cid, item, position, fromPosition)

    local playerPos = getCreaturePosition(cid)
    local player = Player(cid)

    if getHouseByPlayerGUID(getPlayerGUID(cid)) then
        doTeleportThing(cid, getHouseInfo(getHouseByPlayerGUID(getPlayerGUID(cid))).entry)
        doSendMagicEffect(playerPos, CONST_ME_TELEPORT)
        return true
    end


    if getHouseByPlayerGUID(getPlayerGUID(cid)) ~= nil then
        player:teleportTo(fromPosition, false)
    end
    return true
end

StreamSide · Oct 2, 2014

Sizaro said:

houseTeleport.lua

Code:

function onStepIn(cid, item, position, fromPosition)

    local playerPos = getCreaturePosition(cid)
    local player = Player(cid)

    if getHouseByPlayerGUID(getPlayerGUID(cid)) then
        doTeleportThing(cid, getHouseInfo(getHouseByPlayerGUID(getPlayerGUID(cid))).entry)
        doSendMagicEffect(playerPos, CONST_ME_TELEPORT)
        return true
    end


    if getHouseByPlayerGUID(getPlayerGUID(cid)) ~= nil then
        player:teleportTo(fromPosition, false)
    end
    return true
end

try with player:getHouse()
ps. https://github.com/otland/forgottenserver/blob/master/src/luascript.cpp

[LUA] & possibly [C++] requests - Sizaro

Advanced OT User

Global Moderator

Joseluis Gonzalez

Advanced OT User

Joseluis Gonzalez

Preferable Beta Tester

Advanced OT User

Joseluis Gonzalez

Advanced OT User

Joseluis Gonzalez

Advanced OT User

Joseluis Gonzalez

Advanced OT User

Joseluis Gonzalez

Advanced OT User

Joseluis Gonzalez

Advanced OT User

Web Developer

Advanced OT User

Joseluis Gonzalez

Similar threads