Advertisement
Crystal_

Untitled

Oct 28th, 2014
253
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. ld hl, DA2A
  2. ld bc, 002F
  3. ld d, 6
  4. ldi a, (hl)
  5. cp 13
  6. jr z, 0A
  7. cp 14
  8. jr z, 06
  9. cp AF
  10. jr z, 02
  11. cp D8
  12. push hl
  13. push de
  14. call z, Pickup
  15. pop de
  16. pop hl
  17. add hl, bc
  18. dec d
  19. jr nz, 7F03
  20. call 76AC
  21. ret
  22.  
  23. Pickup:
  24. ld a, (hl)
  25. and a
  26. ret z
  27. call 30A2
  28. and 7
  29. ret nz
  30. ld d, h
  31. ld e, l
  32. ld hl, TablaProbsItems
  33. call 30A2
  34. cp (hl)
  35. inc hl
  36. jr c, 05
  37. jr z, 03
  38. inc hl
  39. jr F7
  40. ld a, (hl)
  41. ld (de), a
  42. ret
  43.  
  44.  
  45. TablaProbsItems:
  46. 0A 05
  47. (...)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement