form port
tile=text x=60 y=50 w=680 text=@g15help h=160 weight=normal gravity=central size=40 style=italic
tile=property w=160 h=160 bgcolor=black size=40 color=white
tile=button name=b1_1 section=b1 x=60 y=250 text=1
tile=button name=b2_1 section=b2 x=230 y=250 text=2
tile=button name=b3_1 section=b3 x=400 y=250 text=3
tile=button name=b4_1 section=b4 x=570 y=250 text=4
tile=button name=b1_2 section=b5 x=60 y=420 text=5
tile=button name=b2_2 section=b6 x=230 y=420 text=6
tile=button name=b3_2 section=b7 x=400 y=420 text=7
tile=button name=b4_2 section=b8 x=570 y=420 text=8
tile=button name=b1_3 section=b9 x= 60 y=590 text= 9
tile=button name=b2_3 section=b10 x=230 y=590 text=10
tile=button name=b3_3 section=b11 x=400 y=590 text=11
tile=button name=b4_3 section=b12 x=570 y=590 text=12
tile=button name=b1_4 section=b13 x=60 y=760 text=13
tile=button name=b2_4 section=b14 x=230 y=760 text=14
tile=button name=b3_4 section=b15 x=400 y=760 text=15
tile=button name=b4_4 section=b16 x=570 y=760 text=""
tile=button name=b section=back x=200 y=1000 text=@back w=400 h=80 size=40 bgcolor=transparent color=black
end
--------------------------------------------------------------------
form land
tile=text x=60 y=40 text=@g15help h=160 weight=normal size=38 style=italic
tile=property w=140 h=140 size=40 weight=bold
tile=button name=b1_1 section=b1 x=100 y=150 text=1
tile=button name=b2_1 section=b2 x=250 y=150 text=2
tile=button name=b3_1 section=b3 x=400 y=150 text=3
tile=button name=b4_1 section=b4 x=550 y=150 text=4
tile=button name=b1_2 section=b5 x=100 y=300 text=5
tile=button name=b2_2 section=b6 x=250 y=300 text=6
tile=button name=b3_2 section=b7 x=400 y=300 text=7
tile=button name=b4_2 section=b8 x=550 y=300 text=8
tile=button name=b1_3 section=b9 x= 100 y=450 text= 9
tile=button name=b2_3 section=b10 x=250 y=450 text=10
tile=button name=b3_3 section=b11 x=400 y=450 text=11
tile=button name=b4_3 section=b12 x=550 y=450 text=12
tile=button name=b1_4 section=b13 x=100 y=600 text=13
tile=button name=b2_4 section=b14 x=250 y=600 text=14
tile=button name=b3_4 section=b15 x=400 y=600 text=15
tile=button name=b4_4 section=b16 x=550 y=600 text=""
tile=button name=b section=back x=800 y=660 text=@back w=290 h=default BG=transparent
end
------------------------------------------------------------------------
section test
#sum=0
if $form.text(#form,b1_1)==1
#sum= #sum+1
endif
if $form.text(#form,b2_1)==2
#sum= #sum+1
endif
if $form.text(#form,b3_1)==3
#sum= #sum+1
endif
if $form.text(#form,b4_1)==4
#sum= #sum+1
endif
------------
if $form.text(#form,b1_2)==5
#sum= #sum+1
endif
if $form.text(#form,b2_2)==6
#sum= #sum+1
endif
if $form.text(#form,b3_2)==7
#sum= #sum+1
endif
if $form.text(#form,b4_2)==8
#sum= #sum+1
endif
------------
if $form.text(#form,b1_3)==9
#sum= #sum+1
endif
if $form.text(#form,b2_3)==10
#sum= #sum+1
endif
if $form.text(#form,b3_3)==11
#sum= #sum+1
endif
if $form.text(#form,b4_3)==12
#sum= #sum+1
endif
-------------
if $form.text(#form,b1_4)==13
#sum= #sum+1
endif
if $form.text(#form,b2_4)==14
#sum= #sum+1
endif
if $form.text(#form,b3_4)==15
#sum= #sum+1
endif
if #sum==15
message "you won!"
endif
end section
===============================
// button b1 is pressed
section b1
call section =set
//if the button on the right is empty then exchange the contents of buttons
if #21 == ""
#dummy=$form.exchange_text (#form,b1_1,b2_1)
endif
//if the button below is empty then exchange the contents of buttons
if #12 == ""
#dummy=$form.exchange_text (#form,b1_1,b1_2)
endif
call section=test
draw form =#form
end section
===============================
// button b2 is pressed
section b2
call section =set
//if the button on the left is empty then exchange the contents of buttons
if #11 == ""
#dummy=$form.exchange_text(#form,b2_1,b1_1)
endif
//if the button on the right is empty then exchange the contents of buttons
if #31 == ""
#dummy=$form.exchange_text(#form,b2_1,b3_1)
endif
//if the button below is empty then exchange the contents of buttons
if #22 == ""
#dummy=$form.exchange_text(#form,b2_1,b2_2)
endif
call section=test
draw form=#form
end section
=============================
section b3
call section =set
if #41 == ""
#dummy=$form.exchange_text (#form,b3_1,b4_1)
endif
if #21 == ""
#dummy=$form.exchange_text (#form,b3_1,b2_1)
endif
if #32 == ""
#dummy=$form.exchange_text (#form,b3_1,b3_2)
endif
call section=test
draw form=#form
end section
============================
section b4
call section =set
if #31 == ""
#dummy=$form.exchange_text (#form,b4_1,b3_1)
endif
if #42 == ""
#dummy=$form.exchange_text (#form,b4_1,b4_2)
endif
call section=test
draw form=#form
end section
============================
section b5
call section =set
if #22 == "" then
#dummy=$form.exchange_text (#form,b1_2,b2_2)
endif
if #13 == "" then
#dummy=$form.exchange_text (#form,b1_2,b1_3)
endif
if #11 == "" then
#dummy=$form.exchange_text (#form,b1_2,b1_1)
endif
call section=test
draw form=#form
end section
============================
section b6
call section =set
if #12 == "" then
#dummy=$form.exchange_text (#form,b2_2,b1_2)
endif
if #32 == "" then
#dummy=$form.exchange_text (#form,b2_2,b3_2)
endif
if #23 == "" then
#dummy=$form.exchange_text (#form,b2_2,b2_3)
endif
if #21 == "" then
#dummy=$form.exchange_text (#form,b2_2,b2_1)
endif
call section=test
draw form=#form
end section
============================
section b7
call section =set
if #22 == "" then
#dummy=$form.exchange_text(#form, b3_2,b2_2)
endif
if #42 == "" then
#dummy=$form.exchange_text (#form,b3_2,b4_2)
endif
if #33 == "" then
#dummy=$form.exchange_text (#form,b3_2,b3_3)
endif
if #31 == "" then
#dummy=$form.exchange_text (#form,b3_2,b3_1)
endif
call section=test
draw form=#form
end section
==============================
section b8
call section =set
if #32 == "" then
#dummy=$form.exchange_text (#form,b4_2,b3_2)
endif
if #43 == "" then
#dummy=$form.exchange_text (#form,b4_2,b4_3)
endif
if #41 == "" then
#dummy=$form.exchange_text (#form,b4_2,b4_1)
endif
call section=test
draw form=#form
end section
===============================
section b9
call section =set
if #23 == "" then
#dummy=$form.exchange_text (#form,b1_3,b2_3)
endif
if #14 == "" then
#dummy=$form.exchange_text (#form,b1_3,b1_4)
endif
if #12 == "" then
#dummy=$form.exchange_text (#form,b1_3,b1_2)
endif
call section=test
draw form=#form
end section
=================================
section b10
call section =set
if #13 == "" then
#dummy=$form.exchange_text (#form,b2_3,b1_3)
endif
if #33 == "" then
#dummy=$form.exchange_text (#form,b2_3,b3_3)
endif
if #24 == "" then
#dummy=$form.exchange_text (#form,b2_3,b2_4)
endif
if #22 == "" then
#dummy=$form.exchange_text (#form,b2_3,b2_2)
endif
call section=test
draw form=#form
end section
==================================
section b11
call section =set
if #23 == "" then
#dummy=$form.exchange_text (#form,b3_3,b2_3)
endif
if #43 == "" then
#dummy=$form.exchange_text (#form,b3_3,b4_3)
endif
if #34 == "" then
#dummy=$form.exchange_text (#form,b3_3,b3_4)
endif
if #32 == "" then
#dummy=$form.exchange_text (#form,b3_3,b3_2)
endif
call section=test
draw form=#form
end section
==================================
section b12
call section =set
if #33 == "" then
#dummy=$form.exchange_text (#form,b4_3,b3_3)
endif
if #44 == "" then
#dummy=$form.exchange_text (#form,b4_3,b4_4)
endif
if #42 == "" then
#dummy=$form.exchange_text (#form,b4_3,b4_2)
endif
call section=test
draw form=#form
end section
====================================
section b13
call section= set
if #24 == "" then
#dummy=$form.exchange_text (#form,b1_4,b2_4)
endif
if #13 == "" then
#dummy=$form.exchange_text (#form,b1_4,b1_3)
endif
call section=test
draw form=#form
end section
=======================================
section b14
call section =set
if #14 == "" then
#dummy=$form.exchange_text (#form,b2_4,b1_4)
endif
if #34 == "" then
#dummy=$form.exchange_text (#form,b2_4,b3_4)
endif
if #23 == "" then
#dummy=$form.exchange_text (#form,b2_4,b2_3)
endif
call section=test
draw form=#form
end section
=========================================
section b15
call section= set
if #24 == ""
#dummy=$form.exchange_text (#form,b3_4,b2_4)
endif
if #44 == ""
#dummy=$form.exchange_text (#form,b3_4,b4_4)
endif
if #33 == ""
#dummy=$form.exchange_text (#form,b3_4,b3_3)
endif
call section=test
draw form=#form
end section
==========================================
section b16
call section=set
if #34 == "" then
#dummy=$form.exchange_text (#form,b4_4,b3_4)
endif
if #43 == "" then
#dummy=$form.exchange_text (#form,b4_4,b4_3)
endif
call section=test
draw form=#form
end section
=============================================================================
section set
#11=$form.text(#form,b1_1)
#21=$form.text(#form,b2_1)
#31=$form.text(#form,b3_1)
#41=$form.text(#form,b4_1)
#12=$form.text(#form,b1_2)
#22=$form.text(#form,b2_2)
#32=$form.text(#form,b3_2)
#42=$form.text(#form,b4_2)
#13=$form.text(#form,b1_3)
#23=$form.text(#form,b2_3)
#33=$form.text(#form,b3_3)
#43=$form.text(#form,b4_3)
#14=$form.text(#form,b1_4)
#24=$form.text(#form,b2_4)
#34=$form.text(#form,b3_4)
#44=$form.text(#form,b4_4)
end
section back
call script= 13_0_games
end section
end scene
LIST OF EXAMPLES
Die bereitgestellten Screenshots können geringfügig von den tatsächlichen Ergebnissen der Skripte abweichen.