---

defRequiredAccess = -1
[def]
Ancient's Pledge=3 Socket Shields Ral + Ort + Tal
Beast=5 Socket Axes/scepters/hammer ber+tir+um+mal+lum
Black=3 Socket Clubs/Hammers/Maces Thul + Io + Nef
Bone=3 Socket Body Armor Sol + Um + Um
Bramble=4 Socket Body Armor Ral + Ohm + Sur + Eth
Brand=4 Socket Missile Weapons Jah + Lo + Mal + Gul
Breath of the Dying=6 Socket Weapons Vex + Hel + El + Eld + Zod + Eth
Call To Arms=5 Socket Weapons Amn + Ral + Mal + Ist + Ohm
Chains of Honor=4 Socket Body Armor Dol + Um + Ber + Ist
Chaos=3 Socket Claws Fal + Ohm + Um
Crescent Moon=3 Socket Axes/Swords/Polearms Shael + Um + Tir
Death=5 Socket Swords/Axes Hel + El + Vex + Ort + Gul
Delirium=3 Socket Helms Lem + Ist + Io
Destruction=5 Socket Polearms/Swords Vex + Lo + Ber + Jah + Ko
Doom=5 Socket Axes/Polearms/Hammers Hel + Ohm + Um + Lo + Cham
Dragon=3 Socket Body Armor/Shields
Sur + Lo + Sol
Dream=3 Socket Helms/Shields Io + Jah + Pul
Duress=3 Socket Body Armor Shael + Um + Thul
Edge=3 Socket Missile Weapons Tir + Tal + Amn
Enigma=3 Socket Body Armor Jah + Ith + Ber
Enlightenment=3 Socket Body Armor Pul + Ral + Sol
Eternity=5 Socket Melee Weapons Amn + Ber + Ist + Sol + Sur
Exile=4 Socket Paladin Shields (only) Vex + Ohm + Ist + Dol
Faith=4 Socket Missile Weapons Ohm + Jah + Lem + Eld
Famine=4 Socket Axes/Hammers Fal + Ohm + Ort + Jah
Fortitude=4 Socket Weapons/Body Armor El + Sol + Dol + Lo
Fury=3 Socket Melee Weapons Jah + Gul + Eth
Gloom=3 Socket Body Armor Fal + Um + Pul
Grief=5 Socket Swords/Axes Eth + Tir + Lo + Mal + Ral
Hand of Justice=4 Socket Weapons Sur + Cham + Amn + Lo
Harmony=4 Socket Missile Weapons Tir + Ith + Sol + Ko
Heart of the Oak=4 Socket Staves/Maces Ko + Vex + Pul + Thul
Holy Thunder=4 Socket Scepters Eth + Ral + Ort + Tal
Honor=5 Socket Melee Weapons Amn + El + Ith + Tir + Sol
Ice=4 Socket Missile Weapons Amn + Shael + Jah + Lo
Infinity=4 Socket Polearms Ber + Mal + Ber + Ist
Insight=4 Socket Polearms/Staves
Ral + Tir + Tal + Sol
King's Grace=3 Socket Swords/Scepters Amn + Ral + Thul
Kingslayer=4 Socket Swords/Axes Mal + Um + Gul + Fal
Last Wish=6 Socket Swords/Hammers/Axes Jah + Mal + Jah + Sur + Jah + Ber
Lawbringer=3 Socket Swords/Hammers/Scepters Amn + Lem + Ko
Leaf=2 Socket Staves (Not Orbs) Tir + Ral
Lionheart=3 Socket Body Armor Hel + Lum + Fal
Lore=2 Socket Helms Ort + Sol
Malice=3 Socket Melee Weapons
Ith + El + Eth
Melody=3 Socket Missile Weapons Shael + Ko + Nef
Memory=4 Socket Staves (Not Orbs) Lum + Io + Sol + Eth
Myth=3 Socket Body Armor Hel + Amn + Nef
Nadir=2 Socket Helms Nef + Tir
Oath=4 Socket Swords/Axes/Maces Shael + Pul + Mal + Lum
Obedience=5 Socket Polearms Hel + Ko + Thul + Eth + Fal
Passion=4 Socket Weapons Dol + Ort + Eld + Lem
Peace=3 Socket Body Armor Shael + Thul + Amn
Phoenix=4 Socket Weapons/Shields Vex + Vex + Lo + Jah
Pride=4 Socket Polearms Cham + Sur + Io + Lo
Principle=3 Socket Body Armor Ral + Gul + Eld
Prudence=2 Socket Body Armor Mal + Tir
Radiance=3 Socket Helms Nef + Sol + Ith
Rain=3 Socket Body Armor Ort + Mal + Ith
Rhyme=2 Socket Shields Shael + Eth
Rift=4 Socket Polearms/Scepters Hel + Ko + Lem + Gul
Sanctuary=3 Socket Shields Ko + Ko + Mal
Silence=6 Socket Weapons Dol + Eld + Hel + Ist + Tir + Vex
Smoke=2 Socket Body Armor Nef + Lum
Spirit=4 Socket Swords/Shields Tal + Thul + Ort + Amn
Splendor=2 Socket Shields Eth + Lum
Stealth=2 Socket Body Armor Tal + Eth
Steel=2 Socket Swords/Axes/Maces Tir + El
Stone=4 Socket Body Armor Shael + Um + Pul + Lum
Strength=2 Socket Melee Weapons Amn + Tir
Treachery=3 Socket Body Armor Shael + Thul + Lem
Venom=3 Socket Weapons Tal + Dol + Mal
Voice of Reason=4 Socket Swords/Maces Lem + Ko + El + Eld
Wealth=3 Socket Body Armor Lem + Ko + Tir
White=2 Socket Wand Dol + Io
Wind=2 Socket Melee Weapons Sur + El
Wrath=4 Socket Missile Weapons Pul + Lum + Ber + Mal
Zephyr=2 Socket Missile Weapons Ort + Eth
Thul rune=3 Thul + Chip Topaz=Amn rune
Amn rune=3 Thul + Chip Topaz=Amn rune
Sol rune=3 Amn + chip Ameythst=Sol rune
Shael rune=3 Sol + chip Sapphire=Shael rune
Dol rune=3 Shael + chip Ruby=Dol rune
Hel rune=3 Dol + chip Emerald=Hel rune
Io rune=3 Hel + chip Diamond=Io rune
Lum rune=3 Io + flawed Topaz=Lum rune
Ko rune=3 Lum + flawed Amethyst=Ko rune
Fal rune=3 Ko + flawed Sapphire=Fal rune
Lem rune=3 Fal + flawed Ruby=Lem rune
Pul rune=3 Lem + flawed Emerald=Pul rune
Um rune=2 Pul + flawed Diamond=Um rune
Mal rune=2 Um + Topaz=Mal rune
Ist rune=2 Mal + Amethyst=Ist rune
Gul rune=2 Ist + Sapphire=Gul rune
Vex rune=2 Gul + Ruby=Vex rune
Ohm rune=2 Vex + Emereald=Ohm rune
Lo rune=2 Ohm + Diamond=Lo rune
Sur rune=2 Lo + flawless Topaz=Sur rune
Ber rune=2 Sur + flawless Ameythst=Ber rune
Jah rune=2 Ber + flawless Sapphire=Jah rune
Cham rune=2 Jah + flawless Ruby=Cham rune
Zod rune=2 Cham + flawless Emerald=Zod

