Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Happybobjr

Pages: 1 ... 160 161 [162] 163 164 ... 166
2416
Axe / Re: Code optimization
« on: June 18, 2010, 09:00:53 pm »
sounds fun.  send me the code when you are done.

sry not trying to be rude XD

2417
Axe / Re: Code optimization
« on: June 18, 2010, 08:51:56 pm »
Just don't do stuff like this :P

sub(AA,sub(AB,sub(AC,sub(AD,sub(AE,sub(AF,sub(AG,sub(AH,sub(AI,sub(AJ,sub(AK,sub(AL,sub(AM,sub(AN,sub(AO,sub(AP,sub(AQ,sub(AR,sub(AS,sub(AT,sub(AU,sub(AV,sub(AW,sub(AX,sub(AY,sub(AZ,sub(BA,sub(BB,sub(BC,sub(BD,sub(BE,sub(BF,sub(BG,sub(BH,sub(BI,sub(BJ,sub(BK,sub(BL,sub(BM,sub(BN,sub(BO,sub(BP,sub(BQ,sub(BR,sub(BS,sub(BT,sub(BU,sub(BV,sub(BW,sub(BX,sub(BY,sub(BZ,sub(CA,sub(CB,sub(CC,sub(CD,sub(CE,sub(CF,sub(CG,sub(CH,sub(CI,sub(CJ,sub(CK,sub(CL,sub(CM,sub(CN,sub(CO,sub(CP,sub(CQ,sub(CR,sub(CS,sub(CT,sub(CU,sub(CV,sub(CW,sub(CX,sub(CY,sub(CZ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

...unless that is actual valid code?

ok i am starting to hate you dj.
WHY DIDN'T YOU TELL ME BEFORE I TRIED!!!!!!
lol i  am just kidding.  did you see the caps? really draws your attention doesn't it

2418
Miscellaneous / Re: Do you fear your own reflection?
« on: June 18, 2010, 09:06:06 am »
i once saw a reflection of a building on a hot day. iut was reflected in the heat!

2419
Miscellaneous / Re: Omnimaga worth $19,339 USD
« on: June 18, 2010, 09:02:12 am »
$19,497 USD


also why don't you put a couple of ads on here to make a little $
we won't hate you for it

2420
Miscellaneous / Re: Omnimaga worth $19,339 USD
« on: June 18, 2010, 09:01:10 am »
realize that it is only worth that much to someone willing to buy it

2421
Axe / Re: Code optimization
« on: June 18, 2010, 08:59:41 am »
ok i got all that done,
btw you can have things like
if g=26 and getkey(26
it has to be
if g=26 and getkey(26)

2422
TI Z80 / Re: Project... i'll need help
« on: June 18, 2010, 08:56:43 am »
Nice readme so far

Make sure to name the file ignoreme.txt, though, so more people will read it :P

oh! is that why those are named that!
i always read them lol

2423
Axe / Code optimization
« on: June 17, 2010, 07:53:00 pm »
please help make this code better so i can publish it

Code: [Select]
.EESKETCH
Full
diognosticoff
DispGraph
ClrDraw
0->S->O->P+1->L+9->X->Y+90->A
Text(82,0,A|>Dec
Text(1,0,L|>Dec
Untill G=15
getKey->G
asm(DB00E6036F2600)->I
If I=0:For(J,0,L):Pxl-Off(rand^96,rand^65):End:DispGraph:End
If X<95 and getKey(3):X+1->X:sub(A):End
If Y>7 and getKey(4):Y-1->Y:sub(A):End
If X>0 and getKey(2):X-1->X:sub(A):End
If Y<62 and getKey(1):Y+1->Y:sub(A):End
If G>4
While getKey(29) and (G=29):Text(1,0,L|>Dec):If L>1:L-1->L:Pause 125:End:End
While getKey(21) and (G=21):If L<255:L+1->L:Text(1,0,L|>Dec):Pause 125:End:End
While getKey(10) and (G=10):A+1->A:Text(82,0,A|>Dec):Pause 110:End
While getKey(11) and (G=11):Text(82,0,A|>Dec):If A>1:A-1->A:Pause 110:End:End
If G=13 and getKey(13):StorePic :X->O:Y->P:End
If G=12 and getKey(12):RecallPic :O->X:P->Y:DispGraph:End
If G=56 and getKey(56):ClrDraw:DispGraph:End
If G=14 and getKey(14):DrawInv :DispGraph:End
End
End
Lbl A
Pxl-On(X,Y):DispGraph:Pause A
Return
Normal

2424
TI Z80 / Re: Project... i'll need help
« on: June 17, 2010, 07:44:19 pm »
Code: [Select]
  Etch-E-Sketch + Clear By Shake
Version: 1.2.1
Compiler: Axe 3.0
Coded by: James Oldiges of Happybobjr Productions.
Code assistance by: Quigibo found at: http://www.omnimaga.org/index.php?action=profile;u=321

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

History:
I was at school one day, trying to learn the newest version of Axe.
As always I am stubborn and want to learn by trial-and-error.
To start off with I just tried to learn the syntax of the commands.
(In Ti-Basic with pxl-on command it is pxl-on(Y, X)
I am thinking Why The!?!?!?
So I just made a simple program to display what the pixel location was (adjustable by arrow keys)
Well I screwed up. It didn't delete the previous pxl. .. Oops.
So I started drawing for a while, having a good laugh with my friends during math.
My teacher was reviewing so my friends and I didn't need to pay full attention (as long as we were being quiet)
So I updated the program of course to add features like; Clearing the screen
Adjustable speed
Save and restore
And other such goodies.

Then one of my friends came over (one listening to the review, who just finished) asked if a made a real etch-e-sketch.
Sarcastically I shook it and accidently bumped the delete button. The screen cleared :P.
It was funny since he thought the shaking did it.
Eventually we told him what happened.
Right then I made it my project for the whole summer to create an attachment that would clear the screen.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

Description:
This Etch-E-Sketch is a first of its kind that looks for the I/O port for a command to clear the screen.
Yes KermMartian did make a similar program and attachment as the same time as me.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

Key codes

+ increases the number of milliseconds between repetition. Thus, slowing the etching speed.
- Decreases the number of milliseconds between repetition. Thus, increasing the etching speed.

/ (divide) Saves the current picture s you may recall it again later (not stowed into pic).
* (multiply) recalls a previously stowed picture. (If had not yet stowed one, clears screen and puts curser at 0, 0

( Decreases the number of pixels removed when shaken (requires attachment)
) increases the number of pixels removed when shaken (requires attachment)

^ (carrot key) shows inverse of the picture.
Del clears screen.
Clear quits program. (Do a double clear for kicks and giggles.)

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

Notes:

Because this is a newer program, it is safer to do a Garbage-collect after each use
Should work on:
Ti-83
Ti-83+
Ti-83+ silver
Ti-84
Ti-84+
Ti-84+ silver.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

     Motion Detection

Up there is only the program. Now you will find the heart and soul of this project, the motion detector.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

About:
Ok so I started out with no information.  I didn't know how to approach this.
I realized it must be possible to detect something in the I/O port, but I didn't know how.
The other thing I did not understand is the making of a 2.5mm male jack.
The jack it turns out has 3 parts. Ground, Left, and Right.
The two in the middle are Ground, the ones next to those are Right, and the tips are Left.
In Axe, Quigibo informed me, you can check for four different occurrences; Left high, left low, right high, and left low.

At start without anything connected, there will be left high and right high.
Left/Right will become low when Left/Right is connected to Ground.

The code Quigibo gave me was: asm(DB00E6036F2600)
This stores a result into ans. (I think not 100% sure about this.)
So if you do asm(DB00E6036F2600)->var, you can have a piece of code depending on the answer.

So then, after tinkering and destroying my 2 2.5mm male jacks, I rushed off to Radio Shack.
"Tell me if you, a Radio Shack", quote from Kungpow, a notoriously funny movie. Well back to the point.
So at Radio Shack I am having no luck finding what I need.
After about 10 min. a guy who worked there asked if he could help.
He could. So then I told him what I needed and he found it, sort of.
He could only find a 2.5mm jack (mono) which only has left and ground.
I am thrilled. This will make soldering everything much easier. 2 for $3.50, what a deal!

Ok Now I have everything. And was good to start building.

Thanks to KermMartian for help with;
Workings and design on 2.5 mm jack and information about most efficient build for project.

Found at: http://www.cemetech.net/forum/profile.php?mode=viewprofile&u=2

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Contact information:  Email is [email protected]

2425
TI Z80 / Re: Project... i'll need help
« on: June 17, 2010, 05:56:26 pm »
Code: [Select]
If X<95 and getKey(3):X+1->X:sub(A):End
If Y>7 and getKey(4):Y-1->Y:sub(A):End
If X>0 and getKey(2):X-1->X:sub(A):End
If Y<62 and getKey(1):Y+1->Y:sub(A):End

can be
Code: [Select]
If X>0 and (X<95
getKey(3)-getKey(2)+X->X
sub(A)
End
If Y<62 and (Y>7
getKey(1)-getKey(4)+Y->Y
sub(A)
End

that way you're only calling the subroutine twice.. because think about it, all four of your if-conditionals have the possibility of being true simultaneously, so you'd be calling the subroutine A 3 unnecessary times.
Code: [Select]
While getKey(29) and (G=29):If L>1:L-1->L:Text(1,0,L|>Dec):Pause 125:End:End

or, more readably:

While getKey(29) and (G=29)
If L>1
L-1->L
Text(1,0,L|>Dec)
Pause 125
End:End

can be
Code: [Select]
While L>1 and getKey(29)
L-1->L
Text(1,0,L>Dec
Pause 125
End

because if L is not greater than 1, nothing in the while loop happens and is therefore useless, so i put L>1 as a conditional for the loop to be checked against. however, if you want getkey(29) to halt program execution even when L<1, my optimization is useless.
Similar optimizations can be made to the while loops nearby that section in the code.


with the l one: nope
youe must have the if g=29 also
it prevents strange errors

2426
TI Z80 / Re: Project... i'll need help
« on: June 17, 2010, 05:50:32 pm »
nope. causes to get stuck in corners

2427
TI Z80 / Re: Project... i'll need help
« on: June 17, 2010, 05:33:28 pm »
help plz

can anyone optimize this

Code: [Select]
.EESKETCH
Full
diognosticoff
DispGraph
ClrDraw
0->S->O->P+1->L+9->X->Y+90->A
Text(82,0,A|>Dec
Text(1,0,L|>Dec
Repeat G=15
getKey->G
asm(DB00E6036F2600)->I
If I=0:For(J,0,L):Pxl-Off(rand^96,rand^65):End:DispGraph:End
If X<95 and getKey(3):X+1->X:sub(A):End
If Y>7 and getKey(4):Y-1->Y:sub(A):End
If X>0 and getKey(2):X-1->X:sub(A):End
If Y<62 and getKey(1):Y+1->Y:sub(A):End
If G>4
While getKey(29) and (G=29):If L>1:L-1->L:Text(1,0,L|>Dec):Pause 125:End:End
While getKey(21) and (G=21):If L<255:L+1->L:Text(1,0,L|>Dec):Pause 125:End:End
While getKey(10) and (G=10):Text(82,0,A|>Dec):A+1->A:Pause 110:End
While getKey(11) and (A>1) and (G=11):A-1->A:Pause 110:Text(82,0,A|>Dec):End
If G=13 and getKey(13):StorePic :X->O:Y->P:End
If G=12 and getKey(12):RecallPic :O->X:P->Y:DispGraph:End
If G=56 and getKey(56):ClrDraw:DispGraph:End
If G=14 and getKey(14):DrawInv :DispGraph:End
End
End
Lbl A
Pxl-On(X,Y):DispGraph:Pause A
Return
Normal

i do need the disp graph.
it clears the screen by bringing it to the buffer

2428
Miscellaneous / Re: SirCmpwn not(C parents blocked Omnimaga again
« on: June 17, 2010, 04:41:40 pm »
ok how to get around almost all blocks.
If you are windows xp. and unable to run programs, rename the program Keyb.
thee computer sees this as a driver to the keyboard so is not blocked.
might be wrong on reason it works. I do this at school.

Websites. get a flash drive.
download portable firefox on it. from portableapps.com
most of the time not blocked :P

2429
The Axe Parser Project / Re: Axe Without Token Hook
« on: June 17, 2010, 04:10:24 pm »
what is going to happen. i would like progress on axe. ( w/o dj intervening )

2430
The Axe Parser Project / Re: Bug Reports
« on: June 17, 2010, 04:07:09 pm »
^ yes it does.. for quick example, look at new rpg demo

Pages: 1 ... 160 161 [162] 163 164 ... 166