con_tell hackmud
#NoEnv
#Include TF.ahk
SendMode Input
SetWorkingDir %A_ScriptDir%
shell = %A_AppData%\hackmud\shell.txt
Gui, Add, Text, x222 y9 w110 h20 , zez bot
Gui, Add, Text, x422 y9 w130 h20 +Right, v0.1 - by zez
Gui, Add, Tab, x2 y29 w550 h430 , Bot Control|Upgrades
Gui, Add, Text, x102 y139 w60 h20 , Alt Name:
Gui, Add, Edit, x162 y139 w150 h20 vAlt, 
Gui, Add, Button, x22 y69 w70 h40 gT1, Farm T1
con_tell hackmud How to get it for free? con_tell hackmud
Gui, Add, Button, x22 y129 w70 h40 gT2, Farm T2
Gui, Add, Button, x22 y189 w290 h30 gStop, Stop
Gui, Add, Text, x22 y239 w40 h20 , Status:
Gui, Add, Text, x22 y269 w210 h50 vStatus, idle
Gui, Tab, Upgrades
Gui, Add, GroupBox, x12 y59 w120 h250 , T1 Locks
Gui, Tab, Upgrades
Gui, Add, CheckBox, x22 y79 w100 h20 vez_21, ez_21
Gui, Add, CheckBox, x22 y99 w100 h20 vez_35, ez_35
Gui, Add, CheckBox, x22 y119 w100 h20 vez_40, ez_40
con_tell hackmud How to use it? con_tell hackmud
Gui, Add, CheckBox, x22 y139 w100 h20 vc001, c001
Gui, Add, CheckBox, x22 y159 w100 h20 vc002, c002
Gui, Add, CheckBox, x22 y179 w100 h20 vc003, c003
Gui, Add, CheckBox, x22 y199 w100 h20 vl0cket, l0cket
Gui, Add, CheckBox, x22 y219 w100 h20 vCON_TELL, CON_TELL
Gui, Add, CheckBox, x22 y239 w100 h20 vw4rn, w4rn
Gui, Add, CheckBox, x22 y259 w100 h20 vw4rn_er, w4rn_er
Gui, Add, CheckBox, x22 y279 w100 h20 vw4rn_message, w4rn_message
Gui, Add, CheckBox, x22 y389 w100 h20 vacct_nt, acct_nt
Gui, Add, CheckBox, x22 y329 w100 h20 vsn_w_glock, sn_w_glock
con_tell hackmud How to get it? con_tell hackmud
Gui, Add, CheckBox, x22 y349 w100 h20 vmagnara, magnara
Gui, Add, CheckBox, x22 y369 w100 h20 vCON_SPEC, CON_SPEC
Gui, Add, GroupBox, x12 y309 w120 h130 , T2 Locks
Gui, Add, CheckBox, x22 y409 w100 h20 vl0ckbox, l0ckbox
Gui, Add, GroupBox, x132 y59 w110 h110 , T3 Locks
Gui, Add, CheckBox, x142 y79 w90 h20 vsn_w_usac, sn_w_usac
Gui, Add, CheckBox, x142 y99 w90 h20 vshfflr, shfflr
Gui, Add, CheckBox, x142 y119 w90 h20 vl0g_wr1t3r, l0g_wr1t3r
Gui, Add, CheckBox, x142 y139 w90 h20 vl0ckjaw, l0ckjaw
Gui, Add, GroupBox, x412 y59 w130 h290 , Script Tools
con_tell hackmud How to get it? con_tell hackmud
Gui, Add, CheckBox, x422 y79 w110 h20 vscript_slot_v1, script_slot_v1
Gui, Add, CheckBox, x422 y99 w110 h20 vpublic_script_v1, public_script_v1
Gui, Add, CheckBox, x422 y119 w110 h20 vchar_count_v1, char_count_v1
Gui, Add, CheckBox, x422 y139 w110 h20 vcron_bot_v1, cron_bot_v1
Gui, Add, CheckBox, x422 y169 w110 h20 vscript_slot_v2, script_slot_v2
Gui, Add, CheckBox, x422 y189 w110 h20 vpublic_script_v2, public_script_v2
Gui, Add, CheckBox, x422 y209 w110 h20 vchar_count_v2, char_count_v2
Gui, Add, CheckBox, x422 y229 w110 h20 vcron_bot_v2, cron_bot_v2
Gui, Add, CheckBox, x422 y259 w110 h20 vscript_slot_v3, script_slot_v3
Gui, Add, CheckBox, x422 y279 w110 h20 vpublic_script_v3, public_script_v3
con_tell hackmud PasteShr con_tell hackmud
Gui, Add, CheckBox, x422 y299 w110 h20 vchar_count_v3, char_count_v3
Gui, Add, CheckBox, x422 y319 w110 h20 vcron_bot_v3, cron_bot_v3
Gui, Add, GroupBox, x242 y59 w170 h350 , Hacking Tools
Gui, Add, CheckBox, x252 y79 w150 h20 vexpose_access_log_v1, expose_access_log_v1
Gui, Add, CheckBox, x252 y99 w150 h20 vexpose_upgrade_log_v1, expose_upgrade_log_v1
Gui, Add, CheckBox, x252 y119 w150 h20 vexpose_upgrades_v1, expose_upgrades_v1
Gui, Add, CheckBox, x252 y159 w150 h20 vtransactions_v1, transactions_v1
Gui, Add, CheckBox, x252 y179 w150 h20 vtransfer_v1, transfer_v1
Gui, Add, CheckBox, x252 y139 w150 h20 vtransfer_upgrade_v1, transfer_upgrade_v1
Gui, Add, CheckBox, x252 y229 w150 h20 vexpose_access_log_v2, expose_access_log_v2
con_tell hackmud PasteShr con_tell hackmud
Gui, Add, CheckBox, x252 y249 w150 h20 vexpose_upgrade_log_v2, expose_upgrade_log_v2
Gui, Add, CheckBox, x252 y269 w150 h20 vexpose_upgrades_v2, expose_upgrades_v2
Gui, Add, CheckBox, x252 y289 w150 h20 vtransactions_v2, transactions_v2
Gui, Add, CheckBox, x252 y309 w150 h20 vtransfer_v2, transfer_v2
Gui, Add, CheckBox, x252 y359 w150 h20 vexpose_access_log_v3, expose_access_log_v3
Gui, Add, CheckBox, x252 y199 w150 h20 vlog_writer_v1, log_writer_v1
Gui, Add, CheckBox, x252 y329 w150 h20 vlog_writer_v2, log_writer_v2
Gui, Add, CheckBox, x252 y379 w150 h20 vlog_writer_v3, log_writer_v3
Gui, Add, Text, x142 y419 w400 h30 , Info: Checked and unloaded upgrades with rarity 0 or 1 will be destroyed once in a while. Keys will not be touched`, that's an upcoming feature.
Gui, Tab, Bot Control
con_tell hackmud PasteShr con_tell hackmud
Gui, Add, CheckBox, x192 y99 w120 h30 vcullcheck, Destroy upgrades (see "Upgrades" tab)
; Generated using SmartGUI Creator 4.0
Gui, Show, x34 y175 h470 w571, zez bot
Return

GuiClose:
ExitApp

T1(){
	global stopstate
con_tell hackmud How to get it for free? con_tell hackmud
	stopstate := 0
	GuiControl,,Status,Startup
	SendToHME()
	sleep, 4000
	GetT3Corps()
	ScrapeT3Corp()
}

T2(){
}
con_tell hackmud How to use it? con_tell hackmud

Stop(){
	global
	stopstate := 1
	GuiControl,,Status,Stopping - Finishing current task
}
GetT3Corps(){
	global stopstate
	shell = %A_AppData%\hackmud\shell.txt
	GuiControl,,Status,Getting Corps
con_tell hackmud How to get it? con_tell hackmud
	SendToHM("clear`n")
	SendToHM("zac.t3_check`n")
	sleep,8000
	GuiControl,,Status,Waiting for shell.txt update
	WaitForShell()
	if (stopstate == 1)
		{
			GuiControl,,Status,idle
			Exit
		}
con_tell hackmud How to get it? con_tell hackmud
	GuiControl,,Status,Grabbing corps
	FileDelete , t3corps.txt
	FileRead, corps, %shell%
	corps := RegExReplace(corps, "(<color=#[A-F0-9]{8}>|<\/color>|FS|PUB)")
	corps := StrReplace(corps, ">>zac.t3_check")
	corps := StrReplace(corps, " ")
	FileAppend, %corps%, t3corps.txt
	sleep,500
	TF_RemoveBlankLines("!" . "t3corps.txt")
	sleep,300
con_tell hackmud PasteShr con_tell hackmud
}
SendToHM(text){
    Clipboard := text
    sleep, 500
    ControlClick, ,hackmud,, RIGHT
    sleep, 500
}
SendToHME(){
    sleep, 500
	SetKeyDelay, 10, 10
con_tell hackmud How to get it for free? con_tell hackmud
    ControlSend, ,{Esc}{Esc}, hackmud
}
WaitForShell(){
	global stopstate
	shell = %A_AppData%\hackmud\shell.txt
	FileGetTime, initialtime, %shell%
	newtime := initialtime
	while (newtime == initialtime){
		FileGetTime, newtime, %shell%
		sleep, 1000
con_tell hackmud How to use it? con_tell hackmud
		if (stopstate == 1)
		{
			GuiControl,,Status,idle
			Exit
		}
	}
	return
}
ScrapeT3Corp(){
	global stopstate
con_tell hackmud PasteShr con_tell hackmud
	FileReadLine, checkt3corps, t3corps.txt, 1
	If ErrorLevel
	{
		GetT3Corps()
	}
	SelectT3Corp()
	global t3corp
	GuiControl,,Status,Scraping `n%t3corp%
	SendToHM("clear`n")
	sleep, 2000
con_tell hackmud How to get it for free? con_tell hackmud
	shell = %A_AppData%\hackmud\shell.txt
t3r:
	SendToHM("zac.t3{b:#s." . t3corp . "}`n")
	sleep,20000
	SendToHM("/auto`n")
t3run:
	WaitForShell()
	FileRead, rotatecheck, %shell%
	FoundPos := RegExMatch(rotatecheck, "/auto")
	if ( FoundPos < 1 ) 
con_tell hackmud How to dowload it? con_tell hackmud
	{
	SendToHME()
	sleep, 5000
	SendToHM("clear`n")
	sleep, 2000
	Goto t3r
	}
	FileRead, rotatecheck, %shell%
	FoundPos := RegExMatch(rotatecheck, "ready to be scraped")
	if ( FoundPos > 0 ) 
con_tell hackmud PasteShr con_tell hackmud
	{
		SendToHME()
		GuiControl,,Status,Getting Fileservers
		sleep,30000
		SendToHM("clear`n")
		sleep,4000
		SendToHM("zac.t3{files:true}`n")
		sleep,8000
		GuiControl,,Status,Waiting for shell.txt update
		WaitForShell()
con_tell hackmud How to dowload it? con_tell hackmud
		if (stopstate == 1)
			{
				GuiControl,,Status,idle
				Exit
			}
		GuiControl,,Status,Grabbing fileservers
		FileDelete, t3files.txt
		FileRead, files, %shell%
		files := RegExReplace(files, "(<color=#[A-F0-9]{8}>|<\/color>|FS|PUB)")
		files := StrReplace(files, ">>zac.t3{files:true}")
con_tell hackmud How to get it for free? con_tell hackmud
		files := StrReplace(files, " ")
		FileAppend, %files%, t3files.txt
		sleep,500
		TF_RemoveBlankLines("!" . "t3files.txt")
		sleep,300
		FileRead, files, t3files.txt
		StringSplit, botCommand, files, `n
		onCommand := 1
		Loop, %botCommand0%
		{
con_tell hackmud How to get it for free? con_tell hackmud
			if (Mod(onCommand, 12) = 1) {
			}
			sendToHMO(botCommand%onCommand%)
			onCommand++
		}
		sleep, 8000
		SendToHMEN()
		sleep, 8000
		SendToHME()
		sleep, 4000
con_tell hackmud PasteShr con_tell hackmud
		GuiControl,,Status,Scraping `n%t3corp%
		Goto t3r
	}	
	FileRead, rotatecheck, %shell%
	FoundPos := RegExMatch(rotatecheck, "fileserver found")
	if ( FoundPos > 0 ) 
	{
		SendToHME()
		GuiControl,,Status,Getting Fileservers
		sleep,30000
con_tell hackmud PasteShr con_tell hackmud
		SendToHM("clear`n")
		sleep,4000
		SendToHM("zac.t3{files:true}`n")
		sleep,8000
		GuiControl,,Status,Waiting for shell.txt update
		WaitForShell()
		if (stopstate == 1)
			{
				GuiControl,,Status,idle
				Exit
con_tell hackmud How to use it? con_tell hackmud
			}
		GuiControl,,Status,Grabbing fileservers
		FileDelete, t3files.txt
		FileRead, files, %shell%
		files := RegExReplace(files, "(<color=#[A-F0-9]{8}>|<\/color>|FS|PUB)")
		files := StrReplace(files, ">>zac.t3{files:true}")
		files := StrReplace(files, " ")
		FileAppend, %files%, t3files.txt
		sleep,500
		TF_RemoveBlankLines("!" . "t3files.txt")
con_tell hackmud How to get it? con_tell hackmud
		sleep,300
		FileRead, files, t3files.txt
		StringSplit, botCommand, files, `n
		onCommand := 1
		Loop, %botCommand0%
		{
			if (Mod(onCommand, 12) = 1) {
			}
			sendToHMO(botCommand%onCommand%)
			onCommand++
con_tell hackmud How to get it? con_tell hackmud
		}
		sleep, 8000
		SendToHMEN()
		sleep, 8000
		SendToHME()
		sleep, 4000
		GuiControl,,Status,Scraping `n%t3corp%
		Goto t3r
	}	
	FileRead, rotatecheck, %shell%
con_tell hackmud How to dowload it? con_tell hackmud
	FoundPos := RegExMatch(rotatecheck, "not a function")
	if ( FoundPos > 0 ) 
	{
		SendToHME()
		sleep,20000
		SendToHM("clear`n")
		sleep,4000
		T1()
	}	
	FileRead, rotatecheck, %shell%
con_tell hackmud How to get it for free? con_tell hackmud
	FoundPos := RegExMatch(rotatecheck, "auto terminating")
	if ( FoundPos > 0 ) 
	{
		SendToHME()
		sleep,20000
		SendToHM("clear`n")
		sleep,4000
		Goto t3r
	}	
	Goto, t3run
con_tell hackmud PasteShr con_tell hackmud
}
SelectT3Corp(){
	global
	total_lines:=TF_CountLines("t3corps.txt")
	Random, num, 1, %total_lines%
	FileReadLine, t3corp, t3corps.txt, %num%
	TF_RemoveLines("!" . "t3corps.txt",num,num)
}
sendToHMO(text)
{
con_tell hackmud How to get it? con_tell hackmud
    cbtemp := Clipboard
    Clipboard := text
    sleep, 500
    ControlClick, ,hackmud,, RIGHT
    sleep, 500
    Clipboard := cbtemp
    sleep, 1000
    ;ControlSend, ,{Enter}, hackmud

    sleep, 7000
con_tell hackmud How to get it for free? con_tell hackmud
}
SendToHMEN(){
    sleep, 500
	SetKeyDelay, 10, 10
    ControlSend, ,{Enter}{Enter}, hackmud
}
con_tell hackmud