Argonaut, Packaging & Other Salutations

[Argonaut]

In my rush to tear off the packaging of what appears to be a well designed and amazing Stealth Client, I neglected RULE #1: always read the rules, bylaws and regulations!  In an effort to correct that grievous and careless oversight on my part, I offer the denizens of this site this humble offering and a hearty hello.

I started my adventuring in high school, on a mainframe, playing Adventure.  The site admin must have named it that because the program (thats what they used to be called) was the mainframe version of Legend of Zork.  I spending countless hours solving those puzzles and neglecting my time in the gym (sorry ladies.....and my football coach) I went off to college only to discover that I had a flair for languages, dead languages.  After graduating with a degree in Classical History I went on to..............but I digress.

In 1997 some sales associate at gamesomething suggested I buy Diablo instead of the UO box I held in my hand.  His explanation made sense at the time but three months later I returned and bought UO, never to regret it.

I logged on in time for the Napa Valley server to open up.  I became involved in PvP and was a member of the best PvP guild on the server (I know lots of people claim it but we really were.)

Sometime around 2000 I heard about EasyUO, and started to use it to automate some activities.  I wrote a script that would start in my house, recall to a leather vendor, buy leather, come back to the house, craft gloves, back to vendor to sell, buy leather, return home and drop off the gold.

When I am not with family or playing UO, I am restoring a 1965 Mustang Coupe.

Hopefully I will be able to learn some new ways to code here and write a few original scripts the community will find useful.

[gimlet]

Thanks for your introduction - restricted status lifted - feel free to enjoy all the benefits of the site!


WELCOME!

[Argonaut]

Thanks for your introduction - restricted status lifted - feel free to enjoy all the benefits of the site!


WELCOME!

Thanks Gimlet.  Have a nice day.

[TrailMyx]

I vividly remember the first computer game I ever played:

https://en.wikipedia.org/wiki/Hunt_the_Wumpus

That game patterned my life forever.  Even if the Wumpus ate me more than once.

http://www.sonoma.edu/users/l/luvisi/wumpus.bas

Code: Text

