Or A \ 4 to avoid the usage of Int() and a bit more speed, since you're asking for the processor to do extra work to give you a floating point result, then asking it to do even more work to take it away.
Yup, I had to spread my crap some time.
| Mirage Source http://www.miragesource.net/forums/ |
|
| My Fomula http://www.miragesource.net/forums/viewtopic.php?f=201&t=1535 |
Page 1 of 2 |
| Author: | Matt2 [ Tue Mar 20, 2007 12:17 am ] |
| Post subject: | My Fomula |
Okay.. I have a formula... Serebii.net wrote: Catch = PokeballEffect (((( 4 * Max HP - 2 * HP ) * Catch Rate ) / Max HP ) + Status + 1 ) / 256
Okay, that's the formula. I have all of the constants. That's not the problem. The problem is determining wether the trainer actually caught the pokemon or not. "What's the problem?" Many of you would say. Well, here it is. The formula, based on the constants given, will produce a number 0-1. If the formula produces a number greater than 1, the trainer will catch the pokemon without fail. The problem comes in when it doesn't calculate 1. According to the page, http://www.serebii.net/games/capture.shtml, just because you got a number lower then one, doesn't mean you didn't catch the pokemon. The number is to be looked at as a percentage, in decimal form. Let's say it produces the number .83. That's 83 percent. You still don't understand the problem? How will I get VB to recognize the percentage and make heads or tail out of it to determine if the player can actually catch the pokemon? Even if the number is 1%, you can still catch the pokemon. But, using VB, I don't know how to go about this problem... The best I got is... Code: Percent = 100 * Rnd + 1 '1 out of 100 chance If Perfect = 1 Then Call GotIt And that's only a 1:100 ratio, which is viewed as 1%. If I try Code: Percent = 100 * Rnd + 100
That's a 100:100 ratio. 1:1, simplified. 100%. I can't do it any other way. >.< Someone please help me with this problem. >.< |
|
| Author: | Rian [ Tue Mar 20, 2007 12:24 am ] |
| Post subject: | |
I'm at work. I didn't really sink in exactly what you wanted. You want to narrow it down to 50% is what I'm getting out of it... That be the case, I can help when I get home |
|
| Author: | Lea [ Tue Mar 20, 2007 1:14 am ] |
| Post subject: | |
If the number is less than one, multiply it by 100. Then generate a random number between 1 and 100. If the random number is less than the percentage, it's a catch. |
|
| Author: | one [ Tue Mar 20, 2007 6:42 am ] |
| Post subject: | |
its like this E = (int((((B*4)-(A*2))*C)/B)+D+1) A = Current HP, If [A > 255], A=int(int(A/2)/2) B = Total HP, If [B > 255], B=int(int(B/2)/2) C = Catch Rate of the Pokemon D = Status: If asleep, D=10, frozen, D=10, paralyzed, D=5, poisoned, D=5, burned, D=5, else D=0 now make a random number from 1 to 255 Code: Randomize
F = Int((255 * Rnd) + 1) If E is bigger than F the Pokemon is Captured as far as i know thats the official formula in Pokemon Gold/Silver |
|
| Author: | William [ Tue Mar 20, 2007 7:30 am ] |
| Post subject: | |
Code: A=int(int(A/2)/2) What did you have in math? Use this: Code: A=int(A/4)
|
|
| Author: | Spodi [ Tue Mar 20, 2007 7:42 am ] |
| Post subject: | |
Or A \ 4 to avoid the usage of Int() and a bit more speed, since you're asking for the processor to do extra work to give you a floating point result, then asking it to do even more work to take it away.
Yup, I had to spread my crap some time.
|
|
| Author: | Dark Echo [ Tue Mar 20, 2007 1:58 pm ] |
| Post subject: | |
If you want even more speed.. Do A= A * .25 Hahaha... I heard Multiplying is faster than dividing.. Although mate im not really sure.. So yeah.. I tried..
|
|
| Author: | Spodi [ Tue Mar 20, 2007 3:49 pm ] |
| Post subject: | |
Except for multiplication still returns a floating-point value, but A is a non-floating point variable, so the result would require a conversion still.
Results: Code: %Faster -71.4| -64.3| -73.3| -64.3| -50| -66.7| -64.3| -66.7| -61.5| -66.7 Test1 4| 5| 4| 5| 6| 5| 5| 5| 5| 5 Test2 14| 14| 15| 14| 12| 15| 14| 15| 13| 15 Tests: Code: Public Sub TestOne()
Dim a As Byte a = 99 a = a \ 4 End Sub Public Sub TestTwo() Dim a As Byte a = 99 a = a * 0.25 End Sub Even if the conversion wasn't happening and a whole number was used like 100, it still would be about half the speed... not sure why in that case. |
|
| Author: | Matt2 [ Tue Mar 20, 2007 8:57 pm ] |
| Post subject: | |
@Dave: Perfect idea. I'm going with it. @one: GSC has ALOT of stuff that isn't used anymore, like Shiney pokemon gaining more.. EVs was it? Yeah, alot of GSC stuff isn't used in the later games. That capture formula is way outdated. The one I gave was from RuSa. xD |
|
| Author: | Gilgamesch [ Tue Mar 20, 2007 9:28 pm ] |
| Post subject: | |
@spodi or someone who can answere that question i never get your tests xD, so is multiplication faster? and, what do the numbers in the row for lets say test number 1 mean? (4,5,4,5....) the ms it took to do this? thanks 
|
|
| Author: | Spodi [ Tue Mar 20, 2007 11:15 pm ] |
| Post subject: | |
The numbers is time it took in milliseconds, yes, and the %Faster is how much percent faster Test2 is then Test1 (in this case, its slower, thus negative). http://www.vbgore.com/index.php?title=T ... code_speed I wrote that a while back. It does an amazing job on testing the speed of two chunks of code and comparing them. |
|
| Author: | Dark Echo [ Wed Mar 21, 2007 1:55 am ] |
| Post subject: | |
OH MY GOD!!!!! Spodi mate.. I have only three words for you.. Mate you are freakin awesome!!! Nifty little program by the way.. I like it.. |
|
| Author: | Matt [ Wed Mar 21, 2007 3:45 am ] |
| Post subject: | |
Dark Echo wrote: OH MY GOD!!!!! Spodi mate.. I have only three words for you.. Mate you are freakin awesome!!! Nifty little program by the way.. I like it..
That's 5 words. =P |
|
| Author: | Spodi [ Wed Mar 21, 2007 4:09 am ] |
| Post subject: | |
Oh gee, make me blush. 
|
|
| Author: | Lea [ Wed Mar 21, 2007 4:27 am ] |
| Post subject: | |
Floating Point math is ALWAYS slower than whole number math. |
|
| Page 1 of 2 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|