---

---

'do
'1.1

'Dota Script
'This version cannot do challenges

'Commands ~ Defualt
'Sign - Signs In to a team. Team is required use 1 or 2
'Out - SIgns Out
'Startgame - Starts game. Teams can be 4v4 5v5 or 1v1 mode cann be anything
'pool - shows current players
'domds - lists commands




'//////Settings!!///////'

'Commands can be changed here
Public Const ShowCmd = "docmds"
Public Const SignCmd = "sign"
Public Const OutCmd = "out"
Public Const PoolCmd = "pool"
Public Const StartCmd = "startgame"

'Command Access
Public Const StartCmd_access = "60"
Public Const SignCmd_access = "0"
Public Const OutCmd_access = "0"
Public Const PoolCmd_access = "20"
Public Const ShowCmd_access = "20"

'Do you want to emote all dota commands
Public Const EmoteCmdsOn = False

'Use Flags instead of access?? If so please set all the flags for the commands
Public Const UseFlags = False

Public Const StartCmd_flags = " "
Public Const SignCmd_flags = " "
Public Const OutCmd_flags = " "
Public Const PoolCmd_flags = " "
Public Const ShowCmd_flags = " "

'////// Accual Coding //////'

Public msg, Cmd, Team1, Team2, key, GameOn

Set dPlayers = CreateObject(Scripting.Dictionary)

Sub do_Event_Load()
TimerInterval "do", "PlayerCount", 1
TimerEnabled "do", "PlayerCount", False
AddChat vbBlue, "Welcome to the DoTa Script ~ : Version 1.1 No Challenge Command"
End Sub

Sub do_UserTalk(Username, Flags, Message, Ping)

GetDBEntry Username, myAccess, myFlags

If Not Username <> BotVars.Username Then
If Left(Message, 1) <> "/" Then Exit Sub
Else
If Left(Message, 1) <> BotVars.Trigger Then Exit Sub
End If

If Len(Message) < 2 Then Exit Sub

If InStr(Trim(Message, " ")) = 0 Then
msg = Message & " "
Else
msg = Message
End If

Cmd = Split(Mid(Trim(msg), 2))
msg = " "

Select Case
Case StartCmd: do_Start Cmd, Username, myAccess, myFlags
Case SignCmd: do_Sign Cmd, Username, myAccess, myFlags
Case OutCmd: do_Out Cmd, Username, myAccess, myFlags
Case PoolCmd: do_Pool Cmd, Usernamee, myAccess, myFlags
Case ShowCmd: do_Shows Cmd, Username, myAccess, myFlags
End Select

