FANDOM


Part of the script pack made free by Taz.

Using "RC_Core.rcm"
; Date/Time: 8:52:45 PM on 10/7/2010
; By Naddaz on TAZCO

Function Main()
Player = Actor()
Target = ContextActor()
PLvl% = ActorLevel(Player) ;Player Level
PName$ = Name(Player) ;Player Name
TargetName$ = Name(Target) ;target name
QuestReturn$ = "Return to " + TargetName + " to complete this quest." ; quest return status
Persistent(1) 
;TotalQuestPoints% = Attribute(Player, "Quest Points") ;if using quest points uncommented and attribute added. Be sure to uncomment quest point check bellow.
ChatBox% = OpenDialog(Player, ChatBox, "Quest Giver")



;-------------------------------------------------------------------------------------------------------------------------------------------------
                    ;Start quest chain
;--------------------------------------------------------------------------------------------------------------------------------------------------
        If (Plvl <= 6) ;Output different chat for player level.
            DialogOutPut(Player, ChatBox, "Hello there newcomer", 200, 155, 175)
        Else
             DialogOutPut(Player, ChatBox, "Hello there " + PName, 200, 155, 175)
        Endif
 
 PlayerOption% = DialogInput(Player, ChatBox, "Lets Talk, Abandon Quests, Nothing") ;Give player options
 
 
 If (PlayerOption = 1) ;lets talk option
     
 ;-----------------------------------------------------------------------------------------------------------------------------------------------
            ;Check Quest points
;        If (TotalQuestPoints <= 7) ; quest points need to be 8 or higher
;            DialogOutPut(Player, ChatBox, "You need 8 or more quest points to do some quests for me, Sorry not my rules.", 200, 155, 175)
;            DoEvents(1500)
;            DialogOutPut(Player, ChatBox, "You have " + TotalQuestPoints + " Total quest points.", 200, 155, 175)
;            DialogInput(Player, ChatBox, "I will come back.")
;            DoEvents(500)
;            CloseDialog(Player, ChatBox)
;        Endif
         
             ;End QuestPoint Check        
;------------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------
            ;Start quest Get some wood
;------------------------------------------------------------
    RewardMoney% = 3500 ; amount of money to be rewarded
	RewardXp% = 410 ;Amount of xp to be rewarded
	RewardItem$ = "Arrows" ;item to be rewarded
	RewardItemQuantity% = 200 ;amount of item to be given
	RewardFaction$ = "Humans" ;faction name for reward to be given to.
	RewardFactionValue% = 4 ;amount of faction to give

	QuestName$ = "Get Some Wood!!" ;Name of quest
	QuestResults$ = QuestStatus(Player, QuestName)
	QuestStatusText$ = "Collect 7 Oak Logs." ;text to add to in-game quest log.
    
 
     
     If (QuestResults = "")
		; The quest needs to be started
        ;Output text to player when quest is being started.
		DialogOutput(Player, ChatBox, "I am in need of Oak Logs, could you cut some oak trees for me?", 255, 255, 255)
		POption% = DialogInput(Player, ChatBox, "Sure thing, No way") ; Option to start quest
    
         If (POption = 1)
                ;Make new quest
                NewQuest(Player, QuestName, QuestStatusText, 255, 255, 255)
                Itemcheck% = HasItem(Player, "WoodCutting Axe")
                If (Itemcheck = 0)
                    GiveItem(Player, "WoodCutting Axe")
                    OutPut(Player, "You have recived a Woodcutting Axe", 200, 155, 175)
                Endif
            SaveState()
  
             WaitItemName$ = "Oak Logs"
            WaitItemQuantity% = 7
             DoEvents(500)
             CloseDialog(Player, ChatBox)
             
     		WaitItem(Player, WaitItemName, WaitItemQuantity)
            DoEvents(1400)
                If (HasItem(Player, WaitItemName, WaitItemQuantity) > 0)
				
                EndIf
            OutPut(Player, "All items aquired, return to " + TargetName + " to complete this quest.", 200, 123, 123)
			UpdateQuest(Player, QuestName, QuestReturn, 255, 255, 255)
            Return
        ElseIf (POption = 2)
        CloseDialog(Player, Chatbox)
        ChatBox% = 0
        EndIf
     Endif  
 
 ;--------------------------------------------------------------
                ;End Quest start section
;--------------------------------------------------------------
        
 ;-------------------------------------------------------------------            
         ; The quest has been completed, assign rewards   
