34 lines
736 B
Plaintext
Executable File
34 lines
736 B
Plaintext
Executable File
#!yab
|
|
|
|
doc Start Ping.yab first by double clicking it,
|
|
doc then start Pong.yab.
|
|
doc This demonstrates how yab sends messages to another yab application.
|
|
doc Note: don't start Ping.yab in the IDE as the IDE only allows one
|
|
doc running yab program at a time.
|
|
|
|
window open 100,100 to 300,300, "Ping", "Ping"
|
|
|
|
x = 20
|
|
y = 50
|
|
stepx = 5
|
|
stepy = 5
|
|
|
|
while(not instr(message$, "Quit"))
|
|
x = x + stepx
|
|
y = y + stepy
|
|
if(x <= 0 or x >= 400) stepx = -stepx
|
|
if(y <= 0 or y >= 200) stepy = -stepy
|
|
if(x >= 190) then
|
|
ret = message send "application/x-vnd.Pong.yab", str$(x) + ":" + str$(y)
|
|
if(ret <> 0) then
|
|
stepx = -stepx
|
|
if(x > 190) x = 190
|
|
endif
|
|
endif
|
|
|
|
draw flush "Ping"
|
|
draw circle x,y, 8, "Ping"
|
|
wend
|
|
|
|
window close "Ping"
|