Okay.. I've read some documentations so far, aswell as analysed some scripts from here.
I've mastered normal Events - the Syntax ( so far ) aswell as Access stuff and the CustomGreet stuff xD...
[div class='codetop']CODE[/div][div class='codemain' style='height:200px;white-space:pre;overflow:auto']'CG
'0.1
'&Custom Greet Tryout:HearthCore
Sub CG_Event_Userjoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
AddQ "/w " & Username & " Hey there " & Username & ", your Ping is " & Ping
End Sub[/div]
Why are those bunch of most likely unused stats needed in the UserJoins Event? (the things in here )
I've tried deleting the unused ones of those.. like Product, Level, Flags and Message.. so.. Why can't i?^^ Giving bunch of errors then ain't i?
What is the Level and Statstring stuff in there anyway?
[div class='codetop']CODE[/div][div class='codemain' style='height:200px;white-space:pre;overflow:auto']'CT
'0.1
'&Command Testing:HearthCore
Sub CT_Event_UserTalk(Username, Flags, Message, Ping)
Trigger = "!"
If InStr(Lcase(Message), Trigger & "fuck") Then
dsp 3, "Stupid Fuck", Username, vbRed
End If
End Sub
[/div]
woot woot >.<
Why is Ping and Flags needed in there? i mean.. i don't use it. Is this sorta just SB's VBs musthave or crybaby? Seems like VBs for SB is pretty much dump
[div class='codetop']CODE[/div][div class='codemain' style='height:200px;white-space:pre;overflow:auto']'AT
'0.1
'&Access Testing:HearthCore:wootwoot:>
Const AT_Access = 40
Sub AT_Event_UserTalk(Username, Flags, Message, Ping)
GetDBEntry Username, myAccess, myFlags
If myAccess < AT_Access Then Exit Sub
If InStr(Lcase(Message), BotVars.Trigger & "fuck") Then
dsp 3, "Stupid Fuck. You got " & myAccess & " Access btw.. and you only needed " & AT_Access & " .", Username, vbRed
End If
End Sub[/div]
.. now the outcome of using functions for the next few steps was the following..
[div class='codetop']CODE[/div][div class='codemain' style='height:200px;white-space:pre;overflow:auto']'FT
'0.1
'&Function Testing:HearthCore:Some Serious Function Testing.. oh well.. NOT... oO..
Public FT_Access = 50
Sub FT_Event_UserTalk(Username, Flags, Message, Ping)
GetDBEntry Username, myAccess, myFlags
If InStr(Lcase(Message), BotVars.Trigger & "fuck") Then
'//FT_Check_Access()
if myAccess < FT_Access Then FT_Output_Negative()
if myAccess > FT_Access Then FT_Output_Positive()
End If
End Sub
'// Access Checking :>
'//Sub FT_Check_Access
'//if myAccess < FT_Access Then FT_Output_Negative() Else FT_Output_Positive()
'//End Sub
'// When the Access is given
Sub FT_Output_Positive
dsp, 3,"You got enough Access. Great " , vbRed
End Sub
'// When .. NOT.
Sub FT_Output_Negative
dsp, 3,"You do NOT have enough Access. dumpass.. " , vbRed
End Sub[/div]
Now.. ignore the outcommented stuff for now.
I'm getting an Error anyways.. Error Number: 13 Description: Typen unvertr?glich (Type Dismatch)
Why the hell is that and where does that come from?
(Note - its 6:30 AM here. Was Drunk and didnt want to go to bed.. then had the sudden idea to finally start coding VBs for gawds sake xD)
Sake for everyone.
Gnait buddys :>
Hope when i'll wakeup and move my ass to my pc.. i'll find some answers.. xD