1. 5 rem *** HUNT THE WUMPUS ***
2. 10 dim p(5)
3. 15 print "INSTRUCTIONS (Y-N)";
4. 20 input i$
5. 25 if (i$ = "N") or (i$ = "n") then 35
6. 30 gosub 375
7. 35 goto 80
8. 80 rem *** SET UP CAVE (DODECAHEDRAL NODE LIST) ***
9. 85 dim s(20,3)
10. 90 for j = 1 to 20
11. 95 for k = 1 to 3
12. 100 read s(j,k)
13. 105 next k
14. 110 next j
15. 115 data 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6
16. 120 data 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11
17. 125 data 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16
18. 130 data 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19
19. 135 def fnA(X)=INT(20*RND(1))+1
20. 140 def fnB(X)=INT(3*RND(1))+1
21. 145 def fnC(X)=INT(4*RND(1))+1
22. 150 rem *** LOCATE L ARRAY ITEMS ***
23. 155 rem *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS ***
24. 160 dim l(6)
25. 165 dim m(6)
26. 170 for j = 1 to 6
27. 175 l(j) = fna(0)
28. 180 m(j) = l(j)
29. 185 next j
30. 190 rem *** CHECK FOR CROSSOVERS (IE l(1)=l(2), ETC) ***
31. 195 for j = 1 to 6
32. 200 for k = 1 to 6
33. 205 if j = k then 215
34. 210 if l(j) = l(k) then 170
35. 215 next k
36. 220 next j
37. 225 rem *** SET NO. OF ARROWS ***
38. 230 a = 5
39. 235 l = l(1)
40. 240 rem *** RUN THE GAME ***
41. 245 print "HUNT THE WUMPUS"
42. 250 rem *** HAZARD WARNING AND LOCATION ***
43. 255 gosub 585
44. 260 rem *** MOVE OR SHOOT ***
45. 265 gosub 670
46. 270 on o goto 280,300
47. 275 rem *** SHOOT ***
48. 280 gosub 715
49. 285 if f = 0 then 255
50. 290 goto 310
51. 295 rem *** MOVE ***
52. 300 gosub 975
53. 305 if f = 0 then 255
54. 310 if f > 0 then 335
55. 315 rem *** LOSE ***
56. 320 print "HA HA HA - YOU LOSE!"
57. 325 goto 340
58. 330 rem *** WIN ***
59. 335 print "HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!"
60. 340 for j = 1 to 6
61. 345 l(j) = m(j)
62. 350 next j
63. 355 print "SAME SETUP (Y-N)";
64. 360 input i$
65. 365 if (i$ <> "Y") and (i$ <> "y") then 170
66. 370 goto 230
67. 375 rem *** INSTRUCTIONS ***
68. 380 print "WELCOME TO 'HUNT THE WUMPUS'"
69. 385 print "  THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM"
70. 390 print "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"
71. 395 print "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"
72. 400 print "WHAT A DODECAHEDRON IS, ASK SOMEONE)"
73. 405 print
74. 410 print "     HAZARDS:"
75. 415 print " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM"
76. 420 print "     IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)"
77. 425 print " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"
78. 430 print "     GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER"
79. 435 print "     ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)"
80. 440 input "HIT RETURN TO CONTINUE";a$
81. 445 print "     WUMPUS:"
82. 450 print " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER"
83. 455 print " FEET AND IS TOO BIG FOR A BAT TO LIFT).  USUALLY"
84. 460 print " HE IS ASLEEP.  TWO THINGS WAKE HIM UP: YOU SHOOTING AN"
85. 465 print "ARROW OR YOU ENTERING HIS ROOM."
86. 470 print "     IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM"
87. 475 print " OR STAYS STILL (P=.25).  AFTER THAT, IF HE IS WHERE YOU"
88. 480 print " ARE, HE EATS YOU UP AND YOU LOSE!"
89. 485 print
90. 490 print "     YOU:"
91. 495 print " EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW"
92. 500 print "   MOVING:  YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)"
93. 505 print "   ARROWS:  YOU HAVE 5 ARROWS.  YOU LOSE WHEN YOU RUN OUT"
94. 510 print "   EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING"
95. 515 print "   THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO."
96. 520 print "   IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES"
97. 525 print "   AT RANDOM TO THE NEXT ROOM."
98. 530 print "     IF THE ARROW HITS THE WUMPUS, YOU WIN."
99. 535 print "     IF THE ARROW HITS YOU, YOU LOSE."
100. 540 input "HIT RETURN TO CONTINUE";a$
101. 545 print "    WARNINGS:"
102. 550 print "     WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD,"
103. 555 print "     THE COMPUTER SAYS:"
104. 560 print " WUMPUS:  'I SMELL A WUMPUS'"
105. 565 print " BAT   :  'BATS NEARBY'"
106. 570 print " PIT   :  'I FEEL A DRAFT'"
107. 575 print
108. 580 return
109. 585 rem *** PRINT LOCATION & HAZARD WARNINGS ***
110. 590 print
111. 595 for j = 2 to 6
112. 600 for k = 1 to 3
113. 605 if s(l(1),k) <> l(j) then 640
114. 610 on j-1 goto 615,625,625,635,635
115. 615 print "I SMELL A WUMPUS!"
116. 620 goto 640
117. 625 print "I FEEL A DRAFT"
118. 630 goto 640
119. 635 print "BATS NEARBY!"
120. 640 next k
121. 645 next j
122. 650 print "YOU ARE IN ROOM ";l(1)
123. 655 print "TUNNELS LEAD TO ";s(l,1);" ";s(l,2);" ";s(l,3)
124. 660 print
125. 665 return
126. 670 rem *** CHOOSE OPTION ***
127. 675 print "SHOOT OR MOVE (S-M)";
128. 680 input i$
129. 685 if (i$ <> "S") and (i$ <> "s") then 700
130. 690 o = 1
131. 695 return
132. 700 if (i$ <> "M") and (i$ <> "m") then 675
133. 705 o = 2
134. 710 return
135. 715 rem *** ARROW ROUTINE ***
136. 720 f = 0
137. 725 rem *** PATH OF ARROW ***
138. 735 print "NO. OF ROOMS (1-5)";
139. 740 input j9
140. 745 if j9 < 1 then 735
141. 750 if j9 > 5 then 735
142. 755 for k = 1 to j9
143. 760 print "ROOM #";
144. 765 input p(k)
145. 770 if k <= 2 then 790
146. 775 if p(k) <> p(k-2) then 790
147. 780 print "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM"
148. 785 goto 760
149. 790 next k
150. 795 rem *** SHOOT ARROW ***
151. 800 l = l(1)
152. 805 for k = 1 to j9
153. 810 for k1 = 1 to 3
154. 815 if s(l,k1) = p(k) then 895
155. 820 next k1
156. 825 rem *** NO TUNNEL FOR ARROW ***
157. 830 l = s(l,fnb(1))
158. 835 goto 900
159. 840 next k
160. 845 print "MISSED"
161. 850 l = l(1)
162. 855 rem *** MOVE WUMPUS ***
163. 860 gosub 935
164. 865 rem *** AMMO CHECK ***
165. 870 a = a-1
166. 875 if a > 0 then 885
167. 880 f = -1
168. 885 return
169. 890 rem *** SEE IF ARROW IS AT l(1) OR AT l(2)
170. 895 l = p(k)
171. 900 if l <> l(2) then 920
172. 905 print "AHA! YOU GOT THE WUMPUS!"
173. 910 f = 1
174. 915 return
175. 920 if l <> l(1) then 840
176. 925 print "OUCH! ARROW GOT YOU!"
177. 930 goto 880
178. 935 rem *** MOVE WUMPUS ROUTINE ***
179. 940 k = fnc(0)
180. 945 if k = 4 then 955
181. 950 l(2) = s(l(2),k)
182. 955 if l(2) <> l then 970
183. 960 print "TSK TSK TSK - WUMPUS GOT YOU!"
184. 965 f = -1
185. 970 return
186. 975 rem *** MOVE ROUTINE ***
187. 980 f = 0
188. 985 print "WHERE TO";
189. 990 input l
190. 995 if l < 1 then 985
191. 1000 if l > 20 then 985
192. 1005 for k = 1 to 3
193. 1010 rem *** CHECK IF LEGAL MOVE ***
194. 1015 if s(l(1),k) = l then 1045
195. 1020 next k
196. 1025 if l = l(1) then 1045
197. 1030 print "NOT POSSIBLE -";
198. 1035 goto 985
199. 1040 rem *** CHECK FOR HAZARDS ***
200. 1045 l(1) = l
201. 1050 rem *** WUMPUS ***
202. 1055 if l <> l(2) then 1090
203. 1060 print "... OOPS! BUMPED A WUMPUS!"
204. 1065 rem *** MOVE WUMPUS ***
205. 1070 gosub 940
206. 1075 if f = 0 then 1090
207. 1080 return
208. 1085 rem *** PIT ***
209. 1090 if l = l(3) then 1100
210. 1095 if l <> l(4) then 1120
211. 1100 print "YYYYIIIIEEEE . . . FELL IN PIT"
212. 1105 f = -1
213. 1110 return
214. 1115 rem *** BATS ***
215. 1120 if l = l(5) then 1130
216. 1125 if l <> l(6) then 1145
217. 1130 print "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"
218. 1135 l = fna(1)
219. 1140 goto 1045
220. 1145 return
221. 1150 end
222.  

[Argonaut]

I vividly remember the first computer game I ever played:

https://en.wikipedia.org/wiki/Hunt_the_Wumpus

That game patterned my life forever.  Even if the Wumpus ate me more than once.

http://www.sonoma.edu/users/l/luvisi/wumpus.bas

Oh how those lines bring back memories.  Thanks for sharing!

[Crisis]

Welcome to SUO!

[valen2.0]

Welcome!

[Wiper]

Welcome to SUO