IPB

Welcome Guest ( Log In | Register )

1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

17 Pages V  1 2 3 > »   
Closed TopicStart new topic
> DoTa Script, alot of code..
Hero.A
post Dec 15 2007, 01:56 PM
Post #1


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



http://www.stealthbot.net/board/index.php?showtopic=33344

This post has been edited by Hero.A: May 18 2008, 04:50 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 02:52 PM
Post #2


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



Im not happy to told ya, but u did lots of small mistakes.
Why dont u test your script at yourown bevor running?

This errors i got, when starting the plugin:
QUOTE

Offending line: >> Sub NGOC_event_usertalk(Username, Flags, Message, Ping
=> Sub NGOC_event_usertalk(Username, Flags, Message, Ping)

Offending line: >> BotVars.Username Command "/disconnect"
=> Call Command(BotVars.Username, "/disconnect", True)

Offending line: >> db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & ""')
=> db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & "'")

Offending line: >> Sub NGOC_Sign(Username)
=> 'End Sub' above is missing

Offending line: >> AddQ "Use " & BotVars.Trigger "sign to sign in and " & BotVars.Trigger & "out to signout"
=> AddQ "Use " & BotVars.Trigger & "sign to sign in and " & BotVars.Trigger & "out to signout"

Offending line: >> If Teams = 5v5 Then
=> If Teams = "5v5" Then

Offending line: >> ElseIf Teams = 4v4 Then
=> ElseIf Teams = "4v4" Then

Offending line: >> AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams &
=> AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams

Offending line: >>
=> there is also one 'End' missing somewhere


This post has been edited by Mondster: Dec 15 2007, 02:53 PM


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:05 PM
Post #3


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



http://www.stealthbot.net/board/index.php?showtopic=33344

This post has been edited by Hero.A: May 18 2008, 04:50 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Stop being retarded ferret.
post Dec 15 2007, 03:08 PM
Post #4


Full Member
***

Group: Banned
Posts: 182
Joined: 25-October 07
Member No.: 29,939



CODE
Sub NGOC_Sign(Username)
forgot to End Sub 3 lines above that line, it seems to be.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:17 PM
Post #5


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



http://www.stealthbot.net/board/index.php?showtopic=33344

This post has been edited by Hero.A: May 18 2008, 04:50 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Samot
post Dec 15 2007, 03:27 PM
Post #6


Rookie
*

Group: Members
Posts: 9
Joined: 24-February 07
Member No.: 19,353



QUOTE(Mondster @ Dec 16 2007, 06:52 AM) *

Im not happy to told ya, but u did lots of small mistakes.
Why dont u test your script at yourown bevor running?

This errors i got, when starting the plugin:
QUOTE

Offending line: >> Sub NGOC_event_usertalk(Username, Flags, Message, Ping
=> Sub NGOC_event_usertalk(Username, Flags, Message, Ping)

Offending line: >> BotVars.Username Command "/disconnect"
=> Call Command(BotVars.Username, "/disconnect", True)

Offending line: >> db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & ""')
=> db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & "'")

Offending line: >> Sub NGOC_Sign(Username)
=> 'End Sub' above is missing

Offending line: >> AddQ "Use " & BotVars.Trigger "sign to sign in and " & BotVars.Trigger & "out to signout"
=> AddQ "Use " & BotVars.Trigger & "sign to sign in and " & BotVars.Trigger & "out to signout"

Offending line: >> If Teams = 5v5 Then
=> If Teams = "5v5" Then

Offending line: >> ElseIf Teams = 4v4 Then
=> ElseIf Teams = "4v4" Then

Offending line: >> AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams &
=> AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams

Offending line: >>
=> there is also one 'End' missing somewhere



How do you get the offending line in stealth bot?
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:30 PM
Post #7


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



http://www.stealthbot.net/board/index.php?showtopic=33344

This post has been edited by Hero.A: May 18 2008, 04:51 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 03:35 PM
Post #8


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Hmm, Well I think part of the error is that the file isn't turning into a plug file like the rest of the plugins. It stays as a txt and isn't it supposed to turn into a plug?
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 03:36 PM
Post #9


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



QUOTE(Samot @ Dec 15 2007, 10:27 PM) *

How do you get the offending line in stealth bot?

If u load the plugin not as plugin, but as script. Then u will see the line number, the error reason and the line with this error. Take that in mind for new scripts wink.gif


QUOTE

It is already in plugin format. I have no idea why it wants to change it. I will try changing it into a .plug

If the bot wants to change the script in plugin format, u did something wrong. Otherwise it would load a txt-file as well without that message. Check the first lines: no empty one, a prefix and a version is necessary.

This post has been edited by Mondster: Dec 15 2007, 03:39 PM


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:40 PM
Post #10


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



http://www.stealthbot.net/board/index.php?showtopic=33344

This post has been edited by Hero.A: May 18 2008, 04:51 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 03:40 PM
Post #11


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



What I'm saying is it usually turns into a plug form when it is working, this one stays at a txt form.

This might help, anytime some one types a command in the channel, its gives me the error. Like this:

[4:39:29 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:29 PM] Error Number: 13 Description: Type mismatch
[4:39:33 PM] <stillmissyou> hey temp
[4:39:33 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:33 PM] Error Number: 13 Description: Type mismatch
[4:39:35 PM] <tempest.x> yo
[4:39:35 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:35 PM] Error Number: 13 Description: Type mismatch
[4:39:42 PM] <stillmissyou> !traviaon
[4:39:43 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:43 PM] Error Number: 13 Description: Type mismatch
[4:39:47 PM] <stillmissyou> ?trigger
[4:39:47 PM] <CD-Info> The bot's current trigger is " ! " (Alt + 033)
[4:39:47 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:47 PM] Error Number: 13 Description: Type mismatch
[4:39:47 PM] <CD-BOT> The bot's current trigger is " - " (Alt + 045)
[4:39:47 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:47 PM] Error Number: 13 Description: Type mismatch
[4:39:50 PM] <stillmissyou> !trivial
[4:39:50 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:50 PM] Error Number: 13 Description: Type mismatch
[4:39:52 PM] <stillmissyou> w/e
[4:39:52 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:52 PM] Error Number: 13 Description: Type mismatch
[4:39:53 PM] <stillmissyou> k
[4:39:53 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:53 PM] Error Number: 13 Description: Type mismatch
[4:39:56 PM] <stillmissyou> i host?
[4:39:56 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:56 PM] Error Number: 13 Description: Type mismatch
[4:39:59 PM] <stillmissyou> dota 6.49b -arem usa/ca pro!!!
[4:39:59 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:59 PM] Error Number: 13 Description: Type mismatch
[4:39:59 PM] <stillmissyou> dota 6.49b -arem usa/ca pro!!!
[4:39:59 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:59 PM] Error Number: 13 Description: Type mismatch
[4:39:59 PM] <stillmissyou> dota 6.49b -arem usa/ca pro!!!
[4:39:59 PM] UserTalk Call Error On File> C:\Program Files\Warcraft III\Stealth Bot\plugins\SignCommand.plug
[4:39:59 PM] Error Number: 13 Description: Type mismatch


This post has been edited by Pawleys-Island: Dec 15 2007, 03:42 PM
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:44 PM
Post #12


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



Try changing commands section to
CODE

'************
'**Commands**
'************

Sub ngoc_event_usertalk(Username, Flags, Message, Ping)

If Left(Message, 1) = BotVars.Trigger Then
    GetDBEntry Username, myAccess, myFlags
    If myAccess >= 20 Then
        If lcase(left(message, 5)) = BotVars.Trigger & "sign" Then
            ngoc_Sign Username
        ElseIf lcase(left(message, 4)) = BotVars.Trigger & "out" Then
            ngoc_Out Username
        ElseIf lcase(left(message, 10)) = BotVars.Trigger & "startgame " Then
            ngoc_startgame Username, Message
        ElseIf lcase(left(message, 8)) = BotVars.Trigger & "confirm" Then
            ngoc_Confirm
        ElseIf lcase(left(message, 11)) = BotVars.Trigger & "cancelgame" Then
            ngoc_Cancel
        End If
    End If
Else
    Exit Sub
End If

End Sub


This removes the security but who cares about that. It could be causing the error. I know the else is not neccesary but i am putting it as a precaution


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 03:48 PM
Post #13


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



I found the mistake:
CODE

Private Sub Class_Initialize()
path_ = BotPath() & "plugins\NGOCData.mdb"
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub
Private Sub Class_Terminate()
Close()
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub

End Class

Delete this and fix this error:

Offending line: >> AddQ "Use " & BotVars.Trigger "sign to sign in and " & BotVars.Trigger & "out to signout"
=> AddQ "Use " & BotVars.Trigger & "sign to sign in and " & BotVars.Trigger & "out to signout"

This post has been edited by Mondster: Dec 15 2007, 03:56 PM


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 03:52 PM
Post #14


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Yay the mistake was found. Now hopefully it will work!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 03:53 PM
Post #15


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



I mean: u have to End the Class first bevor open the next sub:
CODE

End Class

Private Sub Class_Initialize()
path_ = BotPath() & "plugins\NGOCData.mdb"
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub

Private Sub Class_Terminate()
Close()
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub


This post has been edited by Mondster: Dec 15 2007, 03:55 PM


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 03:55 PM
Post #16


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



LOL j3m messed up on that first one!!

Still getting this
[3:55:04 PM] UserTalk Call Error On File> C:\Documents and Settings\Michael\Desktop\Michaels Area\Bot\SB\plugins\NGOC SCRIPT.txt
[3:55:04 PM] Error Number: 13 Description: Type mismatch

CODE

'ngoc
'1.0

'By Hero.A ~
'Set Clan to your clan and security to the number i give you!
Public Clan, Security
Clan = "You Clan Tag Here"
Security = "10" 'Put the number from me here!

'************************
'*******Variables*********
'**For Database and Code**
'*************************

Private Const db_cTypeBoolean = 11
Private Const db_cTypeCurrency = 6
Private Const db_cTypeDate = 7
Private Const db_cTypeDouble = 5
Private Const db_cTypeInteger = 3
Private Const db_cTypeText = 202

Private Const db_cModeReadOnly = 1
Private Const db_cModeForUpdate = 2


Public Compare, Confirm, GameOn, SignedUp, SignedAmnt, Data, Teams, Mode



Sub ngoc_Event_Load()

AddChat vbBlue, "Welcome to the NGOC Game Script By: Hero.A Ver: 1.0"
AddChat vbBlue, "Most messages in blue are this script working. (it may show messages you do not understand)"


TimerInterval "ngoc", "StartGame", 5
TimerEnabled "ngoc", "StartGame", FALSE

Dim db, t, db_path, rs, l

Set db = New db_clsDatabase
db_path = BotPath() & "plugins\NGOCData.mdb"


'***************************
'**Setting Up the Database**
'***************************

If not db.Exists(db_path) Then
If Not db.Create(db_path) Then
AddChat vbRed, "Unable to Create Database!"
Exit Sub
End If
Else
If Not db.Open(db_path) Then
AddChat vbRed, "Unable to Open Database!"
Exit Sub
End If
End If

If db.IsOpen() Then
AddChat vbBlue, "Database opened."
Else
Exit Sub
End If

If Not db.TableExists("Game") Then
If db.CreateTable("Game") Then
AddChat vbBlue, "Created Table Game"
Else
AddChat vbRed, "Could not create Table Game"
Exit Sub
End If
End If


Set t = db.Table("Players")
If Not db.ColumnExists(t.Name, "Name") Then
t.Columns.Append "Name", db_cTypeText, 32
AddChat vbBlue, "Created Column Name"
End If
AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

End Sub

'************
'**Commands**
'************

Sub ngoc_event_usertalk(Username, Flags, Message, Ping)

If Left(Message, 1) = BotVars.Trigger Then
GetDBEntry Username, myAccess, myFlags
If myAccess >= 20 Then
If lcase(left(message, 5)) = BotVars.Trigger & "sign" Then
ngoc_Sign Username
ElseIf lcase(left(message, 4)) = BotVars.Trigger & "out" Then
ngoc_Out Username
ElseIf lcase(left(message, 10)) = BotVars.Trigger & "startgame " Then
ngoc_startgame Username, Message
ElseIf lcase(left(message, 8)) = BotVars.Trigger & "confirm" Then
ngoc_Confirm
ElseIf lcase(left(message, 11)) = BotVars.Trigger & "cancelgame" Then
ngoc_Cancel
End If
End If
Else
Exit Sub
End If

End Sub

'**************
'***Sign Sub***
'**************

Sub ngoc_Sign(Username)

If GameOn = 0 Then
Exit Sub
End If

If SignedUp(Username) = 0 Then
AddQ "/me " & Username & " has signed into the game"
Set rs = db.OPenRecordSet("Game", db_cModeForUpdate)
rs.AddNew
rs("Name") = Username
rs.Update
rs.Close
SignedAmnt = SignedAmnt + 1
Else
Exit Sub
End If

End Sub


'*****************
'****Out Sub******
'*****************


Sub ngoc_Out(Username)

If GameOn = 0 Then
Exit Sub
End If

If SignedUp(Username) = 1 Then
AddQ "/me " & Username & " has signed out of the game"
db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & "'")
SignedAmnt = SignedAmnt - 1
Else
Exit Sub
End If

End Sub


'******************
'**Start Game Sub**
'******************

Sub ngoc_startgame(Username, Message)

If GameOn = 0 Then
AddQ "Please Wait"
Exit Sub
End If

Data = Split(Message, " ")
Mode = Data(1)
Teams = Data(2)

AddChat vbBlue, "Checking Data..."
AddChat vbBlue, "Teams = " & Teams & " Mode = " & Mode

If lcase(Teams) <> "5v5" Then
If lcase(Teams) <> "4v4" Then
AddQ "Only 5v5 or 4v4 teams allowed"
Exit Sub
End If
End If

GameOn = 1
AddQ "Dota " & Mode & " game created by " & Username
AddQ "Use " & BotVars.Trigger & "sign to sign in and " & BotVars.Trigger & "out to signout"
TimerEnabled "ngoc", "StartGame", TRUE

End Sub

'********************
'**Start Game Timer**
'********************

Sub ngoc_StartGame_Timer()

If Teams = "5v5" Then
Compare = 10
ElseIf Teams = "4v4" Then
Compare = 8
End If

If Compare > SignedAmnt Then
TimerEnabled "NGOC", "StartGame", FALSE
AddChat vbBlue, "Lol we passed it"
AddQ "The game is full!!"
AddQ "Please type " & BotVars.Trigger & "confirm to start the game"
ElseIf Compare = SignedAmnt Then
TimerEnabled "NGOC", "StartGame", FALSE
AddQ "The game is full!!"
AddQ "Please type " & BotVars.Trigger & "confirm to start the game"
End If

End Sub

'************
'**Confirm***
'************

Sub ngoc_Confirm

If GameOn = 0 Then
Exit Sub
End If

GN = GN + 1
AddQ "Confirmed"
AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams

AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

GameOn = 0
Teams = 0
Mode = 0

End Sub

'*****************
'***Cancel Game***
'*****************

Sub ngoc_Cancel

If GameOn = 0 Then
Exit Sub
End If

AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

GameOn = 0
Teams = 0
Mode = 0

End Sub




'*****************
'**Signed Up Func*
'*****************

Function SignedUp(Username)
Set rs = db.OpenRecordSet("SELECT * FROM Game ORDER BY Name", db_cModeReadOnly)
AddChat vbBlue, "Searching for a player ..."
rs.MoveFirst
rs.Find "Name='" & Username & "'"
If Not rs.EOF Then
AddChat vbBlue, "Found player!"
SignedUp = 1
Else
AddChat vbBlue, "Could not find player!"
SignedUp = 0
End If
End Function



'******************
'**J3M's CLass*****
'******************


Class db_clsDatabase

Private path_, conn_, xconn_

Public Function Exists(path)
Dim fso
Exists = False
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path) Then
Exists = True
End If
Set fso = Nothing
End Function

Public Function Close()
If Not conn_ Is Nothing Then
If IsOpen() Then
conn_.Close
End If
Set conn_ = Nothing
End If
Close = True
End Function

Public Function IsOpen()
IsOpen = False
If Not conn_ Is Nothing Then
If conn_.State = 1 Then
IsOpen = True
End If
End If
End Function

Public Function Open(path)
On Error Resume Next
Close()
Open = False
path_ = path
Set conn_ = CreateObject("ADODB.Connection")
conn_.Provider = "Microsoft.Jet.OLEDB.4.0"
conn_.Open path_
If IsOpen() Then
Set xconn_ = CreateObject("ADOX.Catalog")
xconn_.ActiveConnection = conn_
Open = True
End If
If Err.Number <> 0 Then
AddChat vbRed, "Error in Open('" & path & "'): " & Err.Description
Err.Clear
End If
End Function

Public Function Create(path)
On Error Resume Next
Dim obj_
Close()
Set obj_ = CreateObject("ADOX.Catalog")
obj_.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=5;Data Source=" & path
Set obj_ = Nothing
Create = Open(path)
If Err.Number <> 0 Then
AddChat vbRed, "Error in Create('" & path & "'): " & Err.Description
Err.Clear
End If
End Function

Public Function TableExists(tabname)
Dim i
TableExists = False
If Not IsOpen() Then Exit Function
If xconn_.Tables.Count = 0 Then Exit Function
For i = 0 To xconn_.Tables.Count - 1
If UCase(tabname) = UCase(xconn_.Tables(i).Name) Then
TableExists = True
Exit Function
End If
Next
End Function

Public Function ColumnExists(tabname, colname)
Dim i, t
ColumnExists = False
If Not IsOpen() Then Exit Function
If Not TableExists(tabname) Then Exit Function
Set t = xconn_.Tables(tabname)
If t.Columns.Count = 0 Then Exit Function
For i = 0 To t.Columns.Count - 1
If UCase(colname) = UCase(t.Columns(i).Name) Then
ColumnExists = True
Exit Function
End If
Next
End Function

Public Function CreateTable(tabname)
On Error Resume Next
Dim tbl_
If Not IsOpen() Then Exit Function
If TableExists(tabname) Then Exit Function
Set tbl_ = CreateObject("ADOX.Table")
tbl_.Name = tabname
xconn_.Tables.Append tbl_
CreateTable = True
If Err.Number <> 0 Then
AddChat vbRed, "Error in CreateTable('" & tabname & "'): " & _
Err.Description
Err.Clear
End If
End Function

Public Property Get Table(tabname)
On Error Resume Next
Dim tbl_
Set tbl_ = Nothing
If IsOpen() Then
Set tbl_ = xconn_.Tables(tabname)
End If
Set Table = tbl_
If Err.Number <> 0 Then
AddChat vbRed, "Error in Table('" & tabname & "'): " & Err.Description
Err.Clear
End If
End Property

