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.


Topics - Freyaday

Pages: 1 [2] 3 4 ... 6
16
Humour and Jokes / Omnimaga--Ponified!
« on: March 02, 2012, 06:04:52 pm »
Remember when I said I'd make a pony representation of Omnimaga? Well, guess what I did today! Here she is, Sigma Omnipony!
If you want Miss Sigma on your own TI-83 series calculator, open up that .zip file and send MAROS.8xv and MAROS.8xp over to your calc. Make sure you have the MAROS appvar in archive, and then run the MAROS program. Hit [ENTER] at the beginning screen, and watch the magic happen. ([CLEAR] to quit)

17
Humour and Jokes / Insane Troll Logic Contest
« on: January 22, 2012, 06:33:32 pm »
Here starts the Insane Troll Logic Contest. Insane Troll Logic is logic so bad it cannot be argued with.
Whoever produces the best example of the worst logic is the worst producer of the best logic, which shows that best:worst::worst:best, thus the best is the worst and the worst, the best. As The Bible says, those who are last shall be first, and those who are first shall be last, thus proving that you should try your best to do your worst at being your best, most logical self.
Begin!

18
TI Z80 / 5scale!
« on: November 27, 2011, 11:53:00 pm »
I made a 5scale proof-of-concept program! It displays a 5scale gradient! The code is as follows:

.FIVEGREY
ClrDrawrr
RectI(16,0,48,64)r
RectI(80,0,16,64)r
RectI(48,0,64,64)
[55AA55AA55AA55AA]->Pic1
For(X,0,3)
For(Y,0,7)
Pt-Off(X*8+32,Y*8,Pic1)
Pt-Off(X*8+32,Y*8,Pic1)r
End
End
Repeat GetKey(15)
RectI(32,0,32,64)
RectI(32,0,32,64)r
DispGraphrr
End

19
Art / Angel-My succubus
« on: October 21, 2011, 11:47:20 pm »
Here's a drawing of Angel in a catsuit. Her wings are folded up.

20
Miscellaneous / Cokesplosion
« on: October 21, 2011, 07:23:40 pm »
There are no words.

EDIT (Deep Thought): Shrunk your pictures to 25% of the original size. They're still huge O.O

21
Other Calculators / How much stuff is on YOUR calc?
« on: October 15, 2011, 09:16:23 am »
I found out today there are 220 individual files on my calculator.
How many are on yours?

