; Made by Silver for RoT
;
; this file was formely known as xbanknotes. It exists to buy bank notes.

@eventActorClick1
	MENU "Buy 200K Bank Notes=@buy200knotes","Buy 500K Bank Notes=@buy500knotes","Sell Bank Notes=@sellnotes","Information=@infonotes","Cancel=@cancel"
	GOTO @eventActorClick1

@cancel
	END

@nomo
	1: You don't have enough money.
	END

@maxednotes200k
	1: You already have all the %I117s that you can carry.
	END

@maxednotes500k
	1: You already have all the %I118s that you can carry.
	END

@sellnotes
	1: To sell your Bank Notes just sell them to a shop and you will receive your money back.
	END

@infonotes
	1: Bank Notes are items that can be sold in shops, banks or in the auction.
	1: You can not give these items away to transfer them to other people, but they are very useful to have with you.
	1: When you're nearing the maximum amount of money that you can carry it is wise to buy a Bank Note.
	1: You can buy maximal 100 %I117s and 40 %I118s.
	1: Bank Notes can only be bought in Banks, but can be sold to any shop you want.
	1: I hope I informed you sufficiently enough about Bank Notes.
	END

@buy200knotes
	COMPARE #<num.item117>, "100"
	IF= @maxednotes200k
	COMPARE #<num.item117>, #<num.hostLevel>
	IF= @maxednotes200k
	IF> @maxednotes200k
	MENU "Buy 1 200K Bank Note=@buy200k1", "Buy 2 200K Bank Notes=@buy200k2", "Buy 3 200K Bank Notes=@buy200k3", "Buy 4 200K Bank Notes=@buy200k4", "Buy 5 200K Bank Notes=@buy200k5","Cancel=@cancel"
	GOTO @buy200knotes

@buy500knotes
	COMPARE #<num.item117>, "40"
	IF= @maxednotes500k
	MENU "Buy 1 500K Bank Note=@buy500k1", "Buy 2 500K Bank Notes=@buy500k2","Cancel=@cancel"
	GOTO @buy500knotes

@buy200k1
	IF -G200000, @nomo
	HOST_TAKE G200000
	HOST_GIVE I117
	N: You received 1 %I117.
	END
@buy200k2
	IF -G400000, @nomo
	HOST_TAKE G400000
	HOST_GIVE I117.2
	N: You received 2 %I117s.
	END
@buy200k3
	IF -G600000, @nomo
	HOST_TAKE G600000
	HOST_GIVE I117.3
	N: You received 3 %I117s.
	END
@buy200k4
	IF -G800000, @nomo
	HOST_TAKE G800000
	HOST_GIVE I117.4
	N: You received 4 %I117s.
	END
@buy200k5
	IF -G1000000, @nomo
	HOST_TAKE G1000000
	HOST_GIVE I117.5
	N: You received 5 %I117s.
	END

@buy500k1
	IF -G500000, @nomo
	HOST_TAKE G500000
	HOST_GIVE I118
	N: You received 1 %I118.
	END
@buy500k2
	IF -G1000000, @nomo
	HOST_TAKE G1000000
	HOST_GIVE I118.2
	N: You received 2 %I118s.
	END

; Gotta love a decent banking system. :-)

