FANDOM


Created by Taz

Using "RC_Core.rcm"
; Define entry function 'Main'
; Created by: Ed420
 ; Check Plant Growth for directions. LOL

Function Main()
Player = Actor()
PlayerRace$ = Race(Player)

; this is to just clarify plant is a variable

Plant$ = "Plant"

; list of plants

Wht$ = "Wheat"
RTom$ = "Ripe Tomato"
Bas$ = "Basil"
Ctnp$ = "CatNip"
Cham$ = "Chamomile"
Chi$ = "Chives"

; If StateMents
 
 If(PlayerRace = Wht)
 	Plant = Wht
 ElseIf(PlayerRace = Rtom)
 	Plant = Rtom
 ElseIf(PlayerRace = Bas)
 	Plant = Bas
 ElseIf(PlayerRace = Ctnp)
 	Plant = Ctnp
 ElseIf(PlayerRace = Cham)
 	Plant = Cham
 ElseIf(PlayerRace = Chi)
 	Plant = Chi
 EndIf
 
 ; Phase Changes
 
 PlantPhase2 = ActorID(Plant, "Phase2")
 PlantPhase3 = ActorID(Plant, "Phase3")
 PlantPhase4 = ActorID(Plant, "Herb")
 
 DoEvents(10000)
 
 ChangeActor(Player, PlantPhase2)
 
 DoEvents(10000)
 
 ChangeActor(Player, PlantPhase3)
 
 DoEvents(10000)
 
 ChangeActor(Player, PlantPhase4)
 
 OutPut(Player, "Ready to Pick")
 
 Return
 End Function