VERSION 5.00
Object = "{6E720C67-D5EB-4BFE-A80E-D83177F78080}#1.0#0"; "AwSdkOcx5.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "Richtx32.ocx"
Begin VB.Form Form1 
   Caption         =   "Paintball Bot"
   ClientHeight    =   9135
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11565
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   9135
   ScaleWidth      =   11565
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton Command4 
      Caption         =   "Update Score Obs"
      Height          =   495
      Left            =   6840
      TabIndex        =   26
      Top             =   1800
      Width           =   1455
   End
   Begin VB.ListBox List3 
      Height          =   1620
      ItemData        =   "Form1.frx":0000
      Left            =   8280
      List            =   "Form1.frx":0002
      TabIndex        =   25
      Top             =   5040
      Width           =   2175
   End
   Begin VB.Timer roundt 
      Enabled         =   0   'False
      Interval        =   60000
      Left            =   5040
      Top             =   0
   End
   Begin VB.TextBox gy 
      Height          =   285
      Left            =   9960
      TabIndex        =   24
      Text            =   "0"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox ry 
      Height          =   285
      Left            =   8760
      TabIndex        =   23
      Text            =   "0"
      Top             =   3840
      Width           =   615
   End
   Begin VB.Timer Timer3 
      Interval        =   5000
      Left            =   6000
      Top             =   0
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   5520
      Top             =   0
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   720
      TabIndex        =   22
      Text            =   "Text3"
      Top             =   3240
      Width           =   2775
   End
   Begin VB.TextBox gn 
      Height          =   285
      Left            =   7200
      TabIndex        =   21
      Text            =   "0"
      Top             =   3480
      Width           =   975
   End
   Begin VB.TextBox rn 
      Height          =   285
      Left            =   7200
      TabIndex        =   20
      Text            =   "0"
      Top             =   3120
      Width           =   975
   End
   Begin VB.TextBox gs 
      Height          =   285
      Left            =   9480
      TabIndex        =   19
      Text            =   "00"
      Top             =   3840
      Width           =   375
   End
   Begin VB.TextBox rs 
      Height          =   285
      Left            =   8280
      TabIndex        =   18
      Text            =   "00"
      Top             =   3840
      Width           =   375
   End
   Begin VB.TextBox gz 
      Height          =   285
      Left            =   9480
      TabIndex        =   17
      Text            =   "0"
      Top             =   3480
      Width           =   1095
   End
   Begin VB.TextBox rz 
      Height          =   285
      Left            =   9480
      TabIndex        =   16
      Text            =   "0"
      Top             =   3120
      Width           =   1095
   End
   Begin VB.TextBox gx 
      Height          =   285
      Left            =   8280
      TabIndex        =   15
      Text            =   "0"
      Top             =   3480
      Width           =   1095
   End
   Begin VB.TextBox rx 
      Height          =   285
      Left            =   8280
      TabIndex        =   14
      Text            =   "0"
      Top             =   3120
      Width           =   1095
   End
   Begin VB.TextBox rbasey 
      Height          =   495
      Left            =   9840
      TabIndex        =   13
      Text            =   "0"
      Top             =   360
      Width           =   1215
   End
   Begin VB.TextBox gbasey 
      Height          =   495
      Left            =   9840
      TabIndex        =   12
      Text            =   "0"
      Top             =   960
      Width           =   1215
   End
   Begin VB.TextBox rbasez 
      Height          =   495
      Left            =   8520
      TabIndex        =   11
      Text            =   "500"
      Top             =   360
      Width           =   1215
   End
   Begin VB.TextBox gbasez 
      Height          =   495
      Left            =   8520
      TabIndex        =   10
      Text            =   "-500"
      Top             =   960
      Width           =   1215
   End
   Begin VB.TextBox gbasex 
      Height          =   495
      Left            =   7200
      TabIndex        =   9
      Text            =   "-500"
      Top             =   960
      Width           =   1215
   End
   Begin VB.TextBox rbasex 
      Height          =   495
      Left            =   7200
      TabIndex        =   8
      Text            =   "500"
      Top             =   360
      Width           =   1215
   End
   Begin VB.OptionButton Option2 
      Caption         =   "Green"
      Height          =   375
      Left            =   6840
      TabIndex        =   7
      Top             =   5760
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Red"
      Height          =   375
      Left            =   6840
      TabIndex        =   6
      Top             =   5280
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Manual Player Add"
      Height          =   615
      Left            =   4560
      TabIndex        =   5
      Top             =   5640
      Width           =   1575
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   4560
      TabIndex        =   4
      Text            =   "Players name"
      Top             =   5040
      Width           =   1335
   End
   Begin VB.ListBox List2 
      Height          =   1815
      Left            =   2400
      TabIndex        =   3
      Top             =   5040
      Width           =   2055
   End
   Begin VB.ListBox List1 
      Height          =   1815
      Left            =   360
      TabIndex        =   2
      Top             =   5040
      Width           =   2055
   End
   Begin RichTextLib.RichTextBox text 
      Height          =   2775
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   5055
      _ExtentX        =   8916
      _ExtentY        =   4895
      _Version        =   393217
      Enabled         =   -1  'True
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      MousePointer    =   99
      TextRTF         =   $"Form1.frx":0004
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   6480
      Top             =   0
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Connect"
      Height          =   435
      Left            =   5640
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Left            =   720
      TabIndex        =   27
      Top             =   4680
      Width           =   1095
   End
   Begin AWSDKOCX5Lib.AwSdkOcx5 sdk 
      Left            =   6960
      Top             =   0
      _Version        =   65536
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim timert As Integer
Dim begin As Integer
Dim tportt As Integer
Dim round As Integer
Dim cctext As Long


