Post by Gordon on Aug 15, 2018 18:42:23 GMT -5
'CAMEL - game for for RB
global #fwin
call setCSS
'----------------[introScreen]----------------
pic$ = "camel2.jpg"
call fwnd pic$ ,260,400
#fwin "\ WELCOME TO CAMEL. THE OBJECT IS TO TRAVEL"
#fwin "\ 200 MILES ACROSS THE GREAT GOBI DESERT."
#fwin "\ A TRIBE OF KNOCK-KNEED PYGMEES WILL BE CHASING YOU."
#fwin "\ YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN."
#fwin "\ YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS."
#fwin "\ YOU MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASIS."
#fwin "\ YOU GET A HALF A QUART IF FOUND BY HELP."
#fwin "\ IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE."
div navigation
imagebutton #b0, "/camel/cambutt0.jpg",[start]
end div
render #fwin
wait
'-------------------------[startScreen]---------------------
[start]
Z=4:S=6:C=0:C1=0:Q=0:F=0:P=0
pic$ = "camel0.jpg"
call fwnd pic$ ,340,400
gosub [navbutt]
#fwin "\GOOD LUCK AND GOOD CAMELING ! !"
#fwin place(300,480)
#fwin "\\ YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS."
#fwin "\\ YOU HAVE TRAVELLED "; C; " MILES ALTOGETHER."
render #fwin
wait
[command]
Y=val(right$(EventKey$,1))
SELECT CASE Y
CASE 1
GOTO [Drink]
CASE 2
GOTO [moderateSpeed]
CASE 3
GOTO [FullSpeed]
CASE 4
GOTO [Sleep]
CASE 5
GOTO [StatusCheck]
CASE 6
GOTO [help]
END SELECT
wait
[Drink]
'pic$="water2.jpg"
pic$="water1.gif"
call fwnd pic$,340,520
gosub [navbutt]
S=S-1:IF S<0 THEN GOTO [died]
#fwin "\ BETTER WATCH FOR AN OASIS!!":Z=4
render #fwin
wait
[moderateSpeed]
F=F+1
IF F=8 THEN GOTO [Figs]
bbers = 2 :GOTO [berbers]
[berbersOK0]
pic$ = "camel7.jpg"
call fwnd pic$ ,340,440
gosub [navbutt]
#fwin "\ YOUR CAMEL LIKES THIS PACE. "
X1=INT(10*RND(0))
C=C+X1
GOTO [CheckFinish]
wait
[FullSpeed]
F=F+3
IF F>7 THEN GOTO [Figs]
bbers = 3 :GOTO [berbers]
[berbersOK1]
pic$ = "camel72.gif"
call fwnd pic$ ,340,480
gosub [navbutt]
X1=2*INT(10*RND(0))
C=C+X1
#fwin "\YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."
GOTO [CheckFinish]
wait
[Sleep]
pic$ = "sleep.jpg"
call fwnd pic$ ,340,480
gosub [navbutt]
#fwin "\ YOUR CAMEL THANKS YOU!!" :F=0
GOTO [health]
wait
[StatusCheck]
call fwnd pic$,300,460
gosub [navbutt]
#fwin "\ YOUR CAMEL HAS ";7-F;" GOOD DAYS LEFT."
#fwin "\ YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN."
#fwin "\ YOU CAN GO ";Z; " COMMANDS WITHOUT DRINKING."
render #fwin
wait
[help]
T=INT(10*RND(0)+1)
IF T>1 THEN
GOTO [died]
ELSE
S=3:Z=4
call fwnd pic$,340,520
gosub [navbutt]
#fwin "\ HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS. "
render #fwin
GOTO [CheckFinish]
END IF
wait
'----------------------------------------------------------------
[CheckFinish]
IF C>200 THEN GOTO [winner]
[health]
Z=Z-1
IF Z=1 THEN
#fwin "\\ ----":#fwin "\ *** WARNING *** ":#fwin "\ ----"
#fwin "\\ GET A DRINK ! !"
'gosub [navbutt]
render #fwin
end if
IF Z<0 THEN GOTO [NoWater]
P=P+1 :X2=INT(10*RND(0)+2.5)
IF Q>0 THEN GOTO [SandStorm]
IF P<4 THEN GOTO [Pygmee] '4 player turn no pygmee chasing ….
C1=C1+X2
IF C1<C THEN
GOTO [travel]
ELSE
pic$ = "soup.jpg"
if int(rnd(0*10))>4 then pic$ = "soup2.jpg"
call fwnd pic$ ,300,480
#fwin "\ THE PYGMEES HAVE CAPTURED YOU. CAMEL AND PEOPLE SOUP IS"
#fwin "\ THEIR FAVORITE DISH ! ! ! ! !"
GOSUB [NewGame]
render #fwin
END IF
wait
[travel]
call fwnd pic$,340,450
#fwin "\ THE PYGMEES ARE ";C-C1; " MILES BEHIND YOU."
[Pygmee]
#fwin "\ YOU HAVE TRAVELLED "; C; " MILES ALTOGETHER."
gosub [navbutt]
render #fwin
wait
'--------------------------------------------------------------------------------
[berbers]
A=INT(100*RND(0)) ':A =4 '<<<<
IF A>5 THEN GOTO [oase]
pic$ = "berber.gif"
call fwnd pic$ ,340,450
#fwin "\ WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU."
#fwin "\ LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR RANSOM-"
#fwin "\ DEMANDS..........BUT.......WATCH FOR THE PYGMEES ! ! !"
#fwin "\ YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"
#fwin "\\ -ATTEMPT AN ESCAPE"
#fwin "\ -WAIT FOR PAYMENT"
div navigation
imagebutton #ransom7, "/camel/escape.jpg",[ransom]
imagebutton #ransom8, "/camel/payment.jpg",[ransom]
end div
render #fwin
wait
[ransom]
rsm$ = EventKey$
X = val(right$(EventKey$,1))
IF X=8 THEN
GOTO [payment]
ELSE
X1=INT(10*RND(0))
IF X1<5 THEN
GOTO [wounded]
END IF
call fwnd pic$ ,340,480
#fwin "\ CONGRATULATIONS, YOU SUCCESSFULLY ESCAPED ! ! ! !"
Q=0
GOTO [CheckFinish]
END IF
wait
[wounded]
call fwnd pic$ ,340,480
#fwin "\ YOU WERE MORTALLY WOUNDED BY A PYG STABBER WHILE ESCAPING."
div navigation
imagebutton #b15, "/camel/huh.jpg",[died]
end div
render #fwin
wait
[payment]
X1=INT(100*RND(0))
IF X1>24 THEN
goto [collRansom]
ELSE
goto [RansomPaid]
END IF
[collRansom]
call fwnd pic$ ,340,450
#fwin "\ THE LOCAL SULTAN IS COLLECTING.......JUST WAIT........."
div navigation
imagebutton #bE, "/camel/escape.jpg",[ransom]
imagebutton #bP, "/camel/payment.jpg",[payment]
end div
render #fwin
wait
[waiting]
GOTO [CheckFinish]
[RansomPaid]
IF X1 <= 24 THEN
Q=0
call fwnd pic$ ,340,450
#fwin "\ YOUR RANSOM HAS BEEN PAID AND YOU ARE FREE TO GO."
div navigation
imagebutton #b15, "/camel/huh1.jpg",[free]
end div
render #fwin
wait
END IF
[free]
GOTO [CheckFinish]
wait
[oase]
A=INT(10*RND(0)) ':A = 8 '<<<<
IF A>2 THEN
GOTO [SandStorm]
ELSE
pic$="oasis01.jpg"
call fwnd pic$ ,340,480
#fwin "\ YOU HAVE ARRIVED AT AN OASIS-----------"
#fwin "\ YOUR CAMEL IS FILLING YOUR CANTEEN AND EATING FIGS."
#fwin "\ FILLING YOUR CANTEEN AND EATING FIGS."
Z=4
S=6
div navigation
imagebutton #b15, "/camel/huh1.jpg",[wait2]
end div
render #fwin
wait
END IF
[wait2]
GOTO [RET]
wait
[SandStorm]
X1=INT(100*RND(0)) ':X1=8 '<<<<
IF X1>5 THEN
GOTO [HumpHurt]
ELSE
pic$ = "sandstorm.jpg"
call fwnd pic$ ,340,480
#fwin "\ YOU HAVE BEEN CAUGHT IN A SANDSTORM......GOOD LUCK!!"
X5=INT(10*RND(0))
X6=INT(10*RND(0))
IF X6<5 THEN
GOSUB [NewPosition]
END IF
C=C+X5
GOSUB [NewPos1]
div navigation
imagebutton #b15, "/camel/huh1.jpg",[wait4]
end div
render #fwin
wait
END IF
[wait4]
GOTO [RET]
wait
[NewPosition]
C=C-X5
RETURN
[NewPos1]
#fwin "\ YOUR NEW POSITION IS "; C;" MILES SO FAR!"
RETURN
[HumpHurt]
X1=INT(100*RND(0)) ':X1 = 4 '<<<<
IF X1>5 THEN goto [RET]
C1=C1+1
pic$ = "humpy.gif"
call fwnd pic$ ,340,480
#fwin "\YOUR CAMEL HURT HIS HUMP."
#fwin "\LUCKILY THE PYGMEES WERE FOOTWEARY !!!"
div navigation
imagebutton #b15, "/camel/huh1.jpg",[wait3]
end div
render #fwin
wait
[wait3]
goto [RET]
wait
[NoWater]
#fwin "\ but …. YOU RAN OUT OF WATER.........SORRY CHUM!!!"
div navigation
imagebutton #b15, "/camel/huh.jpg",[died]
end div
render #fwin
wait
[died]
pic$="died1.jpg"
call fwnd pic$ ,340,480
#fwin "\YOU DIED IN THE DESERT."
#fwin place(200,480)
U=INT(10*RND(0))
IF U>1 THEN GOTO [lost1]
#fwin "\\\ THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL ! ! !"
GOSUB [NewGame]
render #fwin
wait
[lost1]
IF U>3 THEN GOTO [lost2]
#fwin "\\ YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS ! ! !"
GOSUB [NewGame]
render #fwin
wait
[lost2]
IF U>5 THEN GOTO [lost3]
#fwin "\\ THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE ! ! !"
render #fwin
GOSUB [NewGame]
render #fwin
wait
[lost3]
IF U>7 THEN GOTO [lost4]
#fwin "\\ PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT"
render #fwin
GOSUB [NewGame]
render #fwin
wait
[lost4]
#fwin "\\ TURKEYS SHOULD FLY, NOT RIDE CAMELS ! ! ! ! !"
render #fwin
GOSUB[NewGame]
render #fwin
wait
[NewGame]
div navigation
imagebutton #b10, "/camel/cambutt0.jpg",[start]
imagebutton #b11, "/camel/chickenout.jpg",[chicken]
end div
RETURN
[RET]
if bbers = 2 then goto [berbersOK0]
if bbers = 3 then goto [berbersOK1]
'RETURN
wait
[chicken]
html "<img src='/camel/chicken1.gif' style=' width:300px; height:300px; position:absolute; left:340px; top:150px'>"
wait
[winner]
pic$ = "camel7.jpg"
call fwnd pic$ ,340,440
#fwin "\\\ YOU WIN, A PARTY IS BEING GIVEN IN YOUR HONOR........"
#fwin "\ ......THE PYGMEES ARE PLANNING TO ATTEND......."
render #fwin
wait
[Figs]
if F>7 then
pic$="figs.jpg"
call fwnd pic$ ,300,480
#fwin "\ YOU DIRTY RAPSCALLION ! YOU RAN YOUR CAMEL TO DEATH ! !"
div navigation
imagebutton #b15, "/camel/huh.jpg",[died]
end div
render #fwin
wait
end if
GOTO [died]
wait
[attachment id="37" thumbnail="1"]
[navbutt]
div navigation
imagebutton #b1, "/camel/cambutt1.jpg", [command]
imagebutton #b2, "/camel/cambutt2.jpg", [command]
imagebutton #b3, "/camel/cambutt3.jpg", [command]
imagebutton #b4, "/camel/cambutt4.jpg", [command]
imagebutton #b5, "/camel/cambutt5.jpg", [command]
imagebutton #b6, "/camel/cambutt6.jpg", [command]
end div
RETURN
Sub setCSS
cssid #navigation, "{
border-right: 3px solid #666666;
background: #ADAD99;
padding: 4px;
width: 990px;
height: 80px;
float: left;
position: absolute;
left: 10px;
top: 620px;
white-space: normal;
Text-Align: Center;
}"
end sub
sub fwnd img$,Xpos,Ypos
cls
loadgraphic #fwin,"public\camel\wnd01.jpg"
html "<img src='/camel/"+img$+"' style=' width:300px; height:300px; position:absolute; left:340px; top:100px'>"
#fwin color("black")
#fwin FONT("tahoma", 12 ,"bold")
#fwin place(Xpos,Ypos)
end sub Attachments:
