mathbufferX1=ent_field(0,0)*ent_field(1,0)*ent_field(2,0)
    mathbufferX2=ent_field(0,1)*ent_field(1,1)*ent_field(2,1)
    mathbufferX3=ent_field(0,2)*ent_field(1,2)*ent_field(2,2)
    mathbufferY1=ent_field(0,0)*ent_field(0,1)*ent_field(0,2)
    mathbufferY2=ent_field(1,0)*ent_field(1,1)*ent_field(1,2)
    mathbufferY3=ent_field(2,0)*ent_field(2,1)*ent_field(2,2)
    mathbufferZ1=ent_field(0,0)*ent_field(1,1)*ent_field(2,2)
    mathbufferZ2=ent_field(0,2)*ent_field(1,1)*ent_field(2,0)

Graphics 220, 275, 16, 2
SetBuffer BackBuffer()

AppTitle "Tic Tac Toe"

time_flip=CreateTimer(30)
img_background = LoadImage("images/background.bmp")
img_mark = LoadAnimImage("images/mark.bmp",58,58,0,3)
MaskImage img_mark, 0, 0, 0
Dim ent_field(2,2)
Global info_player=1
Global game=1

While Not KeyHit (1)
    Cls
   
    act_mousehit=MouseHit(1)
    DrawBlock img_background,0,0
   
    Color 0,0,255
    Text 180,243,wins1
    Color 0,0,0
    Text 190,243,":"
    Color 255,0,0
    Text 200,243,wins2
   
   
    If info_player=1 Then
        Color 0,0,255
        Text 18,243,info_player
    ElseIf info_player=2 Then
        Color 255,0,0
        Text 18,243,info_player
    EndIf
   
    For x=0 To 2
        For y=0 To 2
            DrawImage img_mark,11+(12*x+58*x),11+(12*y+58*y),ent_field(x,y)   
            If ent_field(x,y)=0 Then
                If RectsOverlap(MouseX(),MouseY(),1,1,11+(12*x+58*x),11+(12*y+58*y),58,58) Then
                    If MouseDown(1) And game=1
                        If act_mousehit
                            ent_field(x,y)=info_player
                            If info_player=1 Then
                                info_player=2
                            ElseIf info_player=2 Then
                                info_player=1
                            EndIf
                        EndIf
                    EndIf
                EndIf
              EndIf
        Next
    Next
   
    If     win>0 Then
        Color 0,255,0
        Text 60,103,"Player "+win+" wins!"
        game=0
    EndIf
   
    mathbufferX1=ent_field(0,0)*ent_field(1,0)*ent_field(2,0)
    mathbufferX2=ent_field(0,1)*ent_field(1,1)*ent_field(2,1)
    mathbufferX3=ent_field(0,2)*ent_field(1,2)*ent_field(2,2)
    mathbufferY1=ent_field(0,0)*ent_field(0,1)*ent_field(0,2)
    mathbufferY2=ent_field(1,0)*ent_field(1,1)*ent_field(1,2)
    mathbufferY3=ent_field(2,0)*ent_field(2,1)*ent_field(2,2)
    mathbufferZ1=ent_field(0,0)*ent_field(1,1)*ent_field(2,2)
    mathbufferZ2=ent_field(0,2)*ent_field(1,1)*ent_field(2,0)
   
    If mathbufferX1=1 And win<>1 Or mathbufferX2=1 And win<>1 Or mathbufferX3=1 And win<>1 Or mathbufferY1=1 And win<>1 Or mathbufferY2=1 And win<>1 Or mathbufferY3=1 And win<>1 Or mathbufferZ1=1 And win<>1 Or mathbufferZ2=1 And win<>1 Then
        win=1
        wins1=wins1+1
    ElseIf mathbufferX1=8 And win<>2 Or mathbufferX2=8 And win<>2 Or mathbufferX3=8 And win<>2 Or mathbufferY1=8 And win<>2 Or mathbufferY2=8 And win<>2 Or mathbufferY3=8 And win<>2 Or mathbufferZ1=8 And win<>2 Or mathbufferZ2=8 And win<>2 Then
        win=2
        wins2=wins2+1
    EndIf
   
    summe=ent_field(0,0)+ent_field(0,1)+ent_field(0,2)+ent_field(1,0)+ent_field(1,1)+ent_field(1,2)+ent_field(2,0)+ent_field(2,1)+ent_field(2,2)
    If summe=13 And win=0 Or summe=14 And win=0
        game=0
        Color 0,255,0
        Text 70,103,"Undecided!"
    EndIf
   
    If RectsOverlap(MouseX(),MouseY(),1,1,1,225,220,50) And MouseDown(1) And MouseHit(1) Then
        For a=0 To 2
            For b=0 To 2
                ent_field(a,b)=0
            Next
        Next
        game=1
        win=0
    EndIf

    WaitTimer time_flip
    Flip
