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 - shmibs
Pages: 1 ... 120 121 [122] 123 124 ... 126
1816
« on: August 03, 2010, 08:53:48 pm »
B1 because it's cleaner looking than it's outlined counterpart and has delicious hair shading
1817
« on: August 03, 2010, 08:01:54 pm »
504: the two have been so closely associated in your mind that every time you are rickrolled you instantly lose as well EDIT 505: you have two sets of rechargeable batteries because you had a traumatic experience once when you really wanted to code but had to wait for them to recharge 506: you were in the other room, just sitting down to get some actual work done but then ran back in here with the express purpose of typing this post 
1818
« on: August 03, 2010, 06:08:34 pm »
498:your index finger is sore from clicking the refresh button on omnimaga home page so often
499:you have the home page set to auto refresh every 5 minutes, but you still click refresh because that's too long to wait
500:you're ecstatic about posting the landmark rule number 500!
1819
« on: August 03, 2010, 05:47:15 pm »
well thanks then =D
something wonky definitely did happen with the earlier versions, but it must have been only similar, then, in which case i havent seen it again and am going to assume that it's fixed
1820
« on: August 03, 2010, 03:25:21 pm »
um... this is supposed to happen, right?  ram clear is useless; the only fix is deletion and replacement furthermore, this isnt the first time it's happened TI-84 Plus Silver Edition 2.43 PROD#: 0A-3-02-2B this is axe .4, but i've had the same thing happen on earlier versions as well EDIT: and here's everything in my arch, if you think it might help apps
Axe:Bubble:Calcsys:Celtic3:DAWG:DoorsCS7:Graph3:NoteFlio:Periodic:Pyoro
vars:
like 50 pictures(using celtic3):ALCDFIX:AMID83:ASTEROID:ATTACK:BEJEWELED:BUBBLE:CALCMOD:CAVE:CONWAY:COPYBG:DESOLATE(&desdata):DK5MOS:DODGE2M:EPHALONE:FDOWNX:FISH7:FPHOENIX:FRETRCK2:FROGGUTS:GALAXAN2:GEOWARS:GPHX5:GRAYMINE:GRAYTUNL:IGO:LOTUS(&lotusdat):MARIORUN&ED:MAZE3DII:MCROHRTZ:MIRBUTN:MIRDESC:MIRNAME:MOSOKO:OMEGA:ORBIT:ORZINOID(&editor):PUYOPUYO:QWERTY:REVERSI:RUSHOUR:SERPENT2:SKY:SN00D:SNAKE:TETRISM:TRAPPED:TRON:and 100 or so progs of my own making
1821
« on: August 03, 2010, 02:43:13 pm »
118(dang, that's hard. i was using my foot for the spacebar )
1822
« on: August 02, 2010, 10:15:33 pm »
/\this(to raylin)
wonderful to see progress, and i am very look forward to that source
1823
« on: August 02, 2010, 09:57:15 pm »
wow, that fellow sounds like a more profane david malki
1824
« on: August 02, 2010, 09:45:17 pm »
[Raylin] Rules edited in.
1825
« on: August 02, 2010, 08:34:55 pm »
Its more like so i have a way to create levels for my engine without figuring out the RLE compression and converting all the hex and the coordinates by hand
...which sounds like a lot of fun actually! are you going to release an annotated source for this ever?(that dynamic generation of tiles you mentioned has piqued my interest[or have you already and am i just proving that im lazy and dont bother to read through whole topics])
1826
« on: August 02, 2010, 08:01:53 pm »
.4 and no
EDIT:HAHA, i posted without having to go back and edit it... wait... DAMNIT =D
1827
« on: August 02, 2010, 07:20:04 pm »
i think i remember that lunar lander?(or was it a different one[regardless, fine precision games like that just dont work with ascii ]) i'd love to see the others remade, though
1828
« on: August 02, 2010, 07:05:30 pm »
nice catch there, thanks =D it draws to the buffer and then shifts EDIT: ok, it looks like i tricked myself here... that specific screenshot is from a prog which DOES draw to the backbuffer  i made one afterwards which did not(and because of that couldnt draw on the outside rim of pixels) specifically to see if people could guess and then posted the wrong one... also, i dont think i've posted a single thing today without going back and editing it afterwards
1829
« on: August 02, 2010, 06:45:46 pm »
/\/\bingo/\/\  it draws to the backbuffer and then displays shifted up, down, left, and right in sequence here's the same thing sans gray  this system actually looks pretty good on still frame pics: dithering displays as midlevel gray, resulting in psuedo 3 layer as for the 4level that just draws two different sprites on the buffer and back buffer and then alternates between them without any of quigibo's fancy pants algorithms :.A
:ClrDraw:DispGraph:Full:DiagnosticOff
:[5FEB7DAFF5BED7FAAF7DEB5FFAD7BEF57E83858B95ABD57EFF83878F9FBFFFFFBD7EEFD7EBF7EBFF7EFFF7EBD7EFD7FF→Pic1
:[54C025A401BC032A2A03A425803DC054→Pic2
:[7EFFFFFFFFFFFF7E→Pic3
:ClrDraw
:[01010101010101010100000000000001010000000000000101000000000000010100000000000001010000000000000101000000000000010101010101010101→Str1
:conj(Str1,L5,64:2→{rand^64+L5}:"FREQ:→Str9:0→F→C+8→A→B:Repeat getKey(54):Text(0,0,Str9:Text(20,0,F►Dec
:Pause 50:F+(2*(getKey(3))*(F<6))-(2*(getKey(2))*(F>0))→F:End
:FnInt(A,F
:FnOn :Repeat getKey(15)
:If getKey(3):A+1→AStop:End
:If getKey(2):A-1→AStop:End
:If getKey(1):B+1→BStop:End
:If getKey(4):B-1→BStop:End
:End
:FnOff :LnReg
:Return
:Lbl A
:C+1→C
:ClrDraw:For(M,0,7:For(L,0,7
:Pt-On(8*L,8*M,{8*M+L+L5}*16+(8*(C=2))+Pic1
:End:End
:Pt-On(A,B,Pic3:Pt-Change(A,B,(C=2)*8+Pic2
:DispGraph:If C=3:0→CEndthe other one is fairly simple to make; it was the idea that i really liked and the walking engine: :.A
:DiagnosticOff:Full:‾1→X+1→Y→B+1→D+19→S→T
:[3C7EFFFFFF7F7EFC3C7EFFFFFFFE7E3F3C7EFFFFFFFF7EFF3C7EFFFFFFFF7EFF003C7E003A1A2058003C7E005C58041A003C423C5A5A005A003C7E0000001842→Pic2
:[FC7E1C00000000003F7E380000000000FF7E660000000000FF7E660000000000FE7C3800000000007FFE6C00000000007F7E6000000000007F7E600000000000FE7F3600000000007F3E1C0000000000FE7E060000000000FE7E060000000000400C000000000000023000000000000042240000000000005A000000000000000430000000000000026400000000000002200000000000001A000000000000004026000000000000200C00000000000040040000000000005800000000000000→Pic3
:[00000000000000000050200A04A04A04208C123A4C6A308400030F3BEBABABABFF7EBDDBE7DBBD7E00C0F0FCFFFFFFFFABABABABABABABAB7EBDDBE7DBBD7EFFFFFFFFFFFFFFFFFFABABACB0E020302A00FF708999A9700000FFEE113355EE00FFFF3F0F07040C5420202020302A3D1F7EB9C5CDD5BB8381EE113355EE0055FF040404040CB45CF83C42C3BFA7A7A77E→Pic1
:[0101010101010101010101010101010101010101→GDB1
:[0101010101010101010101010101010101010101
:[0101010101010101010101010101010101010101
:[0101010111111111111111111111111101010101
:[0101010111010101010101010101011101010101
:[0101010111010100000000000001011101010101
:[0101010111010000000000000000011101010101
:[0101010111000000000000000000001101010101
:[0101010111000202030404050202001101010101
:[0101010111000202060707080202001101010101
:[0101010111000202090A0B0C0202001101010101
:[01010101110002020D0E0F100202001101010101
:[0101010111000000000000000000001101010101
:[0101010111000000000000000000001101010101
:[0101010111111111111111111111111101010101
:[0101010101010101010101010101010101010101
:[0101010101010101010101010101010101010101
:[0101010101010101010101010101010101010101
:Repeat 0
:For(L,0,12:For(M,0,9
:{M+Y*S+L+X+GDB1}→A
:Pt-Off(8*L-4,8*M-4,8*A+Pic1
:End:End
:Pt-On(44,25,D-1*8+Pic2
:Pt-Change(44,25,D*8+24+Pic2
:Pt-On(44,33,32*B+(D-1*8)+Pic3
:Pt-Change(44,33,32*B+(D-1*8)+96+Pic3
:DispGraph
:For(L,0,6000
:If getKey(15):Goto Q:End:0→C
:If getKey(3):1→D→CEnd
:If getKey(2):2→D→CEnd
:If getKey(1):3→D→CEnd
:If getKey(4):4→D→CEnd
:End
:If getKey(3) and (D=1)
:If {Y+4*S+X+7+GDB1}<3
:X+1→XEnd:End
:If getKey(2) and (D=2)
:If {Y+4*S+X+5+GDB1}<3
:X-1→XEnd:End
:If getKey(1) and (D=3)
:If {Y+5*S+X+6+GDB1}<3
:1+Y→YEnd:End
:If getKey(4) and (D=4)
:If {Y+3*S+X+6+GDB1}<3
:Y-1→YEnd:End
:If C
:(B<2)+1→B
:Else:0→BEnd
:End
:Lbl Qim pretty clueless when it comes to axe optimization and i made this a while ago, so tell me if you see anything obvious EDIT: 50POSTS! IMOFFTOTHEARCADENAO!
1830
« on: August 02, 2010, 06:19:20 pm »
just tried it out, and i am impressed
i rarely play anything in basic anymore, but this one's a keeper. props =D
EDIT: i glanced through the code really quickly and didnt see any obvious optimizations (cept mebbe where you used 1->x:1->y and then later 1->x:ans->y), but i like i said i havent messed with basic in a while and never on a screen this large, so...
DOUBLE EDIT: here's the code
:ClrHome
:"3221110000→Str2
:"MH →Str1
:0identity(16→[A]
:DelVar TDelVar SDelVar LRepeat S=20 and T=20
:ClrHome
:For(A,1,8
:Output(A,9-8L,"++++++++
:End
:Output(1,9-8L,"PLAYER
:Output(1,16-8L,L+1
:1→X
:1→Y
:DelVar G1→R
:Repeat R=11
:Repeat K=21
:For(A,0,expr(sub(Str2,R,1
:Output(X+AG,Y+Anot(G)+8L,sub("* ",2-[A](X+AG,Y+Anot(G)+8L),1
:End
:If Ans=31
:not(G→G
:min(8-Gexpr(sub(Str2,R,1)),max(1,X+sum(DeltaList(K={25,34→X
:min(8-not(G)expr(sub(Str2,R,1)),max(1,Y+sum(DeltaList(K={24,26→Y
:For(A,0,expr(sub(Str2,R,1
:Output(X+AG,Y+Anot(G)+8L,"*
:End
:Repeat Ans
:getKey→K
:End
:End
:DelVar HFor(A,0,expr(sub(Str2,R,1
:H+[A](X+AG,Y+Anot(G)+8L→H
:End
:If not(H
:Then
:For(A,0,expr(sub(Str2,R,1
:1→[A](X+AG,Y+Anot(G)+8L
:End
:If L
:T+1+expr(sub(Str2,R,1→T
:If not(L
:S+1+expr(sub(Str2,R,1→S
:R+1→R
:End
:End
:not(L→L
:End
:1→X
:Ans→Y
:randInt(0,1→L
:Lbl 1
:Repeat S=0 xor T=0
:ClrHome
:For(A,1,8
:Output(A,1+8L,"++++++++
:End
:Output(1,1+8L,"PLAYER
:Output(1,8+8L,L+1
:For(A,1,8
:For(B,9-8L,16-8L
:Output(A,B,sub(Str1,4-[A](A,B),1
:End
:End
:1→X
:9→Y
:Repeat K=21
:Output(X,Y-8L,sub(Str1,4-[A](X,Y-8L),1
:min(8,max(1,X+sum(DeltaList(K={25,34→X
:min(16,max(9,Y+sum(DeltaList(K={24,26→Y
:Output(X,Y-8L,"S
:Output(3,4+8L,sub("ABCDEFGH",X,1
:Output(3,5+8L,Y-8
:Repeat Ans
:getKey→K
:End
:End
:If 1<[A](X,Y-8L
:Then
:Output(5,1+8L,"TRY
:Output(6,4+8L,"AGAIN
:Pause
:Goto 1
:End
:If not([A](X,Y-8L
:Then
:Output(5,3+8L,"MISS
:3→[A](X,Y-8L
:not(L→L
:Pause
:Goto 1
:End
:If 1=[A](X,Y-8L
:Then
:Output(5,3+8L,"HIT!
:If L
:T-1→T
:If not(L
:S-1→S
:2→[A](X,Y-8L
:not(L→L
:Pause
:End
:End
:End
:DelVar [A]ClrHome
:not(L→L
:Output(4,5,"PLAYER
:Output(4,12,L+1
:Output(5,7,"WON!
Pages: 1 ... 120 121 [122] 123 124 ... 126
|
Show Posts
