Private Sub Generate_Loader_Click()
Dim kk As Integer
Load 1 = "<div>"
Load 2 = "</head>"
Load 3 = "<html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><title>"
Load 4 = Text1.Text
Load 5 = "</title></head><body bgcolor='black' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'><div align='center'><object classid='clsid:166B1BCA-3F9C-11CF-8075-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=10,8,5,1,0' id='habbo' width='720' height='540'>"
Load 6 = "<param name='src' value='"
Load 7 = Text4.Text
Load 10 = "><param name='swRemote' value='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true' '><param name='swStretchStyle' value='none'><param name='swText' value=''><param name='bgColor' value='#000000'>"
Load 11 = "<param name='sw6' value='"
Load 12 = Text6.Text
Load 13 = "'><param name='sw2' value='connection.info.host="""
Load 14 = Text3.Text
Load 15 = ";connection.info.port="
Load 16 = Text2.Text
Load 17 = "'<param name='sw4' val"
Load 18 = "ue='connection.mus.host=game.habbohotel.co.uk;connection.mus.port=30001'>"
Load 19 = "<param name='sw3' value='client.reload.url="
Load 20 = Text7.Text
Load 21 = "'><param name='sw1' value='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.ch'><param name='sw5' value='external.variables.txt=''"
Load 22 = Text5.Text
Load 23 = "><embed src=''"
Load 24 = Text4.Text
Load 25 = "bgColor='#000000' width='720' height='540' swRemote='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true'' swStretchStyle='none' swText='' type='application/x-director' pluginspage='http://www.macromedia.com/shockwave/download/'sw6='external.texts.txt='sw2='connection.info.host="
Load 26 = Text5.Text
Load 27 = "sw2='connection.info.host="
Load 28 = Text3.Text
Load 29 = ";connection.info.port="
Load 30 = Text2.Text
Load 31 = "'sw4='connection.mus.host=game.habbohotel.co.uk;con nection.mus.port=30001'sw3='client.reload.url="
Load 32 = Text7.Text
Load 33 = "'sw1='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.co.uk'sw5='external.variables.txt='></embed></object>"
Load 34 = Text5.Text
Load 35 = "></embed></object>"
Load 36 = "</div>"
kk = FreeFile
newL = load1 & load2 & load3 & load4 & load5 & load6 & load7 & load8 & load9 & load10 & load11 & load12 & load13 & load14 & load15 & load16 & load17 & load18 & load19 & load20 & load19 & load20 & load21 & load22 & load23 & load24 & load25 & load26 & load27 & load28 & load29 & load30 & load31 & load32 & load33 & load34 & load35 & load36
Open (DBP & loadr & ".html") For Output As #kk
Print #kk, newL
Close #kk
MsgBox "Congragulations! Your loader has been successfully made!", ybOkOnly, "Rapture Loader Generator"
End Sub
