PkrsSyringe:
	ld b, PARTYMENUACTION_HEALING_ITEM
	call UseItem_SelectMon
	jp c, StatusHealer_ExitMenu

	ld a, MON_PKRUS
	GetPartyParamLocation
	ld a, [hl]
	and a
	jr nz, .Fail
.loop
	call Random
	and $f0
	jr z, .loop
	ld b, a
	swap a
	and $3
	inc a
	or b
	ld [hl], a
	ld hl, .GavePokerusText
	jp PrintText

.Fail
	jp NoEffectMessage

.GavePokerusText
	text_from_ram StringBuffer1
	text " contracted"
	line "#RUS!"
	prompt