PkrsSyringe

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