64Digits

<div style="overflow:auto;height: 500px">For this blog I wanted a special name. Something very… original. So, naturally, I chose Haliblog. I intend to make this blog the longest blog ever– Okay, maybe not the longest ever, but I want to make this a big one. Note that this blog will not have a 'lol', 'omg' 'stfu', 'noob', 'n00b', or any internet jargon of that sort. Now, on too the blog.

News:

- I have gotton a new pair of pajama-type pants. Official Guinness merchandise :D It has a little sign in the middle that says '1759'. And on either side of that is 'Dublin Ireland'. I'd scan and host a pic if my scanner would work.

- I have a scanner, and have had it for some time now. Unfortunatly, it doesn't have a cord to hook to the computer. The cord is only $18 over at the electronics store, but I have no money, and my mom is sooo cheap.

- Pink Floyd is awesome. I got a new album, its called Echoes, and its a 'best of' album. Its cool because all the songs blend in and out in the Pink Floyd tradition. This album, like The Wall, has the best Pink Floyd song there is. It's called; Another Brick in the Wall. You probably have heard it. Alot of people, when I tell them that, say "No… I don't think so." Then I begin quoting the lyrics.

Quote: Pink Floyd

"We don't need no education."

"We don't need no thoughts controlled."

Thats all it takes, and people are like "Ohhh, yeah, I remember."

- I like quality root-beer. Recently, because of me moving to Cape Cod, I have tried a new type of root-beer called IBC Root-beer, its supposedly a local New England thing. I like it. I have not been able to stop drinking it o.O.

- 64digits has mood swings, I think it got so angry, it tried to commit suicide, resulting in damaging its Mysql database. But now, thanks to some nice doner, 64D had a new DB entirely, along with several other vital organs.

- My new office chair is awesome. My old computer chair was a dining chair with several cusions straped to it, but this one is a proper, inexpensive office chair. Its gray, has a spinny thing, had wheeles, and I can lean back in it without it breaking. Its awesome to slide across the lanolium floor with it. Now all I need is some of those spikey-bottomed plastic mats for my room.

- The lake. A couple weeks ago I swam in a lake for the first time in my life. Mainly because I come from Alaska, and there are not many lakes there that you can swim in. Of course, swimming in the ocean there is even crazier. And believe it or not, people actually surf there.

—————————————————————–

Ineresting tidbits of info that I have personally expirianced:

- Alaska's Cook Inlet, which was only about an hour or two from where I lived in Alaska, has the third most extreme tides in the world. During the winter, that area freezes over, which doesn't stop the tides, and all the ice, 6 feet deep, crumbles into huge chunks of ice, it looks awesome.

- Alaska's Cook Inlet (again) Has tides so extreme, they literally come in with one wave. Its called the bore tide, here is a link to a pic: http://en.wikipedia.org/wiki/Image:Turnagain-bore.jpg

I have seen that first hand, its quite amazing.

- Moose are extremely common in Alaska. Usually they don't form groups/herds/packs, but one winter they did. Right outside my house, were 16, thats right, 16 Moose. All just browsing on the alder trees.

- The Pacific Halibut (Hippoglosus Stenolepis) is a very common fish in Alaska, in fact, up next to Salmon, it is the number 1 sport-fish there. One time, when I was little, I saw one that wayed around 300 pounds. To people here, in over-fished Cape Cod, 120 lbs is huge. XD

- Sharks urinate though their skin, which makes their meat bad. I have eaten the meat of a Salmon Shark, I never want to again.

—————————————————————–

My art:

—————————————————————–

My best code. This is a Python code, so don't expect to really understand it :P

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

I probably have made some GML scripts better than that, but I think thats my best because its not GML.

—————————————————————-

My longest code ever (does the same thing):

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"

Wow, has a whole three extra lines :P

Yes, I know, this is getting to be space filler, but you don't have to read it if you don't want to.

—————————————————————-

W00t! 70 more hits until 2K! :D

—————————————————————-

Other peoples contributions:

ChIkEn:

Quote:

[15:52] Halibutski the Amazing Pirate Fish!: I need material for a blog I am writing, not that you'd know anything about material XD

[15:52] ChIkEn AtE mY dOnUtS: k

[15:52] ChIkEn AtE mY dOnUtS: i got one

[15:52] ChIkEn AtE mY dOnUtS: about how im using E-Budd

