Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: xra7en on February 08, 2019, 02:26:32 pm

Title: C++ Logic need to understand for QB64
Post by: xra7en on February 08, 2019, 02:26:32 pm
I run a WoW server (usually classic or WotLK). In the source and DB they have an amazing formula for determining various things a player has.  So for this example, I'll use "Race" - I think this has something to do with OR, or XOR logic

NOTE: these are not correct values, I do not have the source open at the time of this writing

0 All races
1 Human
2 elves
4 Orcs
8 Draenea
16 Trolls
32 blood elves

etc...

So to determine a selected race(s)
0 = all races of course
but lets say we want just the humans and draenea - then the value would be 10 (2 + 8)

My question, is how would your reverse that in a program?

How can we deduce that 36 = blood elves and orcs

Title: Re: C++ Logic need to understand for QB64
Post by: RhoSigma on February 08, 2019, 03:11:12 pm
Quote from: xra7en on February 08, 2019, 02:26:32 pm
My question, is how would your reverse that in a program?

How can we deduce that 36 = blood elves and orcs

Simple answer, you CAN'T  -  Would be the same as 6 + 7 = 13, if you only have 13 and even if you know also its a sum, you can't say for sure its made out of 6 and 7, it could also be 10 and 3, 8 and 5 or whatever. You need to know at least one of the original values to determine the other, doesn't matter if it's simple arithmetic or logic operators.

However, as all your single values are powers of two, you could check the respective bits if set or not,

eg: v& = 36 (bin=100100)

IF (v& AND 32) <> 0 THEN blood elves
IF (v& AND 4) <> 0 THEN orcs

guess that's what you want...
Title: Re: C++ Logic need to understand for QB64
Post by: Pete on February 08, 2019, 03:38:21 pm
How about two trolls and an orc? 16+ 16 +4

Set rules and use conditional statements. Maybe that's just old school.

Pete

- Two trolls and an orc walk into a bar...
Title: Re: C++ Logic need to understand for QB64
Post by: bplus on February 08, 2019, 04:00:25 pm
Quote from: xra7en on February 08, 2019, 02:26:32 pm
I run a WoW server (usually classic or WotLK). In the source and DB they have an amazing formula for determining various things a player has.  So for this example, I'll use "Race" - I think this has something to do with OR, or XOR logic

NOTE: these are not correct values, I do not have the source open at the time of this writing

0 All races
1 Human
2 elves
4 Orcs
8 Draenea
16 Trolls
32 blood elves

etc...

So to determine a selected race(s)
0 = all races of course
but lets say we want just the humans and draenea - then the value would be 10 (2 + 8)

My question, is how would your reverse that in a program?

How can we deduce that 36 = blood elves and orcs

Code: QB64: [Select]
  1. 'if you can put the data in a string with a predictable format, then you can do math on it
  2.  
  3. dat$ = "0 All races, 1 Human, 2 elves, 4 Orcs, 8 Draenea, 16 Trolls, 32 blood elves"
  4.  
  5. REDIM races$(0)
  6. Split dat$, ", ", races$()
  7. DIM vals(UBOUND(races))
  8. 'what is the total of all the races?
  9. FOR i = 0 TO UBOUND(races$)
  10.     vals(i) = VAL(leftOf$(races$(i), " "))
  11.     total = total + vals(i)
  13. PRINT "Total Races should be "; total
  14.  
  15. GOSUB selectRace
  16. a = vals(race)
  17. ar$ = rightOf$(races$(race), " ")
  18. getop:
  19. INPUT "Enter + , -, * , / ", op$
  20. IF INSTR("+-*/", op$) < 1 THEN PRINT "Nope not an operation, try again.": GOTO getop
  21. GOSUB selectRace
  22. b = vals(race)
  23. br$ = rightOf$(races$(race), " ")
  25.     CASE "+": PRINT ar$; " + "; br$; " = "; a + b
  26.     CASE "-": PRINT ar$; " - "; br$; " = "; a - b
  27.     CASE "*": PRINT ar$; " * "; br$; " = "; a * b
  28.     CASE "/": PRINT ar$; " / "; br$; " = "; a / b
  31.  
  32. selectRace:
  33. PRINT "Enter Number of Race to add, subtract, mult, divide:"
  34. FOR i = 1 TO UBOUND(races$)
  35.     PRINT i; " "; rightOf$(races$(i), " ")
  37. INPUT ""; race
  38. IF race < 1 OR race > UBOUND(races$) THEN PRINT "Try again": GOTO selectRace
  40.  
  41. 'notes: REDIM the array(0) to be loaded before calling Split '<<<<<<<<<<<<<<<<<<<<<<< IMPORTANT!!!!
  42. SUB Split (mystr AS STRING, delim AS STRING, arr() AS STRING)
  43.     ' bplus modifications of Galleon fix of Bulrush Split reply #13
  44.     ' http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=1612.0
  45.     ' this sub further developed and tested here: \test\Strings\Split test.bas
  46.     DIM copy AS STRING, p AS LONG, curpos AS LONG, arrpos AS LONG, lc AS LONG, dpos AS LONG
  47.     copy = mystr 'make copy since we are messing with mystr
  48.     'special case if delim is space, probably want to remove all excess space
  49.     IF delim = " " THEN
  50.         copy = RTRIM$(LTRIM$(copy))
  51.         p = INSTR(copy, "  ")
  52.         WHILE p > 0
  53.             copy = MID$(copy, 1, p - 1) + MID$(copy, p + 1)
  54.             p = INSTR(copy, "  ")
  55.         WEND
  56.     END IF
  57.     curpos = 1
  58.     arrpos = 0
  59.     lc = LEN(copy)
  60.     dpos = INSTR(curpos, copy, delim)
  61.     DO UNTIL dpos = 0
  62.         arr(arrpos) = MID$(copy, curpos, dpos - curpos)
  63.         arrpos = arrpos + 1
  64.         REDIM _PRESERVE arr(arrpos + 1) AS STRING
  65.         curpos = dpos + LEN(delim)
  66.         dpos = INSTR(curpos, copy, delim)
  67.     LOOP
  68.     arr(arrpos) = MID$(copy, curpos)
  69.     REDIM _PRESERVE arr(arrpos) AS STRING
  71.  
  72. FUNCTION leftOf$ (source$, of$)
  73.     posOf = INSTR(source$, of$)
  74.     IF posOf > 0 THEN leftOf$ = MID$(source$, 1, posOf - 1)
  76.  
  77. FUNCTION rightOf$ (source$, of$)
  78.     posOf = INSTR(source$, of$)
  79.     IF posOf > 0 THEN rightOf$ = MID$(source$, posOf + LEN(of$))
  81.  
  82.  
