CopyTarget=GetUserID(GetUserMessage(#USERID))

If GetUserSilver(#USERID)<100000
	SendMessageToMap(553,"Shady Skeleton says, 'You neeed 100,000 silveeer foor my services...'", #MSG_SAY)
Else
	
	If CopyTarget<1
		SendMessageToMap(553,"Shady Skeleton says, 'Speeeak the naame of whoo you wish too loook like! It will cosst you 100,000 silveeer...'", #MSG_SAY)
	ElseIf GetUserAccess(CopyTarget) > 0
		SendMessageToMap(553,"Shady Skeleton says, 'Thisss player iss beyond my abillity to mimic.'", #MSG_SAY)
	Else
		If GetUserFlag(#USERID,12)=1
			SendMessageToMap(553,"Shady Skeleton says, 'Yooou alreeady haave an illusion...'", #MSG_SAY)
		Else
			SetUserFlag(#USERID,12,1)
			Timer(185,600000,#USERID,GetUserSprite(#USERID),0)
			SetUserSilver(#USERID,GetUserSilver(#USERID)-100000)
			SetUserDisplayName(#USERID,GetUserName(CopyTarget))
			SetUserSprite(#USERID,GetUserSprite(CopyTarget))
			WarpUser(#USERID,GetUserMap(#USERID),GetUserX(#USERID),GetUserY(#USERID))
			SendMessageToMap(553,"Shady Skeleton says, 'Suuuccess...you will noow look like "+GetUserName(CopyTarget)+" for 10 minutes...'", #MSG_SAY)
			SendMessageToUser(#USERID,"You now have "+GetUserSilver(#USERID)+" silver pieces.", #MSG_TELL)
			SendMessageToAll(GetUserName(#USERID)+" has made a deal with the Shady Skeleton.", #MSG_SERVER)
		Endif
	Endif
Endif

Continue = 1