[Pokemon Purple] Battle GUI code bits
» > >
» Goto page Previous  1, 2, 3
» View previous topic :: View next topic  
KermMartian wrote:
tifreak8x wrote:
So, I've managed to get all the data compiled on paper. That was a boat load of fun. All 165 attack lists are now ready to be put into an appvar. I hope that won't take terribly long to do, then we can see what else is broken with my new GUI code.
Stupendous! I am sure that very little will actually be broken. Smile


HA!

We can only hope :p working on getting these numbers put down now. Sourcecoder makes it a little harder than I'd like to deal with, gonna try tokens.
tifreak8x wrote:
KermMartian wrote:
tifreak8x wrote:
So, I've managed to get all the data compiled on paper. That was a boat load of fun. All 165 attack lists are now ready to be put into an appvar. I hope that won't take terribly long to do, then we can see what else is broken with my new GUI code.
Stupendous! I am sure that very little will actually be broken. Smile


HA!

We can only hope :p working on getting these numbers put down now. Sourcecoder makes it a little harder than I'd like to deal with, gonna try tokens.


Well I do have a question, how is the battle engine with gui coming along at this point in time? Also great work and keep on going, your work on this for as long, which is very admirable.
comicIDIOT wrote:
KermMartian wrote:
Stop double-posting. If you can't edit your posts, delete your old post before you post a new post.
I am too lazy to actually make my own post so instead I quote people and then don't say anything new


dragon1414@att.net / Google and Yahoo E-Mail
This is what has been occupying my time so I can continue testing the GUI..

http://sc.cemetech.net/?xpi=81f3f18efa95dd2f28e799e7709db851
ZAD
tifreak8x has just edited this program. The source code now reads:
BASIC Code wrote:
:20,2,255,20,3
:40,3,255,30,63
:0,3,255,40,50
:0,4,255,30,51
:0,4,255,20,52
:65,5,255,30,63
:15,1,216,20,25
:0,4,255,30,50
:0,1,255,10,22
:15,1,191,20,40
:61,1,255,25,26
:120,5,225,5,5
:85,1,255,15,30
:65,6,216,20,26
:50,6,229,10,42
:20,7,255,30,64
:65,7,255,20,64
:35,7,191,10,40
:18,1,216,15,25
:0,9,255,10,48
:50,4,255,25,66
:10,1,255,35,64
:0,1,255,30,20
:1,8,255,20,76
:90,7,216,10,1
:50,1,242,30,1
:0,1,255,40,11
:100,6,255,10,34
:0,1,140,20,75
:70,1,255,10,1
:30,8,255,30,42
:0,1,255,15,13
:100,1,255,15,46
:15,1,216,10,25
:1,10,255,10,38
:100,4,255,15,8
:80,11,255,20,1
:100,6,255,10,1
:100,1,191,10,1
:40,12,255,25,4
:170,1,255,5,7
:120,12,216,5,29
:75,12,255,15,4
:15,12,178,15,40
:1,6,76,5,32
:95,12,255,15,4
:0,1,178,20,19
:70,11,242,15,41
:0,1,255,30,45
:15,1,216,20,25
:18,1,204,15,25
:0,1,191,30,61
:0,1,255,40,16
:0,1,255,40,12
:1,1,76,5,32
:40,1,255,35,1
:0,1,255,30,11
:0,5,255,30,21
:70,1,255,15,31
:85,8,229,20,43
:65,1,255,25,1
:1,1,76,5,32
:120,7,204,5,1
:150,1,229,5,1
:80,1,229,15,26
:0,4,153,20,27
:95,5,255,10,5
:75,5,255,15,5
:70,8,242,25,43
:50,1,255,25,1
:0,4,204,15,19
:20,13,255,15,3
:0,2,229,10,73
:0,1,255,30,17
:20,9,255,30,30
:0,4,255,30,57
:0,1,191,10,27
:50,8,229,20,31
:0,4,255,40,10
:40,2,255,10,3
:120,1,191,5,1
:80,1,216,20,1
:0,1,255,10,72
:0,1,255,10,71
:0,1,255,20,13
:0,11,255,20,9
:0,5,255,30,44
:0,9,255,15,37
:40,1,255,20,14
:35,11,255,35,1
:70,2,255,20,23
:14,13,216,20,25
:0,3,140,40,59
:15,3,255,35,2
:0,3,191,35,59
:40,1,255,35,1
:65,4,255,20,66
:90,4,255,10,65
:1,4,204,15,39
:40,1,255,30,1
:20,1,255,20,70
:55,2,242,25,1
:0,1,255,20,53
:0,4,255,20,58
:0,4,255,10,54
:0,1,255,20,24
:75,15,229,10,1
:50,15,165,15,1
:60,8,216,15,31
:0,1,255,15,19
:40,1,255,35,1
:0,1,216,40,56
:1,8,255,20,37
:130,1,255,5,7
:0,1,255,30,10
:0,1,140,15,27
:100,1,255,15,33
:140,11,229,5,33
:80,1,191,20,1
:70,1,255,10,1
:0,2,191,15,27
:65,3,255,20,28
:20,3,178,20,28
:0,1,255,20,19
:0,1,255,10,53
:120,2,255,15,33
:1,1,229,20,36
:20,1,255,15,25
:0,1,255,40,74
:0,2,255,15,27
:65,1,255,20,31
:80,1,255,15,1
:0,13,242,40,18
:50,1,255,10,47
:0,2,191,30,61
:80,8,204,25,46
:0,1,255,10,68
:1,1,229,10,35
:0,1,140,20,48
:95,7,255,15,1
:60,1,255,20,15
:0,1,255,30,49
:35,1,242,35,1
:0,1,255,30,17
:90,1,216,20,46
:0,4,255,20,24
:90,1,255,20,23
:120,14,178,10,6
:0,14,255,20,61
:95,14,255,15,6
:75,14,255,15,6
:40,14,255,30,6
:0,3,216,10,60
:0,1,255,10,55
:80,1,255,10,1
:25,13,255,20,67
:55,1,255,30,1
:35,2,255,10,1
:40,7,255,25,1
:80,7,255,15,1
:0,1,216,20,24
:35,11,255,35,1
:0,7,255,40,11
:15,1,216,20,40
:80,1,191,10,33
Generated by SourceCoder, © 2005-2010 Cemetech
This is an automatic post from SourceCoder 2. Report abuse to admin@cemetech.net . You can disable these posts by unchecking the "Post on Update" box in the file's permissions.

