'--------------------------Mission1-FindPart------------------------------
sub Start()
'/////////////////create first sphere//////////////
'                  |PlayerID| |Filename--------| |Procedure----|  |Marker Name-|  |X Player Loc--------|  |Y Loc-----|  |Z Loc-----|  |The Size--|
	CreateSphereMarker PlayerID, "Mission_5.sad", "M5a", "M5a", 1123.0319,-2036.8604,69.8938, 2
end sub



		sub M1a(Data())
	PlayerID = Data(0) 'Gets the current active playerid (the player that touched the sphere)
	VehicleID = Data(1) 'Gets the current active player's vehicle ID, this will be -1 if the player was on foot.
	SphereName = Data(2) 'Gets the current active sphere name
	
		SendMessageToPlayer (PlayerID), "Welcome to the observatory"& GetPlayerName(PlayerID) &". Can you do something for me, a careless astronomer left a part to a telescope around here somewhere, can you find it for me?",150,1,1
	'///////Creating pickup sphere/////////
		CreateSphereMarker PlayerID, "Mission_5.sad", "M5b", "M5b",1176.7338,-2231.1968,36.6960, 1
	'//////Destroy first sphere////////
		DestroySphereMarker PlayerID, "M5a"
		end sub


'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

		sub M1b(Data())
	PlayerID = Data(0) 'Gets the current active playerid (the player that touched the sphere)
	VehicleID = Data(1) 'Gets the current active player's vehicle ID, this will be -1 if the player was on foot.
	SphereName = Data(2) 'Gets the current active sphere name
	
		SendMessageToPlayer (PlayerID), "You found the part, now take it back to the observatory",150,2,150
	'///////Creating Final sphere/////////
		CreateSphereMarker (PlayerID), "Mission_5.sad", "M5c", "M5c", 1123.0319,-2036.8604,69.8938, 2
	'///////Destroy second sphere/////////
		DestroySphereMarker (PlayerID), "M5b"
		end sub


'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	
		sub M1c(Data())
	PlayerID = Data(0) 'Gets the current active playerid (the player that touched the sphere)
	VehicleID = Data(1) 'Gets the current active player's vehicle ID, this will be -1 if the player was on foot.
	SphereName = Data(2) 'Gets the current active sphere name
	
		SendMessageToPlayer (PlayerID), "Thanks"& GetPlayerName(PlayerID) &", here's some cash for your efforts,150,1,1
	'///////////Give Player XP/////////////////////		
		curxr = getplayerxp (PlayerID)
		SetPlayerXP cint(curxp)+1269
	'/////////////give money////////////////////////
		GivePlayerMoney PlayerID,100
	'/////////Destroy Last sphere///////////////	
		DestroySphereMarker (PlayerID), "M5c"
		end sub