;'Pawn Shop - Item List' - NPC script

;SendMessageToUser(#USERID,"     Name  -  Price",#MSG_SAY)

i = 7
While i > 0
	ITEM=GetItemAtXY(354,6,i+8)
	If ITEM > 0
		SendMessageToUser(#USERID,i+") "+GetItemName(ITEM)+"  -  "+GetItemValue(ITEM),#MSG_EMOTE)
	Else
		SendMessageToUser(#USERID,i+") Empty  -  0",#MSG_EMOTE)
	EndIf
	i=i-1
Wend

Continue = 1