Private Sub Command1_Click()
sdk.AwInit AW_BUILD
'rc = sdk.QuickStart(349260, "mdb2", "Pball Bot", "pball", "valley", 0, -10, 0, 0, 4)
rc = sdk.QuickStart(331597, "stormz", "Pball Bot", "pball", "valley", 0, -1000, 0, 0, 0)
If rc Then
test = sdk.RCLookUp(rc)
MsgBox (test)
End If
sdk.AwSay "Up and running!"
Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
If Text2.text = "" Then
Else
    textc2 = StrConv(Text2, vbUpperCase)
    If Option1.Value = True Then
    List1.AddItem (textc2)
    Else
    List2.AddItem (textc2)
    End If
End If
End Sub
Private Sub Command3_Click()
checkt
End Sub



Private Sub Command4_Click()
scoreu
End Sub

Private Sub Form_Unload(Cancel As Integer)
sdk.QuickStop
End
End Sub

Private Sub gs_Change()
scoreu
End Sub

Private Sub roundt_Timer()
If timert = 5 Then
If rs < gs Then
wint = "GREEN": wins = gs
End If
If rs > gs Then
wint = "RED": wins = rs
End If
If rs = gs Then
sdk.AwConsoleBlue = 255
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Vallel Info:" & vbTab & "The round has ended! There was a tie at " & rs & " points!"
sdk.AwConsoleMsg 0
Else
sdk.AwConsoleBlue = 255
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Vallel Info:" & vbTab & "The round has ended! WTG " & wint & " TEAM! They have won with " & wins & " points!"
sdk.AwConsoleMsg 0
End If
rs = 0
gs = 0
round = 0
scoreu
roundt.Enabled = False
Else
timert = timert + 1
End If
End Sub

Private Sub rs_Change()
scoreu
End Sub

Private Sub sdk_EventAvatarAdd()
If begin = 1 Then
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "Welcome to Valley Paintball " & sdk.AwAvatarName & "! We hope you'll have a great time!"
sdk.AwConsoleMsg sdk.AwAvatarSession
sdk.AwConsoleRed = 127
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 127
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "Please welcome " & sdk.AwAvatarName & "!"
sdk.AwConsoleMsg 0

