Global $emalitxt = "email.txt"
#Include <File.au3>
#include <array.au3>
HotKeySet("{F2}", "_doet")
HotKeySet("{F3}", "_Saveit")
HotKeySet("{F4}", "_recookie")
Global $password, $email, $nick
While 1
	sleep(100)
	WEnd
func _doet()
			$ids = StringSplit("alpha bat idol symbol body impact sky fairy jew skye odin polio shizuma murloc lolol myth whip poke patsy root beer elvis cat torrent torrential news mail male syoko utama mesin akulah allah dutch slunt night hawk kink betty patty pagan master xbox pepsi coke wyrd shyt grace oregon maine ohio nose black dark wet dry hot cold destroy american nigerian malaysian dad mammal unme baby main mane tiger emo emotion horny bannana kiwi aussie construct ABN zombie ash ashley sloot parse rooster larry spear head figure sue jess rob omega godsend ratt ponyo neo bate knob lolgod you done with dinner god jesus lol naga chief clock clocked Console ice iced meth crack coke owned lange sara tosh cruz book farm fair harmonic forever bleeding broken exodus bullet comatose overdose delusion bravo babylon suicide foxtrot faction actual immersion genesis revelation stone heroin noble hunter aztec spartan moonlight wolf prophet gamemaster partial", " ")
	$vnum = UBound($ids) - 1
	$id0 = Random(1, $vnum, 1)
	$idl = Random(1, $vnum, 1)
 Global $nick = $ids[$id0] & $ids[$idl] & Random(1,500,1)
 Global $email = FileReadLine($emalitxt, 1)
 Global $password = Random(11,99,1) & Random(11,99,1) & Random(11,99,1) & Random(11,99,1)
Send($email & "@mail.com{TAB}" & $nick & "{TAB}" & $password & "{TAB}" & $password & "{TAB}")
EndFunc

func _saveit()
	for $omgwtfbbq = 1 to 1
		if $nick = "" Then ExitLoop
	Dim $aLines
	FileWrite("nicks.txt", $nick & " " & $password & @CRLF)
	FileWriteLine("clickme.txt",$email & "@mail.com")
	_FileReadToArray($emalitxt, $aLines)
	_ArrayDelete($aLines, 1)
	_ArrayDelete($aLines, 0)
	_FileWriteFromArray($emalitxt, $aLines)
	$nick = ""
	$password = ""
	$email = ""
	Next
EndFunc


Func _recookie()
	Send("^+{DEL}")
	WinWaitActive("Clear Recent History")
Send("{ENTER}")
WinActivate("AdvTor")
WinWaitActive("AdvTor")
ControlClick("AdvTor","New identity","")
WinWaitActive("New identity")
Send("{Enter}")
WinActivate("[CLASS:MozillaWindowClass]")
EndFunc