Title: Re: C++ Logic need to understand for QB64
Post by: SMcNeill on February 08, 2019, 04:21:12 pm
It seems as if you’re looking for:

Race OR Value (to set the value)
Race AND NOT Value (to clear the value)

Human = 1
Elf = 2
Orc = 4

IF Human THEN Race = Race OR 1
IF Elf THEN Race = Race OR 2
IF Orc THEN Race = Race OR 4

To remove the value, use AND NOT.

IF Remove_Human THEN Race = Race AND NOT 1
IF Remove_Elf THEN Race = Race AND NOT 2
IF Remove_Orc THEN Race = Race AND NOT 4


One more point:

Zero should be NO races, not ALL races. 

All races would be 63 (&B111111 for the 6 flags all being set).


AND is used for comparisons:

IF Race AND 1 THEN ‘is human, do human stuff
IF Race AND 2 THEN ‘is elf, do elf stuff
IF Race AND 4 THEN ‘is orc, do orc stuff
Title: Re: C++ Logic need to understand for QB64
Post by: SMcNeill on February 08, 2019, 04:56:59 pm
Give this little demo a quick run:

Code: QB64: [Select]
  2.     CLS
  3.     PRINT "Select Which Races can use the Sword Of Ultimate Doom:"
  4.     PRINT "0) None (monster only)"
  5.     PRINT "1) Human"
  6.     PRINT "2) Elf"
  7.     PRINT "3) Orc"
  8.     PRINT "4) Draenea"
  9.     PRINT "5) Troll"
  10.     PRINT "6) Blood Elf"
  11.     PRINT
  12.     PRINT "Currently usable by (Race = "; Race; ", which represents:"
  13.     'COMPARE ROUTINE
  14.     IF Race = 0 THEN PRINT "Monsters Only, No Player Races.";
  15.     IF Race AND 1 THEN PRINT "Human, ";
  16.     IF Race AND 2 THEN PRINT "Elf, ";
  17.     IF Race AND 4 THEN PRINT "Orc, ";
  18.     IF Race AND 8 THEN PRINT "Draenea, ";
  19.     IF Race AND 16 THEN PRINT "Troll, ";
  20.     IF Race AND 32 THEN PRINT "Blood Elf, ";
  21.     PRINT
  22.     PRINT
  23.     PRINT
  24.     PRINT "Enter Number from 0 to 6 to add a race, SHIFT + number from 1 to 6 to erase a race."
  25.     PRINT "Blank Entry to Quit"
  26.     a$ = INPUT$(1)
  27.     'ADD VALUE ROUTINE
  28.     SELECT CASE a$
  29.         CASE "0": Race = 0
  30.         CASE "1": Race = Race OR 1
  31.         CASE "2": Race = Race OR 2
  32.         CASE "3": Race = Race OR 4
  33.         CASE "4": Race = Race OR 8
  34.         CASE "5": Race = Race OR 16
  35.         CASE "6": Race = Race OR 32
  36.             'SUBTRACT VALUE ROUTINE
  37.         CASE ")": Race = 63
  38.         CASE "!": Race = Race AND NOT 1
  39.         CASE "@": Race = Race AND NOT 2
  40.         CASE "#": Race = Race AND NOT 4
  41.         CASE "$": Race = Race AND NOT 8
  42.         CASE "%": Race = Race AND NOT 16
  43.         CASE "^": Race = Race AND NOT 32
  44.         CASE "", " ": END
  45.     END SELECT
