Unnamed

sub Start()
        '------------------Mission_5---------------------
end sub
'--------------------------Mission1-FindPart------------------------------
sub NewPlayer(Data())
PlayerID = Data(0)
'/////////////////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 M5a(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 M5b(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 M5c(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/////////////////////		
		curxp = getplayerxp(PlayerID)
		SetPlayerXP playerid, cint(curxp)+1269
	'/////////////give money////////////////////////
		'GivePlayerMoney PlayerID,100
	'/////////Destroy Last sphere///////////////	
		DestroySphereMarker (PlayerID), "M5c_"
		end sub