Wend

End

...
Dim ent_field(2,2)
Global info_player=1
Global game=1
[b]Global act_mousehit  ;fragt ab ob li. Maustaste gedrückt wird[/b]
 ...

If RectsOverlap(MouseX(),MouseY(),1,1,11+(12*x+58*x),11+(12*y+58*y),58,58) Then

while .....
mausx=mousex()
mausy=mousey()
.......
x=11+(12*x+58*x)
y=11+(12*y+58*y)
if mausx>=x and mausx<=x-58 and mausy>=y and mausy<=y-58
....
wend

If MouseDown(1) And game=1
If act_mousehit

if act_mousehit=1 then

If info_player=1 Then
info_player=2
ElseIf info_player=2 Then
info_player=1
EndIf

info_player=3-info_player

    mathbufferX1=ent_field(0,0)*ent_field(1,0)*ent_field(2,0)
    mathbufferX2=ent_field(0,1)*ent_field(1,1)*ent_field(2,1)
    mathbufferX3=ent_field(0,2)*ent_field(1,2)*ent_field(2,2)
    mathbufferY1=ent_field(0,0)*ent_field(0,1)*ent_field(0,2)
    mathbufferY2=ent_field(1,0)*ent_field(1,1)*ent_field(1,2)
    mathbufferY3=ent_field(2,0)*ent_field(2,1)*ent_field(2,2)
    mathbufferZ1=ent_field(0,0)*ent_field(1,1)*ent_field(2,2)
    mathbufferZ2=ent_field(0,2)*ent_field(1,1)*ent_field(2,0)
   
    If mathbufferX1=1 And win<>1 Or mathbufferX2=1 And win<>1 Or mathbufferX3=1 And win<>1 Or mathbufferY1=1 And win<>1 Or mathbufferY2=1 And win<>1 Or mathbufferY3=1 And win<>1 Or mathbufferZ1=1 And win<>1 Or mathbufferZ2=1 And win<>1 Then
        win=1
        wins1=wins1+1
    ElseIf mathbufferX1=8 And win<>2 Or mathbufferX2=8 And win<>2 Or mathbufferX3=8 And win<>2 Or mathbufferY1=8 And win<>2 Or mathbufferY2=8 And win<>2 Or mathbufferY3=8 And win<>2 Or mathbufferZ1=8 And win<>2 Or mathbufferZ2=8 And win<>2 Then
        win=2
        wins2=wins2+1
    EndIf

dim mathbuffer(10)
....
if win=0 then
  mathbuffer(1)=ent_field(0,0)*ent_field(1,0)*ent_field(2,0)
  mathbuffer(2)= ....
  ....
  for n=1 to 8
    if mathbuffer(n)=1 then
      win=1
      wins1=wins1+1
    endif
    if mathbuffer(n)=8 then
      win=2
      wins2=wins2+1
    endif
  next
endif

    If RectsOverlap(MouseX(),MouseY(),1,1,1,225,220,50) And [b]MouseDown(1) And MouseHit(1)[/b] Then
        For a=0 To 2
            For b=0 To 2
                ent_field(a,b)=0
            Next
        Next
        game=1
        win=0
    EndIf

@name [Shy-Tec]_ECS_v1
@outputs AimEnt:entity AimCol:vector A B OKU SelectMode [Cmd Commands Command PropStack Undo Prop Select]:array

if (first())
{
    Commands[1,string]="stack"
    Commands[2,string]="setrot"
    Commands[3,string]="translate"
    Commands[4,string]="rotate"
    Commands[5,string]="undo"
    Commands[6,string]="select_on"
    Commands[7,string]="select_off"
    Commands[8,string]="kill"
}

runOnTick(1)
runOnChat(1)

Syntax = "-e_"
SynNum = Syntax:length()
OLS = owner():lastSaid()
OKU = owner():keyUse()
LS = lastSaid()
AimEnt = owner():aimEntity()
AimCol = owner():aimEntity():getColor()


