Alternatively, join us on Discord.

Game of pig or some other animal. [CSE]

Started by Unicorn, July 02, 2015, 05:30:23 pm

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

DJ Omnimaga

Glad to see graphics being added :D.

Unicorn

Thanks :) I should wok on them today, instead of failing at ruby. :P



??? ??? ??? ??? ???

Unicorn

Bump

Welp, it turns out that those die were NOT 8x8, they were 9x9. So, I remade the spritesheet in to this:

I'm not that happy about losing the 3D feel, so pleas feel free to remake the die in 3D. (I don't trust myself to :P)

So yeah. But now, after sending it to my calc, it displays the sprites, just making all the lighter colors a dark shade of  blue O.O
If anyone has any help for that, please tell. :)


:DCS
"33333333333333333B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B000000000000033333333333333333
If 80>det([[20:Then:Disp "Get Doors CSE to run this:","http://dcs.cemetech.net":Return:End
"GOPSPRT
real(5,0,0
real(0,1,1
real(0,1,0,0
100→T:2→P
DelVar ADelVar BDelVar KDelVar LDelVar MDelVar Y
real(0,3,4,0,1
real(0,3,4,0,0
det(12,255,255,0,0
Output(5,12,"The
While A≠50
A+1→A
End
Output(5,12,"   
For(B,1,10
real(0,1,1
det(12,255,255,randInt(1,255),randInt(1,255)
Output(5,5,"GAME
For(A,1,5
End
real(0,1,0
real(0,3,2
End
real(0,1,1
det(12,0,0,0,0
Output(5,5,"   
det(12,255,255,184,253
Output(4,4,"Of Pig.
For(A,1,15,1
End
real(8,1,0
det(12,52,15,0,0
Output(7,1,"PRESS [ENTER]
Pause
DelVar A
While A<100
A+1→A
getKey→K
If K
100→A
real(4,0,randInt(0,160),randInt(0,240),2,2,0,0,7,0,0,24,25,32,33,40,41
End
Lbl M
real(8,1,0
real(0,3,4,0,0
det(12,154,214,0,0
Output(1,1,"++++MENU!++++
Output(4,1,"1. ONE PLAYER
Output(5,1,"2. TWO PLAYER
Output(6,1,"3. QUIT
DelVar A
While A<5
getKey→K
If K=92
6→A
If K=93
7→A
If K=94
8→A
End
Lbl X
If A=8:Then
real(0,1,0,1
real(0,3,4,255,1
real(0,3,4,255,0
Stop
End
If A=7
Goto P
2→Y:2→E
Lbl P
DelVar IDelVar J
3-P→P
Lbl R
If P=1
DelVar Y
If P=2 and E=2
2→Y
If P=1
det(12,154,214,0,0
If P=2
det(12,174,14,0,0
real(0,3,4,0,0
If M≥100
Goto MW
If L≥100
Goto LW
"P1:
real(6,0,0,5,145,36,0
real(6,1,25,5,145,L,0
"P2:
real(6,0,110,5,145,36,0
real(6,1,135,5,145,M,0
Output(1,1,"++PLAYER:  ++
Output(1,11,P
Output(4,1,"1. ROLL
Output(5,1,"2. HOLD
Output(6,1,"3. QUIT
Output(8,1,"TURN TOTALS
Output(9,1,"P1:
Output(9,5,I
Output(10,1,"P2:
Output(10,5,J
If Y=2 and P=2:Then
For(A,0,400
End
End
If Y=2:Then
real(0,3,4,0,0
randInt(1,7→Q
If Q≥5
7→A
If Q<5
6→A
If J+M<L or J+M≤5
6→A
randInt(1,9→Q
If Q=2 or Q=8
7→A
If J>35
randInt(6,7→A
If J=0
6→A
If A=7
Output(1,5,"Hold!
If A=6
Output(1,5,"Roll!
For(B,0,300
End
End
If Y=2
Goto AI
DelVar K
While K<92
getKey→K
If K=92
6→A
If K=93
7→A
If K=94
8→A
End
real(0,3,4,0,0
If A=8
Goto X
Lbl AI
If A=7 and P=1
I+L→L
If A=7 and P=2
J+M→M
If A=7
Goto P
DelVar A
For(C,0,15
A+1→A
If A=1
DelVar S
If A=2
1→S
If A=3
2→S
If A=4
8→S
If A=5
9→S
If A=6:Then
10→S
DelVar A
End
randInt(1,6→R
real(4,0,75,54,1,1,0,0,7,0,0,S
For(B,0,20
End
real(7,9,75,54,8,8,0
End
randInt(1,13→O
If O=5
1→R
If R=1
det(12,randInt(1,255),randInt(1,255)
If P=1
"P1 Rolled→Str1
If P=2
"P2 Rolled→Str1
Output(1,1,Str1
Output(1,13,R
Output(5,1,"TURN TOTAL
If R=1 and P=1
DelVar IDelVar R
If R=1 and P=2
DelVar JDelVar R
If P=1:Then
I+R→I
Output(5,12,I
End
If P=2:Then
J+R→J
Output(5,12,J
End
If P=1
800→A
If Y=2 and P=2
300→A
For(D,0,A
End
If R=0
Goto P
Goto R
Lbl LW
Repeat getKey
det(12,randInt(1,255),randInt(1,255)
Output(1,2,"PLAYER ONE
Output(2,3,"HAS WON!
End
Goto M
Lbl MW
Repeat getKey
det(12,randInt(1,255),randInt(1,255)
Output(1,2,"PLAYER ONE
Output(2,3,"HAS WON!
End
Goto M



??? ??? ??? ??? ???

alexgt

Sorry no help from me :-\ what do you use to display the sprites, can xLib do that I don't know :P

Unicorn

Oh wow, there's been a ton of progress on this O.O

welp, there's new code, new spritesheets, and new screenshots. Oh yeah, and its pretty much done :P If anyone wants, they can optimize.

Screenshot:


:DCS
"33333333333333333B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B444000000444033B414000000414033B444000000444033B000000000000033B000000000000033333333333333333
If 80>det([[20
Then
Disp "Get Doors CSE to run this:","http://dcs.cemetech.net
Return
End
"GOPSPRT
real(5,0,0
real(0,1,1
real(0,1,0,0
|E2->T:2->P
DelVar ADelVar BDelVar KDelVar LDelVar MDelVar Y
real(0,3,4,0,1
real(0,3,4,0,0
det(12,255,255,0,0
Output(5,12,"The
rand(45
Output(5,12,"   
For(B,1,10
real(0,1,1
det(12,255,255,randInt(1,255),randInt(1,255)
Output(5,5,"GAME
rand(2
real(0,1,0
real(0,3,2
End
real(0,1,1
det(12,0,0,0,0
Output(5,5,"   
det(12,255,255,184,253
Output(4,4,"Of Pig.
rand(5
real(8,1,0
det(12,52,15,0,0
Output(7,1,"PRESS [ENTER]
Pause
DelVar A
While A<100 and not(getKey
A+1->A
real(4,0,randInt(0,160),randInt(0,240),2,2,0,0,7,0,0,24,25,32,33,40,41
End
Lbl M
real(8,1,0
real(0,3,4,0,0
det(12,154,214,0,0
Output(1,1,"++++MENU!++++
Output(4,1,"1. ONE PLAYER
Output(5,1,"2. TWO PLAYER
Output(6,1,"3. QUIT
Repeat Ans>91 and Ans<95
getKey
End
Ans-86->A
Lbl X
If A=8:Then
real(0,1,0,1
real(0,3,4,255,1
real(0,3,4,255,0
Stop
End
If A=7
Goto P
2->Y:2->E
Lbl P
DelVar IDelVar J
3-P->P
Lbl R
If P=1
DelVar Y
If P=2 and E=2
2->Y
If P=1
det(12,154,214,0,0
If P=2
det(12,174,14,0,0
real(0,3,4,0,0
If M>=100
"   PLAYER 2  ->Str8
If L>=100
"   PLAYER 1  ->Str8
If M>=100 or L>=100
Goto W
"P1:
real(6,0,0,5,145,36,0
real(6,1,25,5,145,L,0
"P2:
real(6,0,110,5,145,36,0
real(6,1,135,5,145,M,0
Output(1,1,"++PLAYER:  ++
Output(1,11,P
Output(4,1,"1. ROLL
Output(5,1,"2. HOLD
Output(6,1,"3. QUIT
Output(8,1,"TURN TOTALS
Output(9,1,"P1:
Output(9,5,I
Output(10,1,"P2:
Output(10,5,J
If Y=2 and P=2:Then
rand(50
real(0,3,4,0,0
min(7,int(6+(J+M>99)+randJ/60(1+(J+M>L->A
Output(1,5,sub("Roll!Hold!",5A-29,5
rand(25
End
If Y=2 and P=2
Goto AI
Repeat A>5 and A<9
getKey-86->A
End
real(0,3,4,0,0
If A=8
Goto X
Lbl AI
If A=7 and P=1
I+L->L
If A=7 and P=2
J+M->M
If A=7
Goto P
DelVar F
For(C,0,20
remainder(C,6:(Ans`1)(16Ans-30+78not(Ans
real(4,0,75,54,2,2,0,0,7,0,0,Ans,Ans+1,Ans+8,Ans+9
End
real(7,9,75,54,16,16,0
randInt(1,6->R
randInt(1,13->O
If O=5
1->R
If R=1
det(12,randInt(1,255),randInt(1,255)
Output(1,1,"P"+sub("12",P,1)+" Rolled
Output(1,13,R
Output(5,1,"TURN TOTAL
If R=1 and P=1
DelVar IDelVar R
If R=1 and P=2
DelVar JDelVar R
If P=1:Then
I+R->I
800->A
Output(5,12,I
End
If P=2:Then
J+R->J
800->A
Output(5,12,J
End
If Y=2 and P=2
300->A
For(D,0,A
End
If not(R
Goto P
Goto R
Lbl W
getKey
While |E2<=max(L,M)not(getKey 
det(12,randInt(1,255),randInt(1,255) 
Output(1,1,"               
Output(8,1,"               
Output(2,1,"               
Output(7,1,"               
Output(6,1,"               
Output(3,1,"               
Output(4,1," PLAYER "+sub("12",1+(L>=|E2),1)+"   
Output(5,1,"   HAS WON!   
End
If |E2<=max(L,M
Goto M






??? ??? ??? ??? ???

alexgt

Awesome! glad to see that you have the 3D dice :)

Unicorn

Quote from: alexgt on July 23, 2015, 07:26:35 pm
Awesome! glad to see that you have the 3D dice :)
Yeah, I had to remke the coord on the xlib sprite command, and it required 6 huge if loops to work, but someone on cemetech made it fast :) And LD's die are going to be decorations :)



??? ??? ??? ??? ???

alexgt

Cool, glad to hear it is complete, is it?

Unicorn

Quote from: alexgt on July 23, 2015, 09:28:47 pm
Cool, glad to hear it is complete, is it?
Yup, I think the guys at cemetech are done optimizing it. :) I'll just need to upload! ")



??? ??? ??? ??? ???

alexgt


DJ Omnimaga

I like the pigs and dices. Also be sure to add everyone who helped to the credits in the readme :)

Snektron

Whoa that dice looks good! Nice work :3
Legends say if you spam more than DJ Omnimaga, you will become a walrus...


Unicorn

Quote from: DJ Omnimaga on July 24, 2015, 04:40:48 am
I like the pigs and dices. Also be sure to add everyone who helped to the credits in the readme :)

Yup, I'll do that to :)
Quote from: Cumred_Snektron on July 24, 2015, 11:47:10 am
Whoa that dice looks good! Nice work :3

Thanks!

Now, I just have to add LD Studios die for the decoration, and I'm done! And the readme :P



??? ??? ??? ??? ???

Unicorn

Bump!

The game is done! Head over here to try it out! And please, I do need to know how good the AI is, I just want to make sure it works out. ;)



??? ??? ??? ??? ???

DJ Omnimaga

Glad to see it released. I'll give it a try when I have a chance. Have you fixed the unreadable text colors, though?

Powered by EzPortal