• 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 [1.3] Snek 🐍

Snavy

Bakasta
Senator
Joined
Apr 1, 2012
Messages
1,244
Solutions
71
Reaction score
555
Location
Hell
🐍 Snek For TFS 1.3 🐍
How to play:
(CTRL + Arrows) to move snake.

map setup
Skärmavbild 2021-04-08 kl. 00.28.01.png
Skärmavbild 2021-04-08 kl. 00.28.18.png

data/scripts/snake.lua
Lua:
local config = {
    -- Don't change ( unless you know what you're doing )
    TILE_CUSTOMATTR_KEY = "snakeScore",

    -- Where players will be kicked after finishing the game.
    KICKPLAYER_POS  = Position(201, 390, 7),

    -- Where players will steer the snake.
    CONTROL_POS     = Position(213, 391, 6),

    -- Snake room corner positions
    TOP_LEFT        = Position(205, 385, 7),
    BOTTOM_RIGHT    = Position(219, 395, 7),
    SNAKE_SPAWN_POS = Position(212, 390, 7),

    FOOD_ID  = 2674,
    SNAKE_ID = 463,

    -- How long the snake will be at start
    SNAKE_START_SCORE = 3,
    SPEED_START = 600, -- 0.6s

    -- How much faster the snake will get..
    -- ..after consuming 'food' object. ( milliseconds )
    SPEED_INCREMENT = 100, -- 0.1s

    -- ActionId to be used on enter tile
    TILE_ACTION_ID = 12345,

    -- How long a player should wait before they can play again
    PLAYER_PLAY_STORAGE = 191214,
    PLAYER_PLAY_DELAY = 10 -- 10 seconds
}
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function handleSnakeTile(position, score)
    local tile = Tile(position)
    if not tile:getGround() then
        return print("[Warning - snake::handleSnakeTile] Ground not found.")
    end
    local tailScore = tile:getGround():getCustomAttribute(config.TILE_CUSTOMATTR_KEY)
    local snakeObject = tile:getItemById(config.SNAKE_ID)
    if not tailScore or tailScore == 0 then
        if snakeObject then
            snakeObject:remove()
        end
        return
    end
    tile:getGround():setCustomAttribute(config.TILE_CUSTOMATTR_KEY, tailScore - 1)
    if (tailScore - 1) == 0 and snakeObject then
        snakeObject:remove()
    end
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function moveSnake(nextHeadPosition, score)
    if not Game.createItem(config.SNAKE_ID, 1, nextHeadPosition) then
        print('[Error - snake::moveSnake] Could not create item snake.')
        return
    end
    local tile = Tile(nextHeadPosition)
    tile:getGround():setCustomAttribute(config.TILE_CUSTOMATTR_KEY, score + 1)
    local z = config.TOP_LEFT.z
    for y = config.TOP_LEFT.y, config.BOTTOM_RIGHT.y do
        for x = config.TOP_LEFT.x, config.BOTTOM_RIGHT.x do
            handleSnakeTile(Position(x, y, z), score)
        end
    end
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function showScore(player, score)
    local text = "Snake Score: " .. score
    player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, text)
    player:setStorageValue(config.PLAYER_PLAY_STORAGE, config.PLAYER_PLAY_DELAY + os.time())
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function placeFood()
    Game.createItem(config.FOOD_ID, 1, Position(
        math.random(config.TOP_LEFT.x, config.BOTTOM_RIGHT.x),
        math.random(config.TOP_LEFT.y, config.BOTTOM_RIGHT.y),
        config.TOP_LEFT.z
    ))
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function isFood(position)
    local tile = Tile(position)
    if not tile then return true end
    local foodObject = tile:getItemById(config.FOOD_ID)
    if foodObject then
        foodObject:remove()
        placeFood()
        return true
    end
    return false
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function isSnakeTail(position)
    local tile = Tile(position)
    if not tile then return true end
    local snakeObject = tile:getItemById(config.SNAKE_ID)
    if snakeObject then
        return true
    end
    return false
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function isWall(position)
    if (position.x < config.TOP_LEFT.x)
    or (position.x > config.BOTTOM_RIGHT.x)
    or (position.y < config.TOP_LEFT.y)
    or (position.y > config.BOTTOM_RIGHT.y) then
        return true
    end
    return false
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function createSnake()
    local tile = Tile(config.SNAKE_SPAWN_POS)
    if not tile then
        return print("[Error - snake::createSnake] Tile not found")
    end
    local ground = tile:getGround()
    if not ground then
        return print("[Error - snake::createSnake] Ground not found.")
    end
    ground:setCustomAttribute(config.TILE_CUSTOMATTR_KEY, config.SNAKE_START_SCORE)
    Game.createItem(config.SNAKE_ID, 1, config.SNAKE_SPAWN_POS)
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function positionToReadable(position)
    return "(".. position.x .." / ".. position.y .." / ".. position.z ..")"
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function clearTile(position)
    local tile = Tile(position)
    if not tile then
        return print("[Warning - snake::clearSnakeArea] Tile not found " .. positionToReadable(position))
    end
    local tileItems = tile:getItems()
    if tileItems then
        for _, item in pairs(tileItems) do
            item:remove()
        end
    end
    -- Maybe there's a sneaky GM? xD
    local creature = tile:getTopCreature(position)
    if creature then
        creature:teleportTo(config.KICKPLAYER_POS)
    end
    tile:getGround():removeCustomAttribute(config.TILE_CUSTOMATTR_KEY)
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function clearSnakeArea()
    local z = config.TOP_LEFT.z
    for y = config.TOP_LEFT.y, config.BOTTOM_RIGHT.y do
        for x = config.TOP_LEFT.x, config.BOTTOM_RIGHT.x do
            clearTile(Position(x, y, z))
        end
    end
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function gameLoop(player, score, speed, headPosition)
    player = Player(player)
    if (not player) or (not Tile(config.CONTROL_POS):getTopCreature()) then
        return print('[Error - snake::gameLoop] Player not found.')
    end
    local direction  = player:getDirection()
    headPosition:getNextPosition(direction)
    if isWall(headPosition) or isSnakeTail(headPosition) then
        showScore(player, score)
        player:teleportTo(config.KICKPLAYER_POS)
        clearSnakeArea()
        return
    end
    local foundFood = false
    if isFood(headPosition) then
        foundFood = true
        score = score + 1
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, 'score: ' .. score)
    end
    moveSnake(headPosition, score)
    if foundFood then
        speed = speed - config.SPEED_INCREMENT
        if speed <= 100 then
            speed = 100
        end
    end
    addEvent(gameLoop, speed, player:getId(), score, speed, headPosition)
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local function init(player)
    clearSnakeArea()
    placeFood()
    createSnake()
    player:teleportTo(config.CONTROL_POS)
    local headPosition = Position(
        config.SNAKE_SPAWN_POS.x,
        config.SNAKE_SPAWN_POS.y,
        config.SNAKE_SPAWN_POS.z
    )
    gameLoop(player:getId(), config.SNAKE_START_SCORE, config.SPEED_START, headPosition)
