Action Tetris system by mock

Mock · Mar 26, 2010

Hello.
I have been creaed this script 2 years ago and now i post it ^^

I have tested this script on TFS 0.3.6 and it works (without an aditional lib)

Lets install and config

Add it on:
data/actions/actions.xml

Code:

<action actionid="2387" event="script" value="tetris.lua"/>

And on data/actions/scripts create tetris.lua and add it:

Lua:

--[[
Tetris system By mock the bear (mtb)
Email: [email][email protected][/email]
Enjoy ""
]]
local config = {
    uppos = {x=1003,y=1010,z=7},
    dowpos = {x=1009,y=1020,z=7},
    playerpos = {x=1011,y=1017,z=7},
    block_start={x=1006,y=1011,z=7},
    exit={x=1011,y=1014,z=7},
    delay=10,
    item=1739,
    effects = {
        mark=3,
        burn=15,
        },
    blocks = {
        --
            {
             {
                {0,1,0},
                {1,1,1},
                {0,0,0},
                },
                 {
                {0,1,0},
                {0,1,1},
                {0,1,0},
                },
                 {
                {0,0,0},
                {1,1,1},
                {0,1,0},
                },
                 {
                {0,1,0},
                {1,1,0},
                {0,1,0}
                }
            },

        {
             {
                {1,1,1},
            },
             {
                {1},
                {1},
                {1},
            },
        },
        --
        {
        {
            {1},
        },
        },
        {
        {
        {1,1},{1,1},
        },
        },


    },
    data={false},
}

