Code:
<>Variable Ch:[0001:X] Set, Event1 Xpos
<>Variable Ch:[0002:Y] Set, Event1 Ypos
<>Variable Ch:[0001:X] - , Event2 Xpos
<>Variable Ch:[0002:Y] - , Event2 Ypos
<>FORK Optn:Varbl[0001:X]-0
 <>FORK Optn:Varbl[0002:Y]-1
  <> (hier das Event töten, am besten Switch umlegen)
 :ELSE Case
  <>FORK Optn:Varbl[0002:Y]--1    (soll "minus 1" heißen)
   <> (hier das Event töten, am besten Switch umlegen)
  :END Case
  <>
 :END Case
 <>
:END Case
<>FORK Optn:Varbl[0002:Y]-0
 <>FORK Optn:Varbl[0001:X]-1
  <> (hier das Event töten, am besten Switch umlegen)
 :ELSE Case
  <>FORK Optn:Varbl[0001:X]--1
   <> (hier das Event töten, am besten Switch umlegen)
  :END Case
  <>
 :END Case
 <>
:END Case