Ogroids Z €Z ë\ ÿWêAssault of the Ogroids by Gary Chalk from Sinclair User, May'87 êOgroid's Assault Îp()=º(¥*100.5‡I) ^ù:ñcs=95_:ñhs=95_:ñgp=0:ñbs=0:ñls=0:ñt=30:ñp$="":í740ä (8õ'"Choose 1 for Gold, 2 for Booze"'"or 3 for Lodestone" 2Cí220Ü:ñbs=3*(a$="2"):ñgp=20*(a$="1"):ñls=(a$="3") <úa$="2"Ëñp$="booze" Fúa$="3"Ëñp$="Lodestone" Pðû:õ"Choose:"''"M)ove square"'"R)andom move"'"F)ight foe"'"A)dd gold"'"E)mpty pouch"'"P)ick up"'"U)se pouch"'"W)eaponry"'"N)umber"''"Combat ";cs;"; Hit ";hs;" "'"Gold Pieces ";gp;"; Booze ";bs;" "'"Time ";t;((" Pouch="+p$)ÆÃgp):í490ê Zúa$="m"Ëì240ð dúa$="r"Ëì260 núa$="f"Ëì3106 xúa$="a"Ëì530 ‚úa$="u"Ëì570: Œcúa$="e"Ëñp$="":ñls=0:ñbs=0:ñgp=0:õ"Your pouch is now empty":í520:ì80P –(úa$="n"Ëõ''"Number is ";¨p():ì5600  úa$="w"Ëì700¼ ªúa$="p"Ëì670ž ´Nút<1Åhs<1Åcs<1Ëõ"You have failed... miserable "'"wretch.":â ¾úcs>95_Ëñcs=95_ Èúhs>95_Ëñhs=95_ Ò ì80P Ü%í490ê:úa$<"1"Åa$>"3"Ëì220Ü æþ ð'û:î"Hours lost ";h;" and attrition ";a ú$ñt=t-h:ñcs=cs-a:ñhs=hs-a:ì180´ .û:õ"Your new move is ";1+º(¥*7.5ƒp) ?úlsËõ"You have the lodestone. You can add 1 or 2 if you wish." í520:ì240ð ":õ"Glug glug...":ñcs=cs+5:ñbs=bs-1:úÃbsËñp$="" ,í520:ì180´ 6+û:î"The foe's combat ";fcs;" and hit ";fhs @Jõ"Does the foe have first hit(y/n)?":í490ê:úa$É"y"Æa$É"n"Ëì320@ Jñcp=¨p():ñm$=a$ Tzúw$>"1"Ëõ"Are you in Plains/mountains,"'"Forest/marsh or Neither (p f or n)?":í490ê:úa$É"p"Æa$É"f"Æa$É"n"Ëì340T ^Kñcsm=20-10 *(w$="1")-15*((w$="2"Æa$É"p")Å(w$="3"Æa$É"f")) hñhsm=10 -(w$>"1") r)úm$="y"Ëí470Ö:í430®:ì390† |í430®:í470Ö †<õ"Foe's combat ";fcs;" and hit ";fhs'"Yours ";cs;" and ";hs @õ"You can fight or run (f or r).":í490ê:úa$="r"Ëì260 šúa$="f"Ëñcp=¨p():ì370r ¤ ì400 ®@úcpÇcs+csmËñfcs=fcs-(hs+hsm):õ"You hit the dastard!":ì450 ¸õ"You missed..." Â8úfcs<1Ëõ"You have slain the evildoer!":ì5600 Ìþ ÖpúcpÇfcsËñcs=cs-fhs:ñhs=hs-fhs:õ"You reel under a blow!":úcs<1Åhs<1Ëõ"It proves fatal...":ì180´ à"õ"You survive the onslaught...":þ êña$=¦:úa$=""Ëì490ê ôúa$=¦Ëì500ô þþ +õ'"Press any key to continue":í490ê:þ +û:úp$É""Ëõ"Your pouch is full!":ì5600 î"How many? ";ng &Bñgp=gp+ng:úgp>20Ëõ"You only have room for 20!":ñgp=20 0í520:ì180´ :û:õ"Your pouch contains ";p$ DúgpËì630v NúbsËì290" X*úlsËõ"Can't do that":í520:ì80P búp$=""Ëõ"nothing":ì5600 lgî"Using ";(p$);" changes your combat from ";(cs);" to ";cs;", and hit from ";(hs);" to ";hs:ì5600 võgp;" gold pieces" €î"Spend how many? ";gn Š'úgp-gn<0Ëõ"Too poor!":ì5600 ”ñgp=gp-gn:ì5600 ž8û:úp$É""ÅgpÅbsÅlsËõ"Your pouch isn't empty!":ì5600 ¨î"Get what? ";g$ ²(ñp$=g$:õ"Got it.":í520:ì180´ ¼5û:õ"Press 1 to lose your weapon, or n for a new one" Æ%í490ê:úa$="1"Ëñw$="":ì5600 Ðúa$="n"Ëí740ä:ì5600 Ú ì710Æ ä4õ'"Choose 1 for Sword, 2 for Spear or 3 for Dagger" îí220Ü:ñw$=a$:þ Î