-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function setblockshigh_init(e)
    
end
function setblockshigh_main(e)

   

        if measure == 5 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
        end
        if measure == 6 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
        end
        if measure == 7 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
        end
        if measure == 8 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
        end

        if measure == 9 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
        end
        
        if measure == 10 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
            CollisionOff(35)
            SetPosition(35 ,24000+1*2000,1000+(35-30)*500,24850)
            CollisionOn(35)
        
        end

        if measure == 11 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
            CollisionOff(35)
            SetPosition(35 ,24000+1*2000,1000+(35-30)*500,24850)
            CollisionOn(35)
            CollisionOff(36)
            SetPosition(36 ,24000+0*2000,1000+(36-30)*500,24850)
            CollisionOn(36)
            
        end
        
        if measure == 12 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
            CollisionOff(35)
            SetPosition(35 ,24000+1*2000,1000+(35-30)*500,24850)
            CollisionOn(35)
            CollisionOff(36)
            SetPosition(36 ,24000+0*2000,1000+(36-30)*500,24850)
            CollisionOn(36)
            CollisionOff(37)
            SetPosition(37 ,24000+1*2000,1000+(37-30)*500,24850)
            CollisionOn(37)
            
        end
-- this is not pretty code i am not happy with this ... why does it reset the positions if nothing == 
if measure == 13 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
            CollisionOff(35)
            SetPosition(35 ,24000+1*2000,1000+(35-30)*500,24850)
            CollisionOn(35)
            CollisionOff(36)
            SetPosition(36 ,24000+0*2000,1000+(36-30)*500,24850)
            CollisionOn(36)
            CollisionOff(37)
            SetPosition(37 ,24000+1*2000,1000+(37-30)*500,24850)
            CollisionOn(37)
            CollisionOff(38)
            SetPosition(38 ,24000+0*2000,1000+(38-30)*500,24850)
            CollisionOn(38)
          
        end
-- see the thing with syntax (i had to try)
-- if measure == 14 or 15 or 16 then
-- it MIGHT have worked since , wel, since syntax BUT what it does is
-- i was expecting error BUT
-- it parses AND it gets 1stone is true , second and third are always true since , well 15 and well 16 .. its like saying if 15 equals 15 numbnut, see thats why i dont masjen
-- i told you YOU RUINED MY LIFE STICKING ME HERE
-- i dont want you to write my code, you dont want me to build your house, it could have been so simple, but LOBOTOMIE, FLIKKENSTAAT EN MASJEN !

        if measure == 14 or measure == 15 or measure == 16 then
            CollisionOff(30)
            SetPosition(30 ,24000+0*2000,1000+(30-30)*500,24850)
            CollisionOn(30)
            CollisionOff(31)
            SetPosition(31 ,24000+1*2000,1000+(31-30)*500,24850)
            CollisionOn(31)
            CollisionOff(32)
            SetPosition(32 ,24000+0*2000,1000+(32-30)*500,24850)
            CollisionOn(32)
            CollisionOff(33)
            SetPosition(33 ,24000+1*2000,1000+(33-30)*500,24850)
            CollisionOn(33)
            CollisionOff(34)
            SetPosition(34 ,24000+0*2000,1000+(34-30)*500,24850)
            CollisionOn(34)
            CollisionOff(35)
            SetPosition(35 ,24000+1*2000,1000+(35-30)*500,24850)
            CollisionOn(35)
            CollisionOff(36)
            SetPosition(36 ,24000+0*2000,1000+(36-30)*500,24850)
            CollisionOn(36)
            CollisionOff(37)
            SetPosition(37 ,24000+1*2000,1000+(37-30)*500,24850)
            CollisionOn(37)
            CollisionOff(38)
            SetPosition(38 ,24000+0*2000,1000+(38-30)*500,24850)
            CollisionOn(38)
            CollisionOff(39)
            SetPosition(39 ,24000+1*2000,1000+(37-30)*500,24850)
            CollisionOn(39)
            Destroy(e)
        end
        
end