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 - pimathbrainiac
Pages: 1 ... 119 120 [121] 122 123 ... 125
1801
« on: November 20, 2012, 03:29:14 pm »
How do I sign up? (Never done a comp before, so I need to know)
1802
« on: November 19, 2012, 03:25:45 pm »
Well, I'm taking a break from this project for a little bit. I hope it will continue :-)
1803
« on: November 19, 2012, 02:32:49 pm »
I'm in... time to pause AXECHESS development and try something new!
1804
« on: November 10, 2012, 02:17:01 pm »
but how do I declare all the other pics?
1805
« on: November 10, 2012, 02:06:05 pm »
Uh... aeTIos, when I compile I get a "duplicate symbol" exception for the pics
edit: here's my code (the error is when declaring pics)
.CHESS
[3844828282443800]üPic1PCS
[387CFEFEFE7C3800]üPic1PCS
[3068A4A484483000]üPic1PCS
[1058DCDCFC783000]üPic1PCS
[609088482848F800]üPic1PCS
[60F0F87838787800]üPic1PCS
[D6D67C2828287C00]üPic1PCS
[D6D67C3838387C00]üPic1PCS
[9254382828287C00]üPic1PCS
[9254383838387C00]üPic1PCS
[3828EE82EE283800]üPic1PCS
[3838FEFEFE383800]üPic1PCS
[FFFFFFFFFFFFFFFF]üPic3
19ü{Lƒ+17}
15ü{Lƒ+18}
20ü{0*4+0+L}
1ü{0*4+1+L}
27ü{1*4+0+L}
1ü{1*4+1+L}
34ü{2*4+0+L}
1ü{2*4+1+L}
41ü{3*4+0+L}
1ü{3*4+1+L}
48ü{4*4+0+L}
1ü{4*4+1+L}
55ü{5*4+0+L}
1ü{5*4+1+L}
62ü{6*4+0+L}
1ü{6*4+1+L}
69ü{7*4+0+L}
1ü{7*4+1+L}
20ü{8*4+0+L}
8ü{8*4+1+L}
27ü{9*4+0+L}
8ü{9*4+1+L}
34ü{10*4+0+L}
8ü{10*4+1+L}
41ü{11*4+0+L}
8ü{11*4+1+L}
48ü{12*4+0+L}
8ü{12*4+1+L}
55ü{13*4+0+L}
8ü{13*4+1+L}
62ü{14*4+0+L}
8ü{14*4+1+L}
69ü{15*4+0+L}
8ü{15*4+1+L}
50ü{16*4+1+L}ü{17*4+1+L}ü{18*4+1+L}ü{19*4+1+L}ü{20*4+1+L}ü{21*4+1+L}ü{22*4+1+L}ü{23*4+1+L}
20ü{16*4+0+L}
27ü{17*4+0+L}
34ü{18*4+0+L}
41ü{19*4+0+L}
48ü{20*4+0+L}
55ü{21*4+0+L}
62ü{22*4+0+L}
69ü{23*4+0+L}
43ü{24*4+1+L}ü{25*4+1+L}ü{26*4+1+L}ü{27*4+1+L}ü{28*4+1+L}ü{29*4+1+L}ü{30*4+1+L}ü{31*4+1+L}
20ü{24*4+0+L}
27ü{25*4+0+L}
34ü{26*4+0+L}
41ü{27*4+0+L}
48ü{28*4+0+L}
55ü{29*4+0+L}
62ü{30*4+0+L}
69ü{31*4+0+L}
0ü{24*4+3+L}ü{25*4+3+L}ü{26*4+3+L}ü{27*4+3+L}ü{28*4+3+L}ü{29*4+3+L}ü{30*4+3+L}ü{31*4+3+L}
1ü{8*4+3+L}ü{9*4+3+L}ü{10*4+3+L}ü{11*4+3+L}ü{12*4+3+L}ü{13*4+3+L}ü{14*4+3+L}ü{15*4+3+L}
2ü{2*4+3+L}ü{5*4+3+L}ü{18*4+3+L}ü{21*4+3+L}
3ü{1*4+3+L}ü{6*4+3+L}ü{17*4+3+L}ü{22*4+3+L}
4ü{0*4+3+L}ü{7*4+3+L}ü{16*4+3+L}ü{23*4+3+L}
5ü{3*4+3+L}ü{19*4+3+L}
6ü{4*4+3+L}ü{20*4+3+L}
Repeat (getKey(15))
sub(M)
If (0)
Lbl M
If ((getKey(3)) and ({Lƒ+17}<68))
{Lƒ+17}+7ü{Lƒ+17}
Pause 250
End
If ((getKey(2)) and ({Lƒ+17}>20))
{Lƒ+17}-7ü{Lƒ+17}
Pause 250
End
If ((getKey(4)) and ({Lƒ+18}>1))
{Lƒ+18}-7ü{Lƒ+18}
Pause 250
End
If ((getKey(1)) and ({Lƒ+18}<48))
{Lƒ+18}+7ü{Lƒ+18}
Pause 250
End
Return
End
If (getKey(54))
For(N,0,31)
If (({N*4+0+L}=({Lƒ+17}+1)) and ({N*4+1+L}={Lƒ+18}) and ({N*4+3+L}=0))
{N*4+0+L}üZ
{N*4+1+L}üÁ
sub(A)
Zü{N*4+0+L}
Áü{N*4+1+L}
End
End
End
sub(O)
If (0)
Lbl O
ClrDraw
Line(19,1,19,57)
Line(26,1,26,57)
Line(33,1,33,57)
Line(40,1,40,57)
Line(47,1,47,57)
Line(54,1,54,57)
Line(61,1,61,57)
Line(68,1,68,57)
Line(75,1,75,57)
Line(19,1,75,1)
Line(19,8,75,8)
Line(19,15,75,15)
Line(19,22,75,22)
Line(19,29,75,29)
Line(19,36,75,36)
Line(19,43,75,43)
Line(19,50,75,50)
Line(19,57,75,57)
For(A,0,31)
If ({A*4+L1}=!0)
A>15üB
Pt-On({A*4+L1+1?r1},{r1+1},B*6+{r1+2}*8+Pic1PCS)
End
End
DispGraph
Return
End
End
If (0)
Lbl A
Repeat (getKey(55))
sub(M)
If ((getKey(54)) and (((Á)-14)={Lƒ+18}) and ((Y)<1))
Á-14üÁ
1üY
End
If ((getKey(54)) and ((Á-7)={Lƒ+18}) and ((Z-1)={Lƒ+17}))
Á-7üÁ
1üY
End
If ((getKey(54)) and ((Á-7)={Lƒ+18}) and ((Z-7)=({Lƒ+17}+1)))
For(X,1,16)
If ((({Lƒ+17}+1)=({L+X})) and (({Lƒ+18})=({L‚+X})))
0ü{L+X}
0ü{L‚+X}
Á-7üÁ
Z-7üZ
1üY
End
End
End
If ((getKey(54)) and ((Á-7)={Lƒ+18}) and ((Z+7)=({Lƒ+17}+1)))
For(X,1,16)
If ((({Lƒ+17}+1)=({L+X})) and (({Lƒ+18})=({L‚+X})))
0ü{L+X}
0ü{L‚+X}
Á-7üÁ
Z+7üZ
1üY
End
End
End
sub(O)
End
Return
End
If (0)
Lbl B
Repeat (getKey(55))
sub(M)
If ((getKey(54)) and (((Á)+14)={Lƒ+18}) and ((Y)<1))
Á+14üÁ
1üY
End
If ((getKey(54)) and ((Á+7)={Lƒ+18}) and ((Z-1)={Lƒ+17}))
Á+7üÁ
1üY
End
If ((getKey(54)) and ((Á+7)={Lƒ+18}) and ((Z-7)=({Lƒ+17}+1)))
For(X,1,16)
If ((({Lƒ+17}+1)=({L„+X})) and (({Lƒ+18})=({L…+X})))
0ü{L„+X}
0ü{L…+X}
Á+7üÁ
Z-7üZ
1üY
End
End
End
If ((getKey(54)) and ((Á+7)={Lƒ+18}) and ((Z+7)=({Lƒ+17}+1)))
For(X,1,16)
If ((({Lƒ+17}+1)=({L„+X})) and (({Lƒ+18})=({L…+X})))
0ü{L„+X}
0ü{L…+X}
Á+7üÁ
0Z+7üZ
1üY
End
End
End
sub(O)
End
Return
End
If (0)
Lbl C
Repeat (getKey(55))
sub(M)
If (getKey(54))
For(V,1,50)
If (((Z+V)=({Lƒ+17}+1)) and ((Á+V)=({Lƒ+18}))
Z+VüZ
Á+VüÁ
End
If (((Z-V)=({Lƒ+17}+1)) and ((Á+V)={Lƒ+18}))
Z-VüZ
V+ÁüÁ
End
If (((Z+V)=({Lƒ+17}+1)) and ((Á-V)={Lƒ+18}))
Z+VüZ
Á-VüÁ
End
If (((Z-V)=({Lƒ+17}+1)) and ((Á-V)={Lƒ+18}))
Z-VüZ
Á-VüÁ
End
If (getKey(54))
For(X,1,16)
If ((({Lƒ+17}+1)={L+X}) and ({Lƒ+18}={L‚+X}))
0ü{L+X}
0ü{L‚+X}
End
End
End
If (getKey(54))
For(X,1,16)
If ((({Lƒ+17}+1)={L„+X}) and ({L…+X}={Lƒ+18}))
0ü{L„+X}
0ü{L…+X}
End
End
End
End
End
sub(O)
End
Return
End
If (0)
Lbl D
Repeat (getKey(55))
sub(M)
If (getKey(54))
For(V,1,49)
If ((Z=({Lƒ+17}+1) and ({Lƒ+18}=(Á+V)))
Á+VüÁ
End
If ((Z=({Lƒ+17}+1) and ({Lƒ+18}=(Á-V)))
Á-VüÁ
End
If (((Z+V)=({Lƒ+17}+1) and ({Lƒ+18}=Á))
Z+VüZ
End
If (((Z-V)=({Lƒ+17}+1) and ({Lƒ+18}=Á))
Z-VüZ
End
End
If (getKey(54))
For(V,1,16)
If ((({Lƒ+17}+1)={L+V}) and ({Lƒ+18}={L‚+V}))
0ü{L+V}
0ü{L‚+V}
End
If ((({Lƒ+17}+1)={L„+V}) and ({Lƒ+18}={L…+V}))
0ü{L„+V}
0ü{L…+V}
End
End
End
End
sub(O)
End
Return
End
If (0)
Lbl E
Repeat (getKey(55))
sub(M)
If (getKey(54))
If ((({Lƒ+17}+1)=(Z+7)) and ({Lƒ+18}=(Á+14)))
Z+7üZ
Á+14üÁ
End
If ((({Lƒ+17}+1)=(Z-7)) and ({Lƒ+18}=(Á+14)))
Z-7üZ
Á+14üÁ
End
If ((({Lƒ+17}+1)=(Z+7)) and ({Lƒ+18}=(Á-14)))
Z+7üZ
Á-14üÁ
End
If ((({Lƒ+17}+1)=(Z-7)) and ({Lƒ+18}=(Á-14)))
Z-7üZ
Á-14üÁ
End
If ((({Lƒ+17}+1)=(Z+14)) and ({Lƒ+18}=(Á+7)))
Z+14üZ
Á+7üÁ
End
If ((({Lƒ+17}+1)=(Z-14)) and ({Lƒ+18}=(Á+7)))
Z-14üZ
Á+7üÁ
End
If ((({Lƒ+17}+1)=(Z+14)) and ({Lƒ+18}=(Á-7)))
Z+14üZ
Á-7üÁ
End
If ((({Lƒ+17}+1)=(Z-14)) and ({Lƒ+18}=(Á-7)))
Z-14üZ
Á-7üÁ
End
For(V,1,16)
If ((({Lƒ+17}+1)={L+V}) and ({Lƒ+18}={L‚+V}))
0ü{L+V}
0ü{L‚+V}
End
If ((({Lƒ+17}+1)={L„+V}) and ({Lƒ+18}={L…+V}))
0ü{L„+V}
0ü{L…+V}
End
End
End
sub(O)
End
Return
End
If (0)
Lbl F
Repeat (getKey(55))
sub(M)
If (getKey(54))
For(X,1,49)
If ((({Lƒ+17}+1)=(Z+X)) and ({Lƒ+18}=(Á+X)))
Z+XüZ
Á+XüÁ
End
If ((({Lƒ+17}+1)=(Z-X)) and ({Lƒ+18}=(Á+X)))
Z-XüZ
Á+XüÁ
End
If ((({Lƒ+17}+1)=(Z+X)) and ({Lƒ+18}=(Á-X)))
Z+XüZ
Á-XüÁ
End
If ((({Lƒ+17}+1)=(Z-X)) and ({Lƒ+18}=(Á-X)))
Z-XüZ
Á-XüÁ
End
If ((({Lƒ+17}+1)=(Z+X)) and ({Lƒ+18}=(Á)))
Z+XüZ
End
If ((({Lƒ+17}+1)=(Z-X)) and ({Lƒ+18}=(Á)))
Z-XüZ
End
If ((({Lƒ+17}+1)=(Z)) and ({Lƒ+18}=(Á+X)))
Á+XüÁ
End
If ((({Lƒ+17}+1)=(Z)) and ({Lƒ+18}=(Á-X)))
Á-XüÁ
End
End
For(V,1,16)
If ((({Lƒ+17}+1)={L+V}) and ({Lƒ+18}={L‚+V}))
0ü{L+V}
0ü{L‚+V}
End
If ((({Lƒ+17}+1)={L„+V}) and ({Lƒ+18}={L…+V}))
0ü{L„+V}
0ü{L…+V}
End
End
End
sub(O)
End
Return
End
If (0)
Lbl G
Repeat (getKey(55))
sub(M)
If (getKey(54))
If ((({Lƒ+17}+1)=(Z+7)) and ({Lƒ+18}=(Á+7)))
Z+7üZ
Á+7üÁ
End
If ((({Lƒ+17}+1)=(Z-7)) and ({Lƒ+18}=(Á+7)))
Z-7üZ
Á+7üÁ
End
If ((({Lƒ+17}+1)=(Z+7)) and ({Lƒ+18}=(Á-7)))
Z+7üZ
Á-7üÁ
End
If ((({Lƒ+17}+1)=(Z-7)) and ({Lƒ+18}=(Á-7)))
Z-7üZ
Á-7üÁ
End
If ((({Lƒ+17}+1)=(Z+7)) and ({Lƒ+18}=(Á)))
Z+7üZ
End
If ((({Lƒ+17}+1)=(Z-7)) and ({Lƒ+18}=(Á)))
Z-7üZ
End
If ((({Lƒ+17}+1)=(Z)) and ({Lƒ+18}=(Á+7)))
Á+7üÁ
End
If ((({Lƒ+17}+1)=(Z)) and ({Lƒ+18}=(Á-7)))
Á-7üÁ
End
If ((({Lƒ+17}+1)=(Z+14)) and ({Lƒ+18}=Á) and (Á={L…+8}))
Z+14üZ
{L„+8}-14ü{L„+8}
End
If ((({Lƒ+17}+1)=(Z+14)) and ({Lƒ+18}=Á) and (Á={L‚+8}))
Z+14üZ
{L+8}-14ü{L+8}
End
If ((({Lƒ+17}+1)=(Z-14)) and ({Lƒ+18}=Á) and (Á={L‚+1}))
Z-14üZ
{L+1}+21ü{L+1}
End
If ((({Lƒ+17}+1)=(Z-14)) and ({Lƒ+18}=Á) and (Á={L…+1}))
Z-14üZ
{L„+1}+21ü{L„+1}
End
For(V,1,16)
If ((({Lƒ+17}+1)={L+V}) and ({Lƒ+18}={L‚+V}))
0ü{L+V}
0ü{L‚+V}
End
If ((({Lƒ+17}+1)={L„+V}) and ({Lƒ+18}={L…+V}))
0ü{L„+V}
0ü{L…+V}
End
End
End
sub(O)
End
Return
End
If (0)
Lbl P
Return
End
1806
« on: November 10, 2012, 12:58:50 pm »
so, put all the different numbers for one piece on separate lines, n = 1, first being p*1+n, then p*2+n, etc. then the next piece, n = 2? (plz give me a code example)...
1807
« on: November 10, 2012, 12:43:56 pm »
{all stuff separated by commas}->{p*4+n+L1}?
1808
« on: November 10, 2012, 12:39:24 pm »
so... to declare it, it would be {stuff}->L1?
1809
« on: November 10, 2012, 12:00:22 pm »
what would the syntax be to store all this shtuff in L1? I am somewhat confused
1810
« on: November 09, 2012, 01:30:59 pm »
I want to get the basic mechanics down first
Edit: Hayleia, I have no idea what you mean
1811
« on: November 09, 2012, 01:29:21 pm »
* pimathbrainiac is mindblown
1812
« on: November 09, 2012, 11:47:43 am »
I'm going to try the graphics addition now...
1813
« on: November 09, 2012, 10:03:02 am »
if you look at the graphics routine, no...
Lbl O
ClrDraw
Line(19,1,19,57)
Line(26,1,26,57)
Line(33,1,33,57)
Line(40,1,40,57)
Line(47,1,47,57)
Line(54,1,54,57)
Line(61,1,61,57)
Line(68,1,68,57)
Line(75,1,75,57)
Line(19,1,75,1)
Line(19,8,75,8)
Line(19,15,75,15)
Line(19,22,75,22)
Line(19,29,75,29)
Line(19,36,75,36)
Line(19,43,75,43)
Line(19,50,75,50)
Line(19,57,75,57)
Pt-On({L+1},{L‚+1},Pic2R)
Pt-On({L+2},{L‚+2},Pic2N
Pt-On({L+3},{L‚+3},Pic2B)
Pt-On({L+4},{L‚+4},Pic2Q)
Pt-On({L+5},{L‚+5},Pic2K)
Pt-On({L+6},{L‚+6},Pic2B)
Pt-On({L+7},{L‚+7},Pic2N)
Pt-On({L+8},{L‚+8},Pic2R)
Pt-On({L+9},{L‚+9},Pic2P9)
Pt-On({L+10},{L‚+10},Pic2P10)
Pt-On({L+11},{L‚+11},Pic2P11)
Pt-On({L+12},{L‚+12},Pic2P12)
Pt-On({L+13},{L‚+13},Pic2P13)
Pt-On({L+14},{L‚+14},Pic2P14)
Pt-On({L+15},{L‚+15},Pic2P15)
Pt-On({L+16},{L‚+16},Pic2P16)
Pt-On({L„+1},{L…+1},Pic1R)
Pt-On({L„+2},{L…+2},Pic1N)
Pt-On({L„+3},{L…+3},Pic1B)
Pt-On({L„+4},{L…+4},Pic1Q)
Pt-On({L„+5},{L…+5},Pic1K)
Pt-On({L„+6},{L…+6},Pic1B)
Pt-On({L„+7},{L…+7},Pic1N)
Pt-On({L„+8},{L…+8},Pic1R)
Pt-On({L„+9},{L…+9},Pic1P9)
Pt-On({L„+10},{L…+10},Pic1P10)
Pt-On({L„+11},{L…+11},Pic1P11)
Pt-On({L„+12},{L…+12},Pic1P12)
Pt-On({L„+13},{L…+13},Pic1P13)
Pt-On({L„+14},{L…+14},Pic1P14)
Pt-On({L„+15},{L…+15},Pic1P15)
Pt-On({L„+16},{L…+16},Pic1P16)
Pt-On({Lƒ+17},{Lƒ+18},Pic3)
DispGraph
Return
I need to physically change the sprite assignment
this is where I get the error:
Lbl P
1ü{Lƒ+18}
19ü{Lƒ+17}
Repeat (getKey(56))
sub(M)
If (getKey(54))
If (({Lƒ+17}=19) and ({Lƒ+18}=1))
DelVar Pic1P1
Pic1NüPic1P1
2üY
End
End
ClrDraw
Pt-On(19,1,Pic1N)
Pt-On(26,1,Pic1B)
Pt-On(33,1,Pic1R)
Pt-On(40,1,Pic1Q)
End
Return
1814
« on: November 09, 2012, 09:53:00 am »
* pimathbrainiac takes back what he said beforehand
1815
« on: November 09, 2012, 09:50:22 am »
Hey, I need to change a sprite from one hex to another during promotion. I DelVar the sprite, then create a new one with the same name, and assign a new hex to said sprite... but when compiling, I get an invalid token error... any ideas?
Pages: 1 ... 119 120 [121] 122 123 ... 125
|
Show Posts
