vbGore Free Online RPG Engine

Revolutionizing Visual Basic ORPG Development
It is currently Tue May 21, 2013 8:37 am

Board index » Tutorials

All times are UTC - 8 hours




Post new topic Reply to topic  Page 1 of 2
  [ 18 posts ]  Go to page 1, 2  Next
  Print view Previous topic | Next topic 
Author Message
GoreMania
 Post subject: Chat Command Shortcuts
PostPosted: Wed Nov 12, 2008 4:39 pm 
Bytewise Operator

Joined: Wed Oct 08, 2008 8:09 am
Posts: 148
The next big thing! Chat command shortcuts! no need to remember those "/command"s anymore!


Go to GrhRaw.txt and update the following Grh settings:
Grh1440=1-140-0-0-410-160-(128)
Grh1430=1-134-0-0-410-160-(128)
Grh1420=1-128-0-0-410-160-(128)
Grh1410=1-122-0-0-410-160-(128)
Grh1400=1-116-0-0-410-160-(128)
Grh107=1-23-0-0-410-160-(128)

Now go to the various Skin files and find [CHATWINDOW]
change the screenWidth to 410 and screenHeight to 160
Now add the following to that section:
Code:
ChatX=9
ChatY=136
ChatWidth=332
ChatHeight=16


DepositX=347
DepositY=5
DepositWidth=15
DepositHeight=20

WithdrawX=367
WithdrawY=6
WithdrawWidth=15
WithdrawHeight=20

BalanceX=385
BalanceY=5
BalanceWidth=17
BalanceHeight=21

ShoutX=346
ShoutY=30
ShoutWidth=18
ShoutHeight=13

WhisperX=367
WhisperY=27
WhisperWidth=15
WhisperHeight=19

WhoX=383
WhoY=28
WhoWidth=20
WhoHeight=19

SkillsX=345
SkillsY=49
SkillsWidth=16
SkillsHeight=18

SkinX=363
SkinY=49
SkinWidth=16
SkinHeight=18

DescriptionX=384
DescriptionY=48
DescriptionWidth=20
DescriptionHeight=20

LookLeftX=344
LookLeftY=70
LookLeftWidth=20
LookLeftHeight=20

LookRightX=363
LookRightY=70
LookRightWidth=20
LookRightHeight=20

BlinkX=384
BlinkY=70
BlinkWidth=18
BlinkHeight=21

GuildMakeX=346
GuildMakeY=91
GuildMakeWidth=14
GuildMakeHeight=20

GuildMeetStartX=365
GuildMeetStartY=93
GuildMeetStartWidth=17
GuildMeetStartHeight=17

GuildMeetGoX=385
GuildMeetGoY=93
GuildMeetGoWidth=18
GuildMeetGoHeight=18

GuildMessageX=346
GuildMessageY=113
GuildMessageWidth=14
GuildMessageHeight=20

GuildInviteX=366
GuildInviteY=115
GuildInviteWidth=17
GuildInviteHeight=18

GuildJoinX=385
GuildJoinY=115
GuildJoinWidth=17
GuildJoinHeight=18

GuildInfoX=347
GuildInfoY=134
GuildInfoWidth=14
GuildInfoHeight=20

GuildRankX=367
GuildRankY=139
GuildRankWidth=14
GuildRankHeight=14

GuildKickX=384
GuildKickY=136
GuildKickWidth=18
GuildKickHeight=19



then run ToolGrhDatMaker.exe


--------------- CLIENT ----------------
Input.bas

Go to Input_Mouse_LeftClick_Window

