Priest of the Order of the Butterfly
Joined: 2003/2/24
Posts: 741
From:
Hehe, I consider myself more a "scripter". All the
languages I use (mainly arexx(rxMUI),perl,hollywood)
need an interpreter to run.
Real programmer know what they're doing ... I do it
the "Let's see if this works ..."-way
IIRC I've got my first computer about 15 years ago and back than it
was impossible not to look at basic. And it's really not much
difference scripting for Hollywood now
For example loading the score looks like this:
Label(LOADHIGH)
a=Exists("myTetris.high")
if(a=1)
OpenFile(1,"myTetris.high")
for(a,0,19)
highscore$[a]=ReadLine(1)
next
CloseFile(1)
else
c=60000
for(a,0,19)
b=mul(a,3000)
b=sub(c,b)
b$=StrStr(b)
highscore$[a]=AddStr("myTetris ",b$)
next
endif
return
Or loading a stone and create the seven colors:
Label(LOADSTONE)
a=Exists(stone$)
if(a=1)
LOADBRUSH(1,stone$,$00ff00)
else
CopyBrush(999,1)
endif
ScaleBrush(1,20,20)
COPYBRUSH(1,2)
TINTBRUSH(2,$ff0000,120)
COPYBRUSH(1,3)
TINTBRUSH(3,$00ff00,120)
COPYBRUSH(1,4)
TINTBRUSH(4,$0000ff,120)
COPYBRUSH(1,5)
TINTBRUSH(5,$ffff00,120)
COPYBRUSH(1,6)
TINTBRUSH(6,$00ffff,120)
COPYBRUSH(1,7)
TINTBRUSH(7,$ff00ff,120)
return
Targhan