][REL][Daney Command Generator][REL][

Status
Not open for further replies.
I think the VB could be improved somewhat

(For example, that code is case sensitive and can be written anywhere in the text for example you wouldn't be able to say

"Yeah just shout :command and it'll do it"

As you saying that would trigger :command

(Split it to the first 'space' (if one exists) and then convert it to lcase

For example

Code:
If (instr(ToSay, "commandhere")) Then
    dim tmp as string
    if (instr(ToSay, " ") then
    tmp = ToSay.Split(" ")(0)
   else
    tmp = ToSay 
   end if
    if ("commandhere" = lcase(tmp)) Then
        Send index "BKAlertHere"
   end if
end if

Note: Convert the command to lowercase before adding it to the code Simply by doing
Code:
& lcase(TxtCommand.text)

Bit messy code (Just wrote it inside this message window so i couldn't tab it out properly etc) but you should get the gist - hopefully.

Edit:
Btw, i noticed you replaced " with $ - Presumably because you don't know how to place " inside a string, if you type " twice aka "" then it prints it once inside a string for example

Code:
msgbox "Hello "" World"

Output:
Code:
Hello " World

~ Jeax
 
Last edited:
Thanks for all the comments guys =]

Working on some more commands for you (hotelalert, etc.)

Jeax, what do you mean? It's like the :about command. In my opinion if you can do it fast/small codes then it's good.

Daney
 
I Found An Error =]

In The Generated Code
Right At The End

There Is No End If ;)

Fix and It Will Be Perfect!

Laterz,
What Can I Say
 
PixelPro

Have You Added The End If At The End Of the code?

oh and you need to place the command 3 times in modHabFunc
in the same place (i.e under credit command)

Laterz,
What Can I Say
 
ONTOPIC:Very very nice will come in handy for those coders 9/10 rel lol cause im not
a coder =P XD

OFFTOPIC:WOW Jeax Your A Moderator Now Kwl =O
 
Status
Not open for further replies.
Back