;'Regulus Scroll Buying' - World Event script

ScrollCost = 25000
ScrollID = 207

SendMessageToAll("Regulus: Caveat emptor",#MSG_BROADCAST)

UserID = GetNextOnlineUser(0)
;UserID = GetUserID("comrade")
While UserID > 0
	If GetUserAccess(UserID) > 0
		If HasItem(UserID,ScrollID) = 0
			If GetUserSilver(UserID) > ScrollCost
				ShowUserDialog(UserID,569,"yesno","Do you want to buy a Regulus' Scroll for "+ScrollCost+" silver?")
			EndIf
		EndIf
	EndIf
	UserID = GetNextOnlineUser(UserID)
Wend

Continue = 1