; general weapons shop

SCENE 501 interior11
	THEME	0
	MUSIC	findream_V1_2.mid
	ACTOR	1,	"Boggert", "k", 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,30,14, 0,30,15
	' Finest weapons in the Kingdom!
@eventActorGive1
	IF  C51, @traderskill
	IF  -C51, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END

; general weapons shop

SCENE 502 interior11
	THEME	0
	MUSIC	findream_V1_2.mid
	ACTOR	1,	"Boggert", "k", 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,30,16, 0,30,17
	' Finest weapons in the Kingdom!
END
@eventActorGive1
	IF  C51, @traderskill
	IF  -C51, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END

; general weapons shop

SCENE 503 interior11
	THEME	0
	MUSIC	findream_V1_2.mid
	ACTOR	1,	"Boggert", "k", 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,30,18, 0,30,19
	' Finest weapons in the Kingdom!
END
@eventActorGive1
	IF  C51, @traderskill
	IF  -C51, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END

; general weapons shop

SCENE 504 interior11
	THEME	0
	MUSIC	findream_V1_2.mid
	ACTOR	1,	"Boggert", "k", 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,98,20
	' 
END
@eventActorGive1
	IF  C51, @traderskill
	IF  -C51, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END

; general weapons shop

SCENE 505 interior11
	THEME	0
	MUSIC	findream_V1_2.mid
	ACTOR	1,	"Boggert", "k", 9, 25, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,98,21
	' Finest Sheilds in the Kingdom!
END
@eventActorGive1
	IF  C51, @traderskill
	IF  -C51, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
