Graphics 800,600,32,2:SetBuffer BackBuffer():AppTitle "Kernle 32DLL's - CARROM - 1.0"
Global GW=GraphicsWidth()/2,GH=GraphicsHeight()/2,SI=LoadAnimImage("S.png",20,20,0,3),RI=LoadImage("R.png"),LI=CreateImage(GW*2,GH*2),S.S
SetFont LoadFont(Arial,20,0,0):HidePointer:Type S Field FR,XC,YC,XF#,YF#,TW End Type
MaskImage SI,0,0,255:MidHandle SI:Color 50,50,50
SetBuffer ImageBuffer(LI):Oval GW-245,GH-245,35,35:Oval GW+210,GH-245,35,35:Oval GW-245,GH+210,35,35:Oval GW+210,GH+210,35,35:SetBuffer BackBuffer()
.RG:S=New S:S\FR=2:S\XC=GW:S\YC=GH:For J#=1 To 10 Grad#=J/10*360:Grad2#=J/10*360+36/2:S=New S:S\XC=GW+Sin(Grad)*100:S\YC=GH+Cos(Grad)*100:S=New S:S\FR=1:S\XC=GW+Sin(Grad2)*100:S\YC=GH+Cos(Grad2)*100Next
Global P0P,P1P,TF%,TW%,GTW,DTW,WTW,PNP,PW,PB,PG
Repeat
   Cls:Color 128,128,128:Rect GW-245,GH-245,490,490:DrawImage RI,GW-280,GH-280:DrawImage LI,0,0:ZS()
   If GTW=0
      Color 0,255,0
      S=First S:TW=VectorYaw#(-(MouseX()-GW)+(S\XC-GW),0,(MouseY()-GH)-(S\YC-GH))
      Line S\XC,S\YC,MouseX(),MouseY():Oval MouseX()-1,MouseY()-1,3,3
      MT=MouseDown(1):If MT=1 Then WTW=1
      If WTW=1 And TF<60 Then TF=TF+1
      If MT=0 And WTW=1 Then WTW=0:DTW=1
      Text MouseX(),MouseY(),TF
   EndIf
   Color 255,255,255:Text GW/2,1,"Player 0: (Weiß): "+P0P,1,0:Text GW+GW/2,1,"Player 1: (Schwarz): "+P1P,1,0:Text GW,1,"Player "+PNP+"s Zug",1,0:Flip
   If P0P=10 Or P1P=10
      Text 400,290,"! GAME OVER !",1,1
      If P0P=10 Then Text 400,310,"PLAYER 1 WINS",1,1
      If P1P=10 Then Text 400,310,"PLAYER 2 WINS",1,1
      Flip:FlushKeys():WaitKey():End
   EndIf
   If KeyHit(19) Then For S=Each S Delete S Next:P0P=0:P1P=0:PNP=0:PG=0:PB=0:PW=0:GTW=0:DTW=0:WTW=0:Goto RG
   If KeyHit(1) Then End
Forever
Function ZS()
   .Restart:C=0:C2=0
   For S=Each S:C=C+1
      If C=1 And GTW=0 And DTW=1 Then S\TW=1:S\XF=Sin(TW)*TF:S\YF=Cos(TW)*TF:GTW=1:DTW=0:PW=1:PB=0:PG=0:TF=0
      If S\TW = 1
         If ImagesCollide(SI,S\XC,S\YC,1,LI,0,0,0)
            If S\FR=0 Then P1P=P1P+1
            If S\FR=1 Then P0P=P0P+1
            If S\FR=2
               S\XC=GW:S\YC=GH:S\XF=0:S\YF=0
            Else
               If S\FR=0
                  If PNP=1 Then PG=1 Else PB=1
               ElseIf S\FR = 1
                  If PNP=0 Then PG=1 Else PB=1
               EndIf
               Delete S:Goto Restart
            EndIf
         EndIf
         .RBD:XF=0:YF=0:XS=0:YS=0
         If Abs(S\XF#)<.1 Then S\XF=0
         If Abs(S\YF#)<.1 Then S\YF=0
         If Abs(S\XF#)>90 Then S\XF=90*Sgn(S\XF)
         If Abs(S\YF#)>90 Then S\YF=90*Sgn(S\XF)
         Repeat
            If XF=0 Then XS=XS+1
            If YF=0 Then YS=YS+1
            If XS=>Abs(S\XF)Then XF=1
            If YS=>Abs(S\YF)Then YF=1
            If XF=0 Then S\XC=S\XC+Sgn(S\XF)
            If YF=0 Then S\YC=S\YC+Sgn(S\YF)
            If S\XC<GW-256 Then S\XC=GW-256
            If S\XC>GW+236 Then S\XC=GW+236
            If S\YC<GH-256 Then S\YC=GH-256
            If S\YC>GH+236 Then S\YC=GH+236
            If XF=1 And YF=1 Then Exit
            If ImagesCollide(SI,S\XC,S\YC,1,RI,GW-280,GH-280,0)
               If S\XC=GW-256 Or S\XC=GW+236
                  If S\XF=0 Then S\XF=-Sgn(GW-S\XC)
                  S\XF=-S\XF
               ElseIf S\YC=GH-256 Or S\YC=GH+236
                  If S\YF=0 Then S\YF=-Sgn(GH-S\YC)
                  S\YF=-S\YF
               EndIf
               Goto RBD
            EndIf
            TX=S\XC:TY=S\YC:TXF=S\XF:TYF=S\YF
            For S = Each S
               C2=C2+1:If C2<>C
                  If ImagesCollide(SI,S\XC,S\YC,1,SI,TX,TY,1)
                     VY#=VectorYaw#(TX-S\XC,0,S\YC-TY)
                     S\XF=Sin(VY)*Abs(TXF):S\YF=Cos(VY)*Abs(TYF)
                     TXF=-S\XF/2:TYF=-S\YF/2:S\TW=1:Kol=1
                     S\XC=S\XC+Sgn(S\XF)*2:S\YC=S\YC+Sgn(S\YF)*2
                  EndIf
               EndIf
            Next
            C2=0:S=First S
            If C>1 Then For I=0 To C-2 S=After S Next
            If Kol=1 Then  S\XF=TXF:S\YF=TYF:Kol=0:S\XC=S\XC+Sgn(S\XF)*2:S\YC=S\YC+Sgn(S\YF)*2:Goto RBD
         Until XF=1 And YF=1
         If Abs(S\XF)>0 Then S\XF=0.95*S\XF:If Abs(S\XF)<1 Then S\XF=0
         If Abs(S\YF)>0 Then S\YF=0.95*S\YF:If Abs(S\YF)<1 Then S\YF=0
         If S\XF=0 And S\YF=0 Then S\TW=0
      EndIf
   Next
   GTW=0
   For S=Each S
      DrawImage SI,S\XC,S\YC,S\FR%:If S\XF<>0 Or S\YF<>0 Then GTW=1
   Next
   If GTW=0 And PW=1
      If PB=0 And PG=1 Then PW=0 Else PNP=1-PNP:PW=0
   EndIf
End Function