end
-- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ## -- ##
local snakeEnter = MoveEvent("snakeEnter")
snakeEnter:type('stepin')
function snakeEnter.onStepIn(player, item, position, fromPosition)
    local controlTile = Tile(config.CONTROL_POS)
    if controlTile and controlTile:getTopCreature() then
        player:sendTextMessage(MESSAGE_STATUS_SMALL, 'The game is currently occupied. Try again later.')
        player:teleportTo(fromPosition)
        fromPosition:sendMagicEffect(CONST_ME_POFF)
        return true
    end

    local lastPlayed = player:getStorageValue(config.PLAYER_PLAY_STORAGE)
    if lastPlayed > os.time() then
        player:sendTextMessage(MESSAGE_STATUS_SMALL, 'You need to wait ' .. (lastPlayed - os.time()) .. ' seconds.')
        player:teleportTo(fromPosition)
        fromPosition:sendMagicEffect(CONST_ME_POFF)
        return true
    end

    init(player)
    return true
end

snakeEnter:aid(config.TILE_ACTION_ID)
snakeEnter:register()


Preview
ezgif.com-gif-maker.gif
 
Last edited:

walltimer

Member
Joined
Aug 5, 2020
Messages
153
Reaction score
18
hi, i get ''The game is currently occupied. Try again later.')' but the snake is not using any1
 
