
Growlith1223
Members-
Posts
2042 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Everything posted by Growlith1223
-
it's because there is some stuff that he has to work on.which i don't think he's working on it anymore
-
Gates of Anubis Custom GUI in 4 Easy Steps!
Growlith1223 replied to IdoFreeLogos's topic in Tutorials
what was this made with? Paint.NET GIMP or photoshop? -
Everyone loves it.
-
It is in the downloads section.
-
@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.
-
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!
-
@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
-
ok i will send you a pm
-
bltInventoryItem
-
@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
-
that still didn't seem to help it just keeps highlighting that :/
-
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?
-
ok i am messaging nintendo to see if you're allowed to…
-
yes it is possible, just change ths size of the picturebox for it
-
yea but you can make your own server status in php x3
-
Quick! Admins are asleep! Count as high as possible!
Growlith1223 replied to emblem's topic in Forum Games
2 -
I think this is considered advertising.
-
Quick! Admins are asleep! Count as high as possible!
Growlith1223 replied to emblem's topic in Forum Games
1 -
change the "12" in the with rec statement to "4"
-
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
-
ok i just deleted the maps again and for some reason it fixed itself -_-
-
this is referring to the npcs -_- not the map layers xD
-
EDIT: It seems when i highlight the npcnum variable it says 65586 O.o I only have 255 npcs O.o
-
Bump Rly need this fixed :/
-
@Deathbeam: > do you changed both server side and client side modTypes? I never messed with the modTypes