I made it using a program called Gamemaker. I got it for $15 a while back, now it is around $40. Gamemaker has a dozens of useful built-in functions and it's syntax is very similar to other languages. You can code using a drag & drop interface, or just write the code yourself.

Now, I tried several times to optimize it and fix some of the issues. But I essentially broke it every time, I programmed the whole thing in one day so, it is some pretty sloppy stuff. I never got around to error checking and having it correctly number the top whores list.

I figured to just post all of the code here, just so you guys can see it.

Gamemaker is object based, and splits code into events:

Create code:

/* Variables */
set_application_title("Trophy Leaderboard");
room_caption="Trophy Leaderboard";
pop_up=1;
final_text="";
dev=0;
error=0;
menu=0;
info0=0;
info1=0;
info2=0;
info3=0;
info4=0;
info5=0;
lastarrow=1;
lastkey=0;
timer=0;
loading=0;
selection=0;
type_length=0;
math=0;
typing_string="";
name="";
cut="";
error_message="ERROR. ";
update_index="0";
update_number="0";
filename="";
filename2="";
save_check=0;
lastmx=0;
lastmy=0;
delay=0;
/* Checking files, reading initial variables */
// Save file
ini_open("save.ini");
if not ini_key_exists("save","update_index")
{
error=1;
error_message=string(error_message)+" File: 'save.ini' missing or corrupt. Check file directory.";
};
update_index=string(ini_read_real("save","update _index",64));
update_number=string(ini_read_real("save","updat e_number",65));
filename="leaderboard"+string(update_index)+".in i";
filename2="leaderboard"+string(update_number)+".
ini";
show_debug_message(string(filename)+" "+string(filename2));
ini_close();
// Leaderboard file
if file_exists(filename)=true
{
ini_open(filename);
if not ini_key_exists("form","1_lvl")
{
error=1;
error_message=string(error_message)+" File: '"+string(filename)+"' missing or corrupt. Check file directory.";
};
ini_close();
}
else
{
error=1;
error_message=string(error_message)+" File: '"+string(filename)+"' missing or corrupt. Check file directory.";
};
// leaderboardfile 2
if file_exists(filename2)=true
{
ini_open(filename2);
if not ini_key_exists("form","1_lvl")
{
error=1;
error_message=string(error_message)+" File: '"+string(filename2)+"' missing or corrupt. Check file directory.";
};
ini_close();
}
else
{
ini_open(filename2);
ini_write_real("form","1_lvl",0);
ini_close();
};
if error=1
{
show_debug_message(error_message);
};
/* Splash window */
window_set_position(544,608);
draw_set_color(c_white);
draw_set_halign(fa_center);
splash_set_main(false);
splash_set_close_button(false);
splash_set_interrupt(false);
splash_set_stop_key(false);
splash_set_stop_mouse(false);
splash_set_size(1024,428);
splash_set_position(-1,-1);
splash_set_caption("null");

Step Code:

if (delay>0)
{
delay-=1;
};
if keyboard_check(vk_escape)
{
if math=0
{
if show_question("Quit Update?")=1
{
game_end();
};
}
else
{
if show_question("Finish update?")=1
{
ini_open("save.ini");
ini_write_real("save","update_index",real(update _number));
ini_write_real("save","update_number",real(updat e_number)+1);
ini_close();
};
};
};
/* Save file check */
if save_check=0
{
ini_open(filename);
if not ini_section_exists("form")
{
ini_close();
game_end();
};
ini_close();
ini_open("save.ini");
if not ini_section_exists("save")
{
ini_close();
game_end();
};
ini_close();
save_check=60;
}
else
{
save_check-=1;
};
/* Typing numbers */
if (menu>0) && (menu<101) && loading=0
{
if keyboard_check_pressed(vk_anykey)
{
if selection=0 or selection=1
{
type_length=2;
}
else
{
type_length=4;
};
if (string_length(typing_string)<type_length)
{
if (95<keyboard_lastkey) && (keyboard_lastkey<106)
{
if not lastkey=keyboard_lastkey or timer=0
{
typing_string=typing_string+string(keyboard_last char);
lastkey=keyboard_lastkey;
timer=1;
};
};
if (47<keyboard_lastkey) && (keyboard_lastkey<58)
{
if not lastkey=keyboard_lastkey or timer=0
{
typing_string=typing_string+string(keyboard_last char);
lastkey=keyboard_lastkey;
timer=1;
};
};
};
if keyboard_check(vk_backspace)
{
if not lastkey=keyboard_lastkey or timer=0
{
typing_string=string_delete(typing_string,string _length(typing_string),1);
lastkey=keyboard_lastkey;
timer=1;
};
};
};
if (timer>0)
{
timer-=1;
};
/* Determining text field */
// Hitting the left key
if keyboard_check_pressed(vk_left) or keyboard_check_pressed(ord("A"))
{
if selection>0
{
selection-=1;
};
if selection=0
{
typing_string=string(info0);
};
if selection=1
{
typing_string=string(info1);
};
if selection=2
{
typing_string=string(info2);
};
if selection=3
{
typing_string=string(info3);
};
if selection=4
{
typing_string=string(info4);
};
if selection=5
{
typing_string=string(info5);
};
};
// Hitting the right key
if keyboard_check_pressed(vk_right) or keyboard_check_pressed(vk_enter) or keyboard_check_pressed(ord("D"))
{
if (selection<5)
{
selection+=1;
};
if selection=0
{
typing_string=string(info0);
};
if selection=1
{
typing_string=string(info1);
};
if selection=2
{
typing_string=string(info2);
};
if selection=3
{
typing_string=string(info3);
};
if selection=4
{
typing_string=string(info4);
};
if selection=5
{
typing_string=string(info5);
};
};
typing_string=string(typing_string);
if typing_string="0" or typing_string="00" or typing_string="000" or typing_string="0000"
{
typing_string="";
};
// Setting correct field
if selection=0
{
info0=real(typing_string);
};
if selection=1
{
info1=real(typing_string);
};
if selection=2
{
info2=real(typing_string);
};
if selection=3
{
info3=real(typing_string);
};
if selection=4
{
info4=real(typing_string);
};
if selection=5
{
info5=real(typing_string);
};
}
else
{
type_length=0;
typing_string="";
lastkey=0;
};
/* End processing. Math and such */
if menu=101
{
if math=0
{
loading=1;
math=1;
var time0, time1, time2, time3, number, pos;
time3=date_current_time();
number=0;
pos=0;
time0=date_get_hour(time3);
if (time0>12)
{
time0-=12;
};
time1=date_get_minute(time3);
time2=date_get_second(time3);
for (i=1; i<=100; i+=1) totals_past[i] = script_execute(scr_totals_past,i,filename);
for (i=1; i<=100; i+=1) levels_now[i] = script_execute(scr_levels_now,i,filename2);
for (i=1; i<=100; i+=1) levels_past[i] = script_execute(scr_levels_past,i,filename);
for (i=1; i<=100; i+=1) totals_now[i] = script_execute(scr_totals_now,i,filename2);
for (i=1; i<=100; i+=1) percents[i] = script_execute(scr_percents,i,filename2);
for (i=1; i<=100; i+=1) platinums[i] = script_execute(scr_platinums,i,filename2);
for (i=1; i<=100; i+=1) golds[i] = script_execute(scr_golds,i,filename2);
for (i=1; i<=100; i+=1) silvers[i] = script_execute(scr_silvers,i,filename2);
for (i=1; i<=100; i+=1) bronzes[i] = script_execute(scr_bronzes,i,filename2);
for (i=1; i<=100; i+=1) users[i] = script_execute(scr_users,i);
for (i=1; i<=100; i+=1) last_platinums[i] = script_execute(scr_platinums,i,filename);
for (i=1; i<=100; i+=1) last_golds[i] = script_execute(scr_golds,i,filename);
for (i=1; i<=100; i+=1) last_silvers[i] = script_execute(scr_silvers,i,filename);
for (i=1; i<=100; i+=1) last_bronzes[i] = script_execute(scr_bronzes,i,filename);
// Trophies earned
for (i=1; i<=100; i+=1) global.earnings[i] = (totals_now[i]-totals_past[i]);
var top;
number=0;
for (i=1; i<=100; i+=1){
toplist[i,0] = "null";
toplist[i,1] = "null";
};
repeat(100){
number+=1;
top = script_execute(scr_sort2,number);
top+=1;
name=ini_read_string("ng_users",string(menu),"nu ll");
cut=string_pos(" :",name);
name=string_delete(name,cut,string_length(name))
;
if toplist[top,0]="null"
{
toplist[top,0] = name;
toplist[top,1] = global.earnings[number];
}
else
{
top+=1;
toplist[top,0] = name;
toplist[top,1] = global.earnings[number];
};
};
//sorting
for (i=1; i<=100; i+=1) global.value[i] = real(string(levels_now[i])+string((percents[i]/1 00)));
for (i=1; i<=100; i+=1){
position[i,0] = "null";
position[i,1] = "null";
position[i,2] = "null";
position[i,3] = "null";
position[i,4] = "null";
position[i,5] = "null";
position[i,6] = "null";
position[i,7] = "null";
position[i,8] = "null";
};
number=0;
repeat(100){
number+=1;
////
if levels_now[number]<10
{
levels_now[number]=string("0"+string(levels_now[
number]));
};
////
if percents[number]<10
{
percents[number]=string("0"+string(percents[numb er]));
};
////
if platinums[number]<1000
{
platinums[number]=string("0"+string(platinums[nu mber]));
if real(platinums[number])<100
{
platinums[number]=string("0"+string(platinums[nu mber]));
};
if real(platinums[number])<10
{
platinums[number]=string("0"+string(platinums[nu mber]));
};
};
////
if golds[number]<1000
{
golds[number]=string("0"+string(golds[number]));
if real(golds[number])<100
{
golds[number]=string("0"+string(golds[number]));
};
if real(golds[number])<10
{
golds[number]=string("0"+string(golds[number]));
};
};
////
if silvers[number]<1000
{
silvers[number]=string("0"+string(silvers[number ]));
if real(silvers[number])<100
{
silvers[number]=string("0"+string(silvers[number ]));
};
if real(silvers[number])<10
{
silvers[number]=string("0"+string(silvers[number ]));
};
};
////
if bronzes[number]<1000
{
bronzes[number]=string("0"+string(bronzes[number ]));
if real(bronzes[number])<100
{
bronzes[number]=string("0"+string(bronzes[number ]));
};
if real(bronzes[number])<10
{
bronzes[number]=string("0"+string(bronzes[number ]));
};
};
////
if totals_now[number]<1000
{
totals_now[number]=string("0"+string(totals_now[
number]));
if real(totals_now[number])<100
{
totals_now[number]=string("0"+string(totals_now[
number]));
};
if real(totals_now[number])<10
{
totals_now[number]=string("0"+string(totals_now[
number]));
};
};
////
if global.earnings[number]<100
{
global.earnings[number]=string("0"+string(global .earnings[number]));
if real(global.earnings[number])<10
{
global.earnings[number]=string("0"+string(global .earnings[number]));
};
};
};
number=0;
repeat(100){
number+=1;
pos = script_execute(scr_sort,number);
pos+=1;
if position[pos,0]="null"
{
position[pos,0] = users[number]
position[pos,1] = levels_now[number]
position[pos,2] = percents[number]
position[pos,3] = platinums[number]
position[pos,4] = golds[number]
position[pos,5] = silvers[number]
position[pos,6] = bronzes[number]
position[pos,7] = totals_now[number];
position[pos,8] = global.earnings[number];
}
else
{
pos+=1;
position[pos,0] = users[number]
position[pos,1] = levels_now[number]
position[pos,2] = percents[number]
position[pos,3] = platinums[number]
position[pos,4] = golds[number]
position[pos,5] = silvers[number]
position[pos,6] = bronzes[number]
position[pos,7] = totals_now[number];
position[pos,8] = global.earnings[number];
};
};
number=0;
var rep;
rep=100
final_text="= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = + TROPHY LEADERBOARD UPDATE "+string(update_number)+" + = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ="+"

"+"#) [Level:%] [Trophies : PT/ GD/ SR/ BE |Total | Gain] - [NG username : PSN ID]

";
repeat(rep){
number+=1;
if position[number,0]="null" or position[number,0]=""
{
}
else
{
string_delete(position[number,0],string_length(p osition[number,0]),1);
////
var p;
p=number
if number<10
{
p=string("0"+string(number));
};
final_text=final_text+(string(p)+")["+string(pos ition[number,1])+": "+string(position[number,2])+"%][Trophies: "+string(position[number,3])+"/ "
+string(position[number,4])+"/ "+string(position[number,5])+"/ "+string(position[number,6])+" | "+string(position[number,7])+" | +"
+string(position[number,8])+"]- "+string(position[number,0])+"
");
};
};
final_text=final_text+"

"+"= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ="+"

"+"Top Trophy Whores"+"

";
number=0;
repeat(5){
number+=1;
if (toplist[number,1]>toplist[number+1,1])
{
final_text=final_text+string(number)+") "+string(toplist[number,0])+" - "+string(toplist[number,1])+"
";
}
else
{
final_text=final_text+string(number)+") "+string(toplist[number,0])+" - "+string(toplist[number,1])+"
";
final_text=final_text+string(number)+") "+string(toplist[number+1,0])+" - "+string(toplist[number+1,1])+"
";
number+=1;
};
};
final_text=final_text+"
"+"LEVEL UPS:"+"

";
number=0;
repeat(100){
number+=1;
name=users[number];
cut=string_pos(" :",name);
name=string_delete(name,cut,string_length(name))
;
levels_now[number]=real(levels_now[number]);
levels_past[number]=real(levels_past[number]);
if (levels_now[number]>levels_past[number])
{
final_text=final_text+string(name)+"
";
};
};
final_text=final_text+"
"+"MILESTONES:"+"

";
number=0;
var plat,gold,silver,bronze,overall,yes,check;
repeat(100){
number+=1;
name=users[number];
cut=string_pos(" :",name);
name=string_delete(name,cut,string_length(name))
;
platinums[number]=real(platinums[number]);
golds[number]=real(golds[number]);
silvers[number]=real(silvers[number]);
bronzes[number]=real(bronzes[number]);
totals_now[number]=real(totals_now[number]);
totals_past[number]=real(totals_past[number]);
plat=-1;
gold=-1;
silver=-1;
bronze=-1;
overall=-1;
yes=0;
check=0;
//============================================
if (platinums[number]>last_platinums[number])
{
if platinums[number]/5= round(platinums[number]/5)
{
plat=platinums[number];
yes=1;
}
else
{
plat=floor(platinums[number]/5);
if plat=floor(last_platinums[number]/5)
{
plat=-1;
}
else
{
plat=plat*5;
yes=1;
};
};
};
//==============================
if (golds[number]>last_golds[number])
{
if (golds[number]>49)
{
if golds[number]/50= round(golds[number]/50)
{
gold=golds[number];
yes=1;
}
else
{
gold=floor(golds[number]/50);
if gold=floor(last_golds[number]/50)
{
gold=-1;
}
else
{
gold=gold*50;
yes=1;
};
};
}
else
{
if golds[number]/5= round(golds[number]/5)
{
gold=golds[number];
yes=1;
}
else
{
gold=floor(golds[number]/5);
if gold=floor(last_golds[number]/5)
{
gold=-1;
}
else
{
gold=gold*5;
yes=1;
};
};
};
};
//======================================
if (silvers[number]>last_silvers[number])
{
if (silvers[number]>49)
{
if silvers[number]/50= round(silvers[number]/50)
{
silver=silvers[number];
yes=1;
}
else
{
silver=floor(silvers[number]/50);
if silver=floor(last_silvers[number]/50)
{
silver=-1;
}
else
{
silver=silver*50;
yes=1;
};
};
}
else
{
if silvers[number]/5= round(silvers[number]/5)
{
silver=silvers[number];
yes=1;
}
else
{
silver=floor(silvers[number]/5);
if silver=floor(last_silvers[number]/5)
{
silver=-1;
}
else
{
silver=silver*5;
yes=1;
};
};
};
};
//==========================================
if (bronzes[number]>last_bronzes[number])
{
if (bronzes[number]>49)
{
if bronzes[number]/50= round(bronzes[number]/50)
{
bronze=bronzes[number];
yes=1;
}
else
{
bronze=floor(bronzes[number]/50);
if bronze=floor(last_bronzes[number]/50)
{
bronze=-1;
}
else
{
bronze=bronze*50;
yes=1;
};
};
}
else
{
if bronzes[number]/5= round(bronzes[number]/5)
{
bronze=bronzes[number];
yes=1;
}
else
{
bronze=floor(bronzes[number]/5);
if bronze=floor(last_bronzes[number]/5)
{
bronze=-1;
}
else
{
bronze=bronze*5;
yes=1;
};
};
};
};
//========================================
if (totals_now[number]>totals_past[number])
{
if (totals_now[number]>49)
{
if totals_now[number]/50= round(totals_now[number]/50)
{
overall=totals_now[number];
yes=1;
}
else
{
overall=floor(totals_now[number]/50);
if overall=floor(totals_past[number]/50)
{
overall=-1;
}
else
{
overall=overall*50;
yes=1;
};
};
}
else
{
if totals_now[number]/5= round(totals_now[number]/5)
{
overall=totals_now[number];
yes=1;
}
else
{
overall=floor(totals_now[number]/5);
if overall=floor(totals_past[number]/5)
{
overall=-1;
}
else
{
overall=overall*5;
yes=1;
};
};
};
};
//============================================
if yes=1
{
final_text=final_text+string(name)+" - ";
if (overall>0)
{
final_text=final_text+string(overall)+" Overall";
check=1;
};
///
if (plat>0)
{
if check=1
{
final_text=final_text+", "
check=0;
};
final_text=final_text+string(plat)+ " Platinums";
check=1;
};
///
if (gold>0)
{
if check=1
{
final_text=final_text+", "
check=0;
};
final_text=final_text+string(gold)+ " Golds";
check=1;
};
///
if (silver>0)
{
if check=1
{
final_text=final_text+", "
check=0;
};
final_text=final_text+string(silver)+ " Silvers";
check=1;
};
///
if (bronze>0)
{
if check=1
{
final_text=final_text+", "
};
final_text=final_text+string(bronze)+ " Bronzes";
};
final_text=final_text+"
";
};
};
show_debug_message(final_text);
//insert above
};
};

Draw Code:

if menu=101 && math=1
{
if pop_up=1
{
splash_show_text("info.rtf",1);
};
math+=1;
};
/* Start menu */
draw_set_halign(fa_left);
draw_text(0,0,string(menu));
draw_set_halign(fa_center);
if menu=0
{
draw_set_color(c_white);
draw_text(240,0,"NG Trophy Leaderboard "+string(update_number));
draw_text(240,42,"The shitty app by Cameron");
draw_sprite(spr_ps3,0,26,32);
name="null";
};
/* End menu */
if menu=101
{
name="null";
if loading=1
{
draw_text(240,0,"Processing");
}
else
{
draw_text(240,0,"Choose Option:");
draw_text(120,24,"Copy to clipboard")
draw_rectangle(58,24,182,42,true);
if script_execute(scr_mouse,58,24,182,42,1)=1
{
clipboard_set_text(final_text);
};
draw_rectangle(319,24,402,42,true);
if script_execute(scr_mouse,316,24,402,42,1)=1
{
var fn;
fn=file_text_open_write(filename2+".txt");
file_text_write_string(fn,final_text);
file_text_close(fn);
};
draw_text(360,24,"Save as .txt")
};
};
/* Draw left arrow */
if (menu>0) && (menu<102)
{
draw_sprite(spr_arrow2,0,8,32);
};
/* Draw right arrow */
if (menu<102)
{
draw_sprite(spr_arrow,0,472,32);
};
/* Change menu */
// Going to the left
if (menu>0) && (string_length(name)>0) && (menu<101) && delay=0
{
if script_execute(scr_mouse,0,24,16,40,1)=1 or keyboard_check_pressed(vk_control)
{
if pop_up=1
{
splash_show_text("info.rtf",1);
};
ini_open(filename2);
ini_write_real("form",string(menu)+"_lvl",info0)
;
ini_write_real("form",string(menu)+"_prcnt",info 1);
ini_write_real("form",string(menu)+"_pt",info2);
ini_write_real("form",string(menu)+"_gd",info3);
ini_write_real("form",string(menu)+"_sr",info4);
ini_write_real("form",string(menu)+"_be",info5);
menu-=1;
info0=ini_read_real("form",string(menu)+"_lvl",0 );
info1=ini_read_real("form",string(menu)+"_prcnt"
,0);
info2=ini_read_real("form",string(menu)+"_pt",0)
;
info3=ini_read_real("form",string(menu)+"_gd",0)
;
info4=ini_read_real("form",string(menu)+"_sr",0)
;
info5=ini_read_real("form",string(menu)+"_be",0)
;
ini_close();
selection=0;
typing_string=string(info0);
lastarrow=0;
name="";
};
};
if menu=102
{
draw_set_font(font_image);
draw_rectangle(0,90,100,480,false);
draw_rectangle(0,186,160,480,false);
draw_rectangle(0,274,234,480,false);
draw_rectangle(0,368,306,480,false);
draw_rectangle(0,452,378,480,false);
draw_sprite(spr_platinum,0,16,8);
draw_sprite(spr_gold,0,96,96);
draw_sprite(spr_silver,0,168,184);
draw_sprite(spr_bronze,0,240,272);
draw_sprite(spr_hidden,0,312,360);
};
// Going to the right
if (menu<101) && (string_length(name)>0) && delay=0
{
if script_execute(scr_mouse,464,24,480,40,1)=1 or keyboard_check_pressed(vk_shift)
{
if (menu>0)
{
if pop_up=1
{
splash_show_text("info.rtf",1);
};
ini_open(filename2);
ini_write_real("form",string(menu)+"_lvl",info0)
;
ini_write_real("form",string(menu)+"_prcnt",info 1);
ini_write_real("form",string(menu)+"_pt",info2);
ini_write_real("form",string(menu)+"_gd",info3);
ini_write_real("form",string(menu)+"_sr",info4);
ini_write_real("form",string(menu)+"_be",info5);
menu+=1;
info0=ini_read_real("form",string(menu)+"_lvl",0 );
info1=ini_read_real("form",string(menu)+"_prcnt"
,0);
info2=ini_read_real("form",string(menu)+"_pt",0)
;
info3=ini_read_real("form",string(menu)+"_gd",0)
;
info4=ini_read_real("form",string(menu)+"_sr",0)
;
info5=ini_read_real("form",string(menu)+"_be",0)
;
ini_close();
selection=0;
typing_string=string(info0);
lastarrow=1;
name="";
}
else
{
selection=0;
lastarrow=1;
menu+=1;
ini_open(filename2);
info0=ini_read_real("form",string(menu)+"_lvl",0 );
info1=ini_read_real("form",string(menu)+"_prcnt"
,0);
info2=ini_read_real("form",string(menu)+"_pt",0)
;
info3=ini_read_real("form",string(menu)+"_gd",0)
;
info4=ini_read_real("form",string(menu)+"_sr",0)
;
info5=ini_read_real("form",string(menu)+"_be",0)
;
ini_close();
typing_string=string(info0);
name="";
};
};
};
if (menu=101)
{
if script_execute(scr_mouse,464,24,480,40,1)=1 or keyboard_check_pressed(vk_shift)
{
if room=rm_main
{
room_goto(rm_image);
};
menu+=1;
};
};
var idle;
idle=0;
if lastmx=mouse_x && lastmy=mouse_y
{
idle=1;
};
lastmx=mouse_x;
lastmy=mouse_y;
if menu=102 && idle=0
{
draw_sprite(spr_arrow2,0,320,32);
if script_execute(scr_mouse,312,24,328,40,1)=1 or keyboard_check_pressed(vk_control)
{
info0=0;
info1=0;
info2=0;
info3=0;
info4=0;
info5=0;
typing_string="";
selection=0;
lastarrow=0;
menu-=1;
name="";
if room=rm_image
{
room_goto(rm_main);
};
draw_set_font(-1);
};
};
/* Drawing inbetween menu */
if (menu>0) && (menu<101)
{
if name="" or name="null"
{
loading=1;
ini_open("save.ini");
name=ini_read_string("ng_users",string(menu),"nu ll");
ini_close();
if name="" or name="null"
{
menu=real(script_execute(scr_name,string(menu),l astarrow,update_number));
};
cut=string_pos(" :",name)+2;
name=string_delete(name,1,cut);
splash_set_caption("http://us.playstation.com/pu blictrophy/index.htm?onlinename="+string(name));
// open splash
if pop_up=1
{
splash_show_web("http://us.playstation.com/publi ctrophy/index.htm?onlinename="+string(name),0);
};
};
draw_set_color(c_gray);
draw_rectangle(60,38,100,58,true);
draw_rectangle(124,38,164,58,true);
draw_rectangle(188,38,228,58,true);
draw_rectangle(244,38,284,58,true);
draw_rectangle(308,38,348,58,true);
draw_rectangle(372,38,412,58,true);
draw_set_color(c_white);
draw_text(80,20,"LVL:");
if script_execute(scr_mouse,52,14,108,64,1)=1
{
selection=0;
typing_string=real(info0);
};
draw_text(80,42,info0);
draw_text(144,20,"%:");
if script_execute(scr_mouse,116,14,172,64,1)=1
{
selection=1;
typing_string=real(info1);
};
draw_text(144,42,info1);
draw_text(208,20,"PT:");
if script_execute(scr_mouse,180,14,236,64,1)=1
{
selection=2;
typing_string=real(info2);
};
draw_text(208,42,info2);
draw_text(264,20,"GD:");
if script_execute(scr_mouse,236,14,292,64,1)=1
{
selection=3;
typing_string=real(info3);
};
draw_text(264,42,info3);
draw_text(328,20,"SR:");
if script_execute(scr_mouse,300,14,356,64,1)=1
{
selection=4;
typing_string=real(info4);
};
draw_text(328,42,info4);
draw_text(392,20,"BE:");
if script_execute(scr_mouse,364,14,420,64,1)=1
{
selection=5;
typing_string=real(info5);
};
draw_text(392,42,info5);
draw_set_color(c_yellow);
if selection=0
{
draw_text(80,20,"LVL:");
draw_rectangle(60,38,100,58,true);
};
if selection=1
{
draw_text(144,20,"%:");
draw_rectangle(124,38,164,58,true);
};
if selection=2
{
draw_text(208,20,"PT:");
draw_rectangle(188,38,228,58,true);
};
if selection=3
{
draw_text(264,20,"GD:");
draw_rectangle(244,38,284,58,true);
};
if selection=4
{
draw_text(328,20,"SR:");
draw_rectangle(308,38,348,58,true);
};
if selection=5
{
draw_text(392,20,"BE:");
draw_rectangle(372,38,412,58,true);
};
draw_set_color(c_white);
// Getting name
if name="" or name="null"
{
if not menu=101 and not menu=0
{
menu=real(script_execute(scr_name,string(menu),l astarrow,update_number));
};
};
draw_text(240,0,name);
};
// Just incase
if (menu<1)
{
menu=0;
};
if (menu>101)
{
menu=102;
};
// Loading
if (fps<25) or (loading>0)
{
if menu<102
{
draw_sprite(spr_loading,image_index,464,0);
};
}
if (fps>24)
{
loading=0;
if selection=0
{
typing_string=string(info0);
};
if selection=1
{
typing_string=string(info1);
};
if selection=2
{
typing_string=string(info2);
};
if selection=3
{
typing_string=string(info3);
};
if selection=4
{
typing_string=string(info4);
};
if selection=5
{
typing_string=string(info5);
};
image_index=0;
};

There's also 15 or so scripts that get called upon in the code that I won't bother to include.