Hi all!
A few of us are publishing games on multiple platforms and I thought it might be a good idea to pool our resources and experiences. Also we could ensure that our Apps get properly Beta tested.
My hope is that we can help each other and encourage others to submit apps too (also it would be nice to try the full working versions of some of these games wouldn't it?).
We even have our own website and article in the TGC monthly newsletter now so your games can get even more publicity!! Click the banner below to see the "ADG Games & Applications" website!
All published games can be added to the site by registering and writing a game listing. We will help you to produce the article if you have any difficulties!
We do ask that you help self-promote by including a link to the website in your game.
ADG Website
Here is some sample code [DBPro] to put a link in your game!
Rem ***** Main Source File *****
sync on : sync rate 60
box_x1 as integer = 220
box_y1 as integer = 240
box_x2 as integer = 400
box_y2 as integer = 280
do
cls
ink rgb(100, 100, 250), 0
box box_x1, box_y1, box_x2, box_y2
ink rgb(255,255,255), 0
text 230, 250, "App Developer Group"
text 0, 0, "Click on the box!"
if mouseclick() = 1
if mousex() > box_x1 and mousex() < box_x2
if mousey() > box_y1 and mousey() < box_y2
execute file "http://adg.devink.co.uk", "", ""
endif
endif
endif
sync
loop
...and here's a version using sprites:
Rem ***** Main Source File *****
sync on : sync rate 60
box_x1 as integer = 220
box_y1 as integer = 240
box_x2 as integer = 400
box_y2 as integer = 280
ink rgb(100, 100, 250), 0
box box_x1, box_y1, box_x2, box_y2
ink rgb(255,255,255), 0
text 230, 250, "App Developer Group"
text 0, 0, "Click on the box!"
get image 1,box_x1,box_y1,box_x2,box_y2,1
do
cls
sprite 1,box_x1,box_y1,1
if mouseclick() = 1 and mrep=0
mrep=1
if mousex()>sprite x(1) and mousex()<sprite x(1)+sprite width(1)
if mousey() > sprite y(1) and mousey() < sprite y(1)+sprite height(1)
execute file "http://adg.devink.co.uk", "", ""
endif
endif
endif
if mouseclick()=0
mrep=0
endif
sync
loop
