function OnChat(PlayerId, Type, Message, Target)

if FirstW == "!spy" then

      local iCredits = 1000


      -- |||||||||||||||||||||||||||||||||||||||||||||||||||

      sName = Get_Player_Name_By_ID(pID)

      if Get_Money(pID) > iCredits then
         Attach_Script_Once(Get_GameObj(pID), "RA_Infantry_Spy", "")
         Set_Money(pID, Get_Money(pID) - iCredits)
         InputConsole("page %s You have been made a spy.", sName)
      else
         InputConsole("page %s You need %d credits to buy a spy.", sName, iCredits)
      end

	return 1
end

function OnChat(PlayerId, Type, Message, Target)
	if Message == "!spy" then
		if Get_Money(PlayerId) >= 1200 then
			Set_Money(PlayerId, Get_Money(PlayerId)-1200)
			Change_Character(Get_GameObj(PlayerId),"CnC_Nod_FlameThrower_2SF")
			Attach_Script_Once(Get_GameObj(PlayerId), "RA_Infantry_Spy", "")
			InputConsole("msg %s has bought a Spy.", Get_Player_Name_By_ID(PlayerId))
		else
			InputConsole("ppage %d You have not enough money! You need 1200 credits to buy this!", PlayerId)
		end
	end
return 1
end