SCENE 2
@fightstart
	ACTOR 2, "Skill"
	SET ag, "#<num.hostAGI>"
	DIV ag, "2"
	ADD ag, "50"
	@goback
	SET data, "You CANNOT flee from this battle."
	SET lock, "2"
	IF R#<ag>, @deset
	IF T310, @heal
	@top
	IF T326, @earthspecial
	@top2
	SET num, "%r7"
	COMPARE "#<num>", "0"
	IF=, @addd
	GOTO @#<num>
END
	@earthspecial
	IF R#<helpme>, @earthspecial2
	set friend, "*"
	GOTO @top2
END
	@earthspecial2
	GOTO @hl#<num.hostLevel>
	#include earthspecial.txt
	GOTO @top2
END
	@cha
	SET ag, "50"
	GOTO @goback
END
	@deset
	SET lock, ""
	SET data, "You CAN flee from this battle."
	@heal
	IF T314, @314
	IF T313, @313
	IF T312, @312
	IF T311, @311
	IF T310, @310
	GOTO @top
END
	@310
	IF R20, @power
	GOTO @top
END
	@311
	IF R30, @power
	GOTO @top
END
	@312
	IF R40, @power
	GOTO @top
END
	@313
	IF R50, @power
	GOTO @top
END
	@314
	IF R65, @power
	GOTO @top
END
	@power
	5: You recieved 500 Hitpoints and Magicpoints.
	GIVE H500
	GIVE M500
	@top
	IF T326, @earthspecial
	IF #52, @0
	@top2
	SET num, "%r7"
	COMPARE "#<num>", "0"
	IF=, @addd
	GOTO @#<num>
END
	@addd
	GOTO @top
END
	@0
	2: #<data>
	MUSIC	nochange
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
END
	@1
	2: #<data>
	MUSIC	lop.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@2
	2: #<data>
	MUSIC b.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@3
	2: #<data>
	MUSIC b2.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@4
	2: #<data>
	MUSIC b3.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@5
	2: #<data>
	MUSIC b4.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@6
	2: #<data>
	MUSIC b5.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@7
	2: #<data>
	MUSIC b1.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@8
	2: #<data>
	MUSIC b6.mid
	FIGHT#<lock> *,#<friend>
	IF ALIVE, @extra
	IF T4030+#48, @mf
END
	@extra
	IF T502, @piratequest1
	IF T126, @sl5
	IF T125, @sl4
	IF T124, @sl3
	IF T123, @sl2
	IF T122, @sl1
END
	@piratequest1
	IF R10+V8, @piratequest11
	ACTOR 1, "Special"
	1: No items were found in the wreckage.
END
	@piratequest11
	ACTOR 1, "Special"
	TAKE T502
	GIVE I97
	1: You found the documents!
END
	@sl1
	ACTOR 2, "Search Skill"
	IF R30, @found
	2: You found nothing.
END
	@sl2
	ACTOR 2, "Search Skill"
	IF R40, @found
	2: You found nothing.
END
	@sl3
	ACTOR 2, "Search Skill"
	IF R50, @found
	2: You found nothing
END
	@sl4
	ACTOR 2, "Search Skill"
	IF R60, @found
	2: You found nothing.
END
	@sl5
	ACTOR 2, "Search Skill"
	IF R70, @found
	2: You found nothing.
END
	@found
	ACTOR 1, "Search Skill"
	IF V90, @g1
	IF V80, @g2
	IF V70, @g3
	IF V60, @g4
	IF V50, @g5
	IF V40, @g6
	IF V30, @g7
	IF V20, @g8
	IF V10, @g9
	1: You found nothing.
END
	@g1
	SET gold, "%r20000"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g2
	SET gold, "%r15000"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
	
END
	@g3
	SET gold, "%r12500"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g4
	SET gold, "%r10000"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g5
	SET gold, "%r7500"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g6
	SET gold, "%r6000"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g7
	SET gold, "%r3000"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g8
	SET gold, "%r1500"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@g9
	SET gold, "%r100"
	GIVE G#<gold>
	1: You find an additional #<gold> Gold.
END
	@mf
	ACTOR 3, "Mission Log"
	GIVE T4035
	3: You failed the mission.  Return to Lorth.
END