Public Function OpenRecordset(sql, mode)
On Error Resume Next
Dim rs_
Set OpenRecordset = Nothing
If Not IsOpen() Then Exit Function
Set rs_ = CreateObject("ADODB.Recordset")
rs_.ActiveConnection = conn_
Select Case mode
Case db_cModeReadOnly
rs_.CursorType = 2 ' adOpenStatic
rs_.LockType = 1 ' adLockReadOnly
Case db_cModeForUpdate
rs_.CursorType = 1 ' adOpenKeyset
rs_.LockType = 3 ' adLockOptimistic
Case Else
rs_.CursorType = 0 ' adOpenForwardOnly
rs_.LockType = 1 ' adLockReadOnly
End Select
rs_.Source = sql
rs_.Open
If Err.Number <> 0 Then
AddChat vbRed, "Error in OpenRecordSet('" & sql & "', " & _
mode & "): " & Err.Description
Err.Clear
Exit Function
End If
Set OpenRecordset = rs_
End Function

Public Function ExecuteQuery(sql)
On Error Resume Next
Dim rs_, rows_affected
ExecuteQuery = 0
If Not IsOpen() Then Exit Function
Set rs_ = conn_.Execute(sql, rows_affected)
ExecuteQuery = rows_affected
If Err.Number <> 0 Then
AddChat vbRed, "Error in ExecuteQuery('" & sql & "'): " & Err.Description
Err.Clear
End If
End Function

End Class

Private Sub Class_Initialize()
path_ = BotPath() & "plugins\NGOCData.mdb"
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub

Private Sub Class_Terminate()
Close()
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub




EDIT Geeting this also
[3:57:32 PM] Load Call Error On File> C:\Documents and Settings\Michael\Desktop\Michaels Area\Bot\SB\plugins\NGOC SCRIPT.txt
[3:57:32 PM] Error Number: 13 Description: Type mismatch

This post has been edited by Hero.A: Dec 15 2007, 03:58 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 03:57 PM
Post #17


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



I still get an error mismatch.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 03:58 PM
Post #18


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



Sorry, i explained wrong... read edited post plz wink.gif


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 04:01 PM
Post #19


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Can you list the whole edited script please Mondster? I don't think I edited it right.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 04:01 PM
Post #20


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



I did read that. I have it set up like that and it is erroring

RELOAD SCRIPT
[4:02:01 PM] Load Call Error On File> C:\Documents and Settings\Michael\Desktop\Michaels Area\Bot\SB\plugins\NGOC SCRIPT.txt
[4:02:01 PM] Error Number: 13 Description: Type mismatch
[4:02:08 PM] <[email protected]> lol
[4:02:08 PM] UserTalk Call Error On File> C:\Documents and Settings\Michael\Desktop\Michaels Area\Bot\SB\plugins\NGOC SCRIPT.txt
[4:02:08 PM] Error Number: 13 Description: Type mismatch


This post has been edited by Hero.A: Dec 15 2007, 04:02 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 15 2007, 04:13 PM
Post #21


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



QUOTE
[23:05:54] Welcome to the NGOC Game Script By: Hero.A Ver: 1.0
[23:05:54] Most messages in blue are this script working. (it may show messages you do not understand)
[23:05:57] Error in Open('C:\Stealthbot\Bot einMysterium\plugins\NGOCData.mdb'): Objekt erforderlich
[23:05:57] Database opened.
[23:05:57] Created Table Game
[23:05:57] Error in Table('Players'): Ein Objekt, das dem angeforderten Namen oder dem Ordinalverweis entspricht, kann nicht gefunden werden.
[23:05:57] Scripting runtime error '424': (line 57; column 0)
[23:05:57] Objekt erforderlich: 't'.
[23:05:57] Offending line: >>

That means: the Database cannot be opened, and the Tables cant be created. The object 't' is missing.
Overwrite the script, alone the load sub isnt working fine.


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 04:43 PM
Post #22


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Well good luck to Hero
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 06:28 PM
Post #23


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



O.k. Why is that in german.

I am still having errors when users talk and on load. Mondster what did you change to get it to the point where it is displaying the AddChat vbBlue at the beggining

Oh wow i found one of the errrors. i wrote 2 versions of this. One had tabel game and another has table players...

Change the load sub to
CODE

Sub ngoc_Event_Load()

AddChat vbBlue, "Welcome to the NGOC Game Script By: Hero.A Ver: 1.0"
AddChat vbBlue, "Most messages in blue are this script working. (it may show messages you do not understand)"


TimerInterval "ngoc", "StartGame", 5
TimerEnabled "ngoc", "StartGame", FALSE

Dim db, t, db_path, rs, l

Set db = New db_clsDatabase
db_path = BotPath() & "plugins\NGOCData.mdb"


'***************************
'**Setting Up the Database**
'***************************

If not db.Exists(db_path) Then
    If Not db.Create(db_path) Then
             AddChat vbRed, "Unable to Create Database!"
        Exit Sub
    End If
Else
    If Not db.Open(db_path) Then
             AddChat vbRed, "Unable to Open Database!"
             Exit Sub
    End If
End If

If db.IsOpen() Then
    AddChat vbBlue, "Database opened."
Else
    Exit Sub
End If

If Not db.TableExists("Game") Then
    If db.CreateTable("Game") Then
        AddChat vbBlue, "Created Table Game"
    Else
             AddChat vbRed, "Could not create Table Game"
             Exit Sub
    End If
End If


Set t = db.Table("Game")
If Not db.ColumnExists(t.Name, "Name") Then
    t.Columns.Append "Name", db_cTypeText, 32
    AddChat vbBlue, "Created Column Name"
End If
AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

End Sub



Whole Script
CODE

'ngoc
'1.0

'By Hero.A ~
'Set Clan to your clan and security to the number i give you!
Public Clan, Security
Clan = "You Clan Tag Here"
Security = "10" 'Put the number from me here!

'************************
'*******Variables*********
'**For Database and Code**
'*************************

Private Const db_cTypeBoolean = 11
Private Const db_cTypeCurrency = 6
Private Const db_cTypeDate = 7
Private Const db_cTypeDouble = 5
Private Const db_cTypeInteger = 3
Private Const db_cTypeText = 202

Private Const db_cModeReadOnly = 1
Private Const db_cModeForUpdate = 2


Public Compare, Confirm, GameOn, SignedUp, SignedAmnt, Data, Teams, Mode



Sub ngoc_Event_Load()

AddChat vbBlue, "Welcome to the NGOC Game Script By: Hero.A Ver: 1.0"
AddChat vbBlue, "Most messages in blue are this script working. (it may show messages you do not understand)"


TimerInterval "ngoc", "StartGame", 5
TimerEnabled "ngoc", "StartGame", FALSE

Dim db, t, db_path, rs, l

Set db = New db_clsDatabase
db_path = BotPath() & "plugins\NGOCData.mdb"


'***************************
'**Setting Up the Database**
'***************************

If not db.Exists(db_path) Then
If Not db.Create(db_path) Then
AddChat vbRed, "Unable to Create Database!"
Exit Sub
End If
Else
If Not db.Open(db_path) Then
AddChat vbRed, "Unable to Open Database!"
Exit Sub
End If
End If

If db.IsOpen() Then
AddChat vbBlue, "Database opened."
Else
Exit Sub
End If

If Not db.TableExists("Game") Then
If db.CreateTable("Game") Then
AddChat vbBlue, "Created Table Game"
Else
AddChat vbRed, "Could not create Table Game"
Exit Sub
End If
End If


Set t = db.Table("Game")
If Not db.ColumnExists(t.Name, "Name") Then
t.Columns.Append "Name", db_cTypeText, 32
AddChat vbBlue, "Created Column Name"
End If
AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

End Sub

'************
'**Commands**
'************

Sub ngoc_event_usertalk(Username, Flags, Message, Ping)

If Left(Message, 1) = BotVars.Trigger Then
GetDBEntry Username, myAccess, myFlags
If myAccess >= 20 Then
If lcase(left(message, 5)) = BotVars.Trigger & "sign" Then
ngoc_Sign Username
ElseIf lcase(left(message, 4)) = BotVars.Trigger & "out" Then
ngoc_Out Username
ElseIf lcase(left(message, 10)) = BotVars.Trigger & "startgame " Then
ngoc_startgame Username, Message
ElseIf lcase(left(message, 8)) = BotVars.Trigger & "confirm" Then
ngoc_Confirm
ElseIf lcase(left(message, 11)) = BotVars.Trigger & "cancelgame" Then
ngoc_Cancel
End If
End If
Else
Exit Sub
End If

End Sub

'**************
'***Sign Sub***
'**************

Sub ngoc_Sign(Username)

If GameOn = 0 Then
Exit Sub
End If

If SignedUp(Username) = 0 Then
AddQ "/me " & Username & " has signed into the game"
Set rs = db.OPenRecordSet("Game", db_cModeForUpdate)
rs.AddNew
rs("Name") = Username
rs.Update
rs.Close
SignedAmnt = SignedAmnt + 1
Else
Exit Sub
End If

End Sub


'*****************
'****Out Sub******
'*****************


Sub ngoc_Out(Username)

If GameOn = 0 Then
Exit Sub
End If

If SignedUp(Username) = 1 Then
AddQ "/me " & Username & " has signed out of the game"
db.ExecuteQuery("DELETE FROM Game WHERE Name = '" & Username & "'")
SignedAmnt = SignedAmnt - 1
Else
Exit Sub
End If

End Sub


'******************
'**Start Game Sub**
'******************

Sub ngoc_startgame(Username, Message)

If GameOn = 0 Then
AddQ "Please Wait"
Exit Sub
End If

Data = Split(Message, " ")
Mode = Data(1)
Teams = Data(2)

AddChat vbBlue, "Checking Data..."
AddChat vbBlue, "Teams = " & Teams & " Mode = " & Mode

If lcase(Teams) <> "5v5" Then
If lcase(Teams) <> "4v4" Then
AddQ "Only 5v5 or 4v4 teams allowed"
Exit Sub
End If
End If

GameOn = 1
AddQ "Dota " & Mode & " game created by " & Username
AddQ "Use " & BotVars.Trigger & "sign to sign in and " & BotVars.Trigger & "out to signout"
TimerEnabled "ngoc", "StartGame", TRUE

