Omnimaga
Calculator Community => Other Calc-Related Projects and Ideas => TI Z80 => Topic started by: jacobly on October 30, 2011, 10:46:53 pm
-
I created a webpage here (http://jacob.heliohost.org/calc/converter/) that converts 8xp files to unicode. The output was designed to be able to be copy-and-pasted directly into code tags in a post. It currently supports both TIBasic and Axe tokens.
-
What's Unicode?
-
ooh nice now I don't have to type a lot anymore!
EDIT: I +1ed
-
Ooh, shiny! It seems a little bit slow at times though -- is it because of Heliohost, or is it something in your code?
Unicode is basically text, but cooler (because it can display more characters then normal ASCII).
-
Yeah, the server can be slow at times, but it is also free. :P
-
It crossed out half of my code....
(Like this)
At the start of the strikethroughs, some of the conversion was inaccurate...
-
Another one of those times when firefox ignores my mistakes, causing me to miss them. :P
Anyway, it's fixed.
-
Recived:
Service Temporarily Unavailable
The server is temporarily unable to service your request due to maintenance downtime or capacity problems. Please try again later.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
-
Yeah it's down right now. Ypu might want to try another host like x10 hosting or freehostia because Heliohost is absolute crap. it took 2 minutes for me to load your page and just because of that I doubt anyone will use the tool.
Otherwise this seems nice if this would works. Hopefully most forums support unicode in posts.
PROGRAM:XXR
:1:real(0:If not(Ans:Then:ClrHome:Output(1,1,"ERROR: PLEASE GOTO APPS MENU, OPEN XLIB, PRESS1 TO INSTALL IT THEN 3 TO QUIT THEN RUN THE GAME AGAIN.
:Stop:End
:real(11
:Ans➔C
:If C=0 and (fPart(L₁(1))=.1 or .3=fPart(L₁(1:Then:ClrHome:Output(1,1,"ERROR: THIS LEVEL IS NOT COMPATIBLE WITH THE REGULAR 83+!
:Stop:End
:7➔dim(L₂
:24➔L₂(1:34➔L₂(2:25➔L₂(3:26➔L₂(4:1➔L₂(5:If L₂(6)≠5 and L₂(6)≠6:6➔L₂(6:If L₂(7)≠1 and 0≠L₂(7:0➔L₂(7
:int(L₁(1➔S
:AxesOff:Full:Float:Normal:ClrDraw:DispGraph
:While 1
:L₂(6➔D
:L₂(7➔E
:0➔H
:100➔P
:9➔θ
:0➔V
:real(7,0
:2➔T
:0getKey:Repeat W=54
:Repeat W=54 or T=4 or T=8
:real(3,3,3,1
:real(3,3,3,0
:real(8:Ans➔W
:real(4,0,1+(C=0),0
:T+1+(C=0➔T
:End
:If T=4:randInt(0,3➔Z:If T=8:Then:0➔T
:real(1,16randInt(0,5),48,2,16,1,2Z,0,3,0,0:End
:End
:For(Z,1,6,.25+.25(C=0
:int(Z➔T
:real(4,0,T+T(C=0),0
:real(3,3,3,1
:real(3,3,3,0
:End
:real(3,3,0,0
:For(Z,1,3+.1(C≠0),.1+.1(C=0
:int(Z➔T
:real(4,1,T+T(C=0),1
:End
:For(W,.2,.4,.2
:For(Z,3,1,⁻W−W(C=0:int(Z➔T:real(4,0,T+T(C=0),1
:End
:For(Z,1,3,W+W(C=0:int(Z➔T:real(4,1,T+T(C=0),1
:End
:End
:If not(C:real(4,1,4,1
:real(1,0,63,12,1,3,0,32,3,0,0
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,1,0,56−Z,0,0,1
:End
:0➔T
:real(1,0,12,12,7,1,0,16,3,0,0
:Text(12,70,sub("BEFOREAFTER ",6D−29,6
:real(1,0,12,12,7,1,0,16,3,0,0
:real(1,0,6,12,7,1,0,16,3,0,0
:Text(6,50,sub("EASYHARD",4E+1,4
:real(1,0,6,12,7,1,0,16,3,0,0
:Repeat Z=54 or Z=55
:real(8:Ans➔Z
:real(1,0,T,12,7,1,0,16,3,0,1
:If Ans=54:Then:If T=12:Then
:D+1➔D:If D=7:5➔D
:If D=5:Text(12,70,"BEFORE
:If D=6:Text(12,70,"AFTER
:0➔Z:End
:If T=6:Then:E=0➔E:If E=1:Text(6,50,"HARD
:If E=0:Text(6,50,"EASY
:0➔Z:End
:End
:real(1,0,T,12,7,1,0,16,3,0,0
:If Z=4:Then:If T<6:Then:18➔T:Else:If C≠0:Then:real(1,0,T−3,12,7,1,0,16,3,0,1
:real(1,0,T−3,12,7,1,0,16,3,0,0
:End:T−6➔T:End:End
:If Z=1:Then:If T>12:Then:0➔T:Else:If C≠0:Then:real(1,0,T+3,12,7,1,0,16,3,0,1
:real(1,0,T+3,12,7,1,0,16,3,0,0
:End:T+6➔T:End:End
:End
:For(W,0,88,8+8(C=0
:real(1,W,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−W,0,1+(C=0),63,4,2,0,1,0,1
:End
:D➔L₂(6:E➔L₂(7
:If Z=55 or T=18:Then:Output(1,1,"
:Return:End
:5➔F
:0➔U
:length(Str1➔X:If X>16:16➔X
:For(T,0,6,1+(C=0
:For(Z,1,X
:Text(⁻1,27,T(Z−1),sub(Str1,Z,1
:End
:End
:Text(⁻1,27,0,Str1
:For(Z,30,⁻34,⁻2
:For(T,0,Z,1+(C=0:End
:real(4,0,1+(C=0),1
:End
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,2,0,24−Z,0,0,1
:End
:For(Z,0,100+100(C≠0:End
:If fPart(L₁(1))=.1 or not(fPart(L₁(1:Then:.2+L₁(1➔L₁(1
:For(R,5,8
:real(3,R,0,0
:real(1,0,0,12,24,2+7(R=6 or R=8),0,0,2,0,0
:real(1,0,0,12,24,2+7(R=6 or R=8),0,24,1,0,1
:If R=5:StorePic 5:If R=6:StorePic 6:If R=7:StorePic 7:If R=8:StorePic 8
:End:End
:real(0
:Text(⁻1,27,30,"READY
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:Text(⁻1,27,15,"HERE WE GO!
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:0➔Z
:(dim(L₁)<200)+2(dim(L₁)<100➔K
:If C=0 or fPart(L₁(1))=.3:Then
:Repeat Z=22 or P<1 or U>K
:Text(⁻1,0,66,P
:Text(7,67,V
:getKey➔Z:real(1,16L₁(θ),48,2,16,1,2L₁(θ),0,3,0,0
:real(3,F,3,1
:For(T,0,S:End
:L₂(1+L₁(θ−D
:If Z=Ans:Then
:V+1➔V
:If V>H:V➔H
:P+8+2V➔P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0➔V:real(1,70,32,3,8,1,0,24,3,0,0:P−4−θ➔P:End
:End
:real(3,F,3,0
:F+1➔F:If F=9:5➔F
:real(4,0,8,0
:θ+1➔θ
:If θ=dim(L₁:Then:U+1➔U:9➔θ:End
:For(T,0,S:End
:End
:Else
:Repeat Z=22 or P<1 or U>K
:If not(fPart(θ:Then
:Text(⁻1,0,66,P
:Text(7,67,V
:getKey➔Z:real(1,16L₁(θ),48,2,16,1,2L₁(θ),0,3,0,0
:real(3,F,3,1
:End
:For(T,0,S:End
:If not(fPart(θ:Then
:L₂(1+L₁(θ−D
:If Z=Ans:Then
:V+1➔V
:If V>H:V➔H
:P+8+2V➔P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0➔V:real(1,70,32,3,8,1,0,24,3,0,0:P−4−θ➔P:End
:End
:real(3,F,3,0
:F+1➔F:If F=9:5➔F
:real(4,0,8,0:End
:θ+.5➔θ
:If θ=dim(L₁:Then:U+1➔U:9➔θ:End
:For(T,0,20+1.8S:End
:End
:End
:If Z=22:Then:real(3,F,3,0:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−T,0,1+(C=0),63,4,2,0,1,0,1
:End
:Else:If P>0:Then:Text(⁻1,19,0,"CLEARED!"
:Text(26,0,"SCORE:",P,"!
:Text(32,0,"MAX COMBO:",H
:Else
:Text(⁻1,24,25,"FAILED!
:End
:Repeat Z=54:real(3,F,3,1:real(3,F,3,0:F+1➔F:If F>8:5➔F
:For(T,0,15+15(C≠0:real(8:If Ans=54 or Ans=55:54➔Z:End
:End
:real(3,F,3,0
:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−T,0,1+(C=0),63,4,2,0,1,0,1
:End
:End
:End
EDIT (off-topic)
THE GAME
O.O
-
You could give me the code for this tool, and I'll put it on my website! :)
-
Yeah, I still remember HelioHost. It promised so much, but downtime was absolutely ridiculous. For free hosts, x10 is nice but slow (sometimes slower than HelioHost), FreeHostia has some limitations, and I personally think 000webhost is the best choice.
By the way, that's a nice tool. It's like SourceCoder with better characters.
-
Strange, I use it all the time and it works fine for me. The problem is that afaict, none of the above free hosts supports the language it is written it. :P
-
I thought x10 hosting was Freehostia? ???
And I see why now. Also is the site hosted in USA? If it's in Europe, then this might be why.
It might be best to get it hosted by someone else like Juju or even Omni's server, providing the script is very secure.
(Btw the code above is from xLIB xLIB Revolution)
-
By the way, I have a suggestion. If you have the script test to see if the first token is a period followed by a letter or theta, users would no longer need to choose TI-BASIC/Axe.
-
I rewrote this tool in php, so anyone who wants to host it can now. I also added Deep Thought's suggestion while I was at it.
-
that thing is working very nice! Great job! :D