sdk.AwTeleportX = 0
sdk.AwTeleportY = -790
sdk.AwTeleportZ = 0
sdk.AwTeleport (sdk.AwAvatarSession)
End If

List3.AddItem (sdk.AwAvatarCitizen & "-" & sdk.AwAvatarSession)
End Sub

Private Sub sdk_EventAvatarClick()
cscore
End Sub

Private Sub sdk_EventAvatarDelete()
tc = List1.ListCount
textn = StrConv(sdk.AwAvatarName, vbUpperCase)
For i = 0 To tc
tname = List1.List(i)
If tname = textn Then
List1.RemoveItem (i)
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "Seeya " & sdk.AwAvatarName & "!"
sdk.AwConsoleMsg 0
sdk.AwTeleportX = 0
sdk.AwTeleportZ = 0
sdk.AwTeleportY = 0
sdk.AwTeleport (sdk.AwChatSession)
End If
Next i
i = 0
tc = List2.ListCount
For i = 0 To tc
tname = List2.List(i)
If tname = textn Then
List2.RemoveItem (i)
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "Seeya " & sdk.AwAvatarName & "!"
sdk.AwConsoleMsg 0
sdk.AwTeleportX = 0
sdk.AwTeleportZ = 0
sdk.AwTeleportY = 0
sdk.AwTeleport (sdk.AwChatSession)
End If
Next i

citnum = sdk.AwAvatarCitizen
i2 = 0
tc = List3.ListCount
For i2 = 0 To tc
tname = Left(List3.text, 6)
If tname = citnum Then
List3.RemoveItem (i2)
End If
Next i2




atext = sdk.AwAvatarCitizen
On Error GoTo errorr
tc = List3.ListCount
For i = 0 To tc
ctext = List3.List(i)
cctext = Left(ctext, 6)
If atext = cctext Then
List3.RemoveItem (i)

End If
Next i

Exit Sub

errorr:
ctext = 0
Resume
End Sub

Private Sub sdk_EventChat()
text.text = text.text & vbNewLine & sdk.AwChatMessage

If sdk.AwChatMessage = "/join" Then tjoin
If sdk.AwChatMessage = "/quit" Then tquit
If sdk.AwChatMessage = "/gzwarp" Then
sdk.AwTeleportX = 0
sdk.AwTeleportY = -790
sdk.AwTeleportZ = 0
sdk.AwTeleport sdk.AwChatSession
End If
If sdk.AwChatMessage = "/twarp" Then
sdk.AwTeleportX = 0
sdk.AwTeleportY = 0
sdk.AwTeleportZ = 0
sdk.AwTeleport sdk.AwChatSession
End If

If sdk.AwChatMessage = "/reset" Then rs = 0: gs = 0: scoreu

If sdk.AwChatMessage = "/test" Then
sdk.AwAvatarCitizen = 349260
'sdk.AwAvatarCitizen = 343041
sdk.AwSay sdk.AwAvatarX
sdk.AwSay sdk.AwAvatarY
sdk.AwSay sdk.AwAvatarZ
End If

If round = 1 Then
sdk.AwConsoleBlue = 255
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "You can not use theese commands while a round is running!"
Else
If sdk.AwChatMessage = "/rbegin" Then rbegin
End If

admin = Left(sdk.AwChatMessage, 2)
If admin = "/a" Then
sdk.AwAvatarSession = sdk.AwChatSession
If sdk.AwAvatarPrivilege = 331597 Then
adminc
Else
sdk.AwConsoleBlue = 255
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "You are not a admin. Please dont try to use admin commands!"
sdk.AwConsoleMsg sdk.AwChatSession
End If
End If


If sdk.AwChatMessage = "/score" Then
sdk.AwConsoleBlue = 0
sdk.AwConsoleRed = 255
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The Red team has " & rs & " points!"
sdk.AwConsoleMsg sdk.AwChatSession

sdk.AwConsoleBlue = 0
sdk.AwConsoleRed = 255
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The Green team has " & gs & " points!"
sdk.AwConsoleMsg sdk.AwChatSession
End If

End Sub

Private Sub sdk_EventObjectClick()
If sdk.AwAvatarName = "Scuz" Then
If sdk.AwObjectDescription = "rscore" Then
rn = sdk.AwObjectNumber
rx = sdk.AwObjectX
rz = sdk.AwObjectZ
ry = sdk.AwObjectY
End If
If sdk.AwObjectDescription = "gscore" Then
gn = sdk.AwObjectNumber
gx = sdk.AwObjectX
gz = sdk.AwObjectZ
gy = sdk.AwObjectY
End If
End If
'sdk.AwSay sdk.AwObjectX

End Sub

Private Sub text1_change()

End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If Not Text3.text = "" Then
If KeyCode = 13 Then
sdk.AwSay Text3.text
Text3.text = ""
End If
End If
End Sub

Private Sub Timer1_Timer()
 sdk.AwWait (1)
End Sub

Public Function checkt()
tc = List1.ListCount
textn = StrConv(Text1.text, vbUpperCase)
For i = 0 To tc
tname = List1.List(i)
If tname = textn Then
'score
MsgBox ("Red has scored!")
End If
Next i
End Function

Public Function tjoin()
tc = List1.ListCount
textn = StrConv(sdk.AwAvatarName, vbUpperCase)
For i = 0 To tc
tname = List1.List(i)
If tname = textn Then
'score
sdk.AwWhisper sdk.AwChatSession, "You are allready on a team"
Exit Function
End If
Next i
i = 0
For i = 0 To tc
tname = List2.List(i)
If tname = textn Then
'score
sdk.AwWhisper sdk.AwChatSession, "You are allready on a team"
Exit Function
End If
Next i
join
End Function

Public Function join()
trc = List1.ListCount
tgc = List2.ListCount
If trc = tgc Then
tie = Int(Rnd * 2)
If tie = 0 Then rjoin
If tie = 1 Then gjoin
Else
If trc < tgc Then rjoin
If trc > tgc Then gjoin
End If
End Function

Public Function rjoin()
    On Error GoTo errorr
    sdk.AwTeleportWarp = False
    sdk.AwTeleportX = rbasex
    sdk.AwTeleportZ = rbasez
    sdk.AwTeleportY = rbasey
    sdk.AwTeleport (sdk.AwChatSession)
    sdk.AwConsoleRed = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & sdk.AwAvatarName & " has just joined the red team!"
    sdk.AwConsoleMsg (0)
    textc2 = StrConv(sdk.AwAvatarName, vbUpperCase)
    List1.AddItem (textc2)
   Exit Function
    
errorr:
    sdk.AwConsoleRed = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The Red base has not been set! Please have a owner set the Red base and then rejoin!"
    sdk.AwConsoleMsg (0)
End Function

Public Function gjoin()
    On Error GoTo errorr
    sdk.AwTeleportWarp = False
    sdk.AwTeleportX = gbasex
    sdk.AwTeleportZ = gbasez
    sdk.AwTeleportY = gbasey
    sdk.AwTeleport (sdk.AwChatSession)
    sdk.AwConsoleRed = 0
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleGreen = 255
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & sdk.AwAvatarName & " has just joined the Green team!"
    sdk.AwConsoleMsg (0)
    textc2 = StrConv(sdk.AwAvatarName, vbUpperCase)
    List2.AddItem (textc2)
    Exit Function
        
errorr:
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleRed = 0
    sdk.AwConsoleGreen = 255
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The Green base has not been set! Please have a owner set the Red base and then rejoin!"
    sdk.AwConsoleMsg (0)
End Function


