P3D-Legacy/P3D/Content/Data/Scripts/kolben/vendingmachine.dat

<EFBFBD><EFBFBD>version=2
@text.show(A vending machine!~Here's the menu.)
@options.show(Fresh Water$200,Soda Pop      $300,Lemonade     $350,Fanta           $750,Cancel)
	:when:Fresh Water$200
		:if:<player.money>>200
			@text.show(CLANG!*Fresh Water popped out.)
			@player.money(-200)
			@item.give(46,1)
			@item.messagegive(46,1)
			:if:<system.random(1,32)>=11
				@text.show(Score!*An extra bottle of Fresh Water~dropped down!)
				@item.give(46,1)
			:endif
		:else
			@text.show(You don't have~enough money!)
		:endif
		:end
	:when:Soda Pop      $300
		:if:<player.money>>300
			@text.show(CLANG!*Soda Pop popped out.)
			@player.money(-300)
			@item.give(47,1)
			@item.messagegive(47,1)
			:if:<system.random(1,32)>=11
				@text.show(Score!*An extra bottle of Soda Pop~dropped down!)
				@item.give(47,1)
			:endif
		:else
			@text.show(You don't have~enough money!)
		:endif
		:end
	:when:Lemonade     $350
		:if:<player.money>>350
			@text.show(CLANG!*Lemonade popped out.)
			@player.money(-350)
			@item.give(48,1)
			@item.messagegive(48,1)
			:if:<system.random(1,32)>=11
				@text.show(Score!*An extra can of Lemonade~dropped down!)
				@item.give(48,1)
			:endif
		:else
			@text.show(You don't have~enough money!)
		:endif
		:end
	:when:Fanta           $750
		:if:<player.money>>750
			@text.show(CLANG!*Fanta popped out.)
			@player.money(-750)
			@item.give(266,1)
			@item.messagegive(266,1)
			:if:<system.random(1,64)>=11
				@text.show(Score!*An extra bottle of Fanta~dropped down!)
				@item.give(266,1)
			:endif
		:else
			@text.show(You don't have~enough money!)
		:endif
		:end
:endwhen
:end