Find "Case ChatWindow"
and change that section of code to this:
Code:
   
        Case ChatWindow
            If ShowGameWindow(ChatWindow) Then
                With GameWindow.ChatWindow
                    'Check if the screen was clicked
                    If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X, .Screen.Y, .Screen.Width, .Screen.Height) Then
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Text.X, .Screen.Y + .Text.Y, .Text.Width, .Text.Height) Then
                            EnterText = True
                        End If
                       
                        'Deposit
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Deposit.X, .Screen.Y + .Deposit.Y, .Deposit.Width, .Deposit.Height) Then
                            Engine_AddToChatTextBuffer "/Dep <amount>", FontColor_Info
                            AddTextToChatInput ("/Dep ")
                        End If
                       
                        'Withdraw
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Withdraw.X, .Screen.Y + .Withdraw.Y, .Withdraw.Width, .Withdraw.Height) Then
                            Engine_AddToChatTextBuffer "/With <amount>", FontColor_Info
                            AddTextToChatInput ("/With ")
                        End If
                       
                        'Balance
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Balance.X, .Screen.Y + .Balance.Y, .Balance.Width, .Balance.Height) Then
                            sndBuf.Put_Byte DataCode.User_Bank_Balance
                        End If
                       
                        'Shout
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Shout.X, .Screen.Y + .Shout.Y, .Shout.Width, .Shout.Height) Then
                            Engine_AddToChatTextBuffer "/Shout <message>", FontColor_Info
                            AddTextToChatInput ("/Shout ")
                        End If
                       
                        'Whisper
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Whisper.X, .Screen.Y + .Whisper.Y, .Whisper.Width, .Whisper.Height) Then
                            Engine_AddToChatTextBuffer "/Tell <message>", FontColor_Info
                            AddTextToChatInput ("/Tell ")
                        End If
                       
                        'Who
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Who.X, .Screen.Y + .Who.Y, .Who.Width, .Who.Height) Then
                            sndBuf.Put_Byte DataCode.Server_Who
                        End If
                       
                        'Skills
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Skills.X, .Screen.Y + .Skills.Y, .Skills.Width, .Skills.Height) Then
                            Engine_AddToChatTextBuffer "Hold shift and left click in the quickbar where u want to set a skill.", FontColor_Info
                            DrawSkillList = True
                        End If
                       
                        'Skin
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Skin.X, .Screen.Y + .Skin.Y, .Skin.Width, .Skin.Height) Then
                            Engine_AddToChatTextBuffer Engine_BuildSkinsList, FontColor_Info
                            AddTextToChatInput ("/Skin <skin>")
                        End If
                       
                        'Description
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Description.X, .Screen.Y + .Description.Y, .Description.Width, .Description.Height) Then
                            Engine_AddToChatTextBuffer "/Desc <Description of yourself>", FontColor_Info
                            AddTextToChatInput ("/Desc ")
                        End If
                       
                        'LookLeft
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .LookLeft.X, .Screen.Y + .LookLeft.Y, .LookLeft.Width, .LookLeft.Height) Then
                            sndBuf.Put_Byte DataCode.User_LookLeft
                        End If
                       
                        'LookRight
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .LookRight.X, .Screen.Y + .LookRight.Y, .LookRight.Width, .LookRight.Height) Then
                            sndBuf.Put_Byte DataCode.User_LookRight
                        End If
                       
                        'Blink
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Blink.X, .Screen.Y + .Blink.Y, .Blink.Width, .Blink.Height) Then
                            sndBuf.Put_Byte DataCode.User_Blink
                        End If
                       
                        'GuildMake
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMake.X, .Screen.Y + .GuildMake.Y, .GuildMake.Width, .GuildMake.Height) Then
                            Engine_AddToChatTextBuffer "/MakeG <Guild Name>", FontColor_Info
                            AddTextToChatInput ("/MakeG ")
                        End If
                       
                        'GuildMeetStart
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMeetStart.X, .Screen.Y + .GuildMeetStart.Y, .GuildMeetStart.Width, .GuildMeetStart.Height) Then
                            sndBuf.Put_Byte DataCode.User_Group_Call_Meet
                        End If
                       
                        'GuildMeetGo
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMeetGo.X, .Screen.Y + .GuildMeetGo.Y, .GuildMeetGo.Width, .GuildMeetGo.Height) Then
                            sndBuf.Put_Byte DataCode.User_Group_Goto_Meet
                        End If
                       
                        'GuildMessage
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMessage.X, .Screen.Y + .GuildMessage.Y, .GuildMessage.Width, .GuildMessage.Height) Then
                            Engine_AddToChatTextBuffer "/G <message>", FontColor_Info
                            AddTextToChatInput ("/G ")
                        End If
                       
                        'GuildInvite
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildInvite.X, .Screen.Y + .GuildInvite.Y, .GuildInvite.Width, .GuildInvite.Height) Then
                            Engine_AddToChatTextBuffer "/Invite <player>", FontColor_Info
                            AddTextToChatInput ("/Invite ")
                        End If
                       
                        'GuildJoin
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildJoin.X, .Screen.Y + .GuildJoin.Y, .GuildJoin.Width, .GuildJoin.Height) Then
                            sndBuf.Put_Byte DataCode.User_Group_Join
                        End If
                       
                        'GuildInfo
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildInfo.X, .Screen.Y + .GuildInfo.Y, .GuildInfo.Width, .GuildInfo.Height) Then
                            sndBuf.Put_Byte DataCode.User_Group_Info
                        End If
                       
                        'GuildRank
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildRank.X, .Screen.Y + .GuildRank.Y, .GuildRank.Width, .GuildRank.Height) Then
                            Engine_AddToChatTextBuffer "/Assign <player> <Rank # (1-6)>", FontColor_Info
                            AddTextToChatInput ("/Assign ")
                        End If
                       
                        'GuildKick
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildKick.X, .Screen.Y + .GuildKick.Y, .GuildKick.Width, .GuildKick.Height) Then
                            Engine_AddToChatTextBuffer "/GKick <player>", FontColor_Info
                            AddTextToChatInput ("/GKick ")
                        End If
                       
                        Input_Mouse_LeftClick_Window = 1
                        LastClickedWindow = ChatWindow
                        SelGameWindow = ChatWindow
                        Exit Function
                    End If
                End With
            End If



