program New; var x, y: Integer; procedure oddworth; begin cleardebug; GetMousePos(x,y); Writeln(inttostr(x)+' '+inttostr(y)); end; begin repeat if(isfkeydown(12))then oddworth; until(false) end.
It's my bank account haha I blew it all on a video camera, a cellphone, a memory card for my cell phone, and 10 skateboard decks haha
The Shopkeeper says 'I accept your offer of 40404 Neopoints!' Red Draik Morphing Potion has been added to your inventory O_O
The Shopkeeper says 'I accept your offer of 50505 Neopoints!' Boney Grall Cub has been added to your inventory