TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D Effects

Version: 1.0

Info
Code
Shot
Author

Information

Uploaded: 12th Sep 2003 15:01

Modified: 15th Sep 2003 07:04

Author: Elthan

Summary

Emulator of the old game Telesketch, without media.

Full Description

When i was a little kid, someone gives me a red toy with 2 white wheel. It has a golden screen and u could paint on it rolling the wheels. This is my tribute to Telesketch.<br /> <br /> I hope you enjoy it.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

inicio: : hide mouse : color backdrop rgb(0,0,0) : set current bitmap 0 : box 20,20,620,460,rgb(100,0,0),rgb(200,0,0),rgb(100,0,0),rgb(200,0,0) : box 80,80,560,360,rgb(204,204,153),rgb(118,118,58),rgb(204,204,153),rgb(118,118,58)

ink rgb(255,255,255),rgb(255,255,255) : for r=30 to 2 step -2 : circle 80,410,r : circle 560,410,r : next r

ellipse 320,50,80,10 : ellipse 320,50,95,15 : set text size 20 : set text font "Arial Black" : center text 320,40,"TELESKETCH"

x=320 : y=220 : dot x,y : set text size 16 : center text 320,425,"(Use Arrowkeys)"

box 275,395,365,420,rgb(128,128,255),rgb(128,0,255),rgb(128,128,255),rgb(128,0,255) : center text 320,400,"(S) - Shake it!"

do : if upkey()=1 : dot x,y,rgb(0,0,0) : dec y : gosub limite

dot x,y : endif : if downkey()=1 : dot x,y,rgb(0,0,0) : inc y

gosub limite : dot x,y : endif : if rightkey()=1 : dot x,y,rgb(0,0,0)

inc x : gosub limite : dot x,y : endif : if leftkey()=1

dot x,y,rgb(0,0,0) : dec x : gosub limite : dot x,y : endif

if inkey$()="s" then exit

loop : get image 1,20,20,620,460,1 : cls : paste image 1,20,20

for cont=1 to 6 : cls : paste image 1,20,10 : wait 150 : cls