local function createItensInArea(item, pos, area) -- Function by mock
    local centro = {}
    local coisa = {}
    centro.y = math.floor(#area/2)+1
    for y = 1, #area do
        for x = 1, #area[y] do
            number = area[y][x]
            if number > 0 then
                centro.x = math.floor(table.getn(area[y])/2)+1
                local pos = {x = pos.x + x - centro.x, y = pos.y + y - centro.y, z = pos.z}
                local items = doCreateItem(item, 1, pos)
                table.insert(coisa, 1, items)
            end
        end
    end
    return coisa
end
local function removeItensInArea(item, pos, area) -- Function by mock
    local centro = {}
    centro.y = math.floor(table.getn(area)/2)+1
    for y = 1, table.getn(area) do
        for x = 1, table.getn(area[y]) do
            number = area[y][x]
            if number > 0 then
                centro.x = math.floor(table.getn(area[y])/2)+1
                local pos = {x = pos.x + x - centro.x, y = pos.y + y - centro.y, z = pos.z,stackpos = 255}
                local coisa = getThingfromPos(pos)
                if coisa.itemid == item then
                  doRemoveItem(coisa.uid,1)
                end
            end
        end
    end
end
local function checkItensInArea(item, pos, area,coisas) -- Function by mock
    local centro = {}
    if coisas == nil then
        coisas = {}
    end
    centro.y = math.floor(table.getn(area)/2)+1
    for y = 1, table.getn(area) do
        for x = 1, table.getn(area[y]) do
            number = area[y][x]
            if number > 0 then
                centro.x = math.floor(table.getn(area[y])/2)+1
                local pos = {x = pos.x + x - centro.x, y = pos.y + y - centro.y, z = pos.z,stackpos = 1}
                local coisa = getThingfromPos(pos)
                if coisa.itemid == item then
                    if not isInArray(coisas, coisa.uid) then
                        return true
                    end
                end
            end
        end
    end
    return false
end
function clean(pos1,pos2,stack) -- Function by mock
    for x = 0, math.floor(pos2.x-pos1.x) do
        for y = 0, math.floor(pos2.y-pos1.y) do
            local coisa = getThingfromPos({x = pos1.x+x, y = pos1.y+y, z = pos1.z, stackpos = stack})
            if coisa.itemid == config.item then
                doRemoveItem(coisa.uid,1)
            end
        end
    end
end
local function pushdown(pos1,pos2,item) -- push all piece 1 sqm to down
    -- Function by mock
    local ymax = math.floor(pos2.y-pos1.y)
    for y = 1,ymax  do
        for x = 1, math.floor(pos2.x-pos1.x)-1 do
            local coisa = getThingfromPos({x = pos1.x+x, y = pos1.y+(ymax-y), z = pos1.z, stackpos = 1})
            if coisa.itemid == item then
                local p2 = getThingPos(coisa.uid)
                doRemoveItem(coisa.uid,1)
                p2.y = p2.y+1
                doCreateItem(item, 1, p2)
            end
        end
    end
end
local function checkline(pos,cid,item) -- Function by mock
    local sizex = config.dowpos.x-config.uppos.x-1
    local t = {}
    for x=1,sizex do
        local using = {x=pos.x+x,y=pos.y,z=pos.z,stackpos=1}
        local igz = getThingfromPos(using)

        if igz.itemid == item then

            table.insert(t,1,{using,igz.uid})
        end
    end
    if #t == sizex then
        setPlayerStorageValue(cid,21451, getPlayerStorageValue(cid, 21451)+1)
        for i=1,#t do
            local f = t[i]
            doRemoveItem(f[2],1)
            if config.effects.burn then
                doSendMagicEffect(f[1],config.effects.burn)
            end
        end
        pushdown(config.uppos,{x=config.dowpos.x,y=pos.y,z  =config.dowpos.z},item)
        checkline(pos,cid,item)
    end
end
function doSendMagicEffectInArea(pos,effect,area,cid) -- Function by mock
    local centro = {}
    centro.y = math.floor(table.getn(area)/2)+1
    for y = 1, table.getn(area) do
        for x = 1, table.getn(area[y]) do
            if area[y][x] > 0 then
                centro.x = math.floor(table.getn(area[y])/2)+1
                if type(effect) == 'table' then
                    doSendMagicEffect({x=pos.x+x-centro.x,y=pos.y+y-centro.y,z= pos.z},(effect[area[y][x]] or 0),cid)
                else
                    doSendMagicEffect({x=pos.x+x-centro.x,y=pos.y+y-centro.y,z= pos.z},effect or 0,cid)
                end
            end
        end
    end
    return true
end

local function pedra(pos,cid,area) -- Function by mock
        config.data = config.data or {}
        config.data[6] = config.data[6] or config.delay
        config.data[5] = config.data[5] or 1
        config.data[5] = config.data[5]+1
        if config.data[1] == false then
            config.data[1] = #area == 1 and 1 or math.random(1,#area)
        end
        local cre_pos = getCreaturePosition(cid)
        pos.stackpos = 255
        pos.y = pos.y-1
        if getThingfromPos(pos).itemid == config.item then
            removeItensInArea(config.item,pos, area[config.data[1]])
        end
        if config.data[5] >= config.data[6] then
            pos.y = pos.y+1
            config.data[5] = 1
        end
        pos.stackpos = 1
        if cre_pos.x == config.playerpos.x+1 then
            doTeleportThing(cid, config.playerpos)
            pos.x = pos.x+1
            local coisa2 = getThingfromPos(pos)
            if checkItensInArea(463,pos, area[config.data[1]])  or checkItensInArea(config.item,pos, area[config.data[1]]) then
                pos.x = pos.x-1
                doSendAnimatedText(cre_pos, "Block", math.random(1,255))
            end
        elseif cre_pos.x == config.playerpos.x and cre_pos.y == config.playerpos.y+1 then
            doTeleportThing(cid, config.playerpos)
            pos.y = pos.y+1
            if checkItensInArea(463,pos, area[config.data[1]]) or checkItensInArea(config.item,pos, area[config.data[1]]) then
                pos.y = pos.y-1
                doSendAnimatedText(cre_pos, "Block", math.random(1,255))
            end
        elseif cre_pos.x == config.playerpos.x and cre_pos.y == config.playerpos.y-1 then
            doTeleportThing(cid, config.playerpos)
            if #area > 1 then
                local rot = #area < config.data[1]+1 and 1 or config.data[1]+1
                if checkItensInArea(463,pos, area[rot]) or checkItensInArea(config.item,pos, area[rot]) then
                    doSendAnimatedText(cre_pos, "Block", math.random(1,255))
                else
                    config.data[1] = rot
                end
            end
        elseif cre_pos.x == config.playerpos.x-1 then
            doTeleportThing(cid, config.playerpos)
            pos.x = pos.x-1
            local coisa2 = getThingfromPos(pos)
            if checkItensInArea(463,pos, area[config.data[1]]) or checkItensInArea(config.item,pos, area[config.data[1]])  then
                pos.x = pos.x+1
                doSendAnimatedText(cre_pos, "Block", math.random(1,255))
            end
        end
        if config.data[3] then
            config.data[3] = nil
            return
        end
        pos.stackpos=1
        if getThingfromPos(pos).itemid == config.item then
            doPlayerSendTextMessage(config.data[2], 24, 'You lose!')
            clean(config.uppos,config.dowpos,2)
            clean(config.uppos,config.dowpos,1)
            creation = nil
            doTeleportThing(config.data[2], config.exit)
            config.data[2] = nil
            config.data[1] = false
            config.data[3] = true
            return
        end
        local uida = createItensInArea(config.item,pos, area[config.data[1]])
        if config.effects.mark then
            doSendMagicEffectInArea(pos,config.effects.mark, area [config.data[1]] )
        end
        local humrox = pos
        pos.y = pos.y+1
        if not checkItensInArea(463,pos, area[config.data[1]]) and not checkItensInArea(config.item,humrox, area[config.data[1]],uida) then
            addEvent(pedra, 100, pos,cid,area)
        else
        e = 0
        for i=0,((config.dowpos.y)-(config.uppos.y)) do
            e = e-1
            addEvent(checkline,100*i,{x=config.uppos.x,y= config.dowpos.y +e,z=config.uppos.z},cid,config.item)
        end
      creation = nil
      config.data[1] = false
      end
end


local function control_loop(startpos) -- Function by mock
    if not config.data[2] then
        return
    end
    doSendMagicEffect(getCreaturePosition(config.data[2]), 1)
    local poi = getPlayerStorageValue(config.data[2], 21451)
    if poi == -1 then
        setPlayerStorageValue(config.data[2],21451, 0)
        poi = 0
    end
    doSendAnimatedText(getCreaturePosition(config.data[2]), "points: "..poi, math.random(1,255))
    startpos.stackpos = 2
    local coisaa = getThingfromPos(startpos)
    if not creation then
       creation = true
       addEvent(pedra, 1000, {x=config.block_start.x,y=config.block_start.y,z= config.block_start.z ,stackpos=1},config.data[2],config.blocks[math.random(1,#config.blocks)])
    end
    if coisaa.itemid == config.item then
        doPlayerSendTextMessage(config.data[2], 24, 'You lose!')
        clean(config.uppos,config.dowpos,2)
        clean(config.uppos,config.dowpos,1)
        creation = nil
        doTeleportThing(config.data[2], config.exit)
        config.data[2] = nil
        config.data[1] = false
        config.data[3] = true
    else
        addEvent(control_loop, 300, startpos)
    end
end

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if not config.data[2] then
        doTeleportThing(cid, config.playerpos)
        setPlayerStorageValue(cid,21451, 0)
        config.data[2] = cid
        addEvent(control_loop, 1000,config.block_start)
    else
        doPlayerSendCancel(cid,'Tetris are in use. Please wait.')
    end
    return false
end

Now lets config ^^

Code:

local config = {
    uppos = [COLOR=Red][B]{x=1003,y=1010,z=7}[/B][/COLOR],
    dowpos = [COLOR=Blue][B]{x=1009,y=1020,z=7},[/B][/COLOR]
    playerpos = [COLOR=Green][B]{x=1011,y=1017,z=7},[/B][/COLOR]
    block_start=[B][COLOR=Magenta]{x=1006,y=1011,z=7},[/COLOR][/B]
    exit=[COLOR=Sienna][B]{x=1011,y=1014,z=7},[/B][/COLOR]
    delay=[B][COLOR=DeepSkyBlue]10,[/COLOR][/B]
    item=[B]1739,[/B]
   [B] [COLOR=SandyBrown]effects = {
        mark=3,
        burn=15,
        },[/COLOR][/B]
[B]    [COLOR=DimGray]blocks = {[/COLOR][/B]

Photo

(Below the wall [pedestal, yellow wall] you must put an non-walkable sqm)

Red - Up-left position
Blue - Down-right position
Green - Position where player play
Pink - Where all block are created
Brown - Where player go when it lose
Light blue - 10 = 1 second to piece move
Black - Block itemid
Laranja - Effects (set false to dont show any effect)
Grey - if you want create new types of blocks have fun
Set switch to actionid 2387
If you want download the map

Video:
Versão 2.0

YouTube - Tetris system by mock

If you got an error on script download the attached script

Syntax · Mar 26, 2010

haha nice thats pretty crazy.

Fallen · Mar 26, 2010

Code:

local function checkItensInArea(item, pos, area,coisas)

i <3 that part.

Razors Edge · Mar 26, 2010

insane lol

Cykotitan · Mar 26, 2010

Kool!

Elexonic · Mar 26, 2010

error in script :S

[Error - LuaScriptInterface::loadFile] data/actions/scripts/tetris.lua:266: ')' expected near 'ea'
[Warning - Event::loadScript] Cannot load script (data/actions/scripts/tetris.lua)
data/actions/scripts/tetris.lua:266: ')' expected near 'ea'

Using tfs 0.3.6 pl1

iBlue · Mar 26, 2010

LMAO now that deserves 10 stars.

So many talented scripters these days...

Todo list: Add rewards for completing 'x' # of rows

Enjoy ur new bar

hodleo · Mar 26, 2010

finally you do it ^^
i remember the post where you said you'd release it some years later x)

markitu · Mar 26, 2010

very nice script man!
its nice to create a ranking in gesior AAC

hodleo · Mar 26, 2010

markitu said:
very nice script man!
its nice to create a ranking in gesior AAC

i can do that x) maybe later

Mock · Mar 26, 2010

@fran
syntax error
Cause:

Lua:

 command =x
I will try fix it (i will attach lua file)

JDB · Mar 27, 2010

This is a pretty cool idea that you made work.

Zonet · Mar 27, 2010

markitu said:
very nice script man!
its nice to create a ranking in gesior AAC

Lol! To easy!

Tried it. Sometimes it doesn't work, when a crate comes over 1. When it cleans, the crate which was over a crate wont get removed, only the one that is at the bottom

Mock · Mar 27, 2010

Video has been updated to V 2.0 (script version)

Northnorial · Mar 27, 2010

Hahahaha! How to describe it ...

It's awesome!

exiT · Mar 27, 2010

Can you go online on msn I need your help

Mock · Mar 27, 2010

okay, i am online

Zonet · Mar 27, 2010

Fix the bug. Also Make so you can use walls around, this looks very bad mapping, it wont work without those "ids"

Znote · Mar 27, 2010

Perhaps move character control panel so you can see 1 extra sqm <---

So it looks a bit more eye candy

Perhaps make different looktype on the different box symbols?

Pewo · Mar 27, 2010

the legendary game in tibia cool
good work!

Action Tetris system by mock

Mock the bear (MTB)

Attachments

Developer

Freelancer

Donator

Experienced G'

Well-Known Member

Banned User

Formerly cbrm -Crypto enthusiast, Retired scripter

New Member

Formerly cbrm -Crypto enthusiast, Retired scripter

Mock the bear (MTB)

OtLand Veteran

Web Developer

Mock the bear (MTB)

Member

Member

Mock the bear (MTB)

Web Developer

<?php echo $title; ?>

Intermediate OT User

Similar threads