(set #begin (cat "\nwelcome there...\nyou are now about to patch your AWEB-II Browser\nto look like Microsoft's Internet Explorer 4.x\n\nthis is good for all of you who like to use AWEB\non HTML pages wich require browsers\nthat look like a pc browser.\nthis time it also spoofes JAVAScript html codes\n\ndone by douph s'khou of animators"))
(set #choose (cat "\nWhere is your Aweb executable file?\n\n"))
(set #lamer (cat "\nok now, here we go.\ni will now patch your Aweb executable.\n\n!!!ATTANTION!!!\n\nYour original file will not be altered in any form!!!\nThis patch makes a new copy of your original\nand will patch the copy!!"))
(set #thanx (cat "\n\n\n\nthanks to Dirk Stoecker\nfor his cool\nsearch&replace tool.\n\na real cool tool, eh."))
(set #end (cat "\n\n\n\nYour Aweb Browser is now patched!\n the only thing you need to do now\nis to check if the AWeb-MSIE.info is there.\n\n\n\ngot it?"))
(set #2fucknstupid (cat "\nDamn boa...\nAre you so fuck damn stupid to understand?\n\ni'm outta here...\n\ndouph s'khou of animators.."))
(set #bool (if #bool 0 1))

(welcome)
(message #begin)

(complete 9)

(set afile
	(askfile
	(help "")
	(prompt #choose)
	(DEFAULT "")
))

(complete 17)

(set @default-dest (pathonly "afile"))
(set aname "AWeb-MSIE")

(complete 47)

(if (askbool 
	(prompt #lamer)
	(choices "Yeah sure!" "Nah man, i'm fuck stupid!")
	(default 1) (help ""))
	(
	 (run (cat "change FROM="afile" SSTRING=6500415765620000 TO="aname" RSTRING=65004d5349450000 HEX"))
	 (run (cat "change FROM="aname" SSTRING=6500415765620000 TO="aname" RSTRING=65004d5349450000 HEX"))
	 (run (cat "change FROM="aname" SSTRING=6e0000332e3200 TO="aname" RSTRING=6e0000342e7800 HEX"))
	 (run (cat "change FROM="aname" SSTRING=494920332e32202832322e36 TO="aname" RSTRING=4d53494534202832382e3132 HEX"))
	 (run (cat "change FROM="aname" SSTRING=416d6967612d415765622f2573290000 TO="aname" RSTRING=4d534945203429000000000000000000 HEX"))
	 (run (cat "change FROM="aname" SSTRING=416d6967612d415765622f257300 TO="aname" RSTRING=4d53494520340000000000000000 HEX"))
	 (run (cat "change FROM="aname" SSTRING=416d6967612d415765622f25730d0a TO="aname" RSTRING=4d53494520340d0a00000000000000 HEX"))
	 (run (cat "change FROM="aname" SSTRING=416d6967612d415765622f2573290d0a TO="aname" RSTRING=4d5349452034290d0a00000000000000 HEX"))
	 (complete 93)
         )
         (
	 (exit #2fucknstupid)
   )
)

(message #end)

(message #thanx)

(complete 100)