"کد ادمک سخنگو "مرلین

"کد ادمک سخنگو "مرلین

با کدهای زیر میتونید آدمک سخنگو ( یا همون مرلین ) رو داشته باشین . دو کد زیر متفاوت هستند زیرا طوری برنامه ریزی شده که حرکاتشون فرق دارد . دو کد را هیچ وقت با هم استفاده نکنید . در قسمتهایی که نوشته جمله شما باید جمله مورد نظرتون رو حتما به صورت فینگلیش ( فارسی نوشتن با حروف انگلیسی ) بنویسید تا آدمک ( مرلین ) اونو برای مخاطب بخونه.



کد شماری 1

<!-----www.nightskin.rozblog.com-----> <OBJECT id=AgentControl style="LEFT: 0px; WIDTH: 0px; TOP: 0px" codeBase=../../../../#VERSION=2,0,0,0 height=0 width=0 classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F VIEWASTEXT></OBJECT><A href="http://www.****************/"></A><!-- Speech and Agent Files Respectively. There numerous languages available for D/L.--> </a><!-- Speech and Agent Files Respectively. There numerous languages available for D/L.--><SCRIPT> Dim Merlin Dim LoadChar Dim CharLink Dim arrSpeech (5) Dim arrHref (3) arrHref (1) = "agentB.htm" arrHref (2) = "agentB.htm" arrHref (3) = "agentB.htm" 'You need to adjust the URL's in order to work. function strSpeech(intval) Set CharLink = Merlin.Speak (arrSpeech (intval)) 'newPage = arrHref (intval) end function Sub AgentControl_RequestComplete(ByVal Request) 'If Request = CharLink Then ' document.location.href = newPage 'End If End Sub Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub </SCRIPT></div> </head> </body> </span></span> </html>
کد شماری دو

<!-----www.nightskin.rozblog.com-----><OBJECT id=wolfi classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F>></OBJECT> <SCRIPT language=JavaScript/javascript> function LoadLocalAgent(CharID, CharACS) { LoadReq = wolfi.Characters.Load(CharID, CharACS); return(true); } var MerlinID; var MerlinACS; wolfi.Connected = true; MerlinLoaded = LoadLocalAgent(MerlinID, MerlinACS); Merlin = wolfi.Characters.Character(MerlinID); Merlin.Show(); Merlin.Play("Surprised"); Merlin.Play("GetAttention"); Merlin.Play("GetAttention"); Merlin.Play("Blink"); Merlin.speak(" jomleye shoma "); Merlin.speak(" jomleye shoma"); Merlin.Play("Blink"); Merlin.Play("Confused"); Merlin.Play("Blink"); Merlin.Play("Confused"); Merlin.Play("Surprised"); Merlin.Play('Gesturedown'); Merlin.speak(" jomleye shoma"); Merlin.speak(" jomleye shoma "); Merlin.Play('Gestureleft'); Merlin.speak(" jomleye shoma "); Merlin.speak(" jomleye shoma "); Merlin.speak(" jomleye shoma "); Merlin.speak(" jomleye shoma "); Merlin.speak("e-mail shoma"); Merlin.Play('Gestureright'); Merlin.speak(" jomleye shoma "); Merlin.Play("Blink"); Merlin.speak(" Good bye "); Merlin.Play("Write"); Merlin.Play("Read"); Merlin.Play("Process"); Merlin.Play("Search"); Merlin.Play("Idle1_1"); Merlin.Play("Acknowledge"); Merlin.Play("Alert"); Merlin.Play("Blink"); Merlin.Play("Confused"); Merlin.Play("Decline"); Merlin.Play("DontRecognize"); Merlin.Play("Hearing_2"); Merlin.Play("Hearing_3"); Merlin.Play("Hearing_4"); Merlin.Play("Pleased"); Merlin.Play("Sad"); Merlin.Play("Surprised"); Merlin.Play("Uncertain"); Merlin.Play("GetAttention"); Merlin.Play("DoMagic1"); Merlin.Play("DoMagic2"); Merlin.Play("StartListening"); Merlin.Play("StoptListening"); Merlin.Play("Congratulate"); Merlin.Play("Think"); Merlin.Play("LookDown"); Merlin.Play("LookDownBlink"); Merlin.Play("LookDownReturn"); Merlin.Play("LookUp"); Merlin.Play("LookUpBlink"); Merlin.Play("LookUpReturn"); Merlin.Play("LookRight"); Merlin.Play("LookRightBlink"); Merlin.Play("LookRightReturn"); Merlin.Play("LookLeft"); Merlin.Play("LookLeftBlink"); Merlin.Play("LookLeftReturn"); Merlin.Play("Congratulate"); Merlin.Play("Congratulate_2"); Merlin.Play("Idle2_1"); Merlin.Play("Idle2_2"); Merlin.Play("greet"); Merlin.Play("surprised"); Merlin.Play("announce"); Merlin.Play("Read"); Merlin.Play("Explain"); Merlin.Play("GestureRight"); Merlin.Play("Wave"); Merlin.Play("GestureLeft"); Merlin.Play("Pleased"); Merlin.Play("Blink"); Merlin.Play("GestureDown"); Merlin.Play("Gestureup"); Merlin.Play("GestureDown"); Merlin.Play("processing"); Merlin.Hide(); </SCRIPT> </HTML>