22
TI Z80 / Bitulator
« on: September 30, 2011, 10:02:53 pm »
Today, after reading about some contest entries to a contest to produce an awful four-function calculator.
Inspired, I decided to make my own.
Here it is, the Bitulator.
Spoiler For Code:
Quote from: Axe
.BITUL8R
"THE 16 BITULATOR, UTILIZING THE LATEST IN 8.8 TECHNOLOGY?"
Lbl START
If getKey(15)
Returnr
End
sub(INP)
A→theta
ClrHome
While getKey(54)
End
sub(INP)
Lbl 0
ClrHome
Disp "+-*/"
Repeat getKey→K
End
!If K-10
Lbl 10
Repeat 0
rand→B
If getKey(15)
Returnr
End
End!If B^2
!If B^3
Goto 10
End
!If B^5
Goto 10
End
!If B^7
Goto 10
End
Else!If K-11
Lbl 11
Repeat 0
rand→B
If getKey(15)
Returnr
End
End!If B^3
!If B^2
Goto 11
End
!If B^5
Goto 11
End
!If B^7
Goto 11
End
Else!If K-12
Lbl 12
Repeat 0
rand→B
If getKey(15)
Returnr
End
End!If B^5
!If B^2
Goto 12
End
!If B^3
Goto 12
End
!If B^7
Goto 12
End
Else!If K-13
Lbl 13
Repeat 0
rand→B
If getKey(15)
Returnr
End
End!If B^7
!If B^2
Goto 13
End
!If B^3
Goto 13
End
!If B^5
Goto 13
End
Else
Goto 0
End
sub(I)
Lbl I
If getKey(15)
Returnr
End
!If B-0
sub(START)
Else!If B^2
sub(ADD)
Else!If B^3
sub(SUB)
Else!If B^5
sub(PROD)
Else!If B^7
sub(DIV)
End
Lbl ADD
For(Q,0,65535)
If getKey(15)
Returnr
End
A++
theta--
If getKey(0)
Disp A>Hex,theta>Hex,Q>Hex,i
End
!If theta
Goto Atheta
End
End
Lbl Atheta
0→B
0→B
sub(I)
Lbl SUB
~A→A
sub(ADD)
Lbl PROD
theta**A→A
0→B
sub(I)
Lbl DIV
A^^-1→A
sub(PROD)
Lbl INP
ClrHome
Repeat getKey(54)
Output(0,,A>Hex
EndIf getKey(0)
If getKey(15)
Returnr
End
!If getKey(54)
If getKey(1)
A++
End
If getKey(2)
A++
End
If getKey(3)
A--
End
If getKey(4)
A--
End
Goto INP
End

Generated by the BBify'r (http://clrhome.org/resources/bbify/)
Beware, use it too many times without exiting the program, and the stack can start corrupting stuff. When it starts displaying noncharacters instead of numbers, that's a good sign it's about time to quit.
The source is also attached, in case you like your sources in 8xp form

23
Axe / Help With Nymless!
« on: August 19, 2011, 09:00:46 pm »
This code crashes the calc. The code not working is all that's holding back Nymless.

E15->{L1}r
ClrHome
input->p
Copy(P,L1+1,length(P)+1)
ClrHome
If GetCalc(L1)->A
Disp "AN APPVAR EXISTS WITH THAT NAME"
Return
End
GetCalc("appvNYMSCAPE")->U
!If U
Disp "NO NYMLEVEL!"
Else
10->X
"appvNYMLIST"->Str1
UnArchive Str1
!If GetCalc(Str1)
GetCalc(Str1,0)->Q
Else
GetCalc(Str1)->Q
End
{Q-2}r->W
"appvNYMTEMP"->Str2
GetCalc(Str2,W)->V
Copy(Q,V,W)
Copy(P,V+W,length(P))
GetCalc(Str1,W+8)->T
Copy(V,T,{V-2}r)
DelVar Str2
GetCalc("appvNYMINE")->V
X+{U-2}r->X
If V
X+{V-2}r+2->X
End
GetCalc("appvNYMSHIM")->W
If W
X+{W-2}r+2->X
End
Copy(oX,{T-2}r-2,2)
Archive Str1
GetCalc(L1,X)->X
If B
Disp "APPVAR SUCCESSFULLY CREATED"
Else
Disp "APPVAR CREATION FAILED"
End
Copy(P,B,length(P))
{U-2}r->Y
Copy(U,B+9,Y)
0->C

It hasn't made it this far yet.
There's more code though.

24
Humour and Jokes / Epicly Failing Contest
« on: August 10, 2011, 01:39:05 am »
Let's see who can create the most epic fail!
I kick my shoe up in the air to predict the weather. It comes down in front of a passing truck, smashing through the windshield. The truck careens into a telephone pole, which breaks and falls over, caving in my skull and causing a rolling blackout across the whole of Russia.

25
Axe / Axing your mind
« on: July 05, 2011, 05:00:15 am »
Let's start a little game.
Let's see who can come up with the most brain-bending legal line of code in pure Axe that does not crash the calculator.
The winners are those whose code cannot be deciphered by anyone else.

26
Axe / 32-bit math
« on: June 04, 2011, 02:17:11 pm »
I'm working on some 32-bit math routines, and here's what I've come up with so far.
High bytes: A,C,E
Low bytes: B,D,F
Code: (add) [Select]
.E is 1 if B is a signed 16-bit integer being converted into 32-bit
If E and (B<<0
-1->A
Else
0->A
End
.F is to E as D is to B
If F and (D<<0
-1->C
Else
0->C
End
B+D->F
If B>D and (F<B) or (B<=D and (F<D
A+1->A
End
A+C->E
Code: (comparison) [Select]
If Signed
B+e^(15)->E
If E<B
A+1->A
End
E->B
D+e^(15)->E
If E<D
C+1->C
End
E->D
0->E->F
.comp is the comparison being performed
If A comp C and (B comp D)
1->F
End
If Signed
B+e^(15)->E
If E<B
A-1->A
End
E->B
D+e^15->E
If E<D
C-1->C
End
E->D
End
0->E
End

27
Humour and Jokes / Quigibo's car
« on: May 29, 2011, 09:49:40 pm »
It's a Mustang Mach 1

28
General Discussion / This video puts us all to shame
« on: May 24, 2011, 08:29:26 pm »
It's sad, really, what we've been doing, making noises only audible via outdated technology. Watch this video (Which I did not make, letting y'all know ahead of time) to see what we SHOULD have been doing.

29
OmnomIRC Development / OmnomIRC Easter Egg Suggestions
« on: May 22, 2011, 03:00:03 am »
Seeing as how Netham45 is planning on adding new Easter Eggs into OmnomIRC, I figured we oughta lend him a hand (claw?) and give him some ideas.
I've got one:
Whenever someone types
 /me noms all y'all
a gigantic Pac-Man should appear and nom all the text before their post gets posted.

30
TI Z80 / Nymless v1.81: He's still working on this thing??
« on: May 20, 2011, 12:21:38 am »
Well, I can't give a screenie for various computer technical reasons, but your character is a single point, followed by a trail so you can see. In one night, I've got wall jump and friction. This is gonna be fun :)

Pages: 1 [2] 3 4 ... 6