End Sub

'********************
'**Start Game Timer**
'********************

Sub ngoc_StartGame_Timer()

If Teams = "5v5" Then
Compare = 10
ElseIf Teams = "4v4" Then
Compare = 8
End If

If Compare > SignedAmnt Then
TimerEnabled "NGOC", "StartGame", FALSE
AddChat vbBlue, "Lol we passed it"
AddQ "The game is full!!"
AddQ "Please type " & BotVars.Trigger & "confirm to start the game"
ElseIf Compare = SignedAmnt Then
TimerEnabled "NGOC", "StartGame", FALSE
AddQ "The game is full!!"
AddQ "Please type " & BotVars.Trigger & "confirm to start the game"
End If

End Sub

'************
'**Confirm***
'************

Sub ngoc_Confirm

If GameOn = 0 Then
Exit Sub
End If

GN = GN + 1
AddQ "Confirmed"
AddQ "GN = " & Clan & "" & GN & " Mode = " & Mode & " Teams = " & Teams

AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

GameOn = 0
Teams = 0
Mode = 0

End Sub

'*****************
'***Cancel Game***
'*****************

Sub ngoc_Cancel

If GameOn = 0 Then
Exit Sub
End If

AddChat vbBlue, "Deleting all records from Game ..."
l = db.ExecuteQuery("DELETE FROM Game")
AddChat vbBlue, "Deleted "

GameOn = 0
Teams = 0
Mode = 0

End Sub




'*****************
'**Signed Up Func*
'*****************

Function SignedUp(Username)
Set rs = db.OpenRecordSet("SELECT * FROM Game ORDER BY Name", db_cModeReadOnly)
AddChat vbBlue, "Searching for a player ..."
rs.MoveFirst
rs.Find "Name='" & Username & "'"
If Not rs.EOF Then
AddChat vbBlue, "Found player!"
SignedUp = 1
Else
AddChat vbBlue, "Could not find player!"
SignedUp = 0
End If
End Function



'******************
'**J3M's CLass*****
'******************


Class db_clsDatabase

Private path_, conn_, xconn_

Public Function Exists(path)
Dim fso
Exists = False
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path) Then
Exists = True
End If
Set fso = Nothing
End Function

Public Function Close()
If Not conn_ Is Nothing Then
If IsOpen() Then
conn_.Close
End If
Set conn_ = Nothing
End If
Close = True
End Function

Public Function IsOpen()
IsOpen = False
If Not conn_ Is Nothing Then
If conn_.State = 1 Then
IsOpen = True
End If
End If
End Function

Public Function Open(path)
On Error Resume Next
Close()
Open = False
path_ = path
Set conn_ = CreateObject("ADODB.Connection")
conn_.Provider = "Microsoft.Jet.OLEDB.4.0"
conn_.Open path_
If IsOpen() Then
Set xconn_ = CreateObject("ADOX.Catalog")
xconn_.ActiveConnection = conn_
Open = True
End If
If Err.Number <> 0 Then
AddChat vbRed, "Error in Open('" & path & "'): " & Err.Description
Err.Clear
End If
End Function

Public Function Create(path)
On Error Resume Next
Dim obj_
Close()
Set obj_ = CreateObject("ADOX.Catalog")
obj_.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=5;Data Source=" & path
Set obj_ = Nothing
Create = Open(path)
If Err.Number <> 0 Then
AddChat vbRed, "Error in Create('" & path & "'): " & Err.Description
Err.Clear
End If
End Function

Public Function TableExists(tabname)
Dim i
TableExists = False
If Not IsOpen() Then Exit Function
If xconn_.Tables.Count = 0 Then Exit Function
For i = 0 To xconn_.Tables.Count - 1
If UCase(tabname) = UCase(xconn_.Tables(i).Name) Then
TableExists = True
Exit Function
End If
Next
End Function

Public Function ColumnExists(tabname, colname)
Dim i, t
ColumnExists = False
If Not IsOpen() Then Exit Function
If Not TableExists(tabname) Then Exit Function
Set t = xconn_.Tables(tabname)
If t.Columns.Count = 0 Then Exit Function
For i = 0 To t.Columns.Count - 1
If UCase(colname) = UCase(t.Columns(i).Name) Then
ColumnExists = True
Exit Function
End If
Next
End Function

Public Function CreateTable(tabname)
On Error Resume Next
Dim tbl_
If Not IsOpen() Then Exit Function
If TableExists(tabname) Then Exit Function
Set tbl_ = CreateObject("ADOX.Table")
tbl_.Name = tabname
xconn_.Tables.Append tbl_
CreateTable = True
If Err.Number <> 0 Then
AddChat vbRed, "Error in CreateTable('" & tabname & "'): " & _
Err.Description
Err.Clear
End If
End Function