Now go to Input_Mouse_RightClick_Window and add Find "Case ChatWindow" and change that section of code to this:
Code:

        Case ChatWindow
            If ShowGameWindow(ChatWindow) Then
                With GameWindow.ChatWindow
                    If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X, .Screen.Y, .Screen.Width, .Screen.Height) Then
                        Input_Mouse_RightClick_Window = 1
                        LastClickedWindow = ChatWindow
                       
                        'Deposit
                        If Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Deposit.X, .Screen.Y + .Deposit.Y, .Deposit.Width, .Deposit.Height) Then
                            Engine_SetItemDesc "Deposit Gold Into Bank"
                       
                        'Withdraw
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Withdraw.X, .Screen.Y + .Withdraw.Y, .Withdraw.Width, .Withdraw.Height) Then
                            Engine_SetItemDesc "Withdraw Gold From Bank"
                       
                        'Balance
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Balance.X, .Screen.Y + .Balance.Y, .Balance.Width, .Balance.Height) Then
                            Engine_SetItemDesc "Get Your Bank Balance"
                       
                        'Shout
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Shout.X, .Screen.Y + .Shout.Y, .Shout.Width, .Shout.Height) Then
                            Engine_SetItemDesc "Send A Global Message"
                       
                        'Whisper
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Whisper.X, .Screen.Y + .Whisper.Y, .Whisper.Width, .Whisper.Height) Then
                            Engine_SetItemDesc "Send A Private Message"
                       
                        'Who
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Who.X, .Screen.Y + .Who.Y, .Who.Width, .Who.Height) Then
                            Engine_SetItemDesc "See Who Is Online"
                       
                        'Skills
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Skills.X, .Screen.Y + .Skills.Y, .Skills.Width, .Skills.Height) Then
                            Engine_SetItemDesc "Show List Of Skills"
                       
                        'Skin
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Skin.X, .Screen.Y + .Skin.Y, .Skin.Width, .Skin.Height) Then
                            Engine_SetItemDesc "Change Game Skin"
                       
                        'Description
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Description.X, .Screen.Y + .Description.Y, .Description.Width, .Description.Height) Then
                            Engine_SetItemDesc "Change Your Description"
                       
                        'LookLeft
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .LookLeft.X, .Screen.Y + .LookLeft.Y, .LookLeft.Width, .LookLeft.Height) Then
                            Engine_SetItemDesc "Look Left"
                       
                        'LookRight
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .LookRight.X, .Screen.Y + .LookRight.Y, .LookRight.Width, .LookRight.Height) Then
                            Engine_SetItemDesc "Look Right"
                       
                        'Blink
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .Blink.X, .Screen.Y + .Blink.Y, .Blink.Width, .Blink.Height) Then
                            Engine_SetItemDesc "Blink"
                       
                        'GuildMake
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMake.X, .Screen.Y + .GuildMake.Y, .GuildMake.Width, .GuildMake.Height) Then
                            Engine_SetItemDesc "Start A Guild"
                       
                        'GuildMeetStart
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMeetStart.X, .Screen.Y + .GuildMeetStart.Y, .GuildMeetStart.Width, .GuildMeetStart.Height) Then
                            Engine_SetItemDesc "Call A Guild Meeting"
                       
                        'GuildMeetGo
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMeetGo.X, .Screen.Y + .GuildMeetGo.Y, .GuildMeetGo.Width, .GuildMeetGo.Height) Then
                            Engine_SetItemDesc "Attend A Guild Meeting"
                       
                        'GuildMessage
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildMessage.X, .Screen.Y + .GuildMessage.Y, .GuildMessage.Width, .GuildMessage.Height) Then
                            Engine_SetItemDesc "Send Message To Guild"
                       
                        'GuildInvite
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildInvite.X, .Screen.Y + .GuildInvite.Y, .GuildInvite.Width, .GuildInvite.Height) Then
                            Engine_SetItemDesc "Invite Player To Join Your Guild"
                       
                        'GuildJoin
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildJoin.X, .Screen.Y + .GuildJoin.Y, .GuildJoin.Width, .GuildJoin.Height) Then
                            Engine_SetItemDesc "Accept Invite To Join Guild"
                       
                        'GuildInfo
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildInfo.X, .Screen.Y + .GuildInfo.Y, .GuildInfo.Width, .GuildInfo.Height) Then
                            Engine_SetItemDesc "Get Info About Your Guild"
                       
                        'GuildRank
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildRank.X, .Screen.Y + .GuildRank.Y, .GuildRank.Width, .GuildRank.Height) Then
                            Engine_SetItemDesc "Set Rank Of A Guild Member"
                       
                        'GuildKick
                        ElseIf Engine_Collision_Rect(MousePos.X, MousePos.Y, 1, 1, .Screen.X + .GuildKick.X, .Screen.Y + .GuildKick.Y, .GuildKick.Width, .GuildKick.Height) Then
                            Engine_SetItemDesc "Kick A Player From Your Guild"
                        End If
                    End If
                End With
            End If