End Sub

Sub do_Sign(Cmd, Username, myAccss, myFlags)

If Username = BotVars.Username Then
AddChat vbRed, "You cannot use the sign command from inside the bot"
Exit Sub
End If

If Not GameOn Then Exit Sub

If UseFlags Then
If InStr(myFlags, SignCmd_flags) = 0 Then Exit Sub
Else
If myAccess < SignCmd_access Then Exit Sub
End If

If Not dPlayers.Exists(Username) Then
If Cmd(1) <> 1 OR Cmd(1) <> 2 Then AddChat vbRed, "In correct team use" Exit Sub
dPlayers.Item(Username) = Cmd(1)
If EmoteCmdsOn Then
AddQ "/me " & Username & " has signed into team " & Cmd(1)
Else
AddQ Username & " has signed into team " & Cmd(1)
End If
End If

End Sub


Sub do_Out(Cmd, Username, myAccess, myFlags)

If Username = BotVars.Username Then
AddChat vbRed, "You cannot use the out command from inside the bot"
Exit Sub
End If

If Not GameOn Then Exit Sub

If UseFlags Then
If InSt(myFlags, OutCmd_flags) = 0 Then Exit Sub
Else
If myAccess < OutCmd_access Then Exit Sub
End If

If dPlayers.Exists(Username) Then
dPlayers.Remove(Usename)
If EmoteCmdsOn Then
AddQ "/me " & Username & " has signed out of the game"
Else
AddQ Username & " has signed out of the game"
End If
End If

End Sub


Sub do_Pool(Cmd, Username, myAccess, myFlags)

If Not GameOn Then Exit Sub

If Username = BotVars.Username Then
msg = "The Current pool is: "
For Each key In dPlayers.Keys()
msg = msg & key & ", "
Next
AddChat vbBlue, msg
Exit Sub
End If

If UseFlags Then
If InStr(myFlags, PoolCmd_flags) = 0 Then Exit Sub
Else
If myAccess < PoolCmd_access Then Exit Sub
End If

msg = "The Current Pool is: "
For Each key In dPlayers.Keys()
msg = msg & key & ", "
Next

If EmoteCmdsOn Then
AddQ "/me " & msg
Else
AddQ msg
End If

msg = " "

End Sub


Sub do_Start(Cmd, Username, myAccess, myFlags)


If GameOn Then Exit Sub

If Username = BotVars.Username Then
AddChat vbRed, "You can't use the startgame command from inside the bot"
Exit Sub
End If

If UseFlags Then
If InStr(myFlags, StartCmd_flags) = 0 Then Exit Sub
Else
If myAccess < StartCmd_access Then Exit Sub
End If

If Cmd(1) = "5v5" Then
Teams = 10
ElseIf Cmd(1) = "4v4" Then
Teams = 8
ElseIf Cmd(1) = "1v1" Then
Teams = 2
Else
AddChat vbRed, "Invalid startgame usage"
Exit Sub
End If

If EmoteCmdsOn Then
AddQ "/me a game is about to begin"
AddQ "/me This game is a " & Cmd(1) & " " & Cmd(2)
Else
AddQ "A game is about to begin"
AddQ "This game is a " & Cmd(1) & " " & Cmd(2)
End If

GameOn = True
Mode = Cmd(2)
TimerEnabledd "do", "PlayerCount", True

End Sub

Sub do_Show(Cmd, Username, myAccess, myFlags)

If Username = BotVars.Username Then
AddChat vbBlue, "The current commands are: " & StartCmd & ", " & OutCmd & ", " & SignCmd & ", " & PoolCmd & ", " & ShowCmd
Exit Sub
End If

If UseFlags Then
If InStr(myFlags, ShowCmd_flags) = 0 Then Exit Sub
Else
If myAccess < ShowCmd_access Then Exit Sub
End If

AddQ "The current commands are: " & StartCmd & ", " & OutCmd & ", " & SignCmd & ", " & PoolCmd ", " & ShowCmd

End Sub

Sub do_PlayerCount_Timer()
If NotGameOn
AddChat vbRed, "Game On Error"
AddChat vbRed, "Stopping timer...."
TimerEnabled "do", "PlayerCount", False
Exit Sub
End If

Count = dPlayers.Count()
If Count = Teams Then
If EmoteCmdsOn Then
AddQ "/me The game is full!! The game mode is " & Mode
dspTeams()
GameOn = False
msg = " "

Else
AddQ "The game is full!! The game mode is " & Mode
dsppTeams()
End If
End If

End Sub

Function dspTeams()

Team1 = "Team1: "
Team2 = "Team2: "


For Each key In dPlayers.Keys()

x = dPlayers.Item(key)
If x = 1 Then
Team1 = Team1 & key & ", "
ElseIf x = 2 Then
Team2 = Teams2 & key & ", "
End If

Next

AddQ Team1
AddQ Team2

Team1 = " "
Team2 = " "

End Function

---