Free Science Fiction Stories

Yes, you heard it. Wee Basic now allows the use of sprites and backgrounds so you can try your hand with real Nintendo DS games using simple BASIC.

I’ve even entered Wee Basic for the first time in the NeoFlash summer coding competition: http://www.neoflash.com/forum/index.php/topic,4951.0.html

Version 0.4

Download: wee04.ppt

To use the demo program,put Wee and all of the gif files and demo.txt into the root directory of your card.
Then load the demo in Wee Basic, press A or start to run and enjoy!
Don’t forget to DLDI patch Wee for your card.

Fixed:

- bugs with nested ifs

added/changed

- neo splash screen
- sprites on both screens (must be gif files)
- backgrounds on both screens (must be gif files)
- can uses start or A to start a program running
- new commands:

loadspr number,screen,x,y,,width,height,file name (creates a sprite specified by the file name on the screen specified at the specified coordinates)
movspr number, screen, x,y (moves an existing sprite specified by the number to new coordinates x and Y on the screen)
delspr number, screen (deletes the specified sprite)
backgr screen, file name (creates a background on the specified screen with the gif file specified by the file name)

Notes:

- file names must be valid gif files and you must specify the full file name
- gif files must be kept in the root directory of your card
- don’t try to move or delete sprites that you haven’t created
- each screen has its own numbered sprites, so you can specify the number 1 for a sprite on the top and bottom screens but don’t specify the same number for sprites on the same screen

(Look at the demo program for examples)

As always, when you download the file, change the extension from PPT to ZIP.

Edit: As Goomek pointed out in the comments, I forgot the demo program.  Here it is (just copy and paste into a text file):

let soldier=1
let bottom=0
let top=1
let keya=202
let keyb=203
let right=205
let left=204
let soldx=5
let soldy=95

cls 1
keyhide
cls 0

gosub topback:
gosub botback:
gosub soldspr:

lab start:

let k=0
let k=key()

if k=keyb
gosub jump:
endif

if k=keya
goto finish:
endif
if k=right or k=left
gosub movsold:
endif

goto start:

lab finish:
end

sub key:
let k=0
while k=0
let k=key()
wend
return

sub topback:
backgr top,”island.gif”
return

sub botback:
backgr bottom,”lake.gif”
return

sub soldspr:
createspr soldier,bottom,
soldx,soldy,32,64,
“soldier.gif”
return

sub movsold:
if k=right
let soldx=soldx+20
movspr soldier,bottom,
soldx,soldy
endif
if k=left
let soldx=soldx-20
movspr soldier,bottom,
soldx,soldy
endif
return

sub jump:
for i=1 to 4
let soldy=soldy-20
movspr soldier,bottom,
soldx,soldy
gosub delay:
next
for i=1 to 4
let soldy=soldy+20
movspr soldier,bottom,
soldx,soldy
gosub delay:
next
return

sub delay:
for j=1 to 10
next
return