Public Function tquit()
tc = List1.ListCount
textn = StrConv(sdk.AwAvatarName, vbUpperCase)
For i = 0 To tc
tname = List1.List(i)
If tname = textn Then
List1.RemoveItem (i)
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "You have left your team and are now neutral and can not play untill you join a team by saying /join"
sdk.AwConsoleMsg sdk.AwChatSession
sdk.AwTeleportX = 0
sdk.AwTeleportZ = 0
sdk.AwTeleportY = -1000
sdk.AwTeleport (sdk.AwChatSession)
Exit Function
End If
Next i
i = 0
For i = 0 To tc
tname = List2.List(i)
If tname = textn Then
'score
List2.RemoveItem (i)
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "You have left your team and are now neutral and can not play untill you join a team by saying /join"
sdk.AwConsoleMsg sdk.AwChatSession
sdk.AwTeleportX = 0
sdk.AwTeleportZ = 0
sdk.AwTeleportY = -1000
sdk.AwTeleport (sdk.AwChatSession)
Exit Function
End If
Next i
    sdk.AwConsoleRed = 255
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "You are not on a team!"
    sdk.AwConsoleMsg (0)
End Function

Public Function cscore()
If round = 1 Then

tc = List1.ListCount
textn = StrConv(sdk.AwAvatarName, vbUpperCase)

For i = 0 To tc
tname = List1.List(i)
If tname = textn Then
'check killed
textn = StrConv(sdk.AwClickedName, vbUpperCase)
If textn = "" Then
    sdk.AwConsoleRed = 0
    sdk.AwConsoleBlue = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "DONT TRY AND KILL BOTS!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
    Exit Function
Else
tc = List2.ListCount
i2 = 0
For i2 = 0 To tc
tname = List2.List(i2)
If tname = textn Then
rs = rs + 1
tportt = 1
uscore
Exit Function
End If
If i2 = tc Then
    sdk.AwConsoleRed = 0
    sdk.AwConsoleBlue = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The person you tried to kill is not on a team!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
    Exit Function
End If
Next i2
End If
End If
Next i


tc = List2.ListCount
i = 0
For i = 0 To tc
tname = List2.List(i)
If tname = textn Then
'check killed
textn = StrConv(sdk.AwClickedName, vbUpperCase)
If textn = "" Then
    sdk.AwConsoleRed = 0
    sdk.AwConsoleBlue = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "DONT TRY AND KILL BOTS!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
    Exit Function
Else
tc = List1.ListCount
i2 = 0
For i2 = 0 To tc
tname = List1.List(i2)
If tname = textn Then
If gs = "" Then gs = 1
gs = gs + 1
tportt = 2
uscore
Exit Function
End If
If i2 = tc Then
    sdk.AwConsoleRed = 0
    sdk.AwConsoleBlue = 255
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "The person you tried to kill is not on a team!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
    Exit Function
End If
Next i2
End If
End If
Next i
    sdk.AwConsoleRed = 255
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "You are not on a team!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
    Exit Function
    End If
    sdk.AwConsoleRed = 255
    sdk.AwConsoleBlue = 0
    sdk.AwConsoleGreen = 0
    sdk.AwConsoleBold = True
    sdk.AwConsoleMessage = "Valley Info:" & vbTab & "A round has not been started!"
    sdk.AwConsoleMsg sdk.AwAvatarSession
End Function

Public Function uscore()
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Vally Info:" & vbTab & "You have killed " & sdk.AwClickedName & "! They were sent to they're base!"
sdk.AwConsoleMsg sdk.AwAvatarSession
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleBlue = 255
sdk.AwConsoleBold = True
sdk.AwConsoleMessage = "Vally Info:" & vbTab & sdk.AwAvatarName & " has just killed you! You have been sent to your base!"
sdk.AwConsoleMsg sdk.AwClickedSession
If tportt = 2 Then
sdk.AwTeleportWarp = False
sdk.AwTeleportX = rbasex
sdk.AwTeleportY = rbasey
sdk.AwTeleportZ = rbasez
sdk.AwTeleport (sdk.AwClickedSession)
Else
sdk.AwTeleportWarp = False
sdk.AwTeleportX = gbasex
sdk.AwTeleportY = gbasey
sdk.AwTeleportZ = gbasez
sdk.AwTeleport (sdk.AwClickedSession)
End If

