daos06 Forum-Administrator

Geschlecht:  Anmeldungsdatum: 05.08.2006 Beiträge: 135 Wohnort: Austria
|
Verfasst am: 12.08.2006, 20:01 Titel: Tic Tac Toe für 2 Spieler |
|
|
Leider hat es noch keinen Computergegner, vll. progge ich es mal.
| Code: | %Anfang
rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '120|100|200|150'
letdialog 'myDialog', 'caption', 'Tic Tac Toe'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'GROUP', '80|0|10|90'
letdialog 'myDialog:myWidget1', 'enabled', '0'
rem --- creating code for widget "myWidget2"
newdialog 'myDialog:myWidget2', 'GROUP', '40|20|140|15'
letdialog 'myDialog:myWidget2', 'enabled', '0'
rem --- creating code for widget "myWidget3"
newdialog 'myDialog:myWidget3', 'GROUP', '40|50|140|15'
letdialog 'myDialog:myWidget3', 'enabled', '0'
rem --- creating code for widget "myWidget4"
newdialog 'myDialog:myWidget4', 'GROUP', '125|0|10|90'
letdialog 'myDialog:myWidget4', 'enabled', '0'
rem --- creating code for widget "myWidget5"
newdialog 'myDialog:myWidget5', 'BUTTON', '45|10|35|15'
letdialog 'myDialog:myWidget5', 'enabled', '0'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog:myWidget6', 'BUTTON', '90|10|35|15'
letdialog 'myDialog:myWidget6', 'enabled', '0'
rem --- creating code for widget "myWidget7"
newdialog 'myDialog:myWidget7', 'BUTTON', '135|10|35|15'
letdialog 'myDialog:myWidget7', 'enabled', '0'
rem --- creating code for widget "myWidget8"
newdialog 'myDialog:myWidget8', 'BUTTON', '45|40|35|15'
letdialog 'myDialog:myWidget8', 'enabled', '0'
rem --- creating code for widget "myWidget9"
newdialog 'myDialog:myWidget9', 'BUTTON', '90|40|35|15'
letdialog 'myDialog:myWidget9', 'enabled', '0'
rem --- creating code for widget "myWidget10"
newdialog 'myDialog:myWidget10', 'BUTTON', '135|40|35|15'
letdialog 'myDialog:myWidget10', 'enabled', '0'
rem --- creating code for widget "myWidget11"
newdialog 'myDialog:myWidget11', 'BUTTON', '45|70|35|15'
letdialog 'myDialog:myWidget11', 'enabled', '0'
rem --- creating code for widget "myWidget12"
newdialog 'myDialog:myWidget12', 'BUTTON', '90|70|35|15'
letdialog 'myDialog:myWidget12', 'enabled', '0'
rem --- creating code for widget "myWidget13"
newdialog 'myDialog:myWidget13', 'BUTTON', '135|70|35|15'
letdialog 'myDialog:myWidget13', 'enabled', '0'
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
[x] = '1'
repeat
rem Dialog starten
rundialog [event] = '0'
rem Ereignis auswerten
if [event] = 'click_myDialog:myWidget5'
deldialog 'myDialog:myWidget5'
newdialog 'myDialog:myWidget5', 'Label', '45|10|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget5', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget5', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget5', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget5', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget5', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget5', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget5', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget5', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget5', 'caption', ' X'
[x] + '1'
endif
getdialog [a] = 'myDialog:myWidget5', 'caption'
endif
if [event] = 'click_myDialog:myWidget6'
deldialog 'myDialog:myWidget6'
newdialog 'myDialog:myWidget6', 'Label', '90|10|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget6', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget6', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget6', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget6', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget6', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget6', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget6', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget6', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget6', 'caption', ' X'
[x] + '1'
endif
getdialog [b] = 'myDialog:myWidget6', 'caption'
endif
if [event] = 'click_myDialog:myWidget7'
deldialog 'myDialog:myWidget7'
newdialog 'myDialog:myWidget7', 'Label', '135|10|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget7', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget7', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget7', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget7', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget7', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget7', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget7', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget7', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget7', 'caption', ' X'
[x] + '1'
endif
getdialog [c] = 'myDialog:myWidget7', 'caption'
endif
if [event] = 'click_myDialog:myWidget8'
deldialog 'myDialog:myWidget8'
newdialog 'myDialog:myWidget8', 'Label', '45|40|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget8', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget8', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget8', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget8', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget8', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget8', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget8', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget8', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget8', 'caption', ' X'
[x] + '1'
endif
getdialog [d] = 'myDialog:myWidget8', 'caption'
endif
if [event] = 'click_myDialog:myWidget9'
deldialog 'myDialog:myWidget9'
newdialog 'myDialog:myWidget9', 'Label', '90|40|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget9', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget9', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget9', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget9', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget9', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget9', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget9', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget9', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget9', 'caption', ' X'
[x] + '1'
endif
getdialog [e] = 'myDialog:myWidget9', 'caption'
endif
if [event] = 'click_myDialog:myWidget10'
deldialog 'myDialog:myWidget10'
newdialog 'myDialog:myWidget10', 'Label', '135|40|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget10', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget10', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget10', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget10', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget10', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget10', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget10', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget10', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget10', 'caption', ' X'
[x] + '1'
endif
getdialog [f] = 'myDialog:myWidget10', 'caption'
endif
if [event] = 'click_myDialog:myWidget11'
deldialog 'myDialog:myWidget11'
newdialog 'myDialog:myWidget11', 'Label', '45|70|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget11', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget11', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget11', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget11', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget11', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget11', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget11', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget11', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget11', 'caption', ' X'
[x] + '1'
endif
getdialog [g] = 'myDialog:myWidget11', 'caption'
endif
if [event] = 'click_myDialog:myWidget12'
deldialog 'myDialog:myWidget12'
newdialog 'myDialog:myWidget12', 'Label', '90|70|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget12', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget12', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget12', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget12', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget12', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget12', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget12', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget12', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget12', 'caption', ' X'
[x] + '1'
endif
getdialog [h] = 'myDialog:myWidget12', 'caption'
endif
if [event] = 'click_myDialog:myWidget13'
deldialog 'myDialog:myWidget13'
newdialog 'myDialog:myWidget13', 'Label', '135|70|35|15'
If [x] = '1'
letdialog 'myDialog:myWidget13', 'caption', ' X'
[x] + '1'
elseIf [x] = '2'
letdialog 'myDialog:myWidget13', 'caption', ' O'
[x] + '1'
elseIf [x] = '3'
letdialog 'myDialog:myWidget13', 'caption', ' X'
[x] + '1'
elseIf [x] = '4'
letdialog 'myDialog:myWidget13', 'caption', ' O'
[x] + '1'
elseIf [x] = '5'
letdialog 'myDialog:myWidget13', 'caption', ' X'
[x] + '1'
elseIf [x] = '6'
letdialog 'myDialog:myWidget13', 'caption', ' O'
[x] + '1'
elseIf [x] = '7'
letdialog 'myDialog:myWidget13', 'caption', ' X'
[x] + '1'
elseIf [x] = '8'
letdialog 'myDialog:myWidget13', 'caption', ' O'
[x] + '1'
elseIf [x] = '9'
letdialog 'myDialog:myWidget13', 'caption', ' X'
[x] + '1'
endif
getdialog [i] = 'myDialog:myWidget13', 'caption'
endif
If [a] = ' X' & [b] = ' X' & [c] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [d] = ' X' & [e] = ' X' & [f] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [g] = ' X' & [h] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [a] = ' X' & [d] = ' X' & [g] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [b] = ' X' & [e] = ' X' & [h] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [c] = ' X' & [f] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [a] = ' X' & [e] = ' X' & [i] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [g] = ' X' & [e] = ' X' & [c] = ' X'
echo 'Spieler 1 hat gewonnen'
[s] = '1'
goto 'ende'
endif
If [a] = ' O' & [b] = ' O' & [c] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [d] = ' O' & [e] = ' O' & [f] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [g] = ' O' & [h] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [a] = ' O' & [d] = ' O' & [g] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [b] = ' O' & [e] = ' O' & [h] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [c] = ' O' & [f] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [a] = ' O' & [e] = ' O' & [i] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [g] = ' O' & [e] = ' O' & [c] = ' O'
echo 'Spieler 2 hat gewonnen'
[s] = '2'
goto 'ende'
endif
If [event] = 'close_myDialog' halt
until [x] = '10'
echo 'Unentschieden!'
confirm [quit] = 'Revanche?'
If [quit] = [true]
deldialog 'myDialog:myWidget5'
deldialog 'myDialog:myWidget6'
deldialog 'myDialog:myWidget7'
deldialog 'myDialog:myWidget8'
deldialog 'myDialog:myWidget9'
deldialog 'myDialog:myWidget10'
deldialog 'myDialog:myWidget11'
deldialog 'myDialog:myWidget12'
deldialog 'myDialog:myWidget13'
goto 'Anfang'
If [quit] = [false]
halt
endif
%ende
If [s] = '1' | [s] = '2'
confirm [quit] = 'Revanche?'
If [quit] = [true]
deldialog 'myDialog:myWidget5'
deldialog 'myDialog:myWidget6'
deldialog 'myDialog:myWidget7'
deldialog 'myDialog:myWidget8'
deldialog 'myDialog:myWidget9'
deldialog 'myDialog:myWidget10'
deldialog 'myDialog:myWidget11'
deldialog 'myDialog:myWidget12'
deldialog 'myDialog:myWidget13'
reset [a]
reset [b]
reset [c]
reset [d]
reset [e]
reset [f]
reset [g]
reset [h]
reset [i]
goto 'Anfang'
if [quit] = [false]
halt
end
|
|
|