0 Members and 1 Guest are viewing this topic.
Okay, so earlier I was asked by aeTIos for a hex code to run BASIC programs in Axe and I have heard that this was requested by others, so here goes my rendition... I am sorry in advance if my Axeing is horrible, this is only my second routine:Code: [Select]"prgmHELLO"→Str1 ;Name of the varStr1 ;To get the pointer to the string in HL (Ans)Asm(E7FDCB08CEEF9B4AFDCB088E ;As a word of warning, do not use "Stop" in your BASIC programs... This seems to cause a crash You can use "Return" and all the other commands, though, to my knowledge.I hope this helps!
"prgmHELLO"→Str1 ;Name of the varStr1 ;To get the pointer to the string in HL (Ans)Asm(E7FDCB08CEEF9B4AFDCB088E ;
Code: [Select].AxeClrDraw[FEFDFBF7EFDFBD7F]->Str1 //Each Byte here has 7 bits set and 1 bit not set (like FE is 11111110 in binary) //This is so that we can erase a random pixel, since Axe has no built in way to do thatLine(0,63,95,63 //the pixels to catch fire, explained a little laterRepeat getKey(15) //until we press clearFor(F,L6+12,L6+767 //loop through all of the screen pixels except the last 12{F} and {rand^8+Str1}->{F-12} //take the byte, use AND to erase a single bit from it, and then store it into the byte directly *above* itEnd //this makes it so that as the byte rises, each frame a pixel is erased from itDispGraphEnd
.AxeClrDraw[FEFDFBF7EFDFBD7F]->Str1 //Each Byte here has 7 bits set and 1 bit not set (like FE is 11111110 in binary) //This is so that we can erase a random pixel, since Axe has no built in way to do thatLine(0,63,95,63 //the pixels to catch fire, explained a little laterRepeat getKey(15) //until we press clearFor(F,L6+12,L6+767 //loop through all of the screen pixels except the last 12{F} and {rand^8+Str1}->{F-12} //take the byte, use AND to erase a single bit from it, and then store it into the byte directly *above* itEnd //this makes it so that as the byte rises, each frame a pixel is erased from itDispGraphEnd
.AxeClrDraw[FEFDFBF7EFDFBD7F]->Str1 //Each Byte here has 7 bits set and 1 bit not set (like FE is 11111110 in binary) //This is so that we can erase a random pixel, since Axe has no built in way to do thatLine(0,0,95,63 //the pixels to catch fire, explained a little laterRepeat getKey(15) //until we press clearFor(F,L6+12,L6+767 L6+755→FWhile F-L6 //loop through all of the screen pixels except the first 12F-1→F{F} and {rand^8+Str1}->{F+12} //take the byte, use AND to erase a single bit from it, and then store it into the byte directly *below* itEnd //this makes it so that as the byte drops, each frame a pixel is erased from itDispGraphEnd
That looks pretty nice. It's too bad the water coming from the character looks a little funny when he moves down. Other than that, wonderful job!
For a moment there I thought you magically saw a quote from the future
such as this?
Quote from the next postQuote from: ztrumpet on March 21, 2011, 07:29:08 pmThat looks pretty nice. It's too bad the water coming from the character looks a little funny when he moves down. Other than that, wonderful job! It works the same as the fire, so the fire looks odd when moving up.
Quote from: Darl181 on March 21, 2011, 07:29:07 pmQuote from the next postQuote from: ztrumpet on March 21, 2011, 07:29:08 pmThat looks pretty nice. It's too bad the water coming from the character looks a little funny when he moves down. Other than that, wonderful job! It works the same as the fire, so the fire looks odd when moving up.For a moment there I thought you magically saw a quote from the future
Author
Topic: Routines (Read 313135 times)
