FANDOM


Created by Taz.

Using "RC_Core.rcm"
;Bounty hunter script
;By Tazco june 13 2012
Function Main()

Player = Actor()
Target = ContextActor()

PName$ = Name(Player)
ScriptLog("Bounty listings running by " + Pname)
	ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
	DialogOutPut(Player, ChatBox, "----- Please wait while list is retrived. -----")
	
	;Open bounty master list to get names.
			BML$ = "Bounty Master List.Txt"
			Bountylist% = OpenFile(BML)
				If (BountyList = 0) ;write file if it is not there. avoid a server invalid steam crash
				WriteBM$ = WriteFile(BML)
				CloseFile(WriteBM)
				CloseFile(Bountylist)
				CloseDialog(Player, ChatBox)
					ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
					DialogOutPut(Player, ChatBox, "There is no bountys avalible at this moment. Please try back later.")
					DialogInput(Player, ChatBox, "Close")
					CloseDialog(Player, ChatBOx)
					Return
				EndIf
			CloseFile(Bountylist) ;close file
			
;------------------------------------------------------------------------------------------			
		;Count players in list.	
		BML$ = "Bounty Master List.Txt"
		MasterBountylist% = OpenFile(BML)
			ListCount% = 0
			
			Repeat
			DoEvents(10)
			ListCount% = ListCount + 1
			ReadLine(MasterBountylist)
			EndOfFile% = Eof(MasterBountylist)
			
			
			Until(EndOfFile = 1)
			
			CloseFile(MasterBountylist) ;close file
			
;------------------------------------------------------------------------------------------			
			
			CloseDialog(Player, ChatBox)
			ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			DialogOutPut(Player, ChatBox, "----- Writing bounty list. -----")
				
			If (ListCount <= 10) ;if bountys is under 10.
			  ChatBox1$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			  			BML$ = "Bounty Master List.Txt"
						MasterBountylist1% = OpenFile(BML)
						NewListCount% = ListCount
			  
			  		Repeat ;write list of bountys
			  			DoEvents(10)
			  			NewListCount% = NewListCount - 1
			  			NewRead$ = ReadLine(MasterBountylist1)
			  			DialogOutPut(Player, ChatBox1, + NewRead)
			  		
			  		
			  		
			  		Until (NewListCount = 0)
			  
			  	CloseFile(MasterBountylist1) ;close file
				CloseDialog(Player, ChatBox)
			EndIf
			
		
			
			
			If (ListCount >= 11) ;if bounty list is 11 or more.
			
					    ChatBox1$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			  			BML$ = "Bounty Master List.Txt"
						MasterBountylist1% = OpenFile(BML)
						NewListCount% = ListCount
						CountTimes% = 0	
						
						Repeat
						DoEvents(10)
						CountTimes% = CountTimes + 1
						NewListCount% = NewListCount - 1
			  			NewRead$ = ReadLine(MasterBountylist1)
			  			DialogOutPut(Player, ChatBox1, + NewRead)
			  		
			  		   		If (CountTimes = 9) ; give option to add name or continue with list.
			  		   			CloseDialog(Player, ChaBox)
			  		   			ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			  		   			DialogOutPut(Player, ChatBox, "Would you like to enter one of these names or keep looking?")
			  		   			POption% = DialogInput(Player, ChatBox, "Enter name,Keep looking")
			  		   			
			  		   				If (POption = 2) ;Close and reopen chatbox1 to display the next page of names.
			  		   					CloseDialog(Player, ChatBox1)
			  		   					ChatBox1$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			  		   								  		   				
			  		   				EndIf
			  		   				
			  		   				
			  		   				If (POption = 1) ;open input so player can type name.
			  		   					CloseDialog(Player, ChaBox)
			  		   					ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
			  		   					DialogOutPut(Player, ChatBox, "Please input the name of player from the list behind this one.")
			  		   				EndIf
			  		   				
			  		   		
			  		   		EndIf
			
							EndOfFile% = Eof(MasterBountylist1)
								If (EndOfFile = 1)
								;at end of list give option to add name or cancel.
								EndIf
			
						Until(NewListCount = 0)
			
			EndIf
	
