QUOTE ("BASIC Code") | ||||||
:AxesOff :ClrDraw :ClrHome :DispGraph :0→A :1→θ :0→B :1→C :0→D :real(0 :While 1 :If θ=dim(L2)-4:1→θ :3(B≠3→B :real(0,0 :34+L3(θ+1)+L3(θ+2)+L3(θ+3 :real(12,2,0,Ans,95,Ans,0 :If Ans≤42:Then:real(1,8C,0,12-C,Ans,7+D,12,16-2(L3(θ+1)+L3(θ+2)+L3(θ+3)),0,0,0 :real(1,0,0,C,Ans,8-D,12-C,17-2(L3(θ+1)+L3(θ+2)+L3(θ+3)),0,0,0 :Else:real(1,8C,2Ans-84,12-C,84-Ans,7+D,0,0,0,0,0 :real(1,0,2Ans-84,C,84-Ans,8-D,12-C,0,0,0,0 :End :real(1,36+8L2(θ+3)+9L2(θ+2)+2L2(θ+1)-A,Ans+1,3,7-L3(θ+3),2+L2(θ+4)+B,0,0,2,0,0 :real(1,28+8L2(θ+2)-A,42+L3(θ+1)+L3(θ+2),5,7-L3(θ+2),2+L2(θ+3)+B,0,14,2,0,0 :real(1,2-A,49+L3(θ+1),7,7-L3(θ+1),2+L2(θ+2)+B,0,28,2,0,0 :real(1,12-A,56,9,8,2+B,0,42,2,0,0 :real(8 :(Ans=3)-(Ans=2→E :real(1,33,50,4,12,4,4+4E,42,1,0,0 :real(1,33,50,4,12,1,4+4E,42,3,0,1 :C-2L2(θ+3→C :If C<1 or C>11:D=0→D :If C<1:11→C:If C>11:1→C :A+7E-8L2(θ+2→A :θ+1→θ :End Generated by http://www.cemetech.net/projects/basicelite/sourcecoder.php, Post by: Netham45 on January 14, 2007, 07:11:00 am Post by: DJ Omnimaga on January 14, 2007, 07:27:00 am ![]() Post by: Radical Pi on January 14, 2007, 08:37:00 am ![]() Background graphics?!!! I'll look at the code, but I don't think I'll find any optimizations... Post by: DJ Omnimaga on January 14, 2007, 09:03:00 am Post by: Halifax on January 14, 2007, 09:48:00 am Post by: Jon on January 18, 2007, 04:55:00 pm ![]() Post by: lachprog on January 21, 2007, 03:10:00 am ![]() Impressive that you have done that in basic! And, like Halifax said, features like jumps etc. would be really cool, if it is possible to include it! :) ![]() Post by: kalan_vod on August 15, 2007, 03:33:00 pm http://www.ticalc.org/archives/files/fileinfo/401/40113.html Post by: DJ Omnimaga on August 15, 2007, 04:04:00 pm Well i alerady mentionned it as news article here ;) ![]() but the project is no longer being worked on anymore so i released the early engine at ticalc :( ![]() Post by: Halifax on August 15, 2007, 04:47:00 pm ![]() Post by: kalan_vod on August 16, 2007, 04:05:00 am
An article of you releasing the code on ticalc? I remember the one of the game, but not this :P ![]() Post by: Speler on August 16, 2007, 04:30:00 am I suppose the first step is learning to read Kevin's code. Post by: Liazon on August 16, 2007, 04:41:00 am ![]() Post by: kalan_vod on August 16, 2007, 06:28:00 am ![]() Post by: DJ Omnimaga on August 16, 2007, 11:49:00 am
yeah it was effectively deleted with the rest of my calc stuff (except Omnimaga) right after you left, but tr1p1ea still had it when i asked him recently so i asked him if he could send it to me, so i uploaded it online here. :P ![]() The articel is here http://omnimaga.org/index.php?showtopic=1641 It was not evident at all though because it was posted in the Illusiat 11 expert version news and it was only 3 lines :P ![]() Post by: kalan_vod on August 16, 2007, 12:01:00 pm Post by: DJ Omnimaga on August 16, 2007, 12:19:00 pm jk that was evil XD ![]() |