MooMoo Milk can be purchased in Dozens

maps/Route39Farmhouse.asm

@@ -1,4 +1,5 @@
-DEF ROUTE_39FARMHOUSE_MILK_PRICE EQU 500
+DEF ROUTE_39FARMHOUSE_1_BOTTLE_PRICE EQU 500
+DEF ROUTE_39FARMHOUSE_1_DOZEN_PRICE EQU 6000
 
 	object_const_def
 	const ROUTE_39FARMHOUSE_POKEFAN_M
@@ -21,25 +22,65 @@ PokefanM_DairyFarmer:
 	end
 
 FarmerMScript_SellMilk:
-	checkitem MOOMOO_MILK
-	iftrue FarmerMScript_Milking
 	writetext FarmerMText_BuyMilk
 	special PlaceMoneyTopRight
 	yesorno
 	iffalse FarmerMScript_NoSale
-	checkmoney YOUR_MONEY, ROUTE_39FARMHOUSE_MILK_PRICE
-	ifequal HAVE_LESS, FarmerMScript_NoMoney
-	giveitem MOOMOO_MILK
+
+.loop
+	writetext FarmerMText_WhatCanIGetcha
+	special PlaceMoneyTopRight
+	loadmenu .MenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .Buy1Bottle
+	ifequal 2, .Buy1Dozen
+	sjump FarmerMScript_NoSale
+
+.Buy1Bottle:
+	checkmoney YOUR_MONEY, ROUTE_39FARMHOUSE_1_BOTTLE_PRICE
+	ifequal HAVE_LESS, FarmerMText_NoMoney
+	verbosegiveitem MOOMOO_MILK
 	iffalse FarmerMScript_NoRoom
-	takemoney YOUR_MONEY, ROUTE_39FARMHOUSE_MILK_PRICE
+	takemoney YOUR_MONEY, 500
+	waitsfx
+	playsound SFX_TRANSACTION
 	special PlaceMoneyTopRight
+	writetext FarmerMText_GotMilk
+	waitbutton
+	writetext FarmerMText_BuyMore
+	yesorno
+	iffalse FarmerMScript_NoSale
+	sjump .loop
+
+.Buy1Dozen:
+	checkmoney YOUR_MONEY, ROUTE_39FARMHOUSE_1_DOZEN_PRICE
+	ifequal HAVE_LESS, FarmerMText_NoMoney
+	verbosegiveitem MOOMOO_MILK, 12
+	iffalse FarmerMScript_NoRoom
+	takemoney YOUR_MONEY, 6000
 	waitsfx
 	playsound SFX_TRANSACTION
+	special PlaceMoneyTopRight
 	writetext FarmerMText_GotMilk
-	promptbutton
-	itemnotify
-	closetext
-	end
+	waitbutton
+	writetext FarmerMText_BuyMore
+	yesorno
+	iffalse FarmerMScript_NoSale
+	sjump .loop
+
+.MenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 4, 18, TEXTBOX_Y - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR ; flags
+	db 3 ; items
+	db "1 Bottle:  ¥500@"
+	db "1 Dozen : ¥6000@"
+	db "CANCEL@"
 
 FarmerMScript_NoMoney:
 	writetext FarmerMText_NoMoney
@@ -59,12 +100,6 @@ FarmerMScript_NoSale:
 	closetext
 	end
 
-FarmerMScript_Milking:
-	writetext FarmerMText_Milking
-	waitbutton
-	closetext
-	end
-
 PokefanF_SnoreFarmer:
 	faceplayer
 	opentext
@@ -121,15 +156,24 @@ FarmerMText_BuyMilk:
 	para "Give it to #MON"
 	line "to restore HP!"
 
-	para "I'll give it to ya"
-	line "fer just ¥{d:ROUTE_39FARMHOUSE_MILK_PRICE}."
+	para "I'll give ya some"
+	line "fer just ¥{d:ROUTE_39FARMHOUSE_1_BOTTLE_PRICE}."
 	done
 
 FarmerMText_GotMilk:
 	text "Here ya go!"
 	line "Drink up'n enjoy!"
 	done
 
+FarmerMText_WhatCanIGetcha:
+	text "What can I getcha?"
+	done
+
+FarmerMText_BuyMore:
+	text "You fancy some"
+	line "more?"
+	done
+
 FarmerMText_NoMoney:
 	text "Sorry, there."
 	line "No cash, no sale!"
@@ -141,15 +185,10 @@ FarmerMText_NoRoom:
 	done
 
 FarmerMText_NoSale:
-	text "You don't want it?"
+	text "Don't want milk?"
 	line "Come again, hear?"
 	done
 
-FarmerMText_Milking:
-	text "I best go do my"
-	line "milkin'."
-	done
-
 FarmerFText_InTrouble:
 	text "Our milk even goes"
 	line "out to KANTO."