From 83a8624eade3d2b481d4e780357f12a02206a6d7 Mon Sep 17 00:00:00 2001 From: Aaron Taylor Date: Tue, 31 Mar 2020 01:36:25 -0700 Subject: [PATCH 1/1] Updated wumpus to use `fastrand` instead of `random`. --- examples/hunt-the-wumpus/wump_init.pvvs | 6 +++--- examples/hunt-the-wumpus/wump_ui.pvvs | 8 ++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/examples/hunt-the-wumpus/wump_init.pvvs b/examples/hunt-the-wumpus/wump_init.pvvs index 9d7543d..411c3f1 100644 --- a/examples/hunt-the-wumpus/wump_init.pvvs +++ b/examples/hunt-the-wumpus/wump_init.pvvs @@ -233,7 +233,7 @@ NSNTSSTSTTSSSSSSSSTN | JMP > 10010110 00000001 (main_loop) @ Build one random tunnel connection per pass through this loop. NSSVTSSTSTTSSSSSSSSTN | MARK: 10010110 00000001 (main_loop) @ Use 'random_number mod number_of_array_entries' to select a starting room. -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (BUFFER) TTT | LOAD TSTT | MODULO @@ -246,7 +246,7 @@ TTT | LOAD @ TOS> start_room_num, start_array_index @ Now we randomly select a room for the endpoint. NSSVTSSTSTTSSSSSSTSSN | MARK: 10010110 00000100 (select_random_dst_room) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (BUFFER) TTT | LOAD TSTT | MODULO @@ -507,7 +507,7 @@ NTN | RTS @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #include NSSVTSSSTSTSN | MARK: 10001010 (get_random_room) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTSSSSSSSSSSSSN | PUSH 0x1000 (GAME_DATA_BASE+0 = num_rooms address) TTT | LOAD TSTT | MODULO diff --git a/examples/hunt-the-wumpus/wump_ui.pvvs b/examples/hunt-the-wumpus/wump_ui.pvvs index 2b9c268..f5f640e 100644 --- a/examples/hunt-the-wumpus/wump_ui.pvvs +++ b/examples/hunt-the-wumpus/wump_ui.pvvs @@ -144,7 +144,7 @@ SNN | DROP A"*Oof!* (you hit the wall)\n" SSSSN | PUSH 0 (number of string substitutions) NSTTSSSN | JSR > 1000 (printf) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTTSN | PUSH 6 (chance) TSTT | MODULO NTSTSTSSSTTSSSSSSTSN | BRZ > 10100011 00000010 (woke the wumpus) @@ -153,7 +153,7 @@ NSSVTSTSSSTTSSSSSSTSN | MARK: 10100011 00000010 (woke the wumpus) A"Your colorful comments awaken the wumpus!\n" SSSSN | PUSH 0 (number of string substitutions) NSTTSSSN | JSR > 1000 (printf) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTSSSSSSSSSSTTN | PUSH 0x1003 (ptr to number of tunnels per room) TSTT | MODULO SSSTSSSSSSSSSTTTN | PUSH 0x1007 (ptr to wumpus location) @@ -194,7 +194,7 @@ SSSTSSSSSSSSSTTSN | PUSH 0x1006 (ptr to player location) TTT | LOAD NSTTSSSTTSTN | JSR > 10001101 (room_has_pits) NTSTSTSSSTTSSSSSTSTN | BRZ > 10100011 00000101 (no pits in new room) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTTSN | PUSH 6 (chance) TSTT | MODULO NTSTSTSSSTTSSSSSTTSN | BRZ > 10100011 00000110 (survived the pits) @@ -215,7 +215,7 @@ NTSTSTSSSTTSSSSSTTSN | BRZ > 10100011 00000110 (no bats in new room) A"*flap* *flap* *flap* (humongous bats pick you up and move you!)\n" SSSSN | PUSH 0 (number of string substitutions) NSTTSSSN | JSR > 1000 (printf) -NSTTSSSSN | JSR > 10000 (random) +NSTTSSTTN | JSR > 10011 (fastrand) SSSTSSSSSSSSSSTTN | PUSH 0x1003 (ptr to number of tunnels per room) TSTT | MODULO SSSTSSSSSSSSSTTSN | PUSH 0x1006 (ptr to player location) -- 2.20.1