TileEngine.bas

Go to "Private Type ChatWindow" and add this to it:
Code:
    Deposit As Rectangle
    Withdraw As Rectangle
    Balance As Rectangle
    Shout As Rectangle
    Whisper As Rectangle
    Who As Rectangle
    Skills As Rectangle
    Skin As Rectangle
    Description As Rectangle
    LookLeft As Rectangle
    LookRight As Rectangle
    Blink As Rectangle
    GuildMake As Rectangle
    GuildMeetStart As Rectangle
    GuildMeetGo As Rectangle
    GuildMessage As Rectangle
    GuildInvite As Rectangle
    GuildJoin As Rectangle
    GuildInfo As Rectangle
    GuildRank As Rectangle
    GuildKick As Rectangle



Now go to Engine_Init_GUI
Find "With GameWindow.ChatWindow" and add this to it:
Code:
        .Deposit.X = Val(Var_Get(s, "CHATWINDOW", "DepositX"))
        .Deposit.Y = Val(Var_Get(s, "CHATWINDOW", "DepositY"))
        .Deposit.Width = Val(Var_Get(s, "CHATWINDOW", "DepositWidth"))
        .Deposit.Height = Val(Var_Get(s, "CHATWINDOW", "DepositHeight"))
       
        .Withdraw.X = Val(Var_Get(s, "CHATWINDOW", "WithdrawX"))
        .Withdraw.Y = Val(Var_Get(s, "CHATWINDOW", "WithdrawY"))
        .Withdraw.Width = Val(Var_Get(s, "CHATWINDOW", "WithdrawWidth"))
        .Withdraw.Height = Val(Var_Get(s, "CHATWINDOW", "WithdrawHeight"))
       
        .Balance.X = Val(Var_Get(s, "CHATWINDOW", "BalanceX"))
        .Balance.Y = Val(Var_Get(s, "CHATWINDOW", "BalanceY"))
        .Balance.Width = Val(Var_Get(s, "CHATWINDOW", "BalanceWidth"))
        .Balance.Height = Val(Var_Get(s, "CHATWINDOW", "BalanceHeight"))
       
        .Shout.X = Val(Var_Get(s, "CHATWINDOW", "ShoutX"))
        .Shout.Y = Val(Var_Get(s, "CHATWINDOW", "ShoutY"))
        .Shout.Width = Val(Var_Get(s, "CHATWINDOW", "ShoutWidth"))
        .Shout.Height = Val(Var_Get(s, "CHATWINDOW", "ShoutHeight"))
       
        .Whisper.X = Val(Var_Get(s, "CHATWINDOW", "WhisperX"))
        .Whisper.Y = Val(Var_Get(s, "CHATWINDOW", "WhisperY"))
        .Whisper.Width = Val(Var_Get(s, "CHATWINDOW", "WhisperWidth"))
        .Whisper.Height = Val(Var_Get(s, "CHATWINDOW", "WhisperHeight"))
       
        .Who.X = Val(Var_Get(s, "CHATWINDOW", "WhoX"))
        .Who.Y = Val(Var_Get(s, "CHATWINDOW", "WhoY"))
        .Who.Width = Val(Var_Get(s, "CHATWINDOW", "WhoWidth"))
        .Who.Height = Val(Var_Get(s, "CHATWINDOW", "WhoHeight"))
       
        .Skills.X = Val(Var_Get(s, "CHATWINDOW", "SkillsX"))
        .Skills.Y = Val(Var_Get(s, "CHATWINDOW", "SkillsY"))
        .Skills.Width = Val(Var_Get(s, "CHATWINDOW", "SkillsWidth"))
        .Skills.Height = Val(Var_Get(s, "CHATWINDOW", "SkillsHeight"))
       
        .Skin.X = Val(Var_Get(s, "CHATWINDOW", "SkinX"))
        .Skin.Y = Val(Var_Get(s, "CHATWINDOW", "SkinY"))
        .Skin.Width = Val(Var_Get(s, "CHATWINDOW", "SkinWidth"))
        .Skin.Height = Val(Var_Get(s, "CHATWINDOW", "SkinHeight"))
       
        .Description.X = Val(Var_Get(s, "CHATWINDOW", "DescriptionX"))
        .Description.Y = Val(Var_Get(s, "CHATWINDOW", "DescriptionY"))
        .Description.Width = Val(Var_Get(s, "CHATWINDOW", "DescriptionWidth"))
        .Description.Height = Val(Var_Get(s, "CHATWINDOW", "DescriptionHeight"))
       
        .LookLeft.X = Val(Var_Get(s, "CHATWINDOW", "LookLeftX"))
        .LookLeft.Y = Val(Var_Get(s, "CHATWINDOW", "LookLeftY"))
        .LookLeft.Width = Val(Var_Get(s, "CHATWINDOW", "LookLeftWidth"))
        .LookLeft.Height = Val(Var_Get(s, "CHATWINDOW", "LookLeftHeight"))
       
        .LookRight.X = Val(Var_Get(s, "CHATWINDOW", "LookRightX"))
        .LookRight.Y = Val(Var_Get(s, "CHATWINDOW", "LookRightY"))
        .LookRight.Width = Val(Var_Get(s, "CHATWINDOW", "LookRightWidth"))
        .LookRight.Height = Val(Var_Get(s, "CHATWINDOW", "LookRightHeight"))
       
        .Blink.X = Val(Var_Get(s, "CHATWINDOW", "BlinkX"))
        .Blink.Y = Val(Var_Get(s, "CHATWINDOW", "BlinkY"))
        .Blink.Width = Val(Var_Get(s, "CHATWINDOW", "BlinkWidth"))
        .Blink.Height = Val(Var_Get(s, "CHATWINDOW", "BlinkHeight"))
       
        .GuildMake.X = Val(Var_Get(s, "CHATWINDOW", "GuildMakeX"))
        .GuildMake.Y = Val(Var_Get(s, "CHATWINDOW", "GuildMakeY"))
        .GuildMake.Width = Val(Var_Get(s, "CHATWINDOW", "GuildMakeWidth"))
        .GuildMake.Height = Val(Var_Get(s, "CHATWINDOW", "GuildMakeHeight"))
       
        .GuildMeetStart.X = Val(Var_Get(s, "CHATWINDOW", "GuildMeetStartX"))
        .GuildMeetStart.Y = Val(Var_Get(s, "CHATWINDOW", "GuildMeetStartY"))
        .GuildMeetStart.Width = Val(Var_Get(s, "CHATWINDOW", "GuildMeetStartWidth"))
        .GuildMeetStart.Height = Val(Var_Get(s, "CHATWINDOW", "GuildMeetStartHeight"))
       
        .GuildMeetGo.X = Val(Var_Get(s, "CHATWINDOW", "GuildMeetGoX"))
        .GuildMeetGo.Y = Val(Var_Get(s, "CHATWINDOW", "GuildMeetGoY"))
        .GuildMeetGo.Width = Val(Var_Get(s, "CHATWINDOW", "GuildMeetGoWidth"))
        .GuildMeetGo.Height = Val(Var_Get(s, "CHATWINDOW", "GuildMeetGoHeight"))
       
        .GuildMessage.X = Val(Var_Get(s, "CHATWINDOW", "GuildMessageX"))
        .GuildMessage.Y = Val(Var_Get(s, "CHATWINDOW", "GuildMessageY"))
        .GuildMessage.Width = Val(Var_Get(s, "CHATWINDOW", "GuildMessageWidth"))
        .GuildMessage.Height = Val(Var_Get(s, "CHATWINDOW", "GuildMessageHeight"))
       
        .GuildInvite.X = Val(Var_Get(s, "CHATWINDOW", "GuildInviteX"))
        .GuildInvite.Y = Val(Var_Get(s, "CHATWINDOW", "GuildInviteY"))
        .GuildInvite.Width = Val(Var_Get(s, "CHATWINDOW", "GuildInviteWidth"))
        .GuildInvite.Height = Val(Var_Get(s, "CHATWINDOW", "GuildInviteHeight"))
       
        .GuildJoin.X = Val(Var_Get(s, "CHATWINDOW", "GuildJoinX"))
        .GuildJoin.Y = Val(Var_Get(s, "CHATWINDOW", "GuildJoinY"))
        .GuildJoin.Width = Val(Var_Get(s, "CHATWINDOW", "GuildJoinWidth"))
        .GuildJoin.Height = Val(Var_Get(s, "CHATWINDOW", "GuildJoinHeight"))
       
        .GuildInfo.X = Val(Var_Get(s, "CHATWINDOW", "GuildInfoX"))
        .GuildInfo.Y = Val(Var_Get(s, "CHATWINDOW", "GuildInfoY"))
        .GuildInfo.Width = Val(Var_Get(s, "CHATWINDOW", "GuildInfoWidth"))
        .GuildInfo.Height = Val(Var_Get(s, "CHATWINDOW", "GuildInfoHeight"))
       
        .GuildRank.X = Val(Var_Get(s, "CHATWINDOW", "GuildRankX"))
        .GuildRank.Y = Val(Var_Get(s, "CHATWINDOW", "GuildRankY"))
        .GuildRank.Width = Val(Var_Get(s, "CHATWINDOW", "GuildRankWidth"))
        .GuildRank.Height = Val(Var_Get(s, "CHATWINDOW", "GuildRankHeight"))
       
        .GuildKick.X = Val(Var_Get(s, "CHATWINDOW", "GuildKickX"))
        .GuildKick.Y = Val(Var_Get(s, "CHATWINDOW", "GuildKickY"))
        .GuildKick.Width = Val(Var_Get(s, "CHATWINDOW", "GuildKickWidth"))
        .GuildKick.Height = Val(Var_Get(s, "CHATWINDOW", "GuildKickHeight"))



