I think he was just saying that the link in the pdf links to the divsite address rather than the meniego address, this happened to me also, so I just typed it in manually. Great tutorial EvilDragon already done and hungry for more.
Thanks again
Thanks to EvilDragon
Just tried then example. It runs fine in FlameBird but when i use it on my GP32 i get the following error:
Fenix runtime error 1
Error al abrir %s
Press any button to reboot
I'm pretty sure ive done everything correctly, anyone help?
and its only 57 lines of code so far
btw, hopefully part 2 (1) of your tutorial will come soon evildragon!
Program Test;
Global
Int font;
Int move_y;
Int move_x;
Int pos_y;
Int pos_x;
Begin
SET_FPS(60,1);
SET_MODE(320,240);
DRAWING_Z(0);
DRAWING_COLOR(4);
DRAW_BOX(0,0,320,220);
DRAWING_COLOR(191);
DRAW_BOX(0,220,320,240);
font = load_fnt("font.fnt");
Loop
If(key(_left)) move_x -= 2;end
If(key(_right)) move_x += 2;end
If(move_x>0) move_x -= 1;end
If(move_x<0) move_x += 1;end
If(move_x>15) move_x = 15;end
If(move_x<-15) move_x = -15;end
move_y += 1;
If(key(_control) AND pos_y > 205) move_y = -30;end
pos_x += (move_x / 3);
pos_y += (move_y / 3);
if (pos_y > 206)
move_y = 0;
pos_y = 206;
end
if (pos_x > 330) pos_x = -10; end
if (pos_x < -10) pos_x = 330; end
write(font, pos_x, pos_y, 0, "@");
Frame;
DELETE_TEXT(0);
End
Endand its only 57 lines of code so far
btw, hopefully part 2 (1) of your tutorial will come soon evildragon!
Well... I'm really kind of worn out at the moment (because of all the ADIC uploads, the tutorial, being jury of a band contest... and all that while I have my normal work in real life...), I only had 3 hours sleep for the last 5 days...
So the next part won't be finished before next week I'm afraid... but every week a chapter should be fine... I guess
But don't worry, I'll continue it
As long as more tutorials are coming, i guess most people would be happy
program fire;
global
shooting=0;
shipx=100;
rockcnt=0;
score=0;
lives=3;
begin
load_fpg ("new.fpg");
put_screen(0,2);
while (!key(_tab) and lives >0 ):
ship();
if (key(_control) and !shooting)
fireshot(shipx);
end;
if (rockcnt <10 and rand(0,10) >3 )
rockcnt+=1;
rocks();
end;
doscore();
frame;
end;
if (lives <1)
signal(type ship,s_kill);
signal(type rocks,s_kill);
signal(type fireshot,s_kill);
delete_text(0);
while !(key(_tab)):
graph = 203;
x = 150;
y= 80;
write (0,120,120,0,"Score = "+score);
frame;
end;
end;
end;
process doscore();
begin
delete_text(0);
write (0,0,0,0,"Score = "+score);
write (0,250,0,0," Lives = "+lives);
end;
process ship();
private
shipcoll=0;
begin
graph=150;
y = 180;
if (key(_left) and shipx >0)
shipx -= 10;
end;
if (key(_right) and shipx <320)
shipx += 10;
end;
x = shipx;
size =50;
shipcoll = collision(type rocks);
if (shipcoll)
signal(shipcoll,s_kill);
lives -= 1;
rockcnt -= 1;
end;
frame;
end;
process fireshot(newx);
private
firecoll;
begin
shooting=1;
graph = 250;
size =75;
for (y = 160;Y>0;y=y-10);
firecoll=collision(type rocks);
if (firecoll)
signal(firecoll,s_kill);
shooting=0;
signal(type fireshot,s_kill);
score += 1;
rockcnt -= 1;
end;
x = newx;
frame;
end;
shooting=0;
end;
process rocks();
begin
graph = 200 + rand(0,2);
size = 80 + (rand(0,2)*25);
x = rand(0,320);
for (y =-10;y <220;y=y+5)
frame;
end;
rockcnt = rockcnt-1;
end;
