Author Topic: VBScripting help (Read 2692 times)

Vector · « **Reply #15 on:** February 26, 2009, 07:16:01 PM »

Quote from: shhdn

i found a few things. and sorry for spamming this topic. i was looking the HL plugins addon to abort the game and i found something here is my slightly revised script still need help tho. p.s. if i could just edit my above post i would have but i cant so once again sorry.

Code: [Select]
'talk '0.1 Sub talk_Event_PressedEnter(Text) If Left(LCase(Text), 11) = "/hai" Then idk what to do here >.> end sub
Sub talk_Event_PressedEnter(Text)
If Left(LCase(Text), 11) = "/hai" Then was stolen from the plugin at:http://rev77.net/scripts/?query=view&script=hlAbortPlaying.plug
so idk if it will work but it looks good^_^

Code: [Select]

'talk
'0.1

Sub talk_Event_PressedEnter(Text)

  '// Lets check the leftmost nine characters to see if they said /saythis<space>
  '// LCase() just means make it lowercase. That way they can use /SaY, and /saY, and it won't matter
  If Left(LCase(Text), 9) = "/saythis " Then
    AddChat vbGreen, "You said " & Right(Text, Len(Text) - 9)
  End If
End Sub

What you wanted was this:

Code: [Select]

'talk
'0.1

Sub talk_Event_UserTalk(Username, Flags, Message, Ping)

  '// Lets check the leftmost eight characters plus the length of the trigger to see if they said <trigger>saythis<space>
  '// LCase() just means make it lowercase. That way they can use /SaY, and /saY, and it won't matter
  If Left(LCase(Text), Len(BotVars.Trigger) + 8) = BotVars.Trigger & "saythis " Then
    '// get what they put after <trigger>saythis
    sayTheRest = Right(Message, Len(Message) - (Len(BotVars.Trigger) + 8)
    AddQ sayTheRest
  End If
End Sub

Blake, DSP conforms with the command processor that Mike and I use in our scripts. You will learn it later. I have a tutorial for it on here though.

shhdn · « **Reply #16 on:** February 27, 2009, 08:58:16 AM »

is this good?

Code: [Select]

'talk
'0.2

Sub talk_Event_Load()
    vbYellow "talk test loaded"
End Sub

sub talk_Event_UserTalk(Username, Flags, Message, Ping)

     If Left(LCase(Text), Len(BotVars.Trigger) + 6) = BotVars.Trigger & "speak " Then
        sayTheRest = Right(Message, Len(Message) - (Len(BotVars.Trigger) + 6)
    AddQ sayTheRest
  End If
End Sub

the following i dont understand:
(Username, Flags, Message, Ping)
Len
and the +6 is the words plus 1 for the space?
AddQ

shhdn · « **Reply #17 on:** February 27, 2009, 12:15:16 PM »

whoops i for got something:

Sub talk_Event_Load()
AddChat vbYellow "talk test loaded"
End Sub

Vector · « **Reply #18 on:** February 27, 2009, 12:52:07 PM »

Quote from: shhdn

is this good?
'talk
'0.2

Sub talk_Event_Load()
   AddChat vbYellow, "talk test loaded"
End Sub

sub talk_Event_UserTalk(Username, Flags, Message, Ping)

    If Left(LCase(Text), Len(BotVars.Trigger) + 6) = BotVars.Trigger & "speak " Then
      sayTheRest = Right(Message, Len(Message) - (Len(BotVars.Trigger) + 6))
   AddQ sayTheRest
End If
End Sub

Note the corrections in bold.

As for the rest:

(Username, Flags, Message, Ping) = Everytime a user talks, this Sub is called, and these four things are "passed" to the function, meaning you may access these variables everytime a user talks. They are: Username which contains the name of the user who spoke. Flags, the user's battle.net flags. Flag 0 is for a normal user (not opped or anything). Message is the message they said when they talked. Ping just contains their ping value at logon.

AddQ = sends the specified text to battle.net, same as if you typed something and pressed enter.

Len = the length of a string. "hai there" and "Hello world!" are both strings.

I will break down the following code for you:

Code: [Select]

sayTheRest = Right(Message, Len(Message) - (Len(BotVars.Trigger) + 6))
Right() returns the rightmost characters of a string.

Basically, the Message is what we want to extract characters out of.

Take the second part here:

Code: [Select]

Len(Message) - (Len(BotVars.Trigger) + 6)Ok, say someone said ".speak hai there"

What this would do is take the length of the message as indicated by Len(Message), and subtract the length represented by ".speak " out of the message, leaving "hai there". The (Len(BotVars.Trigger) + 6) part just adds the length of the trigger + 6 together, making 7, which would represent the leftmost part of the message that says ".speak ". After that part is taken out, we are then left with "hai there"

AddQ sayTheRest simply sends the resulting string to battle.net

the 6 is the length of "speak" plus a space, because that is the most logical way to do it.

shhdn · « **Reply #19 on:** February 27, 2009, 07:21:29 PM »

yay my second script now i want to get an atuomated one that says "hello,<person who said hi>"
and i want to make it like a trigger i guess with an access of 20 or so. i need help with the geting the name tho... ill c what i can do till i get help for that.

ArticWolve · « **Reply #20 on:** February 27, 2009, 07:41:32 PM »

To get someones username and reply "HELLO, NAME" via SB Scripting for users with 20 access or more, your userjoin sub would look like this:

GetDBEntry Username, Access, Flags
If MyAccess< 20 Then EXIT SUB
AddQ "Hello " & Username & "."

shhdn · « **Reply #21 on:** February 27, 2009, 07:53:42 PM »

ahh ok i under stand.

Zakara · « **Reply #22 on:** March 08, 2009, 08:59:29 PM »

What are or were you trying to do exactly?