Routines and Source Code

[Arcane Wizard]

I wonder if this would do the same:

Pause
getKey->K

[Neostar]

Lbl A
blah blah blah
getkey->K
If K=26:Then
blah
blah
blah
End
Goto A

[yugniht]

[Darth Android]

well, thats what it supposed to do

while u r pressing the getkey to exit, the loop has run several times in which 0 has been stored to K
i have determined that this is the best OVERALL:
Repeat A
getKey->A
End

variables can be changed
6 bytes
what ive been using since i started prgmming on the calc
fastest too

[Arcane Wizard]

[Darth Android]

[Arcane Wizard]

[Arcane Wizard]

Here are some things I feel should be saved from going to forum oblivion:

/*/*/*/*/*/*/*/
As for random map generator, if you want to do a maze I suggest you have a look at one of Maarten's programs called MazeRacer (which you can find on the cirrus site, or click here) which can create fully random mazes that are always solvable. If you're not going for mazes then you could just load some random values in a list like so:
For(X,1,225
RandInt(1,999->LMAP(X
End
Then, when loading the current screen you do this:

current screen->X
LMAP(X)->Rand
For(X,1,10 //10 objects in the screen
RandInt(1,95->A //random x position
RandInt(1,63->B //random y position
RandInt(1,25->C //random object
If C=1://draw tree
If C=2://draw building
//etc
End

Since it uses the same seed if you load the same screen you always have the same objects on that screen, in this code you end up with a list called LMAP with 225 screens, and you could even optimize it more so that 1 number generates an entire map of 225 screens.

Rand->LMAP(1

And then:

screen number->X
LMAP(1->Rand
For(Ø,1,X
RandInt(1,999
End
Ans->Rand
For(X,1,10 //10 objects in the screen
RandInt(1,95->A //random x position
RandInt(1,63->B //random y position
RandInt(1,25->C //random object
If C=1://draw tree
If C=2://draw building
//etc
End

Then you could always add some routines to check if it's not puttnig a tree on top of a house or a routine to create towns, instead of puttnig a building somewhere, put a flag for a town there and generate 10 buildings around it afterwards.

/*/*/*/*/*/*/*/

City:

//standard loading sequence:
current screen->X
LMAP(X)->Rand
For(X,1,30,3
RandInt(1,95->L1(X
RandInt(1,63->L1(X+1
RandInt(1,25->L1(X+2

If L1(X+2)=1:Then //a city !
For(X,X,X+12,3 //generate 4 buildings (12/3=4)
L1(X)+RandInt(-40,40->L1(X //position of building is relative to position of city
L1(X+1)+RandInt(-20,20->L1(X+1
RandInt(2,6->L1(X+2 //save a building, 2=house, 3=town center, 4=guards etc
//draw building
End
//draw object
End

Check if place is free:
Now, you could do this by checking the list but this is slow, very slow, so you could use a string if you did it on the homescreen (1 object takes 1 place) but on the graphscreen every object occupies a lot of pixels so I suggest using pixeltest.

Let's say every object has a pixel turned on right in the center (done so testing if it is free for character and other objects is easy fast) and that every object is 6*6 pixels.

current screen->X
LMAP(X)->Rand
For(X,1,10 //10 objects in the screen
Repeat Ø //generate new position until it is free
RandInt(1,15->L1(X //90/6=15, so there can be 15 objects from left to right of the screen
RandInt(1,10->L1(X+1 //60/6=10, so there can be 10 objects from top to bottom of the screen
RandInt(1,25->L1(X+2
0=Pxl-Test(6L1(X+1)+3,6L1(X)+3->Ø //check if other object has been drawn here
End
//if place is free
If L1(X+2)=1: //generate town, use pixel test again for each building.
If L1(X+2)=7: //draw tree, remember that 2 through 6 are buildings for the city and that the coordinaes stored in L1 have to be multiplied by 6 and a pixel must be on in the center of the sprite
//etc
End

/*/*/*/*/*/*/*/

Moveable and graphical character, not very good for AI and animations, they will slow down when the user moves much:

ClrDraw
AxesOff
1->Xmin
1->Ymin
95->Xmax
63->Ymax
47->A //x position of character
31->B //y pos of char
6->S
Repeat Q //until user presses clear
//draw character:
Line(A,B,A+6,B //arms
Line(A+3,B,A+3,B-3 //body
Line(A+3,B-3,A,B-6 //leg
Line(A+3,B-3,A+6,B-6 //another leg
Repeat K //wait for keypress
getKey->K
End //loop K
Text(63-B,A," " //6 spaces to erase character
A-S(K=24)+S(K=26->A //move character horizontally S pixels
B-S(K=34)+S(K=25->B //move character vertically S pixels
(K=45->Q //if user want's to quit
End //loop Q

Theory:
×set up
×loop1
×draw character
×loop2, until key is pressed
×get key pressed
×back to loop2
×erase character
×move character according to which key is pressed
×back to loop1

Good (well, better anyway, basic is just a bit slow for AI combined with graphics) for AI and animations but slower response for player:
ClrDraw
AxesOff
1->Xmin
1->Ymin
95->Xmax
63->Ymax
47->A //x position of character
31->B //y pos of char
6->S
Repeat Q //until user presses clear
getKey->K
If(K:Text(62-B,A," " //6 spaces to erase character
A-S(K=24)+S(K=26->A //move character horizontally S pixels
B-S(K=34)+S(K=25->B //move character vertically S pixels
//draw character:
Line(A,B,A+6,B [color=green]//arms
Line(A+3,B,A+3,B-3 //body
Line(A+3,B-3,A,B-6 //leg
Line(A+3,B-3,A+6,B-6 //another leg
(K=45->Q //if user want's to quit
End //loop Q

Theory:
×set up
×loop
×get key press
×if key is pressed, erase character
×move character according to key pressed
×draw character
×back to loop

Collision detection (don't walk through things):
Repeat Q
getKey->K
If(K:Text(62-B,A," " //6 spaces to erase character
//calculate new position
A-S(K=24)+S(K=26->C
B-S(K=34)+S(K=25->D
//check if place is free, using PxlTest(Y,X
0=PxlTest(62-D+.5S,C+.5S->Ø //only checks middle of new pos, so when you're drawing a wall you should make it S pixels wide or, if you want smaller walls, add more PxlTests
A+Ø(C-A->A //move character horizontaly if new position is free
B+Ø(D-B->B //move character vertically if new position is free
//draw character:
Line(A,B,A+6,B [color=green]//arms
Line(A+3,B,A+3,B-3 //body
Line(A+3,B-3,A,B-6 //leg
Line(A+3,B-3,A+6,B-6 //another leg
(K=45->Q //if user want's to quit
End //loop

Theory:
×set up
×loop
×get key pressed
×if key pressed, erase character
×calculate new position of character
×check if this new position is free with PxlTest(Ypixel,Xpixel
×if so, move character
×draw character
×back to loop

/*/*/*/*/*/*/*/

Here's the sprite i always use:
001100
111111
001100
010010
010010

Then I could add shoes like so:
001100
111111
001100
010010
110011

Or a hat like so:
000010
001110
111111
001100
111111
001100
010010
010010

Or a staff like so:
1001100
1111111
1001100
1010010
1010010

Or a robe like so:
001100
111111
001100
010010
111111

The neat thing is, they can all be combined, so I just have some extra line( or pt-on( statements after drawing that first sprite and it adds what the character has (a robe, hat, shoes, staff, etc.) This way the player can actually see the equipment (well, most of it anyway, you wouldn't be able to tell the difference between a staff of spellcasting and a staff of asskicking +6 though) of his/her character.

/*/*/*/*/*/*/*/

Repeat Q or Ø
getKey->K
If K:Pxl-Off(B,A
A+(K=26)-(K=24->C
B+(K=34)-(K=25->D
0=Pxl-Test(D,C->Ø
A+Ø(C-A->A
B+Ø(D-B->D
(K=45->Q
End
If Ø:Then //player hit a pixel
//check if building has to be loaded or maybe battle sequence
End

/*/*/*/*/*/*/*/

[Darth Android]

well, there's no point in errors
especially id they confuse someone new to programming!

[Arcane Wizard]

That's why I thanked you.

[omni]

How about IS( and DS(, what do they do?
(I've never actually used IS( and DS( come to think of it.)

[Arcane Wizard]

IS>(variable,value)
Increases variable by one and checks if the result is > than value, if so it skips the following line.

6->A
IS>(A,6
Disp "not > 6
Disp "> 6

Will display:
> 6

DS<(variable,value)
Decreases variable by one and checks if the result is < than value, if so it skips the following line.

6->A
DS<(A,6
Disp "> 6
Disp "not < 6

Will display:
not > 6

Never used it either.

[omni]

So its somewhat like an If then statement

[Adm.Wiggin]

also ur if statments at the end only add and subtract 1... just fyi

[Adm.Wiggin]

somewhat, but less useful... no one really knows how to use them... i do though and so does Arcane apparently

[yugniht]

[Darth Android]

many ppl know how to use them, but never use them. if anyone finds a prgm that uses them, tell me

[Arcane Wizard]

[Arcane Wizard]

Well, they can be used instead of if..then..else statements that only have 1 line at the then part and 1 line at the else part:

If X > 16
Then
Disp "X > 16
Else
Disp "not X > 16
End

IS>(X,16
Disp "not X > 16
Disp "X > 16

[Darth Android]