That's it!
Top
 Profile  
 
doomteam1
 Post subject: Re: Chat Command Shortcuts
PostPosted: Wed Nov 12, 2008 4:50 pm 
Mister Mxyzptlk

Joined: Thu Jun 19, 2008 12:37 pm
Posts: 180
dude
its like ur making hte whole engine urself your just awesome
Top
 Profile  
 
Kyori
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Nov 13, 2008 12:40 am 
baka

Joined: Tue Jul 08, 2008 12:17 am
Posts: 2304
Location: England, UK
I agree doomteam, it's like every other day there's a new addition to vbGore from GoreMania.

Keep 'em coming GoreMania! :D
Top
 Profile  
 
bakekitsune
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Nov 13, 2008 2:08 am 
Slave to the BB

Joined: Sat Feb 24, 2007 11:17 pm
Posts: 2704
Location: The Aussie Land
*takes LSD

sigh of relief...

this world is more real than the one i was experiencing just before.
Top
 Profile  
 
DarkSummon
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Nov 13, 2008 2:24 am 
Bit Baby

Joined: Tue Sep 02, 2008 12:33 pm
Posts: 382
Location: United Kingdom
:O ive half done something simular to this :) good work Gore, loving the speed and effort of these tutorials.
Keep it coming.
Top
 Profile  
 