;-----------------------------------------------------------------------------------------------------------------------------------------	
		;Continue with bounty list.
		
		ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
		DialogOutPut(Player, ChatBox, "Enter a name from the list, Note move the window to see list if need be.")
		NamePick$ = Input(Player, "Listed name", "", 0)
	
			;Check if name entered has a bounty
				Namelisted1$ = + NamePick + " Bounty.Txt"
				Bountylist21% = OpenFile(Namelisted1)
	
					If (Bountylist21 = 0)
						CloseFile(Bountylist21)
						CloseDialog(Player, ChatBox)
						ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
						DialogOutPut(Player, ChatbOx, "Name entered was not found, please try again.")
						DialogInput(Player, ChatBox, "Close")
						CloseDialog(Player, ChatBox)
						CloseDialog(Player, ChatBox1)
						Return						
					EndIf
				
;---------------------------------------------------------------------------------------------------------------------------------
  					;Check Actor
							    Repeat
							     
							        ActorFound$ = FindActor(NamePick, 3) ;find actor set to find npc as well
							        Doevents(10)
							    ;  OutPut(Player, "name finding is " + ActorFound)
							        
							             If (ActorFound = 0) ;end loop if player not found
							               CloseDialog(Player, ChatBox)
							               ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
							               DialogOutPut(Player, ChatBox, "Player name not found.")  
							               DialogInPut(Player, ChatBox, "Close")
							         	   CloseDialog(Player, ChatBox)  
							         	   CloseDialog(Player, ChatBox1)            
							               PlayerFound = 1
							               
										   Return	
							             EndIf 
							            
							     Until (ActorFound >= 1) 