OP
OP
Snavy

Snavy

Bakasta
Senator
Joined
Apr 1, 2012
Messages
1,244
Solutions
71
Reaction score
555
Location
Hell
Last edited:

walltimer

Member
Joined
Aug 5, 2020
Messages
153
Reaction score
18
i havent change anything, just like cords.

tfs 1.3, otservbr
Post automatically merged:

Lua Script Error: [Scripts Interface]
/xxxxxxxxxxxxxx/data/scripts/snake.lua:callback
/xxxxxxxxxxxxxxxxxx/data/scripts/snake.lua:162: attempt to index a nil value
stack traceback:
[C]: in function '__index'
xxxxxxxxxxxxxxxxxx/snake.lua:162: in function 'gameLoop'
xxxxxxxxxxxxxxxxxxxxxsnake.lua:199: in function 'init'
xxxxxxxxxxxxxxxscripts/snake.lua:221: in function </xxxxxxxxxxxx/ots/data/scripts/snake.lua:204>
 
Last edited:

walltimer

Member
Joined
Aug 5, 2020
Messages
153
Reaction score
18
Have you added invisible tile above snake area? (CONTROL_POS)
yes i have.

NEVERMIND! WORKED! THANK YOU MAN :* I MADE WRONG CORD FOR STEERING POS. Are there any other event/fun working on tfs 1.3 revscipt?
 
Last edited:
OP
OP
Snavy

Snavy

Bakasta
Senator
Joined
Apr 1, 2012
Messages
1,244
Solutions
71
Reaction score
555
Location
Hell
View attachment 57445n
Do you know what may be happening? is breeding 2 snakes

That happens when headPosition is wrong. I don't remember why I used control pos to calculate where snake would spawn while having it in config already 🤦‍♂️

try changing
Lua:
    local headPosition = Position(
        config.CONTROL_POS.x - 1,
        config.CONTROL_POS.y - 1,
        config.CONTROL_POS.z + 1
    )
to
Lua:
local headPosition = config.SNAKE_SPAWN_POS
Post automatically merged:

It's possible convert this script to tfs 1.2 ?
I bet it is.

You may request a converted version on the request board
 

alcapone

Member
Joined
Jan 13, 2021
Messages
78
Reaction score
8
That happens when headPosition is wrong. I don't remember why I used control pos to calculate where snake would spawn while having it in config already 🤦‍♂️

try changing
Lua:
    local headPosition = Position(
        config.CONTROL_POS.x - 1,
        config.CONTROL_POS.y - 1,
        config.CONTROL_POS.z + 1
    )
to
Lua:
local headPosition = config.SNAKE_SPAWN_POS
Post automatically merged:


I bet it is.

You may request a converted version on the request board
1617907883906.png


15:51 Snake Score: 1
15:51 You need to wait 10 seconds.

now it's giving the msg as if it were inside I went with the character to check it and it's like in the photo
 
OP
OP
Snavy

Snavy

Bakasta
Senator
Joined
Apr 1, 2012
Messages
1,244
Solutions
71
Reaction score
555
Location
Hell
View attachment 57446


15:51 Snake Score: 1
15:51 You need to wait 10 seconds.

now it's giving the msg as if it were inside I went with the character to check it and it's like in the photo
🤔 Have you confirmed that all positions are correct?

try this instead :
Lua:
    local headPosition = Position(
        config.SNAKE_SPAWN_POS.x,
        config.SNAKE_SPAWN_POS.y,
        config.SNAKE_SPAWN_POS.z
    )
 

alcapone

Member
Joined
Jan 13, 2021
Messages
78
Reaction score
8
🤔 Have you confirmed that all positions are correct?

try this instead :
Lua:
    local headPosition = Position(
        config.SNAKE_SPAWN_POS.x,
        config.SNAKE_SPAWN_POS.y,
        config.SNAKE_SPAWN_POS.z
    )
so it works more a flashing copy appears
 
Top