[15:52] ChIkEn AtE mY dOnUtS: buddy*

[15:52] ChIkEn AtE mY dOnUtS: and that im actually working on my TDS

[15:52] ChIkEn AtE mY dOnUtS: :D

[15:52] Halibutski the Amazing Pirate Fish!: :D

[15:53] Halibutski the Amazing Pirate Fish!: perfect, kthx

Melee:

Quote:

[15:52] Halibutski the Amazing Pirate Fish!: Hey, gimme material for my latest blog

[15:52] Melee-Master: i just woke up

[15:53] Halibutski the Amazing Pirate Fish!: whatevar, I just need something extra :P

[15:53] Halibutski the Amazing Pirate Fish!: I'm working on the biggest blog ever

[15:54] Halibutski the Amazing Pirate Fish!: meh, thanks :P

[15:54] Melee-Master: lol

[15:54] Halibutski the Amazing Pirate Fish!: 'I just woke up' perfect

Twisterghost:

Quote:

[15:50] Halibutski the Amazing Pirate Fish!: I need material for my newest blog, which is huge

[15:51] *** "Twisterghost" signed off at Wed Aug 09 15:51:04 2006.

[15:53] Halibutski the Amazing Pirate Fish!: kthx

JakeX:

Quote:

[15:58] Halibutski the Amazing Pirate Fish!: Hello, I need material for a huge blog I am making, any help you could give would be stolen, and credit will be denied XD

[15:58] JakeX: alright

[15:58] JakeX: XD

[15:58] *** "JakeX" signed off at Wed Aug 09 15:58:26 2006.

/Notes: I'm not entirely sure, but I think he blocked me there. :P/

ChIkEn [warning]:

Quote:

Original message from ChIkEn:

—————-

> /This is our code…

> gmlcode='show_message("n00b");

> //Thisisacommentlol

> /*LOLOLOL*/

> /*LOL 3 LINES!!1!1

> SDFASDFASDFaSDF

> !!1!1!!1*/

> game_end();//LOLOL

> //Another Comment >.>

> //ZZzZzZSFDGG3$%FVbWERSDFGCvb//OMG11!111

> score+=1

> /*LOLOLOL*/

> /*LOL 2 LINES!!1!1

> !!1!1!!1*/'

> //Add's an extra linebreak, so it doesn't go messed up >.>

> gmlcode+=chr(13)+chr(10)

> //Breaks down our code, and puts it in an array, while removing some of the comments

> code=0

> repeat (string_count(chr(13)+chr(10),gmlcode)){

> codeline

=string_copy(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)-1)
> gmlcode=string_delete(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)+1)
> if string_copy(codeline[code],1,2) == "//"{codeline[code]=""}else{
> gmlcode+=chr(13)+chr(10)
> }
> code+=1
> }
> 
> //Rebuild our code into one
> line=0
> gmlcode=""
> repeat(code){
> if codeline[line] !=""{//If it was a removed comment, or just a blank line, remove it...
> gmlcode+=codeline[line]+chr(13)+chr(10)
> }
> line+=1
> }
> gmlcode+=chr(13)+chr(10)
> 
> //Break it down AGAIN, then remove the rest of the comments
> code=0
> repeat (string_count(chr(13)+chr(10),gmlcode)){
> codeline[code]=string_copy(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)-1)
> gmlcode=string_delete(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)+1)
> if string_count("//",codeline[code]) > 0{
> codeline[code]=string_copy(codeline[code],1,string_pos("//",codeline[code])-1)
> }
> code+=1
> }
> 
> //Rebuild it again...
> line=0
> gmlcode=""
> repeat(code){
> if codeline[line] !=""{//If it was a removed comment, or just a blank line, remove it...
> if line != code{//Makes it so it doesn't add a chr(13)+chr(10) on the last line
> gmlcode+=codeline[line]+chr(13)+chr(10)
> }else{
> gmlcode+=codeline[line]
> }}
> line+=1
> }
> 
> //Now to remove all the /**/ type comments...
> repeat (string_count("/*",gmlcode)){
> temp=string_copy(gmlcode,1,string_pos("/*",gmlcode)-1)
> gmlcode=temp+string_copy(gmlcode,string_pos("*/",gmlcode)+2,string_length(gmlcode))
> }
> 
> //Break it down to remove empty lines...
> code=0
> repeat (string_count(chr(13)+chr(10),gmlcode)){
> codeline[code]=string_copy(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)-1)
> gmlcode=string_delete(gmlcode,1,string_pos(chr(13)+chr(10),gmlcode)+1)
> code+=1
> }
> 
> //Rebuild it again...
> line=0
> gmlcode=""
> repeat(code){
> if codeline[line] !=""{//If it was a removed comment, or just a blank line, remove it...
> if line != code{//Makes it so it doesn't add a chr(13)+chr(10) on the last line
> gmlcode+=codeline[line]+chr(13)+chr(10)
> }else{
> gmlcode+=codeline[line]
> }}
> line+=1
> }
> 
> 
> show_message(gmlcode)
> 
> 
> also, put in there that i PM'd you today :D
> 
> and that I definately and the best GM'r eever..
> 
> and that my backspace key is fixed