sdk.AwObjectOldX = rx
sdk.AwObjectOldZ = rz
sdk.AwObjectOldNumber = rn
sdk.AwObjectDescription = "rscore"
sdk.AwObjectX = rx
sdk.AwObjectZ = rz
sdk.AwObjectRoll = 0
sdk.AwObjectYaw = 0
sdk.AwObjectAction = "create name rscore,sign name=rscore bcolor=red " & rs
sdk.AwObjectModel = "sign3"
sdk.AwObjectY = ry
sdk.AwObjectChange
rn = sdk.AwObjectNumber

sdk.AwObjectOldX = gx
sdk.AwObjectOldZ = gz
sdk.AwObjectOldNumber = gn
sdk.AwObjectDescription = "gscore"
sdk.AwObjectX = gx
sdk.AwObjectZ = gz
sdk.AwObjectRoll = 0
sdk.AwObjectYaw = 0
sdk.AwObjectAction = "create name gscore,sign name=gscore bcolor=green " & gs
sdk.AwObjectModel = "sign3"
sdk.AwObjectY = gy
sdk.AwObjectChange
gn = sdk.AwObjectNumber
End Function

Private Sub Timer2_Timer()
begin = 1
Timer2.Enabled = False
End Sub

Public Function scoreu()
sdk.AwObjectOldX = rx
sdk.AwObjectOldZ = rz
sdk.AwObjectOldNumber = rn
sdk.AwObjectDescription = "rscore"
sdk.AwObjectX = rx
sdk.AwObjectZ = rz
sdk.AwObjectRoll = 0
sdk.AwObjectYaw = 0
sdk.AwObjectAction = "create name rscore,sign name=rscore bcolor=red " & rs
sdk.AwObjectModel = "sign3"
sdk.AwObjectY = ry
sdk.AwObjectChange
rn = sdk.AwObjectNumber

sdk.AwObjectOldX = gx
sdk.AwObjectOldZ = gz
sdk.AwObjectOldNumber = gn
sdk.AwObjectDescription = "gscore"
sdk.AwObjectX = gx
sdk.AwObjectZ = gz
sdk.AwObjectRoll = 0
sdk.AwObjectYaw = 0
sdk.AwObjectAction = "create name gscore,sign name=gscore bcolor=green " & gs
sdk.AwObjectModel = "sign3"
sdk.AwObjectY = gy
sdk.AwObjectChange
gn = sdk.AwObjectNumber
End Function

Public Function rbegin()
rs = 0
gs = 0
round = 1
roundt.Enabled = True
sdk.AwConsoleBlue = 50
sdk.AwConsoleGreen = 150
sdk.AwConsoleRed = 250
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "A new round has begun!"
sdk.AwConsoleMsg 0

End Function

Public Function adminc()
num = Len(sdk.AwChatMessage)
num = num - 2
ctext = Right(sdk.AwChatMessage, num)
If ctext = "end" Then
sdk.QuickStop
End
End If

atext = Left(sdk.AwChatMessage, 6)
If atext = "/ajoin" Then
num = Len(sdk.AwChatMessage)
num = num - 7
atext = Right(sdk.AwChatMessage, num)

tc = List3.ListCount
For i = 0 To tc
ctext = List3.List(i)
ctext = Left(ctext, 6)
If atext = ctext Then
cnum = Len(List3.List(i))
cnum = cnum - 7
ases = Right(List3.List(i), cnum)
sdk.AwAvatarSession = ases
sdk.AwTeleportX = sdk.AwAvatarX - 500
sdk.AwTeleportY = sdk.AwAvatarY
sdk.AwTeleportZ = sdk.AwAvatarZ - 500
sdk.AwTeleport (sdk.AwChatSession)
Exit Function
End If
Next i
sdk.AwConsoleBlue = 255
sdk.AwConsoleRed = 0
sdk.AwConsoleGreen = 0
sdk.AwConsoleMessage = "Valley Info:" & vbTab & "I can not find that person, sorry :("
sdk.AwConsoleMsg sdk.AwChatSession
End If
End Function