FANDOM


Created by Taz.

Using "RC_Core.rcm"
; testingrc1 1.26
; Date/Time: 12:56:06 AM on 7/4/2010
; By Naddaz on TAZCO
;Mana Water 
 Function Main()
 Player = Actor()
 PlayerMaxHP% = MaxAttribute(Player, "Mana")
 PlayerHP% = Attribute(Player, "Mana")
 
  CurrPHunger% = Attribute(Player, "Hunger")
 CurrMaxPHunger% = MaxAttribute(Player, "Hunger")

    
 
 If (PlayerHP >= PlayerMaxHP) And (CurrPHunger >= CurrMaxPHunger) 
  
      OutPut(Player, "You dont need that right now", 200, 45, 32)
    Return
 
 EndIf
 
         If (PlayerHP >= PlayerMaxHP) And (CurrPHunger <= CurrMaxPHunger) 
        ;Give player hunger incress.
        ;CHANGE THIS LATER FOR WATER SYSTEM
        CurrPHunger% = Attribute(Player, "Hunger")
        TotHungerToGive% = CurrPHunger + 25
        SetAttribute(Player, "Hunger", TotHungerToGive)
        GiveItem(Player, "Mana Water", - 1)
        Return
         EndIf
         
         
 If (PlayerHP <= PlayerMaxHP) And (CurrPHunger >= CurrMaxPHunger) 
 
 OutPut(Player, "You sit and drink", 0, 200, 40)
 GiveItem(Player, "Mana Water", - 1)
 
 AnimateActor(Player, "Sit Down", 1.7)
 
 
 Ticks% = 6 ;total ticks of Mana
 
 Repeat
 
 Tothealth% = Attribute(Player, "Mana")
 totPlayerMaxHP% = MaxAttribute(Player, "Mana")
 DoEvents(1)
 
 NewHp% = Attribute(Player, "Mana") + 65 ;tick Mana amount
 
 AnimateActor(Player, "Sit idle", .05, 1)
 
 If (Tothealth >= totPlayermaxhp)
     AnimateActor(Player, "Standup", 1)
    Ticks% = 0
     Return
 EndIf    
 
 TickChance% = Rnd(1, 32)
 
 If (TickChance = 1)
 NewHp% = Attribute(Player, "Mana") + Rnd(3, 5) ;tick Mana amount
 TotalHp% = NewHp
 SetAttribute(Player, "Mana", TotalHp) ;give player Mana per tick
 EndIf
 
 Until (Tothealth = totPlayermaxhp)
 
 
 EndIf
 
 End Function