bakekitsune
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Nov 13, 2008 2:56 am 
Slave to the BB

Joined: Sat Feb 24, 2007 11:17 pm
Posts: 2704
Location: The Aussie Land
woops i meant to delete that, sorry my bad :D

well done goremania
Top
 Profile  
 
GoreMania
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Nov 13, 2008 5:11 am 
Bytewise Operator

Joined: Wed Oct 08, 2008 8:09 am
Posts: 148
Thanks all! Appreciate the support! 8)
Top
 Profile  
 
oreomaster3
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:30 pm 
Carmack's Pimple

Joined: Tue Dec 09, 2008 6:21 pm
Posts: 52
Location: Planet Snack
Code:
Compile error:

Sub or function not defined :

AddTextToChatInput


do i need to make something before doing this?


Last edited by oreomaster3 on Thu Feb 19, 2009 5:31 pm, edited 1 time in total.

Top
 Profile  
 
entic
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:31 pm 
Richardf's Evil Minion

Joined: Wed Feb 18, 2009 9:36 pm
Posts: 117
Make sure you copied correctly. And if you like everything goremania made, just get vbgoremania edition.
Top
 Profile  
 
oreomaster3
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:33 pm 
Carmack's Pimple

Joined: Tue Dec 09, 2008 6:21 pm
Posts: 52
Location: Planet Snack
so i need another version of vbgore? :?
Top
 Profile  
 
