def compare(arg1,arg2):
    if arg1 == arg2:
        print("Both strings match.")
    else:
        print("The strings do not match.") 


cont=1
print "A string comparer V2 by Halibutski, some inspiration from Firebird's."
while cont == 1:
    str_first = raw_input("Please enter your first string. 
> ")
    print 'Your first string is:', str_first
    print
    str_second = raw_input("Please enter your second string. 
> ")
    print 'Your second string is:', str_second
    print
    compare(str_first, str_second)
    print
    print 'Press: 
 0 Quit 
 1 Redo 
 2 Match details'
    cont = input('> ')
    
    if cont == 2:
        a = set(str_first)
        b = set(str_second)
        print 'Your first string does not have:', b - a
        print 'Your second string does not have:', a - b
        print 'Both strings have:', a & b
        print
        cont = 1
    
    elif cont == 1:
        print
        cont = 1
    
    else:
        break

print "Welcome to a string comparing app by Halibutski.

________________________________________________"
zz = 1
while (zz > 0):
    print "Please enter the first string."
    x = raw_input("> ")
    print "Your first string is:", x
    print "Please enter your second string."
    y = raw_input("> ")
    print "Your second string is:", y
    print
    if x == y:
        print "Your strings match."
        print
    else:
        print "Your strings do not match."
    print
    print "Press: 

    0 Quit

    1 Redo

    2 Match details"
    
    zz = input("> ")
    if zz == 0 or 2 or 3:
        print
        if zz==2:
        a = set(x)
        b = set(y)
        print 'Your first string does not have:', b - a
        print 'Your second string does not have:', a - b
        print 'Both strings have:', a & b
        print 'One or two might have these, but both do not:', a ^ b
    
        print "Press: 

            0 Quit

            1 Redo"

while (str !=char){

temp=""
l=floor(random(maxlength))+1

repeat (l){
temp2=floor(random(255))
if _all=0{temp2=floor(random(122))while (temp2 < 33 || temp2 > 122){temp2=floor(random(122))}temp+=chr(temp2)}

if _all=1{temp+=chr(floor(random(255)))}

if _all=2{while (temp2 < 48 || temp2 > 57){temp2=floor(random(57))}temp+=chr(temp2)}

if _all=3{while (temp2 < 65 || temp2 > 123){temp2=floor(random(122))}temp+=chr(temp2)}

if _all=4{while (temp2 < 97 || temp2 > 123){temp2=floor(random(122))}temp+=chr(temp2)}

if _all=5{while (temp2 < 65 || temp2 > 91){temp2=floor(random(90))}temp+=chr(temp2)}}

if md5{
str=get_string_md5(temp)
}else{
str=sha1_string(temp)
}
if str=char{
if md5{
show_message(type+" FOUND!!! It is:"+temp)
}
show_message("It took me "+string(f)+" times to crack it!")

f2=file_text_open_append("Cracks.txt")
file_text_write_string(f2,temp)
file_text_writeln(f2)
file_text_write_string(f2,str)
file_text_writeln(f2)
file_text_write_string(f2,string(f))
file_text_writeln(f2)
file_text_write_string(f2,"--------------------------------------")
file_text_writeln(f2)
file_text_close(f2)
}

f+=1
if a>=room_speed{screen_redraw()a=0}else{a+=1}


}

if global.gm6file ="No File Selected" || global.gm6file ="" { exit }



buttontext="Extracting Global Game Settings!"



strippedfilename=global.gm6file

while (string_count("",strippedfilename) > 0){

 strippedfilename=string_copy(strippedfilename,string_pos("",strippedfilename)+1,string_length(strippedfilename))

}

strippedfilenamenoext=string_copy(strippedfilename,1,string_length(strippedfilename)-4)

mkdir("Sprites")

mkdir("Sounds")

mkdir("Backgrounds")



f=file_bin_open(global.gm6file,2)

file=string_copy(global.gm6file,1,string_length(global.gm6file)-4)

ff=file_text_open_write(file+".txt")



file_bin_seek(f,32)

fullscreen=read(f)

writeln(ff,"Fullscreen "+string(fullscreen))

interpolate=read(f)

writeln(ff,"Interpolate "+string(interpolate))

screen_redraw()

drawborder=read(f)

writeln(ff,"Draw Border "+string(drawborder))

drawcursor=read(f)

writeln(ff,"Draw Cursor "+string(drawcursor))

screen_redraw()

read(f) //scaling

resize=read(f)

writeln(ff,"Allow Player To Resize "+string(resize))

screen_redraw()

ontop=read(f)

writeln(ff,"Game Windows Always Ontop "+string(ontop))

interpolatecolor = read(f)

writeln(ff,"Interpolate Color "+string(interpolatecolor))

f4switch=read(f)

writeln(ff,"F4 Switches Game Modes "+string(f4switch))

f1showgameinfo=read(f)

writeln(ff,"F1 Shows Game Info "+string(f1showgameinfo))

screen_redraw()

escend=read(f)

writeln(ff,"Escape Ends "+string(escend))

f5saveloadgame=read(f)

writeln(ff,"F5 Saves/Loads Game "+string(f5saveloadgame))

screen_redraw()

file_bin_seek(f,128) 

progressbar=read(f)

writeln(ff,"Do Not Show Progress Bar "+string(progressbar))



temp=file_text_open_write(strippedfilenamenoext+".ico")

file_text_close(temp)  

icofile=file_bin_open(strippedfilenamenoext+".ico",2)  

size = read(f)

repeat (size) { 

 file_bin_write_byte(icofile,file_bin_read_byte(f))

} 

file_bin_close(icofile)  

writeln(ff,"Icon Extracted")  



disperror=read(f)

writeln(ff,"Display Errors "+string(disperror))

wrierror=read(f)

writeln(ff,"Write All Errors to game_errors.log "+string(wrierror))

screen_redraw()

aboerror=read(f)

writeln(ff,"Abort On Any Error "+string(aboerror))

autoinit=read(f)

writeln(ff,"Auto Initiate Variables "+string(autoinit))

screen_redraw()

author=read(f)

authorsname=read_string(f,author)

writeln(ff,"Author "+string(authorsname))

gameversion=read(f)

writeln(ff,"Game Version "+string(gameversion))

read(f)

read(f) //Last Edited Date/Time (double)

information=read(f)

game_information=read_string(f,information)

writeln(ff,"Information Extracted")

screen_redraw()

temp=file_text_open_write(strippedfilenamenoext+"_Info.txt")

file_text_write_string(temp,game_information)

file_text_close(temp)

constants=read(f)

writeln(ff,"Constants "+string(constants))

screen_redraw()

for (temp = 0; temp < constants; temp += 1) {

 constant_name[temp]=read_string(f,-1)

 constant_value[temp]=read_string(f,-1)

 screen_redraw()

}

constants+=1

constant_name[temp]="pi"

constant_value[temp]=3.14



constants+=1

constant_name[temp+1]="gamemaker_registered"

constant_value[temp+1]=gamemaker_registered



includes=read(f)

writeln(ff,"Includes "+string(includes))

for (temp = 0; temp < includes; temp += 1) {

 include_path[temp]=read_string(f,-1)

 screen_redraw()

}



incsavefolder=read(f)

writeln(ff,"Include Save Folder (0/1 = main/temp) "+string(incsavefolder))

screen_redraw()

incoverwrite=read(f)

writeln(ff,"Overwrite Include Files "+string(incoverwrite))

incremove=read(f)

writeln(ff,"Remove Include Files "+string(incremove))

screen_redraw()

writeln(ff,"Starting to extract resources!")

buttontext="Extracting Music!"



writeln(ff,"Extracting Music!")



read(f) //Game Version needed for following info

sounds=read(f)

screen_redraw()

//Lets extract our music!

for (a = 0; a < sounds; a += 1) {

 if read(f) = 0 { continue } //sound doesn't exist

 sndname[a]=read_string(f,-1)

 read(f) //GM version

 sndkind[a]=read(f)

 sndfiletype[a]=read_string(f,-1)

 sndfilename[a]=read_string(f,-1)

 screen_redraw()

  if read(f) {

  temp=file_text_open_write(sndfilename[a])

  file_text_close(temp)

  soundfile=file_bin_open(sndfilename[a],2)

  l=read(f)

  repeat (l){file_bin_write_byte(soundfile,file_bin_read_byte(f))

  }

  file_bin_close(soundfile)

 }

 sndeff[a]=read(f) //Effects

 sndvol[a]=read(f);read(f) //Volume (double)

 sndpan[a]=read(f);read(f) //Pan (double)

 sndpre[a]=read(f) //Preload



uncompress(sndfilename[a],"Sounds/"+sndfilename[a])

file_delete(sndfilename[a])

}

writeln(ff,"Sounds Extracted!")



buttontext="Extracting Sprites!"

screen_redraw()

writeln(ff,"Extracting Sprites!")



read(f) //Game Version needed for following info

sprites=read(f)

//Lets extract our sprites!

for (a = 0; a < sprites; a += 1) {

 if read(f) = 0 { continue } //sprite doesn't exist

 sprname[a] = read_string(f,-1)

 read(f) //GM version

 sprw[a]=read(f)//Width

 sprh[a]=read(f)//Height

 sprl[a]=read(f)//Left

 sprr[a]=read(f)//Right

 sprb[a]=read(f)//Bottm

 sprt[a]=read(f)//Top

 sprtr[a]=read(f)//Transparent

 sprs[a]=read(f)//Smooth

 sprp[a]=read(f)//Preloaded Texture

 sprbb[a]=read(f)//Bounding Box

 sprpcc[a]=read(f)//Precise Collision Checking

 sprxo[a]=read(f)//X Origin

 spryo[a]=read(f)//Y Origin

 sprsi[a]=read(f)//SubImages

 for (b = 0; b < sprsi[a]; b += 1) {

  read(f) //0A

screen_redraw()

  temp=file_text_open_write(sprname[a])

  file_text_close(temp)



  spritefile=file_bin_open(sprname[a],2)

  l=read(f)

  repeat (l){file_bin_write_byte(spritefile,file_bin_read_byte(f))}

  file_bin_close(spritefile)



  uncompress(sprname[a],"Sprites/"+string(b)+sprname[a]+".bmp")

  file_delete(sprname[a])

 }

}

writeln(ff,"Sprites Extracted!")

buttontext="Extracting Backgrounds!"

screen_redraw()

writeln(ff,"Extracting Backgrounds!")



read(f) //Game Version needed for following info

backgrounds=read(f)

//Lets extract our sprites!

for (a = 0; a < backgrounds; a += 1) {

 if read(f) = 0 { continue } //sprite doesn't exist

 bgname[a] = read_string(f,-1)

 read(f) //GM version

 bgw[a]=read(f)//Width

 bgh[a]=read(f)//Height

 bgtr[a]=read(f)//Transparent

 bgs[a]=read(f)//Smooth

 bgp[a]=read(f)//Preloaded Texture

 bgts[a]=read(f)//Tileset

 bgtw[a]=read(f)//tile width

 bgth[a]=read(f)//tile height

 bgho[a]=read(f)//horizontal offset

 bgvo[a]=read(f)//vertical offset

 bghs[a]=read(f)//horizontal seperation

 bgvs[a]=read(f)//vertical seperation

 screen_redraw()

 if !read(f) { continue }

 read(f) //0A

 l=read(f)

screen_redraw()

 temp=file_text_open_write(bgname[a])

 file_text_close(temp)

 bgfile=file_bin_open(bgname[a],2)

 repeat (l){file_bin_write_byte(bgfile,file_bin_read_byte(f))}

 file_bin_close(bgfile)

 screen_redraw()



 uncompress(bgname[a],"Backgrounds/"+sprname[a]+".bmp")

 file_delete(bgname[a])

}

writeln(ff,"Backgrounds Extracted!")



buttontext="Extracting Paths!"

screen_redraw()

read(f) //Game Version needed for following info

paths=read(f)

for (a=0;a

 if read(f)=0{continue}

 pathname=read_string(f,-1)

 read(f) //Game Version needed for following info

 pathconkind[a]=read(f)

 pathclosed[a]=read(f)

 pathprecis[a]=read(f)

 pathrminde[a]=read(f)

 pathsnapx[a]=read(f)

 pathsnapy[a]=read(f)

 pathpoints[a]=read(f)

 

  if pathpoints[a] > 0 {

  filepos=file_bin_position(f)

  file_bin_close(f)

  df = external_call(global.o,global.gm6file,0)

  external_call(global.s,df,filepos)

 }

 for (b = 0; b < pathpoints[a]; b += 1) {

  external_call(global.r,df)

  external_call(global.r,df)

  external_call(global.r,df)

  filepos += 24

 }

 if pathpoints[a] > 0 {

  external_call(global.c,df)

  f=file_bin_open(global.gm6file,2)

  file_bin_seek(f,filepos)

 }

}



temp11=file_text_open_write(strippedfilenamenoext+"_Scripts.txt")

writeln(ff,"Extracting Scripts!")

buttontext="Extracting Scripts!"

screen_redraw()

read(f)//Gm version required

scripts=read(f)

for (a=0;a<!--s;a+=1){

 if read(f)=0{continue} //If it doesn't exist

 scriptname[a]=read_string(f,-1)

 writeln(temp11,"Script Name: "+string(scriptname[a]))

 read(f)//Gm version required

  scriptcode[a]=read_string(f,-1)

  scriptcode[a]=decomment(scriptcode[a])

 writeln(temp11,"Script Text: "+string(scriptcode[a])) 

screen_redraw()

 

 }

file_text_close(temp11)

writeln(ff,"Scripts Extracted")







writeln(ff,"Extracting Fonts!")

buttontext="Extracting Fonts!"

screen_redraw()

read(f)//Gm version required

fonts=read(f)

temp22=file_text_open_write(strippedfilenamenoext+"_Fonts.txt")

for (a=0;a

if read(f) = 0{continue}

fontname[a]=read_string(f,-1)

read(f)

fontfont[a]=read_string(f,-1)

fontsize[a]=read(f)

fontbold[a]=read(f)

fontital[a]=read(f)

fontrbeg[a]=read(f)

fontrend[a]=read(f)

screen_redraw()

writeln(temp22,"Font Name: "+string(fontfont[a]))

writeln(temp22,"Font Size: "+string(fontsize[a]))

writeln(temp22,"Font Bold: "+string(fontbold[a]))

writeln(temp22,"Font Italics: "+string(fontital[a]))

writeln(temp22,"Font Range Beginning: "+string(fontrbeg[a]))

writeln(temp22,"Font Range End: "+string(fontrend[a]))

}

writeln(ff,"Fonts Extracted")

file_text_close(temp22)



/*

writeln(ff,"Extracting Timelines")

read(f) // GM version

timelines=read(f)

for (a=0;a

if read(f) = 0{continue}

timelinename[a]=read_string(f,-1)

read(f)//Gm version

timelinemoments[a]=read(f)

for (b=0;b

timelineactionmoment[a,b]=read(f)

read(f)

timelineactionscount[a,b]=read(f)

read(f)

timelinelibraryid[a,b]=read(f)

timelineactionid[a,b]=read(f)

timelineactionkind[a,b]=read(f)

timelineactionrelative[a,b]=read(f)

timelineactionquestion[a,b]=read(f)

timelineactionapplys[a,b]=read(f)

timelineactiontype[a,b]=read(f)

timelineactionname[a,b]=read_string(f,-1)

timelineactioncodelength[a,b]

}}

writeln(ff,"Timelines Extracted")

*/



file_text_close(ff)

file_bin_close(f)

f=-1



buttontext="Converting to Pascal!"

screen_redraw()

filename=strippedfilenamenoext+".pas"

pas=file_text_open_write(filename)

writeln(pas,"PROGRAM "+strippedfilenamenoext+";")



if constants > 0{

file_text_write_string(pas,"CONST ")

for (temp = 0; temp < constants; temp += 1) {

if string_length(string_letters(constant_value[temp])) > 0{

constant_name[temp]=validate(constant_name[temp])

con=string_copy(constant_value[temp],1,1)

if con = '"'{constant_value[temp]=string_copy(constant_value[temp],2,string_length(constant_value[temp]))}

con=string_copy(constant_value[temp],string_length(constant_value[temp]),1)

if con = '"'{constant_value[temp]=string_copy(constant_value[temp],1,string_length(constant_value[temp])-1)}

con=string_copy(constant_value[temp],1,1)

if con != "'"{constant_value[temp]="'"+constant_value[temp]}

con=string_copy(constant_value[temp],string_length(constant_value[temp]),1)

if con != "'"{constant_value[temp]=constant_value[temp]+"'"}

}

writeln(pas,string(constant_name[temp])+" = "+string(constant_value[temp])+";")}}



writeln(pas,"begin")

writeln(pas,"{This was converted using G-Pascal!}")

writeln(pas,"end.")



file_text_close(pas)

buttontext="Done"