GammaÃâžÂ

@Demonic: > I know, > It is a fresh copy I am simply telling you that your copy may have changed during the download process, so again Get fresh copy and try to compile it again just in case. Or figure out the type mismatch and fix it. I downloaded a fresh copy again, still the same….

@Demonic: > Hello, > If you are using vista try running Visual Studio 6.0 as an Administrator if possible. Some errors occur in my vista because of this. If you are not running a Vista then try getting a fresh copy and try to compile if the error persist it may have something to do with your Visual Studio 6.0 i always run visual basic 6.0 as administrator, and this is an fresh copy Gammaâ„¢

@Monterra: > how is the error code? Runtime error 13 - type mismatch

Hello, I wanted to compile my server's source but it highlighted a code and now i can't compile It highlights this:  and i didnt change anything. Gammaâ„¢

An Auto-Updater? http://www.touchofdeathforums.com/smf/index.php/topic,58493.0.html Gammaâ„¢

@Lavis: > I'm having some trouble on trying to find the address or directory on a certain code on Eclipse Stable can any one tell me how to find frmStable.shpHP so I can modify this feature? > > This Code if from modHandleData module. > > >! Public Sub Packet_PlayerHp(ByVal index As Long, ByVal MaxHp As Long, ByVal HP As Long) > Player(index).MaxHp = Val(MaxHp) > Call SetPlayerHP(index, Val(HP)) > If index = MyIndex And GetPlayerMaxHP(MyIndex) > 0 Then > ' frmMirage.shpHP.FillColor = RGB(208, 11, 0) > frmStable.shpHP.Width = ((GetPlayerHP(MyIndex)) /

I believe you can make it loop with a source edit i dont know exactly how cuz I never use menu music Gammaâ„¢

Robin made it so you can have more tilesets on a map in the next release of EO Gammaâ„¢

Wow nice work robin! and lol@ your last message Gammaâ„¢

Aha! Now i get it xD Gammaâ„¢

M. .:M MMMM. .:MMMM MMMMMMMM .:MMMMMMM :MMHHHMMMMHMM. .:MMMMMMMMM:. .:MMHHMHMM: :MMHHIIIHMMMM.:MMHHHHIIIHHMMMM. .:MMHIHIIHHM: MMMHIIIIHHMMMIIHHMHHIIIIIHHMMMMMMHHHIIIIHHM: :MMHIIIIIHMMMMMMMHHIIIIIIHHHMMMMMHHII:::IHM. MH:I:::IHHMMMMMHHII:::IIHHMMMHHHMMM:I:IHMM :MHI:HHIHMMHHIIHII::.::IIHMMHHIHHMMM::HMM: MI::HHMMIIM:IIHII::..::HM:MHHII:::IHHMM: MMMHII::..:::IHMMHHHMHHMMI:::…::IHM: :MHHI::....::::HMMMMMMHHI::.. ..:::HM: :MI:.:MH:.....:HMMMMHHMIHMMHHI:HH.:M M:.I..MHHHHHMMMIHMMMMHMMHHHHHMMH:.:M. M:.H..H I:HM:MHMHI:IM:I:MM:: MMM:M: :M:HM:.M I:MHMIIMMIIHM I:MM::.:MMI:M. 'M::MM:IMH:MMII MMHIMHI :M::IIHMM:MM MH:HMMHIHMMMMMMHMMIMHIIHHHHIMMHHMM MI:MMMMHI:::::IMM:MHI:::IMMMMHIM :IMHIHMMMMMM:MMMMMHHHHMMMHI:M HI:IMIHMMMM:MMMMMMHHHMI:.:M ..... ............M::..:HMMMMIMHIIHMMMMHII:M:::'''' ....:::MHI:.:HMMMMMMMMHHHMHHI::M:::::::'''''' '' ...:MHI:.::MMHHHMHMIHMMMMHH.MI.......... '' ...MHI::.::MHHHHIHHMM:::IHM ''' ' IMH.::..::HMMHMMMH::..:HM: :M:.H.IHMIIII::IIMHMMM:H.MH IMMMH:HI:MMIMI:IHI:HIMIHM: .MMI:.HIHMIMI:IHIHMMHIHI:MIM. .MHI:::HHIIIIIHHI:IIII::::M:IM. .MMHII:::IHIII::::::IIIIIIHMHIIM MHHHI::.:IHHII:::.:::IIIIHMHIIHM: MHHHII::..::MII::.. ..:IIIHHHII:IM. .MHHII::....:MHII::. .:IHHHI::IIHMM. MMHHII::.....:IHMI:. ..:IHII::..:HHMM MHHII:::......:IIHI...:IHI::.....::HM: :MMH:::........ ...::..::.... ...:IHMM IMHIII:::.......... .........::IHMM. :MHIII::::...... .......::IHMM: MHHIII::::... ......::IHMM: IMHHIII:::... .....::IIHMM, :MHHIII:::I:::... ....:::I:::IIHMM MMHHIII::IHI:::...........:::IIH:IHMM :MMHHII:IIHHI::::::.....:::::IH:IHMIM MMMHHII:IIHHI:::::::::::::IHI:IIHM:M. MMMHHIII::IHHII:::::::::IHI:IIIHMM:M: :MMHHHIII::IIIHHII::::IHI..IIIHHM:MHM :MMMHHII:..:::IHHMMHHHHI:IIIIHHMM:MIM .MMMMHHII::.:IHHMM:::IIIIIIHHHMM:MI.M .MMMMHHII::.:IHHMM:::IIIIIIHHHMM:MI.M .MMMMHHMHHII:::IHHMM:::IIIIIHHHHMM:MI.IM. .MMHMMMHHHII::::IHHMM::IIIIIHHHHMM:MMH::IM. .MMHHMHMHHII:::.::IHMM::IIIIHHHMMMM:MMH::IHM :MHIIIHMMHHHII:::IIHMM::IIIHHMMMMM::MMMMHHHMM. MMHI:IIHMMHHHI::::IHMM:IIIIHHHMMMM:MMMHI::IHMM. MMH:::IHMMHHHHI:::IHMM:IIIHHHHMMMM:MMHI:.:IHHMM. :MHI:::IHMHMHHII::IHMM:IIIHHHMMMMM:MHH::.::IHHM: 'MHHI::IHMMHMHHII:IHMM:IIHHHHMMMM:MMHI:...:IHHMM. :MHII:IIHMHIHHIIIIHMM:IIHHHHMMMM:MHHI:...:IIHMM: 'MHIII:IHHMIHHHIIHHHMM:IHHHMMMMM:MHHI:..::IIHHM: :MHHIIIHHMIIHHHIHHHMM:HHHHMMMMM:MHII::::IIIHHMM MHHIIIIHMMIHHHIIHHMM:HHHHMMMM:MMHHIIHIIIIIHHMM. 'MHHIIIHHMIIHHIIIHMM:HHHMMMMH:MHHMHII:IIIHHHMM: 'MHHIIIHMMIHHHIHHMM:HHHMMMHH:MMIMMMHHHIIIHHMM: 'MHHIIHHMIHHHHHMMM:HHHMMMH:MIMMMMMMMMMMHIHHM: 'MHIIIHMMIHHHHHMM:HHHMMMH:IMMMMMHHIHHHMMHHM' :MHHIIHMIHHHHHMM:HHHMMMM:MMHMMHIHMHI:IHHHM MHHIIHM:HHHHHMM:HHHMMMM:MMMHIHHIHMM:HHIHM MHHIHM:IHHHHMM:HHHHMM:MMHMIIHMIMMMHMHIM: :MHIHMH:HHHHMM:HHHHMM:MMHIIHMIIHHMMHIHM: MMHHMH:HHHHMM:HHHHMM:MHHIHMMIIIMMMIIHM' 'MMMMH:HHHHMM:HHHMM:MHHHIMMHIIII::IHM: :MMHM:HHHHMM:HHHMM:MHIHIMMHHIIIIIHM: MMMM:HHHHMM:HHHHM:MHHMIMMMHHHIHHM:MMMM. :MMM:IHHHMM:HHHMM:MHHMIIMMMHHMM:MMMMMMM: :MMM:IHHHM:HHHHMM:MMHHHIHHMMM:MMMMMMMMMM MHM:IHHHM:HHHMMM:MMHHHHIIIMMIIMMMMMMMMM MHM:HHHHM:HHHMMM:HMMHHHHHHHHHMMMMMMMMM: .MI:MM:MHHMM:MHMMHMHHMMMMHHHHHHHMMMMMMMMM' :IM:MMIM:M:MM:MH:MM:MH:MMMMMHHHHHMMMMMMMM' :IM:M:IM:M:HM:IMIHM:IMI:MMMMMHHHMMMMMM:' 'M:MHM:HM:MN:HMIHM::M' '::MMMMMMM:' 'M'HMM'M''M''HM'I' Kitty ;D Gammaâ„¢

@Harris: > @Gammaâ„¢: > > > *looks at harris's website* > > why the hell he thinks its bad? *thinks* > > Maybe hes just amd you give critic to him :P > > > > Gammaâ„¢ > > I think I'm giving him a bit more than criticism. lol i dont get it xD Gammaâ„¢

*looks at harris's website* why the hell he thinks its bad? *thinks* Maybe hes just mad you give critic to him :P Gammaâ„¢ Warning - while you were typing a new reply has been posted. You may wish to review your post. @TheCrasH: > @Gammaâ„¢: > > > I agree with harris that a self made- website with html or idk what lang is better than wix or webs.com > > @sheezer maybe your just too lazy to learn html and make your own website instead of using wix, try to learn html and you will see that wix fails… > > > > Gammaâ„¢ > > +1903 ty

I agree with harris that a self made- website with html or idk what lang is better than wix or webs.com @sheezer maybe your just too lazy to learn html and make your own website instead of using wix, try to learn html and you will see that wix fails… Gammaâ„¢

what do you mean? :P i dont get it Gammaâ„¢

@Declineo: > @Gammaâ„¢: > > > it means that the speed and magic buttons are wrong placed you can fix that with editing the source you need visual basic 6.0 for that. > > > > Gammaâ„¢ > > Can you tell what line? > I believe it is in **mainmirage.frm** not it? yep its in frmmirage.frm just swap the the +'s and its done Gammaâ„¢

it means that the speed and magic buttons are wrong placed you can fix that with editing the source you need visual basic 6.0 for that. Gammaâ„¢

I fixed this :) Warning - while you were reading a new reply has been posted. You may wish to review your post. Gammaâ„¢