Title: Re: C++ Logic need to understand for QB64
Post by: Dimster on February 08, 2019, 04:58:34 pm
Humans and Draenea add up to 9. In fact, as Humans are the only odd number, any odd number you would be search for would have to include Humans. Seems a backward search might work best. Take the target number 36, find the nearest less than 36 that equals a race, then search half that value until you come up with a value matching that equals your target. ie Target Num = 36 , closest match less than 36 = 32. Hold as a match for one race. 1/2 of 32 = 16 but 16 + 32 not equal Target Num of 36, then 1/2 of 16, then 1/2 of 8 until a race is reached that meets the Target Num. I'm not sure how many races you have but I think your way of numbering them holds a lot of promise for a backward searching formula. If the Target Num was an odd number, they one of the races has to be human.
Title: Re: C++ Logic need to understand for QB64
Post by: bplus on February 08, 2019, 05:10:25 pm
Quote
0 All races
1 Human
2 elves
4 Orcs
8 Draenea
16 Trolls
32 blood elves
Is this table a population listing of races or just names for powers of 2?

What if:
2 Human
3 elves
5 Orcs
7 Draenea
11 Trolls
13 blood elves

Ha! Humans and Draenea still = 9!
Title: Re: C++ Logic need to understand for QB64
Post by: TempodiBasic on February 08, 2019, 05:43:26 pm
Hi
Just a curiosity..
why do you say
Quote
C++ Logic need to understand
?

it seems only binary logic... that you find every time you work with binary numbers showed as power of 2 in Basic, in QBasic, in QB64, in TurboBasic, in VisualBasic, in FreeBasic, in TurboPascal and bla bla bla bla in all languages that are built with binary number management and Logic operator....(AND OR XOR NOT...)
see here http://qb64.org/wiki/Keyword_Reference_-_By_usage#Logical_Bitwise_Operations: (http://qb64.org/wiki/Keyword_Reference_-_By_usage#Logical_Bitwise_Operations:)
 following math of tables of true/false there are some other operators... see here for more
info https://en.wikipedia.org/wiki/Truth_table (https://en.wikipedia.org/wiki/Truth_table)
Title: Re: C++ Logic need to understand for QB64
Post by: SMcNeill on February 08, 2019, 06:36:03 pm
Quote from: bplus on February 08, 2019, 05:10:25 pm
Quote
0 All races
1 Human
2 elves
4 Orcs
8 Draenea
16 Trolls
32 blood elves
Is this table a population listing of races or just names for powers of 2?

What if:
2 Human
3 elves
5 Orcs
7 Draenea
11 Trolls
13 blood elves

Ha! Humans and Draenea still = 9!

It’s a Binary Listing of Races available in World of Warcraft.  Take a look at my simple demo here: https://www.qb64.org/forum/index.php?topic=1053.msg102389#msg102389
Title: Re: C++ Logic need to understand for QB64
Post by: bplus on February 08, 2019, 06:53:19 pm
Quote
It’s a Binary Listing of Races available in World of Warcraft.  Take a look at my simple demo here: https://www.qb64.org/forum/index.php?topic=1053.msg102389#msg102389

I did look the at the demo which gave rise to my question.

Just naming powers of 2 then :P

Code: QB64: [Select]
  1. _TITLE "Race naming" 'B+ 2019-02-08
  2.  
  3. DIM tnames$(7)
  4. tname$(0) = "Human"
  5. tname$(1) = "Elves"
  6. tname$(2) = "Orcs"
  7. tname$(3) = "Draenea"
  8. tname$(4) = "Trolls"
  9. tname$(5) = "Blood Elves"
  10.  
  12.     INPUT "Enter a number and I will say what races it includes "; raceNum
  13.     IF raceNum <= 63 AND raceNum >= 0 THEN
  14.         FOR power = 0 TO 7
  15.             IF raceNum AND 2 ^ power THEN PRINT tname$(power); " ";
  16.         NEXT
  17.         PRINT
  18.     END IF
  19. LOOP UNTIL raceNum < 0 OR raceNum > 63
  20.  
  21.  
Title: Re: C++ Logic need to understand for QB64
Post by: Cobalt on February 08, 2019, 09:58:14 pm
I see I need to push my _SETBIT, _READBIT, _RESETBIT, _TOGGLEBIT, and _ROTATEBIT routines  to the repo.
Title: Re: C++ Logic need to understand for QB64
Post by: STxAxTIC on February 09, 2019, 01:31:08 am
Can we get a few more constraints on the problem? I can imagine that it makes no sense to select the same race twice for instance, but then again, I can imagine you *can* for certain questions.

Some headway you can make without thinking whatsoever: if the total is odd, it definitely involves humans, because there is only one odd number in the list. EDIT: I see dimster noticed this above. Nice.

Also, if I add all numbers 1+2+4+...+32, does that imply we'd never deal with a total higher than that?

The guys are above are attempting to answer *some* question, but for reputation purposes, my two cents will only drop when we know a little more of what's being asked. Seems like something that can be understood purely by theory instead of hobby engineering.



Text Only | Text with Attachments