آدمک مرلین سخنگو ( توپه توپه )
با کدهای زیر میتونید آدمک سخنگو ( یا همون مرلین ) رو داشته باشین . دو کد زیر متفاوت هستند زیرا طوری برنامه ریزی شده که حرکاتشون فرق دارد . دو کد را هیچ وقت با هم استفاده نکنید . در قسمتهایی که نوشته جمله شما باید جمله مورد نظرتون رو حتما به صورت فینگلیش ( فارسی نوشتن با حروف انگلیسی ) بنویسید تا آدمک ( مرلین ) اونو برای مخاطب بخونه ، باور کنید که میشه . اگه باور نمیکنید روی نمونه ها در آخر پست کلیک کنید و ببینید . من شخصا با این کدها از همه بیشتر حال می کنم .
مرلین 1:
کد:
<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 LANGUAGE="VBScript">
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:\Windows\msagent\chars\merlin.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=800\\vol=65535\darde eshgh \hamishe \mara\shekast 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>
مرلین 2:
کد:
<OBJECT id=wolfi classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F>></OBJECT>
<SCRIPT language=JavaScript type=text/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>
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد دو خط قرمز بسیار زیبا به دنبال موس
کد دو خط قرمز بسیار زیبا به دنبال موس :
کد:
<!-- START OF Mouse Cursor Crosshairs DHTML -->
<!-- SUMMARY BRIEF
This DHTML script will make a crosshair to follow
your mouse cursor around.
You can change the color of the crosshair by changing
the color hex codes in the <style> tag in the <head>
of your document.
-->
<!-- Put this portion of the script inside of your <HEAD> tag -->
<style>
<!--
#leftright, #topdown{
position: absolute;
left: 0;
top: 0;
width: 1px;
height: 1px;
layer-background-color: #FF0000;
background-color: #FF0000;
z-index: 100;
font-size: 1px;
}
-->
</style>
<!-- Put this code after your <BODY> tag. -->
<div id="leftright" style="width:expression(document.body.clientWidth-2)"></div>
<div id="topdown" style="height:expression(document.body.clientHeight-2)"></div>
<script language="JavaScript1.2">
<!--
if (document.all&&!window.print){
leftright.style.width=document.body.clientWidth-2
topdown.style.height=document.body.clientHeight-2
}
else if (document.layers){
document.leftright.clip.width=window.innerWidth
document.leftright.clip.height=1
document.topdown.clip.width=1
document.topdown.clip.height=window.innerHeight
}
function followmouse1(){
//move cross engine for IE 4+
leftright.style.pixelTop=document.body.scrollTop+event.clientY+1
topdown.style.pixelTop=document.body.scrollTop
if (event.clientX<document.body.clientWidth-2)
topdown.style.pixelLeft=document.body.scrollLeft+event.clientX+1
else
topdown.style.pixelLeft=document.body.clientWidth-2
}
function followmouse2(e){
//move cross engine for NS 4+
document.leftright.top=e.y+1
document.topdown.top=pageYOffset
document.topdown.left=e.x+1
}
if (document.all)
document.onmousemove=followmouse1
else if (document.layers){
window.captureEvents(Event.MOUSEMOVE)
window.onmousemove=followmouse2
}
function regenerate(){
window.location.reload()
}
function regenerate2(){
setTimeout("window.onresize=regenerate",400)
}
if ((document.all&&!window.print)||document.layers)
//if the user is using IE 4 or NS 4, both NOT IE 5+
window.onload=regenerate2
//-->
</script>
کد پرتاب ستاره در بک گراند
کد پرتاب ستاره را با کدهای بک گراند همزمان نباید استفاده کنید .
کد:
<body>
<script LANGUAGE="JavaScript1.2">
<!--
//set Interval between each firework display,
var intervals=2000
var sparksOn = true;
var speed = 25;
var power = 1;
//Dont change these values-------
var documentWidth=documentHeight=randomx=randomy=leftcorner=topcorner=0
var ns=(document.layers);
var ie=(document.all);
var sparksAflyin = false;
var allDivs = new Array(10);
var totalSparks = 0;
//-------------------------------
function initAll(){
if(!ns && !ie){
sparksOn = false;
return;
}
setInterval("firework()",intervals)
if (ns)
document.captureEvents(Event.MOUSEDOWN | Event.MOUSEMOVE);
for(dNum=0; dNum<7; ++dNum){
if(ie)
allDivs[dNum]=eval('document.all.sDiv'+dNum+'.style');
else
allDivs[dNum]=eval('document.layers["sDiv'+dNum+'"]');
}
}
function firework(){
//below code detects the browser dimenions
if (ie){
documentWidth=document.body.clientWidth
documentHeight=document.body.clientHeight
leftcorner=document.body.scrollLeft
topcorner=document.body.scrollTop
}
else if (ns){
documentWidth=window.innerWidth
documentHeight=window.innerHeight
leftcorner=pageXOffset
topcorner=pageYOffset
}
//below code randomly generates a set of coordinates that fall within the dimension
randomx=leftcorner+Math.floor(Math.random()*documentWidth)
randomy=topcorner+Math.floor(Math.random()*documentHeight)
if(sparksOn){
if(!sparksAflyin){
sparksAflyin=true;
totalSparks=0;
for(var spark=0;spark<=6;spark++){
dx=Math.round(Math.random()*50);
dy=Math.round(Math.random()*50);
moveTo(spark,randomx,randomy,dx,dy);
}
}
}
}
function moveTo(i,tempx,tempy,dx,dy){
if(ie){
if(tempy+80>(document.body.offsetHeight+document.body.scrollTop))
tempy=document.body.offsetHeight+document.body.scrollTop-80;
if(tempx+80>(document.body.offsetWidth+document.body.scrollLeft))
tempx=document.body.offsetWidth+document.body.scrollLeft-80;
}
if(tempx>-50&&tempy>-50){
tempx+=dx;tempy+=dy;
allDivs[i].left=tempx;
allDivs[i].top=tempy;
dx-=power;dy-=power;
setTimeout("moveTo("+i+","+tempx+","+tempy+","+dx+","+dy+")",speed)
}
else
++totalSparks
if(totalSparks==7){
sparksAflyin=false;
totalSparks=0;
}
}
window.onload=initAll
//End-->
</script>
<style>
#sDiv0 {position:absolute; height:1; width:1; font-family:arial black; font-size:25px; color:Aqua;}
#sDiv1 {position:absolute; height:1; width:1; font-family:arial black; font-size:22px; color:red;}
#sDiv2 {position:absolute; height:1; width:1; font-family:arial black; font-size:20px; color:blue;}
#sDiv3 {position:absolute; height:1; width:1; font-family:arial black; font-size:15px; color:orange;}
#sDiv4 {position:absolute; height:1; width:1; font-family:arial black; font-size:25px; color:yellow;}
#sDiv5 {position:absolute; height:1; width:1; font-family:arial black; font-size:25px; color:lightgreen;}
#sDiv6 {position:absolute; height:1; width:1; font-family:arial black; font-size:20px; color:silver;}
</style>
<p></p>
<div id="sDiv0">
*</div>
<div id="sDiv1">
*</div>
<div id="sDiv2">
*</div>
<div id="sDiv3">
*</div>
<div id="sDiv4">
*</div>
<div id="sDiv5">
*</div>
<div id="sDiv6">
*</div>
</body>
</html>
<!--END CODE - Powered java script code by WWW.SONYCARD20.COM-->
کد برای از چپ به راست بردن اسکرول
کد برای از چپ به راست بردن اسکرول :
کد:
<!-- DESCRIPTION: This will make your webpage slide to the right
automatically upon loading of the webpage.
INSTRUCTIONS: Place this script in the HEAD tags of
your webpage. Place your message (WITHOUT ANY SPACES OR BREAKS)
in the page below the BODY tag. Sentences must be continuous or
the script will not work. (Example: Hi.....this....is....a...continuous...sentence..)
If you find the script stopping before it finishes your sentence, change the
H<=4000 variable to a larger number.
FUNCTIONALITY: Works only in NETSCAPE.
-->
<HEAD>
<SCRIPT Language="JavaScript">
//Modified by CoffeeCup Software
//This code is Copyright (c) 1997 CoffeeCup Software
//all rights reserved. License is granted to a single user to
//reuse this code on a personal or business Web Site.
<!--
function coffeeit(){
for (H=0; H<=3000; H++){
parent.scroll(H,0)
}
}
//-->
</SCRIPT>
</HEAD>
<BODY OnLoad="coffeeit()" BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FF0000 VLINK=#FF0000 ALINK=#FF0000>
<P><P><P><BR><BR><BR><P><P><P><BR><BR><BR><P><P><P><P><BR><BR><BR><P><P><P>
<FONT SIZE=5 FACE=ARIAL BLACK>
