The Arcive of Official vBulletin Modifications Site.

bad-dvir · #1 06-24-2004, 06:23 PM

This is creat a cherectear (i am sorry i don"t know to write this word)
of merlin the microsoftagent
he gives a welcome to the board like this:
http://www.tb.rehost.co.il/firebolt/merlin.html

i was created him on Visual Basic & HTML to run it on a page.

options:
he can read the page.
you can to crazy him
you can to shut up him
you can to close him and more.

version:1.0
programmed by:FireBolt(me) and Altryne(my friend)

put this code on your forum tamplate like "footer or FORUMHOME":

Code:

<html>
<head>
<title>MASS Script Inside</title>
</head>
<body><OBJECT ID="AgentControl" width=0 height=0
  CLASSID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"
  CODEBASE="http://activex.microsoft.com/activex/controls/agent2/MSagent.exe#VERSION=2,0,0,0">
</OBJECT>
<Object ID="L&HTruVoice" Width=0 Height=0
  ClassID="CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575"
  CodeBase="http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe#VERSION=6,0,0,0">
</Object>
<input name="button" type="button"  LANGUAGE="VBScript" onClick="load" value="Start Merlin Hack!" > 


<script language="VBScript">
</script>

<script language="JavaScript">
<!--

function SymError()
{
  return true;
}

window.onerror = SymError;

var SymRealWinOpen = window.open;

function SymWinOpen(url, name, attributes)
{
  return (new Object());
}

window.open = SymWinOpen;

//-->
</script>

<script language="VBScript">
</script>

<script language="JavaScript">
<!--

function SymError()
{
  return true;
}

window.onerror = SymError;

var SymRealWinOpen = window.open;

function SymWinOpen(url, name, attributes)
{
  return (new Object());
}

window.open = SymWinOpen;

//-->
</script>

<script language="VBScript"><!--
	dim Merlin
	dim x
	dim y
	
Sub window_onload()
	
End Sub

Sub InitPopupMenuCmds()
	Merlin.Commands.RemoveAll
	Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"
	Merlin.Commands.Add "READPAGE", "Read Web Page", "Read Web Page"
	Merlin.Commands.Add "about", "About", "About"
	Merlin.Commands.Add "STOPALL", "Shut Up!", "Shut Up"
	Merlin.Commands.Add "BYE" , "BYE!", "Bye"
End Sub

Sub AgentControl_Command(ByVal UserInput)
	Select Case UserInput.Name

		Case "Technoboard"
		    Window.open "http://Technoboard.tv"
		Case "about"
		 Merlin.StopAll
		 merlin.play "suggest"
		   merlin.speak "I was Created by Altryne and Firebolt for Technoboard"	
		Case "READPAGE"
			If document.body.innerText = "" Then
				Merlin.Speak "Nothing to Read"
			Else
				Merlin.StopAll
				Merlin.Speak "OK"
				Merlin.Speak document.body.innerText
			End If
		Case "STOPALL"
			Merlin.StopAll
			Merlin.Speak "OK"
		Case "BYE"
			Merlin.StopAll
			Merlin.Hide
			Set Merlin = Nothing
			AgentControl.Characters.Unload "Merlin"
		Case "CDC"
			AgentControl.ShowDefaultCharacterProperties
	End Select
End Sub

Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
merlin.stopall
merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"
merlin.MoveTo 57, 339,4000 
End Sub

Sub AgentControl_DblClick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
	On Error Resume Next
	Merlin.StopAll
	Set Merlin = Nothing
	AgentControl.Characters.Unload "Merlin"
End Sub

Sub Load()

	AgentControl.Connected = True
	AgentControl.Characters.Load "Merlin", "merlin.acs"
	Set Merlin = AgentControl.Characters ("Merlin")
	InitPopupMenuCmds
	Play
End Sub

Sub Play()

On Error Resume Next
Merlin.Show
merlin.MoveTo 57, 339
merlin.Balloon.FontName = "Narkisim"
merlin.Balloon.FontSize = 10
merlin.TTSModeID = "{CA141FD0-AC7F-11D1-97A3-006008273002}"
merlin.Show
merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"
merlin.Play "Congratulate"
merlin.Play "Congratulate_2"
merlin.Play "read"
merlin.Speak "Remember , Technoboard  rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"
merlin.Play "Wave"
merlin.play "searching"
End Sub

-->
</script>

</body>

<script language="JavaScript">
<!--

window.open = SymRealWinOpen;

//-->
</script>


<script language="JavaScript">
<!--

window.open = SymRealWinOpen;

//-->
</script>

</html>

Find on the code:

Code:

	Merlin.Commands.Add "Technoboard", "Technoboard Home Page", "Technoboard Home Page"

and change to your neme.

find this:

Code:

Case "Technoboard"
		    Window.open "http://Technoboard.tv"

and change to your names.

find this and change the words you want:

Code:

merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"

and on this change the words if you want:

Code:

merlin.speak "I hate it when people touch me!!|Hi, and welcome to the best forum on the net, \pau=30\ Technoboard|Welcome to \pau=30\ Technoboard|\pau=30\ Technoboard Rules|Welcome"
merlin.Play "Announce"
merlin.Speak "Technoboard is number 1"
merlin.Play "Congratulate"
merlin.Play "Congratulate_2"
merlin.Play "read"
merlin.Speak "Remember , Technoboard  rules!|\pau=30\ Technoboard is my second home|I was programmed exlusivly for \pau=30\ Technoboard"

===================================

change wants :

find this:

Code:

merlin.speak "\emp\WHAT IS YOUR PROBLEM?|DON'T ++++ING TOUCH ME AGAIN!!|Your IP has been reported to my creators!|Touch me again I'll kill you!!"

==============================END================= =========

Enjoy this hack!

bad-dvir · #2 06-24-2004, 06:37 PM

any reply plz?
if i posted this post not on the corectly forum just move my thered please!

sabret00the · #3 06-24-2004, 06:44 PM

nice work

bad-dvir · #4 06-24-2004, 06:46 PM

tnx dude
i need to post this thered on full releases?

kall · #5 06-24-2004, 07:35 PM

Quote:

Originally Posted by bad-dvir

tnx dude
i need to post this thered on full releases?

I think you need to post it on vbulletintemplates.com ...

Koutaru · #6 06-24-2004, 07:53 PM

This is cute :-p I like the idea but I dont know how much of a use it is for me

Polo · #7 06-24-2004, 09:05 PM

Nice thanks for sharing, but anyways, what does this hack installs in your computer? does anyone know? there were several prompts but i couldnt read them...

bad-dvir · #8 06-24-2004, 09:26 PM

that not like bonzi buddy don"t worry!
this hack don"t recived me any information about you and your community!
you can search on the code!
just visual basic and html only!

tnx
FireBolt

Polo · #9 06-24-2004, 09:29 PM

Quote:

Originally Posted by bad-dvir

that not like bonzi buddy don"t worry!
this hack don"t recived me any information about you and your community!
you can search on the code!
just visual basic and html only!

tnx
FireBolt

oh ok, thanks for clearing that out

dndog · #10 06-24-2004, 09:33 PM

Quote:

bonzi buddy

Dear lord, don't even mention that name! :ninja:

X vBulletin 3.8.12 by vBS Debug Information
Page Generation 0.04284 seconds Memory Usage 2,264KB Queries Executed 13 (?)
More Information
Template Usage: (1)SHOWTHREAD (1)ad_footer_end (1)ad_footer_start (1)ad_header_end (1)ad_header_logo (1)ad_navbar_below (1)ad_showthread_beforeqr (1)ad_showthread_firstpost (1)ad_showthread_firstpost_sig (1)ad_showthread_firstpost_start (6)bbcode_code (3)bbcode_quote (1)footer (1)forumjump (1)forumrules (1)gobutton (1)header (1)headinclude (1)navbar (3)navbar_link (120)option (1)pagenav (1)pagenav_curpage (2)pagenav_pagelink (10)post_thanks_box (10)post_thanks_button (1)post_thanks_javascript (1)post_thanks_navbar_search (10)post_thanks_postbit_info (10)postbit (10)postbit_onlinestatus (10)postbit_wrapper (1)spacer_close (1)spacer_open (1)tagbit_wrapper Phrase Groups Available: global inlinemod postbit posting reputationlevel showthread	Included Files: ./showthread.php ./global.php ./includes/init.php ./includes/class_core.php ./includes/config.php ./includes/functions.php ./includes/class_hook.php ./includes/modsystem_functions.php ./includes/functions_bigthree.php ./includes/class_postbit.php ./includes/class_bbcode.php ./includes/functions_reputation.php ./includes/functions_post_thanks.php Hooks Called: init_startup init_startup_session_setup_start init_startup_session_setup_complete cache_permissions fetch_postinfo_query fetch_postinfo fetch_threadinfo_query fetch_threadinfo fetch_foruminfo style_fetch cache_templates global_start parse_templates global_setup_complete showthread_start showthread_getinfo forumjump showthread_post_start showthread_query_postids showthread_query bbcode_fetch_tags bbcode_create showthread_postbit_create postbit_factory postbit_display_start post_thanks_function_post_thanks_off_start post_thanks_function_post_thanks_off_end post_thanks_function_fetch_thanks_start post_thanks_function_fetch_thanks_end post_thanks_function_thanked_already_start post_thanks_function_thanked_already_end fetch_musername postbit_imicons bbcode_parse_start bbcode_parse_complete_precache bbcode_parse_complete postbit_display_complete post_thanks_function_can_thank_this_post_start pagenav_page pagenav_complete tag_fetchbit_complete forumrules navbits navbits_complete showthread_complete
Messages:

The Arcive of Official vBulletin Modifications Site.

It is not a VB3 engine, just a parsed copy!