SourceCoder 2
http://sc.cemetech.net
The above is lists for the attack data to be put in to pokemon lists. That took a little while to compile and put into the calc. x.x
http://sc.cemetech.net/?xpi=4f78924de0de994c588bc39706bc1cf5

Just to get what the Battle GUI posted up..
BATGUI
tifreak8x has just edited this program. The source code now reads:
BASIC Code wrote:
:ClrDraw
:"0ZBD
:prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1
:"rowSwap(ZSS→Str0:0→θ
:1:prgmZCE:expr(Str9→Str4
:{15,24:prgmZSP
:SetUpEditorL6
:60→dim(L6:Fill(0,L6
:iPart(∟EPRTY(1→L6(43:E2fPart(∟EPRTY(1→L6(46
:"0ZEQU
:prgmZRS:1→Z:prgmTEMP:prgmZC1
:L6→L2
:If Tmin=2:Then
:"rowSwap(TRNRNAME→Str0
:0→θ:10fPart(∟EPRTY(7:prgmZCE:Str9→Str5
:"rowSwap(ZSS→Str0:iPart(∟EPRTY(7
:prgmZCE:expr(Str9→Str4:{65,2:prgmZSP:1→U
:Text(47,4,Str5,"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
:0→θ
:"rowSwap(ZPNA→Str0:L2(43:prgmZCE
:Text(47,4,Str5," SENT
:Text(53,4,"OUT ",Str9:1→U
:For(F,41,62
:Line(61,F,91,F,0
:End:End
:If Tmin=1:Then
:"rowSwap(ZPNA→Str0
:L2(43:prgmZCE
:Text(47,4,"WILD ",Str9
:Text(53,4,"APPEARED!
:End:Str9→Str7
:"rowSwap(ZPMA→Str0
:L2(43:prgmZCE:Str9→Str4:DelVar Str9
:64→I:1→J:Asm(prgmZSP2
:1→Z:"0ZEQU
:prgmZRS:prgmTEMP:prgmZC1
:Text(0,2,Str7
:Text(6,15,"∟",L2(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((E2(L2(1)/L2(2)).25
:Line(14,48,14+Ans,48
:For(F,4,14
:Line(4,F,90,F,0
:End
:4→W:1→A:SetUpEditor∟PRTY
:While W=4
:If fPart(∟PRTY(A)=.5:Then
:A+1→A:Else
:4→θ:"ZTMP→Str0:prgmZCE
:3→θ:prgmZCE
:"∟P"+sub("123456",(A),1→Str4
:1→θ:"Unarchive"+Str4+":"+Str4+sub(Str9,1,1)+"L1:Archive"+Str4→Str9
:1:prgmZCE:prgmZTMP:60→dim(L1:∟PRTY(A→L1(57
:1→W:End:End
:0→θ:"rowSwap(ZPNA→Str0
:L1(43:prgmZCE
:Text(47,4,"GO! "+Str9+"!
:For(F,19,42
:Line(10,F,40,F,0
:End:Str9→Str8
:‾32→I:21→J
:"rowSwap(ZPMA→Str0
:L1(43:prgmZCE:Str9→Str4:DelVar Str9
:Asm(prgmZSP2
:DelVar Str4
:Text(29,66,"∟ ",L1(46
:Text(34,56,"HP
:Line(65,26,86,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
:L1(1)/L1(2→G
:(GE2)/4→G
:Line(65,25,65+G,25
:For(F,4,14
:Line(4,F,90,F,0
:End
:Text(50,10,"FIGHT    ITEM    PKMN    RUN
:StorePic Pic2:0→X
:6→A:While 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
:rand(20
:End
:For(F,4,14
:Line(4,F,90,F,0
:End
:RecallPic Pic2
:End
:If Tmin=1:Then
:X+1→X
:L2(33)/4→C
:While C>255
:C-256→C
:End
:L1(33)32→D
:(D/C)+(30X→I
:For(F,4,14
:Line(4,F,90,F,0
:End
:If I<256
:randInt(0,255
:If Ans<I:Then:1→U
:Text(47,4,"COULDN'T ESCAPE!
: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
:
:End:End
Generated by SourceCoder, © 2005-2010 Cemetech
This is an automatic post from SourceCoder 2. Report abuse to admin@cemetech.net . You can disable these posts by unchecking the "Post on Update" box in the file's permissions.

SourceCoder 2
http://sc.cemetech.net
http://sc.cemetech.net/?xpi=657dae0913ee12be6fb2a6f687aae1c7
A
tifreak8x has just edited this program. The source code now reads:
BASIC Code wrote:
:SetUpEditor∟BALI:1→dim(∟BALI:SetUpEditor∟PRTY:∟PRTY(1→∟BALI(1
:ClrDraw:SetUpEditor∟PRTY2:∟PRTY→∟PRTY2
:"0ZBD
:prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1
:"rowSwap(ZSS→Str0:0→θ
:1:prgmZCE:expr(Str9→Str4
:{15,24:prgmZSP
:SetUpEditorL6
:60→dim(L6:Fill(0,L6
:iPart(∟EPRTY(1→L6(43:E2fPart(∟EPRTY(1→L6(46
:"0ZEQU
:prgmZRS:1→Z:prgmTEMP:prgmZC1
:L6→L2
:If Tmin=2:Then
:"rowSwap(TRNRNAME→Str0
:0→θ:10fPart(∟EPRTY(7:prgmZCE:Str9→Str5
:"rowSwap(ZSS→Str0:iPart(∟EPRTY(7
:prgmZCE:expr(Str9→Str4:{65,2:prgmZSP:1→U
:Text(47,4,Str5," 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:0→θ
:"rowSwap(ZPNA→Str0:L2(43:prgmZCE
:Text(47,4,Str5," SENT
:Text(53,4,"OUT ",Str9:
:rand(20
:For(F,41,62
:Line(61,F,91,F,0
:End
:End
:If Tmin=1:Then
:"rowSwap(ZPNA→Str0
:L2(43:prgmZCE
:Text(47,4,"WILD ",Str9
:Text(53,4,"APPEARED!
:End:Str9→Str7
:"rowSwap(ZPMA→Str0
:L2(43:prgmZCE:Str9→Str4:DelVar Str9
:64→I:1→J:Asm(prgmZSP2
:1→Z:"0ZEQU
:prgmZRS:prgmTEMP:prgmZC1
:Text(0,2,Str7
:Text(6,15,"∟",L2(46
:Text(11,5,"HP
:Line(14,49,39,49
:Line(14,47,39,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(40,48
:Pt-On(40,45
:Pt-On(13,48
:iPart((E2(L2(1)/L2(2)).25
:Line(14,48,14+Ans,48
:For(F,4,14
:Line(4,F,90,F,0
:End
:4→W:1→A:SetUpEditor∟PRTY
:While W=4
:If fPart(∟PRTY(A))=.5:Then
:A+1→A:Else
:4→θ:"ZTMP→Str0:prgmZCE
:3→θ:prgmZCE
:"∟P"+sub("123456",∟PRTY(A),1→Str4
:1→θ:"Unarchive"+Str4+":"+Str4+sub(Str9,1,1)+"L1:Archive"+Str4→Str9
:1:prgmZCE:prgmZTMP:60→dim(L1:∟PRTY(A→L1(57
:1→W
:End
:End
:0→θ:"rowSwap(ZPNA→Str0
:L1(43:prgmZCE
:Text(47,4,"GO! "+Str9+"!
:For(F,19,42
:Line(10,F,40,F,0
:End:Str9→Str8
:‾32→I:21→J
:"rowSwap(ZPMA→Str0
:L1(43:prgmZCE:Str9→Str4:DelVar Str9
:Asm(prgmZSP2
:DelVar Str4
:Text(29,66,"∟ ",L1(46
:If L1(44)>0:Text(29,76,sub("BRNPSNPARSLPFNTFRZ",3L1(44)-2,3
:Text(34,56,"HP
:Line(65,26,90,26
:Line(65,24,90,24
:Pt-On(64,25
:Pt-On(91,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
:L1(1)/L1(2→G
:(GE2)/4→G
:Line(65,25,65+G,25
:For(F,4,14
:Line(4,F,90,F,0
:End
:StorePic Pic1
:While W=1
:Text(50,10,"FIGHT    ITEM    PKMN    RUN
:DelVar X
:5→W
:6→A:While W=5
: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
:rand(20
:End
:For(F,4,14
:Line(4,F,90,F,0
:End
:1→W
:End
:If Tmin=1:Then
:X+1→X
:L2(33)/4→C
:While C>255
:C-256→C
:End
:L1(33)32→D
:(D/C)+(30X→I
:For(F,4,14
:Line(4,F,90,F,0
:End
:If I<256
:randInt(0,255→N
:If N<I:Then:1→U
:Text(47,4,"COULDN'T ESCAPE!
: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
:End
:10→W:End
:If N>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
:If A=50:Then
:"0ZPP
:prgmZRS:2→H:prgmTEMP
:prgmZC1:"0ZEF
:prgmZRS:prgmTEMP:prgmZC1
:1→W
:End
:End
:End:"K=21
:End:"W=1
:
Generated by SourceCoder, © 2005-2011 Cemetech
This is an automatic post from SourceCoder 2. Report abuse to admin@cemetech.net . You can disable these posts by unchecking the "Post on Update" box in the file's permissions.

SourceCoder 2
http://sc.cemetech.net
The above is the latest and greatest of the battle system. Currently, the Run function is broken, and I've not yet started on Item usage or Fight.
After careful optimization and after all you can do to increase the speed and flow of the program, I’m pretty sure this will be considered Tibasic written at the level Exodus was written. Are you going to rewrite it later so it won’t have to be a difficult to manage group?
What if we all got together and did something ridiculous?
Well?
Dapianokid wrote:
After careful optimization and after all you can do to increase the speed and flow of the program, I’m pretty sure this will be considered Tibasic written at the level Exodus was written. Are you going to rewrite it later so it won’t have to be a difficult to manage group?
It's not difficult to manage groups; he has it designed to manage moving all of its components in and out of archive as needed. And trust me when I tell you that the optimization and planning he's done is at a truly unprecedented level for TI-BASIC programming.
Thanks for the vote of confidence, Kerm.

I'm definitely trying my best to keep things organized and as memory friendly as possible. This game is just massive and beyond complex, so it takes time to get things properly implemented :<
Well I just hate going into code and seeing archive and unarchive functions used like a bajillion times. I wish there were...
Hey hey hey... Maybe you could write something for doors to do it all hah. Shorten everything by a few hundred bytes.
What if we all got together and did something ridiculous?
Well?
Dapianokid wrote:
Well I just hate going into code and seeing archive and unarchive functions used like a bajillion times. I wish there were...
Hey hey hey... Maybe you could write something for doors to do it all hah. Shorten everything by a few hundred bytes.
Doors CS does offer hybrid functions, but TIFreak8x prefers to keep his program free of a Doors CS dependency. He could use my sprite routines too if it was a DCS program. Wink
I didn’t know doors had sprite routines.. I am still stuck with text sprites.
What if we all got together and did something ridiculous?
Well?
  
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
[Pokemon Purple] Battle GUI code bits
» Goto page Previous  1, 2, 3
» View previous topic :: View next topic  
Page 3 of 3
» All times are UTC - 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