Autohotkey Scripting Service

;Quests Vars
;----------------
global Q_Name 		= 1
global Q_Info 		        = 2
global Q_Prog 		= 3
global Q_Max  		= 4
global Q_EXP  		= 5
global Q_STATUS 	= 6
global Q_TOTALEXP 	= 0
;----------------
;RegEX Formeln
global RegExQuest := "i)([a-zA-Z\s\.]+)/([a-zA-Z0-9\s\.]+)/([0-9]+)/([0-9]+)/([0-9\.]+)/([0-1])"
global RegExQuestSettings := "([0-9]+)/"
global RegExTimeStamp := "U)^\[\d{2}:\d{2}:\d{2}\] "
global RegExColor := "{\S{6}}"
;----------------
Col := {Main: "FFFFFF",Sec: "3651A8"}
;Objekte
global Quest := Object()


BuildArray()
{
	If(Quest.MAxIndex() > 0){
		While(Quest.MaxIndex())
			Quest.RemoveAt(Quest.MaxIndex())
	}
	FileRead, QuestFILECONTENT, Questlist.txt
	Loop, parse, QuestFILECONTENT, `n, `r
	{
		if(Found := RegExMatch(A_Loopfield, RegExQuest, REGEXARR)) 
			Quest.Push([ REGEXARR1 , REGEXARR2 , REGEXARR3 , REGEXARR4 , REGEXARR5 , REGEXARR6 ])
		if(Found := RegExMatch(A_Loopfield, RegExQuestSettings, REGEXARR))
			Q_TOTALEXP := REGEXARR1
	}
	QuestFILECONTENT := ""
	return
}


GetQuestName(GAN_ID)
{
	return Quest[ GAN_ID , Q_Name ]
}


GetTotalEXP()
{
	global
	return Q_TOTALEXP
}


SetTotalEXP(byInt)
{
	If(IsInteger(byInt)){
		return Q_TOTALEXP := Q_TOTALEXP + byInt
	}else{
		return -1
	}
}


SetQuestValue(SAV_NameOrID,SAV_Value)
{
	If(IsInteger(SAV_NameOrID))
		if(SAV_NameOrID >= Quest.MinIndex() && SAV_NameOrID <= Quest.MaxIndex())
			return Quest[ SAV_NameOrID , Q_Prog ] := SAV_Value
		else
			return -1
	else 
		strlen(SAV_NameOrID) == 0 ? return -1 : return Quest[ GetQuestID(SAV_NameOrID) , Q_Prog ] := SAV_Value
}


IncreaseQuestValuebyStep(IAVBS_Name,IAVBS_Value)
{
	IsInteger(IAVBS_Name) ? "" : IAVBS_Name := GetQuestID(IAVBS_Name)
	if(IAVBS_Value >= 2 || IAVBS_Value <= 0 || IAVBS_Name == "" || IAVBS_Name == -1)
		return -1
	Quest[ IAVBS_Name , Q_Prog ] += IAVBS_Value
	if(Quest[ IAVBS_Name , Q_Prog ] == Quest[ IAVBS_Name , Q_MAX ] && !Quest[ IAVBS_Name , Q_STATUS ])
	{
		_tmpxp := GetTotalEXP()
		AddChatMEssage("{FFFFFF}Herzlichen Glückwunsch! | Quest - {3651A8}" Quest[ IAVBS_Name , Q_NAME ] "{FFFFFF} abgeschlossen.")
		AddChatMEssage("{FFFFFF}Deine Gesammt EXP stiegen von {3651A8}" _tmpxp "EXP{FFFFFF} auf {3651A8}" _tmpxp+Quest[ IAVBS_Name , Q_EXP ] " EXP{FFFFFF} | + {3651A8}" Quest[ IAVBS_Name , Q_EXP ] "EXP")
		Quest[ IAVBS_Name , Q_STATUS ] := 1
		SetTotalEXP(Quest[ IAVBS_Name , Q_EXP ])
		RefreshQuestTXT()
		return 1
	}
	AddChatMEssage("{FFFFFF}Fortschritt der Quest - {3651A8}" Quest[ IAVBS_Name , Q_NAME ] "{FFFFFF} - Wert: {3651A8}" Quest[ IAVBS_Name , Q_PROG ] "{FFFFFF}/{3651A8}" Quest[ IAVBS_Name , Q_MAX ] )
	RefreshQuestTXT()
	return 1
}


GetQuestStatus(GQS_NameOrID)
{
	If(IsInteger(GQS_NameOrID)){
		return Quest[ GAV_NameOrID , Q_STATUS ]
	}else{ 
		if(strlen(GQS_NameOrID) == 0)
			return -1
		return Quest[ GetQuestID(GQS_NameOrID) , Q_STATUS ]
	}
}


GetQuestValue(GAV_NameOrID)
{
	If(IsInteger(GAV_NameOrID)){
		return Quest[ GAV_NameOrID , Q_Prog ]
	}else{
		if(strlen(GAV_NameOrID) == 0)
			return -1
		While(Quest.MaxIndex() != A_Index){
			if(Quest[ A_Index , Q_Name ] != GAV_NameOrID)
				Continue
			return Quest[ A_Index , Q_Prog ]
		}
	}
	return 0
}


RefreshQuestTXT()
{
	FileDelete Questlist.txt
	While(A_Index <= Quest.MaxIndex())
		TxtContent .= Quest[ A_Index , Q_Name ] "/" Quest[ A_Index , Q_Info ] "/" Quest[ A_Index , Q_Prog ] "/" Quest[ A_Index , Q_Max ] "/" Quest[ A_Index , Q_EXP ] "/" Quest[ A_Index , Q_STATUS ] "`n"
	TxtContent .= GetTotalEXP() "/"
	Fileappend, %TxtContent% , Questlist.txt
	BuildArray()
	return
}


GetQuestID(GAI_Name)
{
	if(strlen(GAI_Name) <= 1)
		return -1
	While(Quest.MaxIndex() >= A_Index)
	{
		if(Quest[ A_Index , Q_Name ] == GAI_Name)
			return A_Index
	}
	return 0
}


ClearVar(CV_Name)
{
	return VarSetCapacity(CV_Name, 0)
}


CountRowsInFile(CRIF_FILENAME,FullRead:=False)
{ 	
	local CRIF_FILEPATH := CRIF_FILENAME
	local CRIF_FILEPATH .= instr(CRIF_FILENAME,".txt",0,1,1) ? "" : ".txt"
	FileRead, CRIF_FILESTRING , % CRIF_FILEPATH
	Loop, parse, CRIF_FILESTRING, `n, `r
		CRIF_COUNT++
	return FullRead ? CRIF_COUNT : CRIF_COUNT-1
}


Debugf(Varx,ResetCounter:=False) {
	static _stepcount
	_stepcount++
	Msgbox % "(" _stepcount ") Eingabe: " Varx 
	if(ResetCounter == True)
		_stepcount := ""
}


IsInteger(p_StrToCheck) {
	if p_StrToCheck is integer
		return p_StrToCheck
	return 0
}


ReadSAMPLog(SearchFor,Params*)
{
	local RSL_OBJECT := Object()
	RSL_LOGPATH := A_MyDocuments . "/GTA San Andreas User Files/SAMP/chatlog.txt"
	FileGetSize, RSL_NEWFILESIZE , % RSL_LOGPATH
	If(RSL_OLDFILESIZE < RSL_NEWFILESIZE)
	{
		RSL_SAMPLOG := FileOpen(RSL_LOGPATH,"r")
		Loop{
			RSL_ROW := RSL_SAMPLOG.ReadLine()
			RSL_ROW := RegExReplace(RSL_ROW, RegExTimeStamp)
			RSL_ROW := RegExReplace(RSL_ROW, RegExColor, "")
			RSL_ROW := StrReplace(RSL_ROW, "`r`n")
			RSL_ROW := StrReplace(RSL_ROW, "`r")
			if(RSL_ROW != "")
				RSL_OBJECT.Push(RSL_ROW)
		}Until RSL_SAMPLOG.AtEOF


		if(Params.MaxIndex() == 1 && Params[1] < 0){
			While(A_Index <= StrReplace(Params[1], "-")){
				if(FoundIT := RegExMatch("(.*) " RSL_OBJECT[ RSL_OBJECT.MaxIndex()-A_Index ] " (.*)", SearchFor)){
					FileGetSize, RSL_OLDFILESIZE , % RSL_LOGPATH
					RSL_SAMPLOG.Close()
					break
				}
			}
		}else{
			for _i,linenr in Params {
				if(FoundIT := RegExMatch("(.*) " RSL_OBJECT[RSL_OBJECT.MaxIndex()-linenr] " (.*)", SearchFor)){
					FileGetSize, RSL_OLDFILESIZE , % RSL_LOGPATH
					RSL_SAMPLOG.Close()
					break
				}
			}
		}
		return FoundIT ? True : False
	}
}