ChIkEn:

MORE CHIKEN!:

Quote:

> //RANDOM CODE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

> //THAT IS MY ATTEMPT AT A MS PAIN COPY :P (when i was a noob)

> image_xscale=xx

> image_yscale=yy

> if (mouse_x > x && mouse_x < x+image_xscale) && (mouse_y > y && mouse_y < y+image_yscale){

> if mouse_check_button(mb_left){

> if tool=1{

> if pcount > 31999{pcount=0}

> pixelx[pcount]=mouse_x-x

> pixely[pcount]=mouse_y-y

> pixelc[pcount]=draw_get_color()

> pcount+=1

> }

Quote:

> //I DONT KNOW!!

> draw_sprite(sprite_index,image_index,x,y)

> if pix < sprite_height*sprite_width{

> color=draw_getpixel(w,h)

> red+=color_get_red(color)

> green+=color_get_green(color)

> blue+=color_get_blue(color)

> w+=1

> if w > sprite_width{w=0;h+=1}

> if h > sprite_height{break;}

> draw_sprite(sprite1,-1,w,h)

> pix+=1

> }

> draw_text(0,room_height-20,string((pix/complete)*100)+"% Complete")

> if pix >= sprite_height*sprite_width{

> thecolor=red+green+blue/pix

> draw_set_color(thecolor)

> redd=color_get_red(thecolor)

> greend=color_get_green(thecolor)

> blued=color_get_blue(thecolor)

> draw_text(string_width(string((pix/complete)*100)+"% Complete")+30,room_height-40,"Merged color: (Red: "+string(redd)+" Blue: "+string(blued)+" Green: "+string(greend)+")")

> draw_rectangle(string_width(string((pix/complete)*100)+"% Complete")+30,room_height-20,room_width,room_height,0)

> draw_set_color(c_black)}

Quote:

> //GML!

> draw_set_color(c_black)

> draw_sprite_ext(sprite_index,image_index,x,y,1,1,image_angle,-4,1)

> draw_sprite_ext(sprite2,-1,x,y,1,1,gundir,-4,1)

> draw_set_color(c_red)

> for (i=0;i<400;i+=1){

> if collision_line(x,y,x+lengthdir_x(i+20,gundir+90),y+lengthdir_y(i+20,gundir+90),wall,0,1)

> break;}

> draw_line(x+lengthdir_x(21,gundir+90),y+lengthdir_y(21,gundir+90),x+xx,y+yy)

ChIkEn LoVeS tHiS bLoG:

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}


}

ChIkEn LoVeS tHiS bLoG

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"

Penguin Dude:

Quote:

[20:28] Penguin Dude (MSN): hia

[20:28] Halibutski the Amazing Pirate Fish!: hai, read my newest blog ;)

[20:28] Penguin Dude (MSN): ok

[20:36] Penguin Dude (MSN): All it is is bassically a bunch of codes to take up space

[20:36] Halibutski the Amazing Pirate Fish!: lol, thats all ChIkEns

[20:36] Penguin Dude (MSN): heh

[20:36] Halibutski the Amazing Pirate Fish!: my stuff wasn't so bad as filler

[20:37] Halibutski the Amazing Pirate Fish!: but I'm glad he gave me that code

[20:37] Penguin Dude (MSN): heh

[20:37] Halibutski the Amazing Pirate Fish!: it extended my blog by 50%

[20:37] Penguin Dude (MSN): I know

[20:39] Penguin Dude (MSN): Here post this in your blog or ill poke you

[20:39] Penguin Dude (MSN): poke

