GammaÃâžÂ Posted April 11, 2010 Author Share Posted April 11, 2010 Everytime i want to compile my client i get this error: Block if Without end Ifits 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 <= 255 Then ' frmMirage.txtMyTextBox.Text = frmMirage.txtMyTextBox.Text & Chr$(KeyAscii) ' MyText = MyText & Chr$(KeyAscii)End IfEnd Sub```Please help :SGammaâ„¢ Link to comment Share on other sites More sharing options...
Ryoky Posted April 11, 2010 Share Posted April 11, 2010 I really dont know but maybe there is a End If missing? Link to comment Share on other sites More sharing options...
GammaÃâžÂ Posted April 11, 2010 Author Share Posted April 11, 2010 Nope all end if's are thereGammaâ„¢ Link to comment Share on other sites More sharing options...
Kite Posted April 11, 2010 Share Posted April 11, 2010 Did it highlight a line of code? Link to comment Share on other sites More sharing options...
Sealbreaker Posted April 11, 2010 Share Posted April 11, 2010 there are end if's missing…you should count every if and then every end if...-seal Link to comment Share on other sites More sharing options...
Kite Posted April 11, 2010 Share Posted April 11, 2010 Yeah, I counted alot, just want to ask if if highlighted a word/line of code.To start you off the very bottom code:```' 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 <= 255 Then ' frmMirage.txtMyTextBox.Text = frmMirage.txtMyTextBox.Text & Chr$(KeyAscii) ' MyText = MyText & Chr$(KeyAscii)End IfEnd Sub```Missing a End If. Link to comment Share on other sites More sharing options...
GammaÃâžÂ Posted April 11, 2010 Author Share Posted April 11, 2010 I fixed this :)Warning - while you were reading a new reply has been posted. You may wish to review your post.Gammaâ„¢ Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now