von luces » Mo 5. Jan 2004, 15:25
wie meinst du das?
ich hab 2 varianten für dich:
1. x und Y bewegen sich zufällig:
Int 21Ran#+1->A
Int 7Ran#+1->B
Int 21Ran#+1->C
Int 7Ran#+1->D
While 1:ClrText
Locate A,B,"X"
Locate C,D,"Y"
Int 8Ran#+1->F
F=1=>A+1->A
F=2=>B+1->B
F=3=>C+1->C
F=4=>D+1->D
F=5=>A-1->A
F=6=>B-1->B
F=7=>C-1->C
F=8=>D-1->D
WhileEnd
2. Der Cursor bewegt X, zufall bewegt Y:
Int 21Ran#+1->A
Int 7Ran#+1->B
Int 21Ran#+1->C
Int 7Ran#+1->D
While 1:ClrText
Locate A,B,"X"
Locate C,D,"Y"
Int 4Ran#+1->F
F=1=>A+1->A
F=2=>B+1->B
F=3=>A-1->A
F=4=>B-1->B
GetKey=28=>C+1->C
GetKey=37=>D+1->D
GetKey=27=>C-1->C
GetKey=38=>D-1->D
WhileEnd
Achtung:
- cursortasten weiß ich nicht genau
- die buchstaben können sich wenns dumm kommt aus dem bildschirm gehen und einen Syntax Error
[Editiert durch luces am Montag, Januar 5, 2004 @ 15:29]