Subversion Repositories aysalia

Rev

Blame | Last modification | View Log | RSS feed

  1. Attribute VB_Name = "Module3"
  2. Sub FEUERblitz()
  3. If treffer <= hitchance Then GoTo hit Else GoTo away
  4. hit:
  5. Randomize Timer
  6. schaden = Int(maxdam * Rnd) + mindam
  7. VERLETZUNG
  8. mp = mp - minus
  9. GoTo da
  10. away:
  11. da:
  12. FeindZug
  13. End Sub
  14.  
  15. Sub VERLETZUNG()
  16. ghp = ghp - schaden
  17. Kampf.Label57.Caption = "Dein " + Kampf.Label59.Caption + " verletzt " + feind + " für " + Str(schaden) + " Schadenspunkte!"
  18. CheckLive
  19. End Sub
  20.  
  21.