Procedure IsPointeronMap(MausX, MausY)
xStart = Map(0,0)\

os
yStart = Map(0,0)\yPos + (#Kachel_Hoehe/2)
bG0.f = yStart - (#Kachel_Steigung*xStart)
bGX.f = bG0 + (MapSizeY*#Kachel_Hoehe)
yG0.f = #Kachel_Steigung*MausX + bG0
yGX.f = #Kachel_Steigung*MausX + bGX
bF0.f = yStart + (#Kachel_Steigung*xStart)
bFX.f = bF0 - (MapSizeY*#Kachel_Hoehe)
yF0.f = -#Kachel_Steigung*MausX + bF0
yFX.f = -#Kachel_Steigung*MausX + bFX
result = 0
If MausY > yG0 And MausY < yGX And MausY < yF0 And MausY > yFX
result = 1
EndIf
ProcedureReturn result
EndProcedure
...