Public Property Get Table(tabname)
On Error Resume Next
Dim tbl_
Set tbl_ = Nothing
If IsOpen() Then
Set tbl_ = xconn_.Tables(tabname)
End If
Set Table = tbl_
If Err.Number <> 0 Then
AddChat vbRed, "Error in Table('" & tabname & "'): " & Err.Description
Err.Clear
End If
End Property

Public Function OpenRecordset(sql, mode)
On Error Resume Next
Dim rs_
Set OpenRecordset = Nothing
If Not IsOpen() Then Exit Function
Set rs_ = CreateObject("ADODB.Recordset")
rs_.ActiveConnection = conn_
Select Case mode
Case db_cModeReadOnly
rs_.CursorType = 2 ' adOpenStatic
rs_.LockType = 1 ' adLockReadOnly
Case db_cModeForUpdate
rs_.CursorType = 1 ' adOpenKeyset
rs_.LockType = 3 ' adLockOptimistic
Case Else
rs_.CursorType = 0 ' adOpenForwardOnly
rs_.LockType = 1 ' adLockReadOnly
End Select
rs_.Source = sql
rs_.Open
If Err.Number <> 0 Then
AddChat vbRed, "Error in OpenRecordSet('" & sql & "', " & _
mode & "): " & Err.Description
Err.Clear
Exit Function
End If
Set OpenRecordset = rs_
End Function

Public Function ExecuteQuery(sql)
On Error Resume Next
Dim rs_, rows_affected
ExecuteQuery = 0
If Not IsOpen() Then Exit Function
Set rs_ = conn_.Execute(sql, rows_affected)
ExecuteQuery = rows_affected
If Err.Number <> 0 Then
AddChat vbRed, "Error in ExecuteQuery('" & sql & "'): " & Err.Description
Err.Clear
End If
End Function

End Class

Private Sub Class_Initialize()
path_ = BotPath() & "plugins\NGOCData.mdb"
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub
Private Sub Class_Terminate()
Close()
Set conn_ = Nothing
Set xconn_ = Nothing
End Sub




This post has been edited by Hero.A: Dec 15 2007, 06:29 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 15 2007, 08:17 PM
Post #24


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



I think he made it load as a script and not as a plugin.

And yea I'm still getting the Error Mismatch.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 15 2007, 09:39 PM
Post #25


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



It shouldnt matter if it loads as a script or a plugin..
If it loads as a script it will ask if you want it converted to plugin. Which simply adds the lines

'ngoc
'1.0

then adds ngoc before all subs such as
ngoc_event_usertalk


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mondster
post Dec 16 2007, 06:01 AM
Post #26


Passionate Member
***

Group: Members
Posts: 231
Joined: 16-March 07
From: I feel homeless
Member No.: 20,488



QUOTE(Hero.A @ Dec 16 2007, 04:39 AM) *

It shouldnt matter if it loads as a script or a plugin..
If it loads as a script it will ask if you want it converted to plugin. Which simply adds the lines

No, i mean with loading as script: u have to put it in the stealthbot ordner directly as script.txt and not in the plugin folder. But its a bit difficult: u have to delete the prefix befor all Event Subs and u cant use the timer in that way u do in plugins. And after it, overwrite the script with ur old script-file! Its just to see the error reasons and the blue messages from load sub.
I changed nothing more and Im german, thats why my messages are in german too wink.gif


--------------------
`... * Felix, qui potuit rerum cognoscere causas * .`..`
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 16 2007, 09:44 AM
Post #27


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Is there any reason why its not working though?
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 16 2007, 01:34 PM
Post #28


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



QUOTE(Pawleys-Island @ Dec 16 2007, 09:44 AM) *

Is there any reason why its not working though?

I see no reason why it is not working.

It is not working though.

Mondster when you put it into the script.txt change this line of the the load sub

Before
CODE

Set t = db.Table("Players")


After
CODE

Set t = db.Table("Game")


Tell me if it works then.

This post has been edited by Hero.A: Dec 16 2007, 01:34 PM


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Java-
post Dec 16 2007, 02:23 PM
Post #29


Veteran
**

Group: Members
Posts: 67
Joined: 18-November 07
Member No.: 30,637



Oh and the anti-spam thing wasn't working cause of the script, its fixed now though. So it wasn't a conflicting thing.

This post has been edited by Pawleys-Island: Dec 16 2007, 02:23 PM
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Hero.A
post Dec 16 2007, 04:58 PM
Post #30


I Read The Trash Can
*

Group: Banned
Posts: 1
Joined: 1-October 07
From: I live in my stealthbox
Member No.: 29,291



Yes i noticed that in your post. Thanks for confirming it though


--------------------
~ Mike/Hero (View my other profile for more information about how to contact me)
- - - - - - - -
Take a look at my forums! (Up and running!)
- - - - - - - -
Visit Clan R77
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

17 Pages V  1 2 3 > » 
Closed TopicStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

 



- Lo-Fi Version Time is now: 9th December 2019 - 01:29 AM
Skin by Andrea
Website Legal Information | Hosted by LunarPages