Hotkey replacement for 2.7?

[Dastyruck]

Hey, I know that Hotscript does not work in 2.7, but is there a replacement for it?

[AdrianC]

Hotscript?

Not sure what you're talking about, but there is a hotkey sub, for home, delete, page up and end, I think.

[Dastyruck]

Hotscript is what I meant, I am having trouble finding the replacement…

[AdrianC]

What is hotscript?

[Dastyruck]

Sub HOTSCRIPT1(index)

Does not work in 2.7, is there a replacement for it?

[AdrianC]

Ok, yeah, but what does it do?

[Dastyruck]

Ummm, when your press PGup it activates the code inside of the sub…

[Warconn]

yea, like in New Colony Online, i turned my "T" button into a hotkey, it will turn the player around, and i made my "E" perform an emote, that will all have to be done by source.

[DarkMazer]

@Dastyruck:

> Sub HOTSCRIPT1(index)
>
> Does not work in 2.7, is there a replacement for it?

Sub HotScript(index, 1) should do the same thing.  Just put everything you would have put in HOTSCRIPT1 into case 1 in Sub HotScript.

[Dastyruck]

I was able to come up with this, which isn't working, might be my error but if there is no error, this doesn't work.

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Sub HotScript(index, 1)
'*****************************************************************'
'*****************************************************************'
'XX This script has been created by Ilnair, aka Dinand Mentink  XX'
'XX Please do not give it out saying you made it, or distribute XX'
'XX it anywhere outside the Eclipse forums! Also, please always XX'
'XX distribute these credits along with the script!      XX'
'XX          www.nishansu.tk      ©Dinand Mentink (aka Ilnair)XX'
'*****************************************************************'
'*****************************************************************'
Dim Name
Dim Guild
Dim ClassName
Dim Sex
Dim Level
Dim Strenght
Dim Defence
Dim Speed
Dim Magic
Dim HP
Dim MP
Dim MAXHP
Dim MAXMP
Dim msg1
Dim msg2
Dim msg3
Dim msg4
Dim msg5
    Select Case script
        Case 1
            Call CustomMenuShow(index, "mailsystem", "\GUI\CUSTOM\perkament.gif", 1)
            Call CustomMenuLabel(index, 1, "Character Info", 60, 30, 15, 0, 0, 400, 40)
            Call CustomMenuLabel(index, 2, "Messages", 315, 30, 15, 0, 0, 400, 40)

              Name = GetPlayerName(index) & ""
                Guild = GetPlayerGuild(index) & ""
                ClassName = GetPlayerClassName(index) & ""
                Level = GetPlayerLevel(index) & ""
                Strenght = GetPlayerStr(index) + 0 & ""
                Defence = GetPlayerDef(index) & ""
                Speed = GetPlayerSpeed(index) & ""
                Magic = GetPlayerMagi(index) + 0 & ""
                HP = GetPlayerHP(index) & ""
                MP = GetPlayerMP(index) & ""
                MAXHP = GetPlayerMaxHP(index) & ""
                MAXMP = GetPlayerMaxMP(index) & ""

                If GetPlayerGender(index) = 0 Then
                    Sex = "Male"
                Else
                    Sex = "Female"
                End If

                Call CustomMenuLabel(index, 3, "Name: " & Name, 85, 80, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 4, "Guild: " & Guild, 85, 90, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 5, "Class: " & ClassName, 85, 100, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 6, "Sex: " & Sex, 85, 110, 10, 0, 0, 400, 40)

                Call CustomMenuLabel(index, 7, "Level: " & Level, 85, 130, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 8, "Strenght: " & Strenght, 85, 140, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 9, "Defence: " & Defence, 85, 150, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 10, "Magic: " & Magic, 85, 160, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 11, "Speed: " & Speed, 85, 170, 10, 0, 0, 400, 40)

                msg1 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box1")
                msg2 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box2")
                msg3 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box3")
                msg4 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box4")
                msg5 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box5")

                Call CustomMenuLabel(index, 14, "Message 1: " & msg1, 300, 70, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 15, "Message 2: " & msg2, 300, 80, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 16, "Message 3: " & msg3, 300, 90, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 17, "Message 4: " & msg4, 300, 100, 10, 0, 0, 400, 40)
                Call CustomMenuLabel(index, 18, "Message 5: " & msg5, 300, 110, 10, 0, 0, 400, 40)

                Call CustomMenuLabel(index, 19, "Clear Inbox", 300, 140, 10, 0, 0, 100, 14)
                Call CustomMenuLabel(index, 12, "Refresh", 300, 150, 10, 0, 0, 100, 14)

                Call CustomMenuTextBox(index, 1, 180, 65, 235, "Enter a name!")
                Call CustomMenuTextBox(index, 2, 180, 65, 260, "Enter a message!")
            Exit Sub
    End Select
End Sub

[balliztik1]

In 2.7, the sub name changed. It's now:

Sub Hotscript(index, Script)

You have HotScript(index, 1). Constants are never used as parameters. Change it to HotScript(index, script) and it should work.