Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
Battle GUI


Code:
ClrDraw
"0ZBD
prgmZRS:{94,0,3,15:prgmTEMP:prcmZC1
"rowSwap(ZSS->Str0:0->θ
1:prgmZCE:expr(Str9->Str4
{15,24:prgmZSP
SetUpEditor L_2
60->dim(L_2:Fill(0,L_2
iPart(L_EPRTY(1->L_2(43:10fPart(L_EPRTY(1->L_2(46
If Tmin=2:Then
"rowSwap(TRNRNAME->Str0:0->θ
10fPart(∟EPRTY(7:prgmZCE:Str9->Str7
"rowSwap(ZSS->Str0:iPart(∟EPRTY(7
prgmZCE:expr(Str9->Str4:{65,2:prgmZSP:1->U
Text(47,4,Str7,"WANTS
Text(53,4,"TO FIGHT!
Repeat getKey
Line(90,7,86,7,U
Line(89,6,87,6,U
Pt-Change(88,5
not(U->U
rand(20:End
For(F,4,14
Line(4,F,90,F,0
End
"rowSwap(ZPNA->Str0
L_2(43:prgmZCE
Text(47,4,Str7,"SENT
Text(53,4,"OUT",Str9:1->U
For(F,41,62
Line(61,F,92,F,0
End:End
If Tmin-1:Then
"rowSwap(ZPNA->Str0
0->θ:L_2(43:prgmZCE
Text(47,4,"WILD",Str9
Text(53,4,"APPEARED!
End
"rowSwap(ZPMA->Str0
L_2(43:prgmZCE:Str9->Str4
64->I:1->J:Asm(prgmZSP2
1->Z:"0ZEQU
prgmZRS:prgmTEMP:prgmZC1
Text(0,2,Str5
Text(6,15,"L_ ",L_2(46
Text(11,5,"HP
Line(14,49,38,49
Line(14,47,38,47
Line(3,53,3,44
Line(3,44,42,44
Line(4,43,42,43
Line(2,53,2,45
Line(41,45,40,46
Pt-On(39,48
Pt-On(40,45
Pt-On(13,48
iPart((E_2(L_2(1)/L_2(2)).25
Line(14,48,14+ans,48
For(F,4,14
Line(4,F,90,F,0
End
4->W:1->A:SetUpEditor L_PRTY
While W=4
If fPart(L_PRTY(A)=.5:Then
A+1->A:Else
4->θ:"ZTMP->Str0:prgmZCE
3->θ:prgmZCE
"L_P"+sub("123456",L_PRTY(A),1->Str7
1->θ:"UnArchive "+Str7+":"+Str7+sub(Str9,1,1)+"L_1:Archive "+Str7->Str9
1:prgmZCE:prgmZTMP:60->dim(L_1:L_PRTY(A->L_1(57
1->W:End:End
0->θ:"rowSwap(ZPNA->Str0
L_1(43:prgmZCE
Text(47,4,"GO! "+Str9+"!
Str9->Str7
For(F,19,42
Line(10,F,40,F,0
End:Str9->Str7
-32->I:21->J
"rowSwap(ZPMA->Str0
L_1(43:prgmZCE:Str9->Str4
Asm(prgmZSP2
Delvar Str4 Delvar Str9
Text(23,59,Str7
Text(29,66,"L_ "L_1(46
Text(34,56,"HP
Line(65,26,89,26
Line(65,24,89,24
Pt-On(64,25
Pt-On(90,25
Line(92,30,92,21
Line(92,21,52,21
Line(93,22,93,30
Line(52,20,91,20
Line(53,22,54,23
Pt-On(54,22
L_1(1)/L_1(2->G
(GE_2)/4->G
Line(65,25,65+G,25
For(F,4,14
Line(4,F,90,F,0
End
"    ->Str7
Text(50,10,"FIGHT",Str7,"ITEM",Str7,"PKMN",Str7,"RUN
StorePic Pic2:0->Y
6->A:Whilei W=1
Text(50,A,">
getKey->K
If K:Text(50,A,"   
A+4(A=6 and K=26)-20((K=24 and A>6)-(K=26 and A<70))-4(A=30 and K=24->A
If K=21:Then
If A=70:Then
If Tmin=2:Then
For(F,4,14
Line(4,F,90,F,0
End
Text(47,4,"NO! THERE'S NO RUNNING
Text(53,4,"FROM A TRAINER BATTLE!
1->U:Repeat getKey
Line(90,7,86,7,U
Line(89,6,87,6,U
Pt-Change(88,5
not(U->U
End
For(F,4,14
Line(4,F,90,F,0
End
RecallPic Pic2
End
If Tmin=1:Then
L_2(33)/4->C
While C>=256
C-256->C
End
L_1(33)32->D
(D/C)+(30Y->I
For(F,4,14
Line(4,F,90,F,0
End:Y+1->Y
If I<256
randInt(0,255
If Ans<I:Then:1->U
Text(47,4,"COULDN'T FLEE!
Repeat getKey
Line(90,7,86,7,U
Line(89,6,87,6,U
Pt-Change(88,5
not(U->U:rand(20
End
For(F,4,14
Line(4,F,90,F,0
End
10->W:End
If Ans>I or I>255:Then
Text(47,4,"GOT AWAY SAFELY!
1->U:Repeat getKey
Line(90,7,86,7,U
Line(89,6,87,6,U
Pt-Change(88,5
not(U->U:rand(20
End:2->W:End:End:End


This is what I have managed to get rewritten, for like the 5th time. Trying to make this work in the most efficient manner as possible.

Also, this topic will be used to post random bits of code as I work on the battle system and GUI.
That's some extremely dense code there, tifreak! Kudos.
Does this mean we will get to see at least part of what you work on so that we know for a fact things are making its way done and you are having time to work on this too? Very Happy
Sonlen wrote:
Does this mean we will get to see at least part of what you work on so that we know for a fact things are making its way done and you are having time to work on this too? Very Happy
I get the impression that he doesn't have time; he mentioned that he's been very stressed because the garage hasn't been getting much business. Sad
Sonlen wrote:
Does this mean we will get to see at least part of what you work on so that we know for a fact things are making its way done and you are having time to work on this too? Very Happy


Somewhat, I will try to remember to update this code as I get time to work on things. Life isn't being too nice in that regard though, but I am definitely trying.
tifreak8x wrote:
Sonlen wrote:
Does this mean we will get to see at least part of what you work on so that we know for a fact things are making its way done and you are having time to work on this too? Very Happy


Somewhat, I will try to remember to update this code as I get time to work on things. Life isn't being too nice in that regard though, but I am definitely trying.


It shows how much you are determined to finish this, no matter how hard life is getting on you. We need more people like you in this world as role models. Very Happy
Forgot to make it pull from the first element of the L_EPRTY list to begin setting up the enemy pokemon list. Regardless if the pokemon is from a wild encounter or trainer fight, it will always create this list and the first element will always be occupied. That was added in before the Tmin=2 conditional.
Sonlen wrote:
It shows how much you are determined to finish this, no matter how hard life is getting on you. We need more people like you in this world as role models. Very Happy
^This, this exactly. Smile Although it can certainly be easy to get worn down by a lack of certain recognition or respect over the years.
heh, I hear you on that, but I do get some recognition for what has been done already. Hopefully I can finish it at some point in time.

Edit:

Added a bit to having the GUI say the trainer is sending out a pokemon. Just can't seem to get my head in the game right now, hopefully I can focus tomorrow.
tifreak8x wrote:
heh, I hear you on that, but I do get some recognition for what has been done already. Hopefully I can finish it at some point in time.

Edit:

Added a bit to having the GUI say the trainer is sending out a pokemon. Just can't seem to get my head in the game right now, hopefully I can focus tomorrow.


Just remember I can do what I can to help if you want me to, just say the magic word (in this case just tell me something to do :p) and I will see what I can do for you. Very Happy
lol I know, just not really much that can be done until I can get the battle system going and integrate that into the game.

Also, updated the code, realized I didn't need the Repeat for key loop after it says the trainer sends out the pokemon. It will have long enough of a delay while it displays the pokemon and runs through the equations to generate the stats. I have some of that written out, I just don't have that notebook with me right now to update the code. I'll do that a little later.
Sounds great, tifreak; keep up the good work! I don't think we'll fault you if you don't get a chance to make further progress until next year, though. Cool
Heh, thanks. Updated the code, added the bit I wrote this morning. Now started with the displaying of the pokemon and the gathering and displaying of the stats.

Edit:

Hmm, looks like I have over complicated things with the equation program. I need to edit it to replace L_EPA with L_2 so I don't have to worry about having a ton of extra lists. That shouldn't take too terribly long to deal with. :]
Excellent, removing extra lists is always a plus. Glad you caught that. Smile I guess the new year is going to warrant a new Pokemon Purple Progress 2011 thread, isn't it?
Already has. Wink It is a new sticky item, if you'll notice, with only 2 comments in it. lol
tifreak8x wrote:
Already has. Wink It is a new sticky item, if you'll notice, with only 2 comments in it. 0x5
Whoops, totally missed that. I'll shortly raise the number of comments on it. Cool
lol awesome. :p

Also, updated the code very slightly to add in the start of the equation stuff that I got written down yesterday. Nothing big, just wanted it down so it would be less to type later.
tifreak8x wrote:
0x5 awesome. :p

Also, updated the code very slightly to add in the start of the equation stuff that I got written down yesterday. Nothing big, just wanted it down so it would be less to type later.
Any progress is a step in the right direction, as long as it helps you continue your momentum and avoid paging your code out of your mental cache. Smile
Yeah, I am trying very hard to maintain even the slightest amount of momentum with coding.

Added a bit, it now should clear out the trainer sprite and display the pokemon sprite with the separator bar and HP info.
Updated the code, now it searches the party list for the first, non fainted/empty slot and sends that pokemon out. It unarchives the appropriate list by dumping the code to do so in a temp program that the game creates and runs it from there. Next bit is to add in the code to drop the sprite onto the screen and display the options, and I will be close to where I was before I decided to revise the code again.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 3
» All times are GMT - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement