'список команд: 
'.map -показать список карт, которые осталось сыграть
'.map GameName HostName - задать имя_игры и имя_хотса_игры
'.setmap - задать список карт,в которые предстоит играть и сохранить их в файл конфигурации
'.resmap - восстанавливает список карт, которые были заданы командой .setmap
'.delmap mapname - удалить карту из списка текущих карт

Script("Name") = "МапПул"
Script("Author") = "SaiSOFT @ Aleksey Nedopeka"
Script("Major") = 0
Script("Minor") = 0
Script("Revision") = 1
Script("Description") = "Don't won't to type here anyone of my description..."

Dim sMapPull_ListOfMapp,sMapPull_CurrentListOfMap,sMapPull_HostName
Dim sMapPull_GameName,sSLCMD,iMapCMD_Access


iMapCMD_Access = 25  'уровень доступа для изменения команд

Sub Event_Load()
 sMapPull_GameName = "не задано"
 sMapPull_HostName = "не задано"
 sMapPull_ListOfMapp = ""
 sMapPull_CurrentListOfMap = ""
 sMapPull_ListOfMapp = GetConfigEntry("MapPullMod","sMapPull_ListOfMapp","")
 sMapPull_CurrentListOfMap = sMapPull_ListOfMapp
End sub

Sub Event_UserTalk(UserName, Flags, Message, Ping)
 'Or error resume next
  sSLCMD = Split (Message," ")
  '.map GameName HostName
  If LCase(sSLCMD(0)) = BotVars.Trigger & "map" Then
   If Len(Message) = 4 Then
    If sMapPull_CurrentListOfMap = "" Then 
	 AddQ "/me нет списка карт"
	 Exit sub
	Else
	 AddQ "/me " & sMapPull_CurrentListOfMap & ", название игры: " & sMapPull_GameName & ", имя сервера игры: " & sMapPull_HostName
	 Exit sub
	End if
   Else 
    If isAdmin(UserName,iMapCMD_Access) = 0 Then exit sub
	sMapPull_GameName = sSLCMD(1)
	sMapPull_HostName = sSLCMD(2)
	AddQ "/me Новое названия игры: " & sMapPull_GameName & ", имя сервера игры: " & sMapPull_HostName
	Exit sub
   End if
  End if
  
  If (LCase(Left(Message,7)) = BotVars.Trigger & "setmap") and isAdmin(UserName,iMapCMD_Access) Then
   sMapPull_ListOfMapp = Right (Message, Len(Message) - 8 )
   sMapPull_CurrentListOfMap = sMapPull_ListOfMapp
   Call WriteConfigEntry("MapPullMod", "sMapPull_ListOfMapp",sMapPull_ListOfMapp,"")
   AddQ "/me задан новый список карт: " & sMapPull_CurrentListOfMap
  End if
  
  If (LCase(Left(Message,7)) = BotVars.Trigger & "resmap") and isAdmin(UserName,iMapCMD_Access) Then
   sMapPull_CurrentListOfMap = sMapPull_ListOfMapp
   AddQ "/me список карт обнулен: " & sMapPull_CurrentListOfMap
  End if
  
  If (LCase(Left(Message,7)) = BotVars.Trigger & "delmap") and isAdmin(UserName,iMapCMD_Access) Then
   sMapPull_CurrentListOfMap = Replace(sMapPull_CurrentListOfMap, Right (Message, Len(Message) - 8 ),"")
   AddQ "/me список карт обновлен: " & sMapPull_CurrentListOfMap
  End if
 End sub
 
Function isAdmin(UserName,ReqirementAccess)
  GetDBEntry UserName, myAccess, myFlags
  If myAccess < Int(ReqirementAccess) Then isAdmin = 0 else isAdmin = 1
  If ReqirementAccess = 0 Then isAdmin = 1
End function