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 - meishe91
Pages: 1 ... 123 124 [125] 126 127 ... 207
1861
« on: July 29, 2010, 04:06:05 am »
Haha, that is so great!
1862
« on: July 29, 2010, 03:01:31 am »
Actually yes, I believe. You probably just helped make this faster...by considerable amounts. I will try my tweak that I'm thinking of and see what I get. Edit: Good news: The speed issue has been taken care of now  Bad news: There are a few bugs now arising  2 nd Edit: Good news: Fixed those bugs that appeared. It is now tolerable to play. Bad news: Initial bugs are still there. -Being able to overwrite a number while laying the field. -Can continuously hit one spot and win in about 10 turns (also starts reading as a technical false-positive). It is now 1052 bytes Which means it's even further away from HGP. Here is the new source code: DelVar ADelVar GDelVar DDelVar E"4332221111→Str2
"MH →Str1
0identity(8→[A]
Ans→[B]
1→B
1→C
Repeat A=2
1→R
For(θ,1,8
Output(θ,9-8A,"********
End
Output(1,9-8A,"PLAYER
Output(1,16-8A,A+1
For(I,1,8
For(J,1,8
If A
Output(I,J+8,[B](B,C
If not(A
Output(I,J,[A](B,C
End
End
Repeat R=11
Repeat K=21
For(Q,0,expr(sub(Str2,R,1))-1
Output(B+QG,C+Qnot(G)+8A,(A=1)[B](B,C)+not(A)[A](B,C
End
If K=31
not(G→G
min(8-Gexpr(sub(Str2,R,1))+G,max(1,B+(K=34)-(K=25→B
min(8-not(G)expr(sub(Str2,R,1))+not(G),max(1,C+(K=26)-(K=24→C
For(Q,0,expr(sub(Str2,R,1))-1
Output(B+QG,C+Qnot(G)+8A,sub(Str2,R,1
End
Repeat Ans
getKey→K
End
End
For(Q,0,expr(sub(Str2,R,1))-1
If A
expr(sub(Str2,R,1→[B](B+Q(G=1),C+Qnot(G
If not(A
expr(sub(Str2,R,1→[A](B+Q(G=1),C+Qnot(G
End
R+1→R
End
A+1→A
1→B
Ans→C
End
1→B
9→C
DelVar ARepeat E>49 or D>49
ClrHome
For(I,1,8
For(J,1,8
If A
Output(I,J,sub(Str1,7-[A](I,J),1
If not(A
Output(I,J+8,sub(Str1,7-[B](I,J),1
End
End
For(θ,1,8
Output(θ,1+8A,"********
End
Output(1,1+8A,"PLAYER
Output(1,8+8A,A+1
Repeat K=21
If A
Output(B,C-8,sub(Str1,7-[A](B,C-8),1
If not(A
Output(B,C,sub(Str1,7-[B](B,C-8),1
min(8,max(1,B+(K=34)-(K=25→B
min(16,max(9,C+(K=26)-(K=24→C
Output(B,C-8A,"S
Output(3,4+8A,sub("ABCDEFGH",B,1
Output(3,5+8A,C-8
Repeat Ans
getKey→K
End
End
If A
Then
If [A](B,C-8
Then
D+[A](B,C-8→D
5→[A](B,C-8
Output(6,11,"HIT!
Else
6→[A](B,C-8
Output(7,11,"MISS
End
Else
If [B](B,C-8
Then
E+[B](B,C-8→E
5→[B](B,C-8
Output(6,3,"HIT!
Else
6→[B](B,C-8
Output(7,3,"MISS
End
End
Pause
A+not(A)-(A=1→A
End
ClrHome
Output(4,5,"PLAYER
Output(4,12,A
Output(5,7,"WON!
1863
« on: July 29, 2010, 02:54:45 am »
no, problem meishe! (:
identity(A) creates a matrix A rows by A columns, with every number being 0 except for the diagonals.
so identity(5) creates:
10000
01000
00100
00010
00001
in my trick you have 0identity( , which creates an 8x8 matrix then multiplies it by 0, creating an 8x8 0-filled matrix (:
also, i'm curious: when you have a player move their pieces around, are you drawing the whole map every time they move?
Ya, that's what TI|BD said, thanks. With that trick you also don't need the dim( commands. Ya, each time you move it redraws the map. That is what makes the game so slow. It was the only way I could think of that could make it so you don't overwrite pieces and still keep it small That is the main issue I need to fix.
1864
« on: July 29, 2010, 02:45:12 am »
@DJ Thanks, and ya I know. It's just a hard concept to keep small, fast or not  I'll keep working on it though and do my best. And ya, I don't really like that either. I'm trying to come up with ways to keep that from happening and still keep this small. I've got a couple ideas. @nemo Thanks! If I remember G is only used for the rotation routine so I believe that should work. As for the walking routine fix, wow...I never even thought about including that into the min(...,max( section. For that first one though, how does that work? I'm not familiar with the identity( command, though I'll look it up real fast too. Thanks again Edit: Never mind, I figured out the identity( thing
1865
« on: July 29, 2010, 02:22:45 am »
Thanks, me too. I haven't spent a whole lot of time working on it yet. I have thought about maybe redoing it completely though, like starting from scratch.
1866
« on: July 27, 2010, 09:47:37 pm »
Runer, are you trying to compete with Spencer or are you submitting that for the contest?
Who is Spencer? 
From what I understand he is one of the big programmers over at Revsoft who is/was creating a Zelda clone. I could be wrong on some of that though. I don't know a whole lot myself.
1867
« on: July 27, 2010, 09:22:17 pm »
Thanks, I think I'm going to reorganize the things tonight and add even more things so I'll add them then.
1868
« on: July 27, 2010, 08:15:43 pm »
That's weird. When he provided the individual files it worked just fine with the correct tokens.
1869
« on: July 27, 2010, 08:11:48 pm »
I believe that there should be a front page link on this.
What do you mean exactly?
1870
« on: July 27, 2010, 08:10:33 pm »
Well I know TI|BD has a great reference on all the commands if you're looking for commands like that. I don't know of any tutorial that has those commands really.
1871
« on: July 27, 2010, 08:08:06 pm »
Ah ok. Cool
1872
« on: July 27, 2010, 08:06:29 pm »
Ah ok. And I have no idea. I think someone made a the RRoT program in Axe but I never saw it in action, don't remember who it was. You'd probably have to ask Quigibo.
As for the program here it is. It just saves the tokens to a string (Str1 or Str2, not sure). In theory the file should work, I had to change the name because A.8xp was already uploaded somewhere already. If it doesn't work though just tell me.
1873
« on: July 27, 2010, 07:53:56 pm »
That's because the US only have one official language 
Although a great majority of the population speaks english, the US dosen't have any official language.
Oops, sorry. Isn't all the administration in the US done in English?
Ya, I believe so. But we don't technically have an official language, like he said. English, however, is the national language.
1874
« on: July 27, 2010, 07:48:17 pm »
Do you just mean a program that has the correct symbols saving to a string? I could do that real fast if you'd like. I just still have that Rick Roller's of Tomorrow program still on my calculator and it'd be an easy edit to just have that. Just thought I'd offer
1875
« on: July 27, 2010, 07:45:01 pm »
I don't really play much and wasn't really the best but could probably play if I ever decide to renew one of my gamertags. I could probably ask my brother though if you're looking for a challenge.
Pages: 1 ... 123 124 [125] 126 127 ... 207
|
Show Posts