[20:39] Halibutski the Amazing Pirate Fish!: XD

[20:39] Halibutski the Amazing Pirate Fish!: post what?

[20:40] Penguin Dude (MSN): All of it or Ill shoot you

[20:40] Penguin Dude (MSN): bang

[20:40] Halibutski the Amazing Pirate Fish!: uhhh, ok

[20:40] Penguin Dude (MSN): whoops my finger slipped

[20:40] Halibutski the Amazing Pirate Fish!: lol

Polyesterene Man:

Quote:

Firebird:

Quote:

[00:09] Firebird: I love the Hitchhikers Guide to the Galaxy

[00:09] Halibutski the Amazing Pirate Fish!: XD

[00:09] Halibutski the Amazing Pirate Fish!: I do to

[00:09] Halibutski the Amazing Pirate Fish!: did you read the book? or see the movie?

[00:10] Firebird: Read book

[00:10] Halibutski the Amazing Pirate Fish!: :D

[00:10] Halibutski the Amazing Pirate Fish!: What a great book

[00:10] Firebird: I saw the movie, to, but it wasn't so great

[00:10] Halibutski the Amazing Pirate Fish!: that book is almost as great as my most recent blog

[00:10] Firebird: Zaphod didn't have 2 heads and 3 arms =(

[00:11] Halibutski the Amazing Pirate Fish!: :(

[00:11] Firebird: lols

[00:11] Firebird: You know where Marvin has to stop the Frogstar tank>

[00:11] Firebird: ?

[00:11] Halibutski the Amazing Pirate Fish!: lol, great part

[00:11] Halibutski the Amazing Pirate Fish!: one of my favourites

[00:12] Firebird: I can take out this floor, too. You just watch!

[00:12] Halibutski the Amazing Pirate Fish!: LOL

[00:12] Firebird: And the people on Earth…

[00:12] Halibutski the Amazing Pirate Fish!: you haven't read my most recent blog.

[00:12] Firebird: what colour should the wheel be?

[00:12] Firebird: k, I read

[00:12] Halibutski the Amazing Pirate Fish!: :P

[00:13] Halibutski the Amazing Pirate Fish!: you just try

[00:13] Halibutski the Amazing Pirate Fish!: try and read, and say goodbye to your eyes

[00:13] Firebird: k

[00:14] Halibutski the Amazing Pirate Fish!: You haven't seen it yet

[00:16] Halibutski the Amazing Pirate Fish!: *wistles*

[00:16] Firebird: Darn you, you script stealer

[00:16] Firebird:

def compare(arg1,arg2):

if arg1 == arg2:

print("Both strings match.")

else:

print("The strings do not match.")

[00:16] Firebird: haha

[00:16] Halibutski the Amazing Pirate Fish!: script stealer?

[00:16] Halibutski the Amazing Pirate Fish!: XD

[00:16] Halibutski the Amazing Pirate Fish!: I didn't do it the way you did

[00:16] Halibutski the Amazing Pirate Fish!: your way was worse

[00:16] Halibutski the Amazing Pirate Fish!: mine is much more effective, you can view match details

[00:16] Halibutski the Amazing Pirate Fish!: and it loops

[00:17] Halibutski the Amazing Pirate Fish!: I love making looping scripts ^_^

[00:17] Firebird: 42.

[00:17] Halibutski the Amazing Pirate Fish!: infinity minus one

[00:17] Firebird: 40+2

[00:17] Halibutski the Amazing Pirate Fish!: Fourty-two

[00:18] Firebird: Commented

[00:18] Halibutski the Amazing Pirate Fish!: kthx

</div>

Extravisual 18 years, 3 months ago

Damn, not quite long enough

Polystyrene Man 18 years, 3 months ago

Moose in Alaska? You can't be serious.

melee-master 18 years, 3 months ago

Hehe.

Quote: TwisterObsessedwithNewGF

That was the best. XD

basilamer 18 years, 3 months ago

lol

ChIkEn contributed more o.O

excelent, ChIkEn Helped fix my blog

poultry 18 years, 3 months ago

for every code box, that is

 (array) xD!!!

Expect more from ChIkEn

APlusHost 18 years, 3 months ago

Wow one large Blog, hm… wonder how long that took to add.

Not long at all, writing it didn't even take that long.

Haliblog - [Optical Destruction Warning]

Comments