Advertisement
PikalaxALT

PkrsSyringe

Dec 30th, 2015
238
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PkrsSyringe:
  2.     ld b, PARTYMENUACTION_HEALING_ITEM
  3.     call UseItem_SelectMon
  4.     jp c, StatusHealer_ExitMenu
  5.  
  6.     ld a, MON_PKRUS
  7.     GetPartyParamLocation
  8.     ld a, [hl]
  9.     and a
  10.     jr nz, .Fail
  11. .loop
  12.     call Random
  13.     and $f0
  14.     jr z, .loop
  15.     ld b, a
  16.     swap a
  17.     and $3
  18.     inc a
  19.     or b
  20.     ld [hl], a
  21.     ld hl, .GavePokerusText
  22.     jp PrintText
  23.  
  24. .Fail
  25.     jp NoEffectMessage
  26.  
  27. .GavePokerusText
  28.     text_from_ram StringBuffer1
  29.     text " contracted"
  30.     line "#RUS!"
  31.     prompt
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement