Script do Donkey Cat

local Difficulty=4
--[[
Difficulty (2-5)
1 - impossible
2 - very hard
3 - hard
4 - normal
5 - easy
6+ - not interesting
]]

local tfm=tfm
tfm.exec.disableAfkDeath(true)
tfm.exec.disableAutoScore(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoTimeLeft(true)
tfm.exec.newGame([[<C><P F="0" aie="" H="450" /><Z><S><S H="80" L="10" o="6a7495" X="733" c="2" Y="192" T="12" P="0,0,5,0,25,0,0,0" /><S P="0,0,5,0,25,0,0,0" L="10" o="6a7495" X="733" c="2" Y="392" T="12" H="80" /><S H="80" L="10" o="6a7495" X="67" c="2" Y="292" T="12" P="0,0,5,0,-25,0,0,0" /><S H="450" L="10" o="6a7495" X="750" c="2" Y="225" T="12" P="0,0,0,0,0,0,0,0" /><S P="0,0,0,0,0,0,0,0" L="10" o="6a7495" X="50" c="2" Y="225" T="12" H="450" /><S P="0,0,5,0,-20,0,0,0" L="10" o="6a7495" X="64" c="2" Y="90" T="12" H="80" /><S H="10" L="150" o="324650" X="75" c="3" Y="450" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0.2,0.2,-2,0,0,0" L="650" o="324650" X="425" Y="440" T="12" H="10" /><S L="650" o="324650" X="375" H="10" Y="340" T="12" P="0,0,0.2,0,2,0,0,0" /><S L="650" o="324650" X="425" H="10" Y="240" T="12" P="0,0,0.2,0,-2,0,0,0" /><S P="0,0,0.2,0,2,0,0,0" L="650" o="324650" H="10" Y="140" T="12" X="375" /><S P="0,0,0.3,0.2,0,0,0,0" L="51" o="324650" X="25" c="1" Y="329" T="12" H="10" /><S H="10" L="51" o="324650" X="774" c="1" Y="429" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="10" L="51" o="324650" X="774" c="1" Y="229" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="10" L="51" o="324650" X="25" c="1" Y="129" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="50" o="324650" X="150" c="1" Y="60" T="12" H="10" /><S H="10" L="10" o="324650" X="170" c="3" Y="75" T="12" P="0,0,20,0,0,0,0,0" /><S P="0,0,20,0,0,0,0,0" L="10" o="324650" X="170" c="3" Y="90" T="12" H="10" /><S H="10" L="10" o="324650" X="170" c="3" Y="105" T="12" P="0,0,20,0,0,0,0,0" /><S H="100" L="10" o="324650" X="130" c="1" Y="5" T="12" P="0,0,0,0,0,0,0,0" /><S H="10" L="10" o="324650" X="0" c="3" Y="300" T="12" P="0,0,20,0,0,0,0,0" /><S P="0,0,20,0,0,0,0,0" L="10" o="324650" X="0" c="3" Y="270" T="12" H="10" /><S P="0,0,10,0,0,0,0,0" L="10" o="324650" X="800" c="3" Y="200" T="12" H="10" /><S H="10" L="10" o="324650" X="800" c="3" Y="170" T="12" P="0,0,10,0,0,0,0,0" /><S H="10" L="10" o="324650" X="800" c="3" Y="400" T="12" P="0,0,20,0,0,0,0,0" /><S P="0,0,20,0,0,0,0,0" L="10" o="324650" X="800" c="3" Y="370" T="12" H="10" /><S P="0,0,20,0,0,0,0,0" L="10" o="324650" X="170" c="3" Y="120" T="12" H="10" /><S c="4" X="-50" Y="0" N="" i="0,0,x_temps/x_p/itrp9b7y.png"/></S><D><F Y="220" X="780" /><DS Y="430" X="20" /><T Y="55" X="150" /></D><O /></Z></C>]])
tfm.exec.setGameTime(0)
tfm.exec.setUIMapName("#DonkeyCat</J>")
tfm.exec.setUIShamanName("")

local random =math.random
local addPhysicObject =tfm.exec.addPhysicObject
local addJoint =tfm.exec.addJoint

local objid=0
local function GetObjId()
objid=objid+1
if(objid>100)then
objid=1
end
return objid
end

local jointid=0
local function GetJointId()
jointid=jointid+1
if(jointid>100)then
jointid=1
end
return jointid
end

local berrel_mover={
type=13;
width=r;
friction=0.05;
restitution=0;
miceCollision=false;
mass=9999;
dynamic=true;
linearDamping=0;
angularDamping=0;
}

local barrel_killer={
type=13;
width=r;
friction=0;
restitution=20;
miceCollision=true;
groundCollision=false;
mass=0;
dynamic=true;
}

local barrel_joint={type=3;}
local barrel_dot={
type=0;
foreground=true;
alpha=0.5;
line=4;
}

local function CreateBarrel(x,y,r)
local id1,id2=GetObjId(),GetObjId()

berrel_mover.color=random(0,16777215);
barrel_dot.point1=x..","..(y-4)
barrel_dot.point2=x..","..(y-5)
addPhysicObject(id1,x,y,berrel_mover)
addPhysicObject(id2,x,y,barrel_killer)
addJoint(GetJointId(),id1,id2,barrel_joint)
addJoint(GetJointId(),id1,id1,barrel_dot)
end

local rndCreate=10
local function RndCreate(x,y)
rndCreate=rndCreate+1
if(rndCreate>random(0,10))then
CreateBarrel(x,y,10)
rndCreate=rndCreate-Difficulty
end
end


function eventLoop()
RndCreate(65,10)
end

function eventPlayerDied(name)
tfm.exec.respawnPlayer(name)
end

eventPlayerWon=eventPlayerDied
eventNewPlayer=eventPlayerDied

local function FillAtStart()
for y=400,100,-100 do
for x=100,700,50 do
RndCreate(x,y-30)
end
end
end
FillAtStart()