And many more. It's not just one thing. It's systemic. And many of these problems are not easy to solve. Are you suggesting that humans will radically alter the way our faces look to accommodate an eating hole and a breathing hole? Radically alter our posture and pelvis for a straighter, more robust spine and less complications during birth? Completely change how our species gestates?
You asked "Why intervene directly when the means to accomplish a thing already exist within the system?" Because these things cause needless suffering and death. If you, personally, could fix pregnancy death and extreme pain forever with the wave of your hand, would you? I know I would. If you wouldn't, how would you deal with the guilt?
And the Lord God spake unto Moses, saying: The heavens, they are many, and they cannot be numbered unto man; but they are numbered unto me, for they are mine. And as one earth shall pass away, and the heavens thereof even so shall another come; and there is no end to my works, neither to my words. For behold, this is my work and my glory—to bring to pass the immortality and eternal life of man.
And I, the Lord God, spake unto Moses, saying: That Satan, whom thou hast commanded in the name of mine Only Begotten, is the same which was from the beginning, and he came before me, saying—Behold, here am I, send me, I will be thy son, and I will redeem all mankind, that one soul shall not be lost, and surely I will do it; wherefore give me thine honor. But, behold, my Beloved Son, which was my Beloved and Chosen from the beginning, said unto me—Father, thy will be done, and the glory be thine forever. Wherefore, because that Satan rebelled against me, and sought to destroy the agency of man, which I, the Lord God, had given him, and also, that I should give unto him mine own power; by the power of mine Only Begotten, I caused that he should be cast down; And he became Satan, yea, even the devil, the father of all lies, to deceive and to blind men, and to lead them captive at his will, even as many as would not hearken unto my voice.
Well, an imperfect designer could make an imperfect design...
It's commonly held by theists that God is perfect and that we were designed in His image. It doesn't take much of a logical leap to suggest that such a design ought to be at the very least beyond easily justifiable criticism.
Language: luarequire "RBY-Arrays.lua" infobox = forms.newform(360,360,"Pokegear Version 1") forms.button(infobox,"Update Values",core,250,250) domain = "System Bus" repoint = 0 foeCR = 0 foeMV = {} foeML = {} mapID = 0 inBattle = false foeHP = 0 function initPointers() game = memory.readbyte(0x013C) if game == 0x59 then repoint = 1 end foeHP = 0xCFE7 - repoint foeCR = 0xD007 - repoint foeMV = {0xCFED - repoint, 0xCFEE - repoint, 0xCFEF - repoint, 0xCFF0 - repoint} foeML = {"Dummy","Dummy","Dummy","Dummy"} mapID = 0xD35E - repoint end function isInBattle() result = false pointer = 0xD057 - repoint test = memory.read_u8(pointer) if test ~= 0 then result = true end return result end function isNotTrainer() result = true pointer = 0xD057 - repoint test = memory.read_u8(pointer) if test > 1 then result = false end return result end function updateCatchRate() numerator = memory.read_u8(foeCR) x = 20 y = 20 out = "Catch Rate: " .. numerator forms.label(infobox,out,x,y) end function updateStats() hpcur = memory.read_s16_le(foeHP) x = 20 y = 50 out = "Foe Current HP: " .. hpcur forms.label(infobox,out,x,y) end function updateMoveset() for i=1,4 do index = memory.readbyte(foeMV[i]) -- foeML[i] = index foeML[i] = moveList[index] end x = 50 base_y = 80 for i=1,4 do new_Y = base_y + (22 * (i - 1)) text = foeML[i] forms.label(infobox,text,x,new_Y) end end function core() inBattle = isInBattle() if (inBattle == true) then updateCatchRate() updateStats() updateMoveset() else thisMap = memory.read_u8(mapID) mapName = thisMap -- mapName = mapsByID[thisMap] gui.addmessage(mapName) end end memory.usememorydomain(domain) initPointers() while true do emu.frameadvance() end
Language: lua--require res/RBY-Arrays.lua domain = "System Bus" repoint = 0 foeCR = 0 foeMV = {} foeML = {} inBattle = false function initPointers() game = memory.readbyte(0x013C) if game == 0x59 then repoint = 1 end foeHP = 0xCFE7 - repoint foeCR = 0xD007 - repoint foeMV = {0xCFED - repoint, 0xCFEE - repoint, 0xCFEF - repoint, 0xCFF0 - repoint} foeML = {"Dummy","Dummy","Dummy","Dummy"} end function isInBattle() result = false pointer = 0xD057 - repoint test = memory.read_u8(pointer) if test ~= 0 then result = true end return result end function isNotTrainer() result = true pointer = 0xD057 - repoint test = memory.read_u8(pointer) if test > 1 then result = false end return result end function drawCatch(value) x = 20 y = 10 gui.drawText(x,y,value,"Green","Green") end function drawLife(value) x = 20 y = 25 gui.drawText(x,y,value,"Red","Red") end function drawMoveset() x = 50 base_y = 40 for i=1,4 do new_Y = base_y + (15 * (i - 1)) text = foeML[i] gui.drawText(x,new_Y,text,"Blue","Blue") end end function updateCatchRate() numerator = memory.read_u8(foeCR) percentage = math.floor((numerator / 256) * 100) drawCatch(percentage) end function updateStats() value = memory.read_s16_le(foeHP) drawLife(value) end function updateMoveset() for i=1,4 do index = memory.readbyte(foeMV[i]) foeML[i] = index -- foeML[i] = moveList[index] end drawMoveset() end function core() if (isInBattle()==true) then if (isNotTrainer()==true) then updateCatchRate() end updateStats() updateMoveset() else gui.clearGraphics() end end gui.DrawNew("native") memory.usememorydomain(domain) initPointers() while true do core() emu.frameadvance() end
Challenges
But that code doesn't check the number of games, just the number of controllers?
Language: lua-- PRNG BOT version 4 (Amaraticando) -- Special thanks to Amaraticando, for the countPlayers() function. -- -- No longer fails for single-controller games, AND works for up to 100 controllers! -- Well, it's only been tested up to four controllers BUT IT WORKS! And it should work for up to 100 controllers. -- TODO: Learn and implement forms. -- Global variable declarations -- checkTime = 0 -- Placeholder variable. I don't like passing expressions as arguments. keyNames = {} -- Key Names array. keysArray = {} -- Key State array. blacklist = {"Power", "Reset"} -- Blacklisted keys array. frequency = 10 -- How often should the bot be updating? Also influences how long the keys are held. mplay = false -- Is there a more than one controller? If not, there's special handling that needs to happen. function core(mode) cap = countPlayers() -- I like to have a manager functon that only handles calling other functions. checkTime = emu.framecount() % frequency -- Set the frame count checker to the frame count modulo the frequency. if (checkTime == 0) then -- For the technically-minded, it's actually pseudorandom, but let's not be overly pedantic. if mode == true then -- If we have multiple controllers connected, for i=1,cap do -- then for each connected controller sendRandomButtonPress(i) -- send a random button press. end else -- if there is only one connected controller sendRandomButtonPress() -- send a random button press. end elseif (checkTime < frequency/2) then if mode == true then -- Now, not all games accept single-frame inputs. for j=1,cap do joypad.set(keysArray[j],j) -- So, for half of the frames between new keypress generations, send the same presses end -- But do you really want to use a PRNG with a high-precision game? else joypad.set(keysArray) end end end function countPlayers() -- returns the highest argument joypad.get(arg) can have / or nil if arg == 1 returns nil or an empty table local next = next -- Written by Amaraticando local MAX = 100 for count = 1, MAX do local joyget = joypad.get(count) if (joyget == nil or next(joyget) == nil) then if count == 1 then return nil else return count - 1 end end count = count + 1 if count == MAX then error"joypad.countPlayers: something went wrong" end -- sanity check end end function getButtonNames(mode) -- Scraping joypad.get(x) for key names. if mode == true then -- If there are multiple controllers connected, for i=1, countPlayers() do -- then for each controller keyNames[i] = {} -- make a new array in the key names array, k = 1 for key in pairs(joypad.get(i)) do -- and for each button on the controller keyNames[i][k] = key -- add it to the key names array. k = k + 1 -- DYNAMICALLY NESTED ARRAYS! end end else k = 1 for key in pairs(joypad.get()) do -- If there's only one controller connected, keyNames[k] = key -- then for each button on the controller k = k + 1 -- and add it to the key names array. end end end function sendRandomButtonPress(player) if player ~= nil then -- So let's look at sending random keys to the controller. keysArray[player] = joypad.get(player) -- First, fetch the current keys array. i = math.random(table.getn(keyNames[player])) -- Generate a random number between 1 and the length of the Key Names Array. push = keyNames[player][i] -- Grab the key referenced by the generated random number. if checkBlacklist(push) == true then -- If the key is not blacklisted, keysArray[player][push] = "True" -- then set the key to be pressed. else -- If the key is blacklisted, sendRandomButtonPress(player) -- then just pick a new key. end joypad.set(keysArray[player],player) -- Finally, send the keys array to BizHawk for pressing. else keysArray = joypad.get() -- Since joypad.get(1) returns nil if the core can only have one controller, i = math.random(table.getn(keyNames)) -- special handling has to be done for such cases. push = keyNames[i] if checkBlacklist(push) == true then keysArray[push] = "True" else sendRandomButtonPress() end joypad.set(keysArray) end end function checkBlacklist(key) -- Long story short, certain keys (such as the power button) shouldn't be pressed. result = true for i, v in pairs(blacklist) do if key == blacklist[i] then -- Check to make sure the button is not on the blacklist. result = false -- If it's on the blacklist, DO NOT PRESS THE BUTTON. end end return result end function initializeKeyArray() -- Just taking the key names and putting them into our placeholder arrays. cap = countPlayers() if cap == nil then mplay = false -- This is also when we determine if the core only expects a single controller. keysArray = joypad.get() else mplay = true for i=1, cap do keysArray[i] = joypad.get(i) end end end ---------------------------------------- AND NOW, FOR THE ACTUAL FUNCTION CALLS initializeKeyArray() getButtonNames(mplay) while true do core(mplay) emu.frameadvance() end
E: So, the upshot is now I'm going to be requesting a new joypad function: joypad.countPlayers(). Should just return the number of controllers the core will accept inputs for at that time - example, if in N64 mode you have it set up for three controllers, joypad.countPlayers() should return 3.Language: lua-- PRNG BOT version 3 (Refraction) -- Just rewriting some variables and sendRandomButtonPress to allow for on-the-fly expansion up to five(!?) players in future updates. -- TODO: return-nil kludge, learn and implement forms. Prepare other functions for on-the-fly expansion. -- Global variable declarations -- checkTime = 0 -- Placeholder variable. I don't like passing expressions as arguments. keyNames = {[1] = {},[2] = {}} -- Key Names array. keysArray = {[1] = {},[2] = {}} -- Key State array. blacklist = {"Power", "Reset"} -- Blacklisted keys array. frequency = 10 -- How often should the bot be updating? Also influences how long the keys are held. mplay = false -- Is there a P2 controller? If not, we don't want to bother mucking around with P2 stuff. function core() -- I like to have a manager functon that only handles calling other functions. checkTime = emu.framecount() % frequency -- Set the frame count checker to the frame count modulo the frequency. if (checkTime == 0) then -- If we're on the right frame, then go ahead and generate a new random key. sendRandomButtonPress(1) -- For the technically-minded, it's actually pseudorandom, but let's not be overly pedantic. if mplay == true then -- If Player 2's controller exists, generate keypresses for it as well. sendRandomButtonPress(2) end elseif (checkTime < frequency/2) then -- Now, not all games accept single-frame inputs. joypad.set(keysArray[1],1) -- One of the games I tested with had this problem. if mplay == true then -- So, for half of the frames between new keypress generations, send the same presses. joypad.set(keysArray[2],2) -- This allows 'slower' games to keep up, though it also slows down high-precision games. end -- But do you really want to use a PRNG with a high-precision game? end end function getButtonNames() -- Scraping joypad.get(x) for key names. k = 1 j = 1 for key,v in pairs(joypad.get(1)) do -- For each pair in joypad.get(x) keyNames[1][k] = key -- keyNamesPX in position k is assigned key... uhh, key. k = k+1 -- and k is incremented. end if joypad.get(2) ~= nil then -- As long as there's a table for P2, do the same for P2. for key,v in pairs(joypad.get(2)) do keyNames[2][j] = key -- This can be rewritten to use one less for loop. j = j+1 -- However, I like it written this way since it's one less if-then than would be needed. mplay = true -- Since boolean mplay starts false, we set it true. end -- This allows me to tell other functions to skip the P2 stuff if there's no P2. end end function sendRandomButtonPress(player) -- So let's look at sending random keys to player 1's controller. keysArray[player] = joypad.get(player) -- First, fetch the current keys array. i = math.random(table.getn(keyNames[player])) -- Generate a random number between 1 and the length of the Player 1 Key Names Array. push = keyNames[player][i] -- Grab the key referenced by the generated random number. if checkBlacklist(push) == true then -- If the key is not blacklisted, keysArray[player][push] = "True" -- then set the key to be pressed. else sendRandomButtonPress(player) end joypad.set(keysArray[player],player) -- Finally, send the keys array to BizHawk for pressing. end function checkBlacklist(key) -- Long story short, certain keys (such as the power button) shouldn't be pressed. result = true for i, v in pairs(blacklist) do if key == blacklist[i] then -- Check to make sure the button is not on the blacklist. result = false -- If it's on the blacklist, DO NOT PRESS THE BUTTON. end end return result end function initializeKeyArray() -- Just taking the key names and putting them into our placeholder arrays. keysArray[1] = joypad.get(1) -- We don't actually need to do this now, as they're reinitialized every time keys are sent. if mplay == true then -- It's just best practice to initialize variables before using them. keysArray[2] = joypad.get(2) -- With that said, I do call the arrays before they get defined otherwise. end -- I can't remember if I actually tested without this function. end ---------------------------------------- AND NOW, FOR THE ACTUAL FUNCTION CALLS getButtonNames() initializeKeyArray() while true do core() emu.frameadvance() end
"P1 B1": "False"
"P1 B2": "False"
"P1 Down": "False"
"P1 Left": "False"
"P1 Right": "False"
"P1 Up": "False"
"P2 B1": "False"
"P2 B2": "False"
"P2 Down": "False"
"P2 Left": "False"
"P2 Right": "False"
"P2 Up": "False"
"Pause": "False"
"Reset": "False""B1": "False"
"B2": "False"
"Down": "False"
"Left": "False"
"Right": "False"
"Up": "False"