if ( chatClk(owner()) & OLS:left(SynNum) == Syntax)
{
    #hideChat(1)
    CmdSub = OLS:sub(OLS:find(Syntax)+SynNum)
    Cmd = CmdSub:explode(" ")
   
    # --- STACKEN ---   
    if (Cmd[1,string]==Commands[1,string] & inrange(Cmd[2,string]:toNumber(),0,50) & AimEnt:toString()!="(null)")
    {
        Undo:unshiftNumber(Undo[1,number]+Cmd[2,string]:toNumber())
        for (I=1,clamp(Cmd[2,string]:toNumber(),1,50))
        {
            PropStack:pushVector(vec(Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber(),Cmd[5,string]:toNumber())*I)
            PropStack:pushAngle(ang(Cmd[6,string]:toNumber(),Cmd[7,string]:toNumber(),Cmd[8,string]:toNumber()))
            PropStack:pushEntity(owner():aimEntity())
        }
    }
    elseif (Cmd[1,string]!=Commands[1,string]) { }
    elseif (Cmd[2,string]:toNumber()>50) {print("You cannot stack more than 50 props!")}
    elseif (Cmd[2,string]:toNumber()<=0) {print("You cannot stack 0 or negativ amount of props!")}
   
    # --- SETROT ---   
    if (Cmd[1,string]==Commands[2,string])
    {
        if (SelectMode)
        {
            for (I=0,Select:count())
            {
                Select[I,entity]:setAng(ang(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            }
            print("Selected props have been setroted to angles "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
        }
        elseif (AimEnt:toString()!="(null)")
        {
            AimEnt:setAng(ang(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            print("Prop has been setroted to angles "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
        }
    }
   
    # --- TRANSLATEN ---   
    if (Cmd[1,string]==Commands[3,string])
    {
        if (SelectMode)
        {
            for (I=0,Select:count())
            {
                Select[I,entity]:setPos(Select[I,entity]:pos()+vec(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            }
            print("Selected props have been translated to "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
        }
        elseif (AimEnt:toString()!="(null)")
        {
            #holoCreate(1,owner():pos(),vec(0.1,0.1,0.1)
            #holoEntity(1):setTrails(5,5,5,"trails/laser",vec(255,0,0),255)
            #holoPos(1,AimEnt:pos())
            AimEnt:setPos(AimEnt:pos()+vec(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            print("Prop has been translated to "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
            #holoDelete(1)
        }
    }
   
    # --- ROTATE ---   
    if (Cmd[1,string]==Commands[4,string])
    {
        if (SelectMode)
        {
            for (I=0,Select:count())
            {
                Select[I,entity]:setAng(Select[I,entity]:angles()+ang(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            }
            print("Selected props have been rotated "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
        }
        elseif (AimEnt:toString()!="(null)")
        {
            AimEnt:setAng(AimEnt:angles()+ang(Cmd[2,string]:toNumber(),Cmd[3,string]:toNumber(),Cmd[4,string]:toNumber()))
            print("Prop has been rotated "+Cmd[2,string]+" "+Cmd[3,string]+" "+Cmd[4,string])
        }
    }
   
    # --- UNDO ---
    if (Cmd[1,string]==Commands[5,string])
    {
        for (I=Undo[1,number],Undo[2,number]+1,-1)
        {
            Prop[I,entity]:propDelete()
            Prop:remove(I)
            A--
        }
        Undo:shift()
        Cmd[1,string]=""
        print("Last Stack has been undone")
    }
   
    # --- SELECTMODE ---
    if (Cmd[1,string]==Commands[6,string])
    {
        SelectMode=1
    }
   
    if (Cmd[1,string]==Commands[7,string])
    {
        SelectMode=0
    }
   
    # --- KILL ---   
    if (Cmd[1,string]==Commands[8,string])
    {
        if (SelectMode)
        {
            for (I=0,Select:count())
            {
                Select[I,entity]:propDelete()
            }
            print("Selected props have been killed")
        }
        elseif (AimEnt:toString()!="(null)")
        {
            AimEnt:propDelete()
            print("Prop has been killed")
        }
    }
   
    if (Cmd[1,string]=="stack" & inrange(Cmd[2,string]:toNumber(),0,50) & AimEnt:toString()!="(null)")
    {
        print("Prop has stacked "+Cmd[2,string]+" times to "+Cmd[3,string]+" "+Cmd[4,string]+" "+Cmd[5,string])
        timer("StackDelay",10)
        Cmd[1,string]=""
    }
}

if (SelectMode)
{
        if (OKU&$OKU)
        {
            for (I=0,Select:count())
            {
                if (AimEnt==Select[I,entity])
                {
                    hint("Prop deselected",2)
                    AimEnt:setColor(vec(255,255,255),255)
                    Select:remove(I)
                    B=Select:count()
                }
                elseif (I==Select:count())
                {
                    hint("Prop selected",2)
                    if (AimEnt:toString()!="(null)")
                    {
                        B++
                        Select[B,entity]=AimEnt
                        AimEnt:setColor(vec(255,0,0),128)
                    }
                }
            }
        }
       
        for(I=1,Select:count())
        {
            if (Select[I,entity]:toString()=="(null)")
            {
                Select:remove(I)
                B=Select:count()
            }
        }
}

if (PropStack:count() & clk("StackDelay"))
{
    StackVec=PropStack:shiftVector()
    StackAng=PropStack:shiftAngle()
    StackEnt=PropStack:shiftEntity()
   
    A++               
    Prop[A,entity]=propSpawn(StackEnt,StackEnt:pos()+StackVec,StackAng,1)
               
    timer("StackDelay",260)
}

for (I=1,Prop:count())
{
    if (Prop[I,entity]:toString()=="(null)")
    {
        Prop:remove(I)
        A--
    }
}