;-------------------------------------------------------------------         
   If (QuestResults = QuestReturn)
		DialogOutPut(Player, ChatBox, "Thank you for collecting oak logs for me, you can keep the Woodcutting Axe. Talk to me again I may have something else for you.", 125, 45, 34)
        DialogInput(Player, ChatBox, "Close")
        CompleteQuest(Player, QuestName)
		; Item reward for Step/Quest
		GiveItem(Player, RewardItem, RewardItemQuantity)
        GiveItem(Player, "Oak Logs", - 7) ;Take Quest Item from player
        ; Give quest point amount to player for completeing the quest
        TotQuestPoints% = Attribute(Player, "Quest Points") + 2 ;change to the number of quest points given to the player.
        SetAttribute(Player, "Quest Points", Totquestpoints) 
        OutPut(Player, "You have recived " + TotQuestPoints + " total quest points", 125, 45, 34) 

		; XP reward for Step/Quest
		GiveXp(Player, RewardXp)

		; Money reward for Step/Quest
		ChangeGold(Player, RewardMoney)

		; Faction change
		ChangeFactionRating(Player, RewardFaction, RewardFactionValue)

		Output(Player, "You take " + RewardItemQuantity + " " + RewardItem + " and " + RewardMoney + "gp and " + RewardXp + "xp you have earnt it!")
		CloseDialog(Player, ChatBox)
        
    ElseIf (QuestComplete(Player, QuestName) = 1) ; The quest has been completed 
;ADDED OTHER QUEST IN THE CHAIN HERE
        DialogOutput(Player, ChatBox, "Thanks for helping me out with " + QuestName + "" + CHR(44) + " I have no other quests for you at this time ... good day !", 255, 0, 0)
        DialogInput(Player, ChatBox, "Close")
		DoEvents (1000)
        CloseDialog(Player, ChatBox)
 
    Endif      
 
 ;-------------------------------------------------------------------            
            ; End Reward, quest complete collect 7 oak logs
;-------------------------------------------------------------------   
            
     
 
 
 ;---------------------------------------------------------------
                ;Abandon quest section
;---------------------------------------------------------------
ElseIf(PlayerOption = 2) ;abandon quests options
DialogOutPut(Player, ChatBox, "Are you sure you want to abandon quests ", 124, 56, 76)

AbandonOptions% = DialogInPut(Player, ChatBox, "Get Some Wood!!,Bow crafting,Nevermind")

        If (AbandonOptions = 1) ;option "Get Some Wood!!"
            QuestName$ = "Get Some Wood!!"
           If (QuestComplete(Player, QuestName) = 0) 
            DeleteQuest(Player, "Get Some Wood!!")
            DoEvents(1000)
            DialogOutPut(Player, Chatbox, "Quest removed", 255, 0, 0)
            DialogInPut(Player, ChatBox, "Ok")
            CloseDialog(Player, ChatBox)
            Return      
           Else
              OutPut(Player, "You can not abandon a completed quest", 255, 0, 0)
             CloseDialog(Player, ChatBox)
             Return
           EndIf
        ElseIf (AbandonOptions = 2) ;option "Get Some Wood!!"
            QuestName$ = "Bow crafting"
           If (QuestComplete(Player, QuestName) = 0) 
            DeleteQuest(Player, "Bow crafting")
            DoEvents(1000)
            DialogOutPut(Player, Chatbox, "Quest removed", 255, 0, 0)
            DialogInPut(Player, ChatBox, "Ok")
            CloseDialog(Player, ChatBox)
            Return      
          Else
              OutPut(Player, "You can not abandon a completed quest", 255, 0, 0)
             CloseDialog(Player, ChatBox)
             Return
          EndIf   
           
            
         ElseIf (AbandonOptions = 3) ;Option nevermind
        
             DialogOutPut(Player, ChatBox, "Take a second to rethink.!", 255, 125, 5)
            DoEvents(2000)
            CloseDialog(Player, ChatBox)
        Endif
 ;---------------------------------------------------------
            ;End Abandon Quest section
;---------------------------------------------------------

ElseIf (PlayerOption = 3)
    DialogOutPUt(PLayer, ChatBox, "Ok then come back later.", 200, 155, 175)
    DialogInput(Player, ChatBox, "Close")
    DoEvents(1000)
    CloseDialog(Player, ChatBox)
Endif            
        
 
 
 ;-----------------------------
End Function