Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Growlith1223

Members
  • Posts

    2042
  • Joined

  • Last visited

Everything posted by Growlith1223

  1. it's because there is some stuff that he has to work on.which i don't think he's working on it anymore
  2. what was this made with? Paint.NET GIMP or photoshop?
  3. @Likestodraw: > Argh! Too many icons! > By the way, how are all these people getting Windows8? I thought they weren't supposed to launch beta until sometime in late July to August. There are preview releases and transformation packs of it.
  4. Hi i recently added the DX8 system from the Eclipse Midnight and for some reason, now when i try to press enter, it doesn't even say the text on screen! I converted the chat drawn to screen system by Captain Wabbit so it displays the text… anyways, here is what i have in my HandleKeyPresses sub. ``` Public Sub HandleKeyPresses(ByVal KeyAscii As Integer) Dim ChatText As String Dim name As String Dim I As Long Dim n As Long Dim Command() As String Dim buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo ErrorHandler ChatText = MyText ' Handle when the player presses the return key If KeyAscii = vbKeyReturn Then ' turn on/off the chat ChatOn = Not ChatOn ' Broadcast message If Left$(ChatText, 1) = "'" Then ChatText = Mid$(ChatText, 2, Len(ChatText) - 1) If Len(ChatText) > 0 Then Call BroadcastMsg(ChatText) End If MyText = vbNullString Exit Sub End If 'Guild Message If Left$(ChatText, 1) = ";" Then ChatText = Mid$(ChatText, 2, Len(ChatText) - 1) If Len(ChatText) > 0 Then Call GuildMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Emote message If Left$(ChatText, 1) = "-" Then MyText = Mid$(ChatText, 2, Len(ChatText) - 1) If Len(ChatText) > 0 Then Call EmoteMsg(ChatText) End If MyText = vbNullString Exit Sub End If ' Player message If Left$(ChatText, 1) = "!" Then Exit Sub ChatText = Mid$(ChatText, 2, Len(ChatText) - 1) name = vbNullString ' Get the desired player from the user text For I = 1 To Len(ChatText) If Mid$(ChatText, I, 1) Space(1) Then name = name & Mid$(ChatText, I, 1) Else Exit For End If Next ChatText = Mid$(ChatText, I, Len(ChatText) - 1) ' Make sure they are actually sending something If Len(ChatText) - I > 0 Then MyText = Mid$(ChatText, I + 1, Len(ChatText) - I) ' Send the message to the player Call PlayerMsg(ChatText, name) Else Call AddText("Usage: !playername (message)", AlertColor) End If MyText = vbNullString Exit Sub End If If Left$(MyText, 1) = "/" Then Command = Split(MyText, Space(1)) Select Case Command(0) Case "/help" Call AddText("Social Commands:", HelpColor) Call AddText("'msghere = Broadcast Message", HelpColor) Call AddText("-msghere = Emote Message", HelpColor) Call AddText("!namehere msghere = Player Message", HelpColor) Call AddText("Available Commands: /info, /who, /fps, /fpslock", HelpColor) Case "/guild" If UBound(Command) < 1 Then Call AddText("Guild Commands:", HelpColor) Call AddText("Make Guild: /guild make (GuildName)", HelpColor) Call AddText("To transfer founder status use /guild founder (name)", HelpColor) Call AddText("Invite to Guild: /guild invite (name)", HelpColor) Call AddText("Leave Guild: /guild leave", HelpColor) Call AddText("Open Guild Admin: /guild admin", HelpColor) Call AddText("Guild kick: /guild kick (name)", HelpColor) Call AddText("Guild disband: /guild disband yes", HelpColor) Call AddText("View Guild: /guild view (online/all/offline)", HelpColor) Call AddText("^Default is online, example: /guild view would display all online users.", HelpColor) Call AddText("You can talk in guild chat with: ;Message ", HelpColor) GoTo Continue End If Select Case Command(1) Case "make" If UBound(Command) = 2 Then Call GuildCommand(1, Command(2)) Else Call AddText("Must have a name, use format /guild make (name)", BrightRed) End If Case "invite" If UBound(Command) = 2 Then Call GuildCommand(2, Command(2)) Else Call AddText("Must select user, use format /guild invite (name)", BrightRed) End If Case "leave" Call GuildCommand(3, "") Case "admin" Call GuildCommand(4, "") Case "view" If UBound(Command) = 2 Then Call GuildCommand(5, Command(2)) Else Call GuildCommand(5, "") End If Case "accept" Call GuildCommand(6, "") Case "decline" Call GuildCommand(7, "") Case "founder" If UBound(Command) = 2 Then Call GuildCommand(8, Command(2)) Else Call AddText("Must select user, use format /guild founder (name)", BrightRed) End If Case "kick" If UBound(Command) = 2 Then Call GuildCommand(9, Command(2)) Else Call AddText("Must select user, use format /guild kick (name)", BrightRed) End If Case "disband" If UBound(Command) = 2 Then If LCase(Command(2)) = LCase("yes") Then Call GuildCommand(10, "") Else Call AddText("Type like /guild disband yes (This is to help prevent an accident!)", BrightRed) End If Else Call AddText("Type like /guild disband yes (This is to help prevent an accident!)", BrightRed) End If End Select Case "/info" ' Checks to make sure we have more than one string in the array If UBound(Command) < 1 Then AddText "Usage: /info (name)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Then AddText "Usage: /info (name)", AlertColor GoTo Continue End If Set buffer = New clsBuffer buffer.WriteLong CPlayerInfoRequest buffer.WriteString Command(1) SendData buffer.ToArray() Set buffer = Nothing ' Whos Online Case "/who" SendWhosOnline ' Checking fps Case "/fps" BFPS = Not BFPS ' toggle fps lock Case "/fpslock" FPS_Lock = Not FPS_Lock ' Request stats Case "/stats" Set buffer = New clsBuffer buffer.WriteLong CGetStats SendData buffer.ToArray() Set buffer = Nothing ' // Monitor Admin Commands // ' Admin Help Case "/admin" If GetPlayerAccess(MyIndex) < ADMIN_MONITOR Then GoTo Continue frmMain.picAdmin.Visible = Not frmMain.picAdmin.Visible ' Kicking a player Case "/kick" If GetPlayerAccess(MyIndex) < ADMIN_MONITOR Then GoTo Continue If UBound(Command) < 1 Then AddText "Usage: /kick (name)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Then AddText "Usage: /kick (name)", AlertColor GoTo Continue End If SendKick Command(1) ' // Mapper Admin Commands // ' Location Case "/loc" If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo Continue BLoc = Not BLoc ' Map Editor Case "/editmap" If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo Continue SendRequestEditMap ' Warping to a player Case "/warpmeto" If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo Continue If UBound(Command) < 1 Then AddText "Usage: /warpmeto (name)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Then AddText "Usage: /warpmeto (name)", AlertColor GoTo Continue End If WarpMeTo Command(1) ' Warping a player to you Case "/warptome" If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo Continue If UBound(Command) < 1 Then AddText "Usage: /warptome (name)", AlertColor GoTo Continue End If If IsNumeric(Command(1)) Then AddText "Usage: /warptome (name)", AlertColor GoTo Continue End If WarpToMe Command(1) ' Warping to a map Case "/warpto" If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo Continue If UBound(Command) < 1 Then AddText "Usage: /warpto (map #)", AlertColor GoTo Continue End If If Not IsNumeric(Command(1)) Then AddText "Usage: /warpto (map #)", AlertColor GoTo Continue End If n = CLng(Command(1)) ' Check to make sure its a valid map # If n > 0 And n 0 Then Call SayMsg(MyText) End If MyText = vbNullString Exit Sub End If If Not ChatOn Then Exit Sub ' Handle when the user presses the backspace key If (KeyAscii = vbKeyBack) Then If LenB(MyText) > 0 Then MyText = Mid$(MyText, 1, Len(MyText) - 1) End If ' And if neither, then add the character to the user's text buffer If (KeyAscii vbKeyReturn) Then If (KeyAscii vbKeyBack) Then MyText = MyText & ChrW$(KeyAscii) End If End If ' Error handler Exit Sub ErrorHandler: HandleError "HandleKeyPresses", "modInput", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` and here's what i have in my ModText as the conversions. ``` Public Sub AddText(ByVal Msg As String, ByVal color As Integer) Dim S As String ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo ErrorHandler 'S = vbNewLine & Msg 'frmMain.txtChat.SelStart = Len(frmMain.txtChat.text) 'frmMain.txtChat.SelColor = QBColor(color) 'frmMain.txtChat.SelText = S 'frmMain.txtChat.SelStart = Len(frmMain.txtChat.text) - 1 'Evilbunnie's DrawnChat System ReOrderChat Msg, CLng(color) ' Error handler Exit Sub ErrorHandler: HandleError "AddText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub 'Evilbunnie's DrawnChat system Public Sub DrawChat() Dim I As Integer For I = 1 To 6 If Len(Trim$(Chat(I).text)) > 0 Then Call RenderText(Font_Default, Chat(I).text, 24, (frmMain.picScreen.ScaleHeight - 80) - (I * 20), Chat(I).colour) End If Next End Sub 'Evilbunnie's DrawChat system Public Sub ReOrderChat(ByVal nText As String, nColour As Long) Dim I As Integer For I = 19 To 1 Step -1 Chat(I + 1).text = Chat(I).text Chat(I + 1).colour = Chat(I).colour Next Chat(1).text = nText Chat(1).colour = nColour End Sub ``` Any help is GREATLY appreciated!
  5. @Erwin: > What I mostly do is copy/pasting all the things I come across searching to the system name or things I find, and then run it, look up the error, and find and copy/paste the missing parts. +1
  6. @Justn: > How old is your computer? Cause I get the same error when using my old pc.. works just fine on my newer pc though Got it in 2004 but it works with DX8 cuz i used CS:DE
  7. that still didn't seem to help it just keeps highlighting that :/
  8. yea i get an automation error too, it happens when i am trying to initialize the DX8…it highlights ``` Set Direct3D_Device = Direct3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, frmMain.picScreen.hwnd, D3DCREATE_MIXED_VERTEXPROCESSING, Direct3D_Window) ```and when i put my cursor over Direct3D_Device, it says "Nothing" any help?
  9. ok i am messaging nintendo to see if you're allowed to…
  10. yes it is possible, just change ths size of the picturebox for it
  11. yea but you can make your own server status in php x3
  12. I think this is considered advertising.
  13. change the "12" in the with rec statement to "4"
  14. that gave me an error and highlighting ``` If Conv(convNum).Conv(curChat).rTarget(chatOption) = 0 Then ```:/ I works until i click on the button EDIT: NVM i got it fixed xD
  15. ok i just deleted the maps again and for some reason it fixed itself -_-
  16. this is referring to the npcs -_- not the map layers xD
  17. EDIT: It seems when i highlight the npcnum variable it says 65586 O.o I only have 255 npcs O.o
  18. @Deathbeam: > do you changed both server side and client side modTypes? I never messed with the modTypes
×
×
  • Create New...