Nope all end if's are there Gammaâ„¢

Everytime i want to compile my client i get this error: Block if Without end If its in this sub: ``` Sub HandleKeypresses(ByVal KeyAscii As Integer) Dim ChatText As String Dim Name As String Dim i As Long MyText = frmMirage.txtMyTextBox.Text ' Handle when the player presses the return key If (KeyAscii = vbKeyReturn) Then frmMirage.txtMyTextBox.Text = vbNullString If Player(MyIndex).y - 1 > -1 Then If Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).Type = TILE_TYPE_SIGN And Player(MyIndex).Dir = DIR_UP Then Call AddText("The Sign Reads:", BLACK) If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1) vbNullString Then Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String1), GREY) End If If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2) vbNullString Then Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String2), GREY) End If If Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3) vbNullString Then Call AddText(Trim$(Map(GetPlayerMap(MyIndex)).Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex) - 1).String3), GREY) End If Exit Sub End If End If ' Broadcast message If Mid$(MyText, 1, 1) = "'" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Emote message If Mid$(MyText, 1, 1) = "-" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Player message If Mid$(MyText, 1, 1) = "!" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) Name = vbNullString ' Get the desired player from the user text For i = 1 To Len(ChatText) If Mid$(ChatText, i, 1) " " Then Name = Name & Mid$(ChatText, i, 1) Else Exit For End If Next i ' Make sure they are actually sending something If Len(ChatText) - i > 0 Then ChatText = Mid$(ChatText, i + 1, Len(ChatText) - i) ' Send the message to the player Call PlayerMsg(ChatText, Name) Else Call AddText("Usage: !playername msghere", AlertColor) End If MyText = vbNullString Exit Sub End If ' // Commands // ' Verification User If LCase$(Mid$(MyText, 1, 5)) = "/info" Then ChatText = Mid$(MyText, 7, Len(MyText) - 5) If LenB(ChatText) 0 Then Call SendData("getstats" & SEP_CHAR & ChatText & END_CHAR) Else Call AddText("Please enter a player name.", BRIGHTRED) End If MyText = vbNullString Exit Sub End If ' Whos Online If LCase$(Mid$(MyText, 1, 4)) = "/who" Then Call SendWhosOnline MyText = vbNullString Exit Sub End If If LCase$(Mid$(MyText, 1, 6)) = "/where" Then Call AddText("Map: " & GetPlayerMap(MyIndex) & "; X: " & GetPlayerX(MyIndex) & "; Y: " & GetPlayerY(MyIndex), GREY) MyText = vbNullString Exit Sub End If ' Checking fps If Mid$(MyText, 1, 4) = "/fps" Then If BFPS = False Then BFPS = True Else BFPS = False End If MyText = vbNullString Exit Sub End If ' Show inventory If LCase$(Mid$(MyText, 1, 4)) = "/inv" Then frmMirage.picInventory.Visible = True MyText = vbNullString Exit Sub End If ' Request stats If LCase$(Mid$(MyText, 1, 6)) = "/stats" Then Call SendData("getstats" & SEP_CHAR & GetPlayerName(MyIndex) & END_CHAR) MyText = vbNullString Exit Sub End If ' Refresh Player If LCase$(Mid$(MyText, 1, 8)) = "/refresh" Then Call SendData("refresh" & END_CHAR) MyText = vbNullString Exit Sub End If ' Decline Chat If LCase$(Mid$(MyText, 1, 12)) = "/chatdecline" Then Call SendData("dchat" & END_CHAR) MyText = vbNullString Exit Sub End If ' Accept Chat If LCase$(Mid$(MyText, 1, 5)) = "/chat" Then Call SendData("achat" & END_CHAR) MyText = vbNullString Exit Sub End If If LCase$(Mid$(MyText, 1, 6)) = "/trade" Then ' Make sure they are actually sending something If Len(MyText) > 7 Then ChatText = Mid$(MyText, 8, Len(MyText) - 7) Call SendTradeRequest(ChatText) Else Call AddText("Usage: /trade playernamehere", AlertColor) End If MyText = vbNullString Exit Sub End If ' Accept Trade If LCase$(Mid$(MyText, 1, 7)) = "/accept" Then Call SendAcceptTrade MyText = vbNullString Exit Sub End If ' Decline Trade If LCase$(Mid$(MyText, 1, 8)) = "/decline" Then Call SendDeclineTrade MyText = vbNullString Exit Sub End If ' Party request If LCase$(Mid$(MyText, 1, 6)) = "/party" Then ' Make sure they are actually sending something If Len(MyText) > 7 Then ChatText = Mid$(MyText, 8, Len(MyText) - 7) Call SendPartyRequest(ChatText) Else Call AddText("Usage: /party playernamehere", AlertColor) End If MyText = vbNullString Exit Sub End If ' Join party If LCase$(Mid$(MyText, 1, 5)) = "/join" Then Call SendJoinParty MyText = vbNullString Exit Sub End If ' Leave party If LCase$(Mid$(MyText, 1, 6)) = "/leave" Then Call SendLeaveParty MyText = vbNullString Exit Sub End If ' House Editor If LCase$(Mid$(MyText, 1, 12)) = "/houseeditor" Then Call SendRequestEditHouse MyText = vbNullString Exit Sub End If ' // Moniter Admin Commands // If GetPlayerAccess(MyIndex) > 0 Then ' weather command If LCase$(Mid$(MyText, 1, 8)) = "/weather" Then If Len(MyText) > 8 Then MyText = Mid$(MyText, 9, Len(MyText) - 8) If IsNumeric(MyText) = True Then Call SendData("weather" & SEP_CHAR & Val(MyText) & END_CHAR) Else If Trim$(LCase$(MyText)) = "none" Then i = 0 End If If Trim$(LCase$(MyText)) = "rain" Then i = 1 End If If Trim$(LCase$(MyText)) = "snow" Then i = 2 End If If Trim$(LCase$(MyText)) = "thunder" Then i = 3 End If Call SendData("weather" & SEP_CHAR & i & END_CHAR) End If End If MyText = vbNullString Exit Sub End If ' Kicking a player If LCase$(Mid$(MyText, 1, 5)) = "/kick" Then If Len(MyText) > 6 Then MyText = Mid$(MyText, 7, Len(MyText) - 6) Call SendKick(MyText) End If MyText = vbNullString Exit Sub End If ' Global Message If Mid$(MyText, 1, 1) = "'" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call GlobalMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Admin Message If Mid$(MyText, 1, 1) = "=" Then ChatText = Mid$(MyText, 2, Len(MyText) - 1) If Len(Trim$(ChatText)) > 0 Then Call AdminMsg(ChatText) End If MyText = vbNullString Exit Sub End If End If ' // Mapper Admin Commands // If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then ' Location If Mid$(MyText, 1, 4) = "/loc" Then If BLoc = False Then BLoc = True Else BLoc = False End If MyText = vbNullString Exit Sub End If ' Map Editor If LCase$(Mid$(MyText, 1, 10)) = "/mapeditor" Then Call SendRequestEditMap MyText = vbNullString Exit Sub End If ' Map report If LCase$(Mid$(MyText, 1, 10)) = "/mapreport" Then Call SendData("mapreport" & END_CHAR) MyText = vbNullString Exit Sub End If ' Setting sprite If LCase$(Mid$(MyText, 1, 10)) = "/setsprite" Then If Len(MyText) > 11 Then ' Get sprite # MyText = Mid$(MyText, 12, Len(MyText) - 11) Call SendSetPlayerSprite(GetPlayerName(MyIndex), Val(MyText)) End If MyText = vbNullString Exit Sub End If ' Setting player sprite If LCase$(Mid$(MyText, 1, 16)) = "/setplayersprite" Then If Len(MyText) > 19 Then i = Val(Mid$(MyText, 17, 1)) MyText = Mid$(MyText, 18, Len(MyText) - 17) Call SendSetPlayerSprite(i, Val(MyText)) End If MyText = vbNullString Exit Sub End If ' Respawn request If Mid$(MyText, 1, 8) = "/respawn" Then Call SendMapRespawn MyText = vbNullString Exit Sub End If ' MOTD change If Mid$(MyText, 1, 5) = "/motd" Then If Len(MyText) > 6 Then MyText = Mid$(MyText, 7, Len(MyText) - 6) If Trim$(MyText) vbNullString Then Call SendMOTDChange(MyText) End If End If MyText = vbNullString Exit Sub End If ' Check the ban list If Mid$(MyText, 1, 3) = "/banlist" Then Call SendBanList MyText = vbNullString Exit Sub End If ' Banning a player If LCase$(Mid$(MyText, 1, 4)) = "/ban" Then If Len(MyText) > 5 Then MyText = Mid$(MyText, 6, Len(MyText) - 5) Call SendBan(MyText) MyText = vbNullString End If Exit Sub End If End If ' // Developer Admin Commands // If GetPlayerAccess(MyIndex) >= ADMIN_DEVELOPER Then ' Editing item request If Mid$(MyText, 1, 9) = "/edititem" Then Call SendRequestEditItem MyText = vbNullString Exit Sub End If ' Editing emoticon request If Mid$(MyText, 1, 13) = "/editemoticon" Then Call SendRequestEditEmoticon MyText = vbNullString Exit Sub End If ' Editing emoticon request If Mid$(MyText, 1, 12) = "/editelement" Then Call SendRequestEditElement MyText = vbNullString Exit Sub End If ' Editing arrow request If Mid$(MyText, 1, 13) = "/editarrow" Then Call SendRequestEditArrow MyText = vbNullString Exit Sub End If ' Editing npc request If Mid$(MyText, 1, 8) = "/editnpc" Then Call SendRequestEditNPC MyText = vbNullString Exit Sub End If ' Editing shop request If Mid$(MyText, 1, 9) = "/editshop" Then Call SendRequestEditShop MyText = vbNullString Exit Sub End If ' Editing spell request If LCase$(Trim$(MyText)) = "/editspell" Then Call SendRequestEditSpell MyText = vbNullString Exit Sub End If End If ' // Creator Admin Commands // If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then ' Giving another player access If LCase$(Mid$(MyText, 1, 10)) = "/setaccess" Then ' Get access # i = Val(Mid$(MyText, 12, 1)) MyText = Mid$(MyText, 14, Len(MyText) - 13) Call SendSetAccess(MyText, i) MyText = vbNullString Exit Sub End If ' Reload Scripts If LCase$(Trim$(MyText)) = "/reload" Then Call SendReloadScripts MyText = vbNullString Exit Sub End If ' Tell them its not a valid command If Left$(Trim$(MyText), 1) = "/" Then For i = 0 To MAX_EMOTICONS If Trim$(Emoticons(i).Command) = Trim$(MyText) And Trim$(Emoticons(i).Command) "/" Then Call SendData("checkemoticons" & SEP_CHAR & i & END_CHAR) MyText = vbNullString Exit Sub End If Next i Call SendData("checkcommands" & SEP_CHAR & MyText & END_CHAR) MyText = vbNullString Exit Sub End If ' Say message If Len(Trim$(MyText)) > 0 Then Call SayMsg(MyText) End If MyText = vbNullString Exit Sub End If ' Handle when the user presses the backspace key If (KeyAscii = vbKeyBack) Then If Len(MyText) > 0 Then ' MyText = mid$(MyText, 1, Len(MyText) - 1) End If End If ' And if neither, then add the character to the user's text buffer If (KeyAscii vbKeyReturn) And (KeyAscii vbKeyBack) Then ' Make sure they just use standard keys, no gay shitty macro keys If KeyAscii >= 32 And KeyAscii

@teh: > I have a few problems with my source > > I'm trying to make a frame, but when it send's the data it fail and nothing happening (When I click the button) > > In client.vbp > ``` > Private Sub NoPikachu_Click() > Call SendData("NoPikachu" & SEP_CHAR) > End Sub > > Private Sub YesPikachu_Click() > Call SendData("YesPikachu" & SEP_CHAR) > End Sub > > ``` > In server.vbp > ``` > Select Case LCase$(Parse(0)) > Case "YesPikachu" > Call PlayerMsg(Index, "You choose a Pikachu!", BRIGHTGREEN) > 'Call GivePokemon() > Exit Sub > > Case "NoPikachu" > Call PlayerMsg(Index, "You did NOT choose Pikachu as your starter Pokemon!", BRIGHTGREEN) > Exit Sub > ``` > It's not adding the text in your textbox. > I guess Im doing something wrong, but what? In sadscript a msg is PlayerMsg But in vb6 its Call Addtext("somethingt here") Thats the only thing i see thats wrong, Gammaâ„¢

@westin444: > type into chat of the client: > 'Text here > > (note the " ' ") i mean like in a command like: Case "/helo world" and here a globalmsg in sadscript its: Call GlobalMsg But in vb6 that doesnt work Gammaâ„¢

how to make a globalmsg /command in vb6? cuz eo doesnt have a main.txt Please help Gammaâ„¢