;---------------------------------------------------------------------------------------------------------------------------------							     
				CloseDialog(player, ChatBox)
				CloseDialog(player, ChatBox1)
				ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
				DialogOUtpUt(Player, ChatBox, "----- Please wait while some info on the bounty is collected.-----")

					BountyZone$ = ActorZone(ActorFound)

				BountyOnline% = PlayerInGame(ActorFound) ;Check if bounty is online.
					If (BountyOnline = 1) ;bounty online
							BountyIsOnline$ = "Online" ;set to one for bounty online
					
					EndIf
					
					If (BountyOnline = 0) ;bounty online
					 IsHuman1% = ActorIsHuman(ActorFound)
						If (IsHuman1 = 1)
							BountyIsOnline$ = "Offline" ;bounty is offline	
						Else
							BountyIsOnline$ = "NPC" ;bounty is an NPC	
						EndIf					
					EndIf	
					
				;get bounty current zone
				BountyZone$ = ActorZone(ActorFound)	
				
				;get bounty faction check
				Bountyfaction$ = HomeFaction(ActorFound)
			
				;get player facton
				InfoPlayerfaction$ = HomeFaction(Player)
				
				
				;Faction Calc
				  If (Bountyfaction = InfoPlayerfaction) ;if player and bounty are same faction
				  	NewFactionHum$ = "Humans"
				  	NewFactionEv$ = "Evil Humans"
				  	GmFaction$ = "GmOn" 
				  		If (Bountyfaction = NewFactionHum)	
				  			If (InfoPlayerfaction = NewFactionHum)
				  				FactionMsg$ = "You are the same faction and will take a rep loss, if you complete this bounty."	
				  			EndIf
				  			
				  		   If (InfoPlayerfaction = NewFactionEv)
				  				FactionMsg$ = "You are not the same faction and will take a rep gain to your faction, if you complete this bounty."
				  			EndIf
				  		 
				  		    If (InfoPlayerfaction = GmFaction)
				  		    	FactionMsg$ = "Your a gm leave the normal players alone, or take a gm bounty quest."				  		
				  			EndIf			  		
				  		EndIf
				  						  		
				  						  		
				  						  		
				  EndIf
				  		
				  		If (Bountyfaction = NewFactionEv)
				  			If (InfoPlayerfaction = NewFactionEv)	
				  				FactionMsg$ = "You are the same faction and will take a rep gain, if you complete this bounty."
				  			EndIf
				  			
				  			If (InfoPlayerfaction = NewFactionHum)
				  				FactionMsg$ = "You are not the same faction and will take a rep gain to your faction, if you complete this bounty."
				  			EndIf
				  				
				  		    If (InfoPlayerfaction = GmFaction)
				  		    	FactionMsg$ = "Your a gm leave the normal players alone, or take a gm bounty quest."				  		
				  			EndIf			  		
				  		EndIf
				  
				  
				  		If (Bountyfaction = GmFaction)	
				  		  If (InfoPlayerfaction = NewFactionHum)
				  			FactionMsg$ = "Bounty is on a gm and you will be unable to kill them."	
				  		 EndIf		
				  		 
				  		 If (InfoPlayerfaction = NewFactionEv)
				  			FactionMsg$ = "Bounty is on a gm and you will be unable to kill them."	
				  		 EndIf		
				  		 		 
				  		  If (InfoPlayerfaction = GmFaction)
				  			FactionMsg$ = "Bounty is on a gm and you will be able to kill them."	
				  		 EndIf	 
				  		 		  		
				  		 		  		
				    	EndIf
				  
				
				

				Namelisted1$ = + NamePick + " Bounty.Txt"
				Bountylist1% = OpenFile(Namelisted1)
					
					Repeat
					
				    New1Read$ = ReadLine(Bountylist1) ;Bounty name
					NewRead1$ = New1Read
					
					New2Read$ = ReadLine(Bountylist1) ;title
					NewRead2$ = New2Read
					
					New3Read$ = ReadLine(Bountylist1) ;reward
					NewRead3% = New3Read
					
					New4Read$ = ReadLine(Bountylist1) ;date issued
					NewRead4$ = New4Read
					
					New5Read$ = ReadLine(Bountylist1) ;reason for bounty
					NewRead5$ = New5Read
					
					New6Read$ = ReadLine(Bountylist1) ;Player name that posted bounty
					NewRead6$ = New6Read
					
					
					DoEvents(10)
					EndOfFile% = Eof(Bountylist1)
					Until (EndOfFile = 1)
					
			;Flash printing a few times	
			FlashAmount% = 7	
			  Repeat
			  FlashAmount% = FlashAmount - 1	
				CloseDialog(player, ChatBox)
				ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
				DialogOUtpUt(Player, ChatBox, "----- Printing info. -----")
				Doevents(900)
			  Until (FlashAmount <= 0)
			  	
				;output info to player abounty bounty
				CloseDialog(Player, ChatBox)
				ChatBox$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
				DialogOutPut(Player, ChatBox, "---------- Bounty Info ---------- ")
				DialogOutPut(Player, ChatBox, "Name: " + NewRead1 +      "  Reward: " + NewRead3)				
				DialogOutPut(Player, ChatBox, "Title: " + NewRead2)
				DialogOutPut(Player, ChatBox, "Date Issued: " + NewRead4)
				DialogOutPut(Player, ChatBox, "Poster Name: " + NewRead6)
				DialogOutPut(Player, ChatBox, "Bounty Reason: " + NewRead5)
				DialogOutPut(Player, ChatBox, "------ Check page 2 next window ------")
			
				ChatBox1$ = OpenDialog(Player, Target, "Bounty Hunter", 521) ;added default textre
				DialogOutPut(Player, ChatBox1, "Curr zone of bounty: " + BountyZone)
				DialogOutPut(Player, ChatBox1, "Bounty Online status : " + BountyIsOnline)
				DialogOutPut(Player, ChatBox1, "Bounty Faction: " + Bountyfaction)
				DialogOutPut(Player, ChatBox1, "Your Faction: " + InfoPlayerfaction)
				DialogOutPut(Player, ChatBox1, "Faction Info: " + FactionMsg)
				DialogOutPut(Player, ChatBox1, "-------- End Bounty Info -------- ")
				DialogInput(Player, ChatBox1, "Close both windows")
				CloseDialog(Player, ChatBox)
				CloseDialog(Player, ChatBox1)
				
				
Return
End Function