NEED: House Key Buyer and Speed of Players ( always same )!

[Hashirama479]

As the title says: I need two scripts

1. House KEY Buyer, how should it work?
You should use a key on a door then you bought the house... same as !buyhouse just as key ( item )

2. Speed of Players always same:
Players should always have the same speed limit doesnt matter if level 8 or 3402020

would be nice if someone could help me out, thanks <3

 

[HeberPcL]

House Key Buyed

function onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if not player:isPremium() then
        player:sendCancelMessage("You need a premium account.")
        return false
    end
   
    local position = player:getPosition()
    position:getNextPosition(player:getDirection())

    local tile = Tile(position)
    local house = tile and tile:getHouse()
    if house == nil then
        player:sendCancelMessage("You have to be looking at the door of the house you would like to buy.")
        return false
    end

    if house:getOwnerGuid() > 0 then
        player:sendCancelMessage("This house already has an owner.")
        return false
    end

    if player:getHouse() then
        player:sendCancelMessage("You are already the owner of a house.")
        return false
    end

    -- Remove Item Key
    item:remove(1)
   
    house:setOwnerGuid(player:getGuid())
    player:sendTextMessage(MESSAGE_INFO_DESCR, "You have successfully bought this house, be sure to have the money for the rent in the bank.")
    return true
end

 

[Hashirama479]

Is it for tfs 0.4? I forgot to write my tfs version xD

 

[hodleo]

That's why there are board rules..

 

[Hashirama479]

bump

 

[Hashirama479]

bump

 

[Infernum]

changeSpeed.lua

local speed = 300

function onThink(interval)
    local players = getPlayersOnline()
    for _, cid in ipairs(players) do
        for i = 1, 20 do
            doChangeSpeed(cid, tonumber(tostring(speed)))
        end
    end
    return true
end

<globalevent name="speed" interval="1" event="script" value="changeSpeed.lua"/>

 

[Hashirama479]

Its working thanks xD ah but I have a other question, is it possible that the ot will lag with the script? if there are as explain 100 players online?

 

[Infernum]

Its working thanks xD ah but I have a other question, is it possible that the ot will lag with the script? if there are as explain 100 players online?

nah i used ipairs for the loop, it provides maximum runtime performance of the execution

 

[Hashirama479]

Yo @Xeraphus seems like your script always add the speed also as explain sec 1 - slow sec 2- bit faster after 10 sec you are super fast xD you know what I mean?

 

[Infernum]

Yo @Xeraphus seems like your script always add the speed also as explain sec 1 - slow sec 2- bit faster after 10 sec you are super fast xD you know what I mean?

local speed = 300

function onThink(interval)
    local players = getPlayersOnline()
    for _, cid in ipairs(players) do
        while getCreatureSpeed(cid) ~= speed do
            local x = {}
            for i = 1500, 1, -1 do
                table.insert(x, 1, i)
            end
            local _speed = x[getCreatureSpeed(cid)]
            doChangeSpeed(cid, _speed > speed and -1 or 1)
        end
    end
    return true
end

 

[Hashirama479]

local speed = 300

function onThink(interval)
    local players = getPlayersOnline()
    for _, cid in ipairs(players) do
        while getCreatureSpeed(cid) ~= speed do
            local x = {}
            for i = 1500, 1, -1 do
                table.insert(x, 1, i)
            end
            local _speed = x[getCreatureSpeed(cid)]
            doChangeSpeed(cid, _speed > speed and -1 or 1)
        end
    end
    return true
end

https://gyazo.com/fc5d18faab30e540eac893adb7aaa857

 

[Bogart]

local speed = 300
function onThink(interval)
    local players = getPlayersOnline()
    for _, cid in ipairs(players) do
       doChangeSpeed(cid, -getCreatureSpeed(cid)+speed)
    end
    return true
end

 

[Infernum]

local speed = 300
function onThink(interval)
    local players = getPlayersOnline()
    for _, cid in ipairs(players) do
       doChangeSpeed(cid, -getCreatureSpeed(cid)+speed)
    end
    return true
end

no

 

[Hashirama479]

no

It working perfect for me? :O

 

[Hashirama479]

Bump, The speed thing is fixed!! just need the house key buyer now!!!

EDIT: TFS 0.4!! xD

 

[Hashirama479]

BumpO

 

[Hashirama479]

Sorry for double post but I need the script!!! can someone help me??? ( just house key buyer script ) - Tfs 0.4

 

[HeberPcL]

Post your command !buyhouse.

pastebin.com

 

[Hashirama479]

Its in sources ? xD

<talkaction words="!buyhouse" filter="word-spaced" event="function" value="houseBuy"/>