entic
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:34 pm 
Richardf's Evil Minion

Joined: Wed Feb 18, 2009 9:36 pm
Posts: 117
No, Im saying that goremania released a version that has all these features. Ill post link if you cant find it.
Top
 Profile  
 
oreomaster3
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:36 pm 
Carmack's Pimple

Joined: Tue Dec 09, 2008 6:21 pm
Posts: 52
Location: Planet Snack
if i do get it, i must restart from the begenning?

either way ill take a look if you could post a link?
Top
 Profile  
 
entic
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:37 pm 
Richardf's Evil Minion

Joined: Wed Feb 18, 2009 9:36 pm
Posts: 117
Yeah, its the complete source. Its better in my opinion to start with it.
Top
 Profile  
 
entic
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:38 pm 
Richardf's Evil Minion

Joined: Wed Feb 18, 2009 9:36 pm
Posts: 117
http://vbgore.com/forums/viewtopic.php?f=9&t=8357
Top
 Profile  
 
oreomaster3
 Post subject: Re: Chat Command Shortcuts
PostPosted: Thu Feb 19, 2009 5:41 pm 
Carmack's Pimple

Joined: Tue Dec 09, 2008 6:21 pm
Posts: 52
Location: Planet Snack
thx

do i have to do it or it is included in vbgoremania ?
Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  Page 1 of 2
  [ 18 posts ]  Go to page 1, 2  Next

Board index » Tutorials

All times are UTC - 8 hours


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group