#include(pwlib/pwlib.hlsl)

[game]
jumptoscript("setup");

[setup]
runscript("pw_initpwlib");
runscript("pw_initpwbgs");
runscript("charcreation");
changetitle("PWLib Tutorial Game");
jumptoscript("run");

[charcreation]
runscript("pw_createema");
runscript("pw_createtrucy");

[run]
jumptoscript("enterscene1");

[enterscene1]
runscript("pw_usepwbgcourthall");
runscript("pw_showadvarrowmenu");
jumptoscript("scene1");

[scene1]
runscript("setlipsynctochar");
runscript("showpwchar");
runscript("pw_showmessagebox");
runscript("pw_enableemanormal");
runscript("pw_setnameboxtoema");
message("Oh, hello.");
message("My name is Ema Skye!");
runscript("pw_setnameboxtotrucy");
runscript("pw_enabletrucynormal");
message("Oh, hello. My name is Trucy.");
message("I'm a magician.");
runscript("pw_setnameboxtoema");
runscript("pw_enableemanormal");
message("That's cool! But scientifically \nspeaking...");
message("Magic doesn't exist.");
runscript("pw_setnameboxtotrucy");
runscript("pw_enabletrucynormal");
message("Scientifically speaking...? \nHmmm...");
message("But does magic need to be \nproven?");
runscript("setlipsynctonone");
runscript("pw_setnameboxtophoenix");
message("(I better not try to argue \nin this one.)");
runscript("setlipsynctochar");
runscript("pw_enableemanormal");
runscript("pw_setnameboxtoema");
message("What do you think, Mr. \nWright?");
runscript("setlipsynctonoone");
runscript("pw_setnameboxtophoenix");
message("Ah?");
message("Well...Ah...");

[size=85][game]
jumptoscript("setup");

[setup]
   runscript("pw_initpwlib");
   runscript("pw_initpwbgs");
   runscript("charcreation");
   runscript("load");
   runscript("evidenceprofilecreation");
   changetitle("PWLib Tutorial Game");
   jumptoscript("run");

[charcreation]
   runscript("pw_createema");
   runscript("pw_createtrucy");

[load]
   loadtexture(80900,"PW/evidence/gun.png");
   loadtexture(80901,"PW/evidence/lawyer badge.png");
   loadtexture(80902,"PW/evidence/photo.png");
   loadtexture(90900,"PW/profile/ema.png");
   loadtexture(70000,"cust/ElisePhoto.png");
   loadtexture(70010,"cust/Apollolikespie.png");
   loadtexture(90901,"PW/profile/minuki.png");
   
[evidenceprofilecreation]
   setvar([profilenumber],800);
   setvar([profilegfs],90900);
   setvar([profilegfl],90900);
   setvar([profilename],"Ema Skye");
   setvar([profilesdesc],"Age: 19\nGender: Female");
   setvar([profileldesc],"An energetic girl that wants to be a \nforensic detective.");
   runscript("createprofile");
   setvar([evidencenumber],900);
   setvar([evidencegfs],80901);
   setvar([evidencegfl],80901);
   setvar([evidencesup],0);
   setvar([evidencename],"Attorney's Badge");
   setvar([evidencesdesc],"Type: Other\n One of my possessions.");
   setvar([evidenceldesc],"It's my all important badge.\nIt shows that I'm a defense attorney.");
   runscript("createevidence");
   setvar([evidencenumber],901);
   setvar([evidencegfs],80900);
   setvar([evidencegfl],80900);
   setvar([evidencesup],0);
   setvar([evidencename],"Gun");
   setvar([evidencesdesc],"Type: Weapons\n Submitted as evidence\n by Prosecutor Von Karma.");
   setvar([evidenceldesc],"The murder weapon.\nIt was shot once.");
   runscript("createevidence");   
   setvar([evidencenumber],902);
   setvar([evidencegfs],80902);
   setvar([evidencegfl],80902);
   setvar([evidencesup],1);
   setvar([evidencename],"Trucy GS4 Promo");
   setvar([evidencesdesc],"Type: Photo\nReceived from Trucy Wright.");
   setvar([evidenceldesc],"A promo photo of Gyakuten Saiban 4.");
   runscript("createevidence");
   setvar([evidencestex],70000);
   setvar([profilenumber],801);
   setvar([profilegfs],90901);
   setvar([profilegfl],90901);
   setvar([profilename],"Trucy Wright");
   setvar([profilesdesc],"Age: 15\nGender: Female");
   setvar([profileldesc],"A cheerful magician girl.");
   runscript("createprofile");
   runscript("setevidencepagesimple");
   
[run]
   setbg(70010);
   runscript("pw_showmain");
   waitresponse();
   runscript("pw_hidemain");
   jumptoscript("casestart");

[casestart]
   setvar([evidencenumber],900);
   runscript("addevidence");
   setvar([evidencenumber],901);
   runscript("addevidence");
   setvar([profilenumber],801);
   runscript("addprofile");
   setvar([profilenumber],800);
   runscript("addprofile");
   jumptoscript("enterscene1");

[enterscene1]
   runscript("pw_usepwbgcourthall");
   runscript("pw_showadvarrowmenu");
   jumptoscript("scene1");

[scene1]
   runscript("setlipsynctochar");
   runscript("showpwchar");
   runscript("pw_showmessagebox");
   runscript("pw_enableemanormal");
   runscript("pw_setnameboxtoema");
   message("Oh, hello.");
   message("My name is Ema Skye!");
   runscript("pw_setnameboxtotrucy");
   runscript("pw_enabletrucynormal");
   message("Oh, hello. My name is Trucy.");
   message("I'm a magician.");
   message("This photo proves it.");
   setvar([evidencenumber],902);
   runscript("addevidence");
   setvar([pw_headeviaddmsg],"");
   setvar([pw_taileviaddmsg]," was added\nto the Court Record.");
   runscript("pw_startevidenceadd");
   runscript("pw_setnameboxtoema");
   runscript("pw_enableemanormal");
   runscript("setlipsynctochar");
   message("That's cool! But scientifically \nspeaking...");
   message("Magic doesn't exist.");
   runscript("pw_setnameboxtotrucy");
   runscript("pw_enabletrucynormal");
   message("Scientifically speaking...?\nHmmm...");
   message("But does magic need to be \nproven?");
   runscript("setlipsynctonoone");
   runscript("pw_setnameboxtophoenix");
   message("(I better not try to argue \nin this one.)");
   runscript("setlipsynctochar");
   runscript("pw_enableemanormal");
   runscript("pw_setnameboxtoema");
   message("What do you think, Mr. \nWright?");
   runscript("setlipsynctonoone");
   runscript("pw_setnameboxtophoenix");
   message("Ah?");
   message("Well... Ah...");
   jumptoscript("presenttrucyevidence");
   
[presenttrucyevidence]
   definevar([signal],"int");
   runscript("pw_setnameboxtonoone");
   messageauto("(Show what proves that Trucy is \na magician!)");
   runscript("pw_forcepresent");
   waitsignal("advance",[signal]);
   runscript("pw_hidemessagebox");
   runscript("pw_raisetakethat");
   wait(6);
if(<compare([currentitemcode],"equal",902)>,<jumptoscript("presenttrucyevidencecorrect")>,<jumptoscript("presenttrucyevidencewrong")>);

[presenttrucyevidencecorrect]
   runscript("pw_showmessagebox");
   runscript("pw_setnameboxtophoenix");
   message("What about this?");
   runscript("setlipsynctochar");
   runscript("pw_setnameboxtoema");
   runscript("pw_enableemanormal");
   message("You may be right...");
   message("But who gave you this?");
   jumptoscript("presenttrucyprofile");

[presenttrucyevidencewrong]
   runscript("pw_showmessagebox");
   runscript("pw_setnameboxtophoenix");
   message("What about this?");
   runscript("setlipsynctochar");
   runscript("pw_setnameboxtoema");
   runscript("pw_enableemanormal");
   message("What is this supposed to mean \nanyway?");
   jumptoscript("scene1");

[presenttrucyprofile]
   definevar([signal],"int");
   runscript("pw_setnameboxtonoone");
   runscript("setlipsynctonoone");
   messageauto("(Show who gave you this \nphoto!)");
   setvar([pwonetypepresent],2);
   runscript("pw_forcepresent");
   waitsignal("advance",[signal]);
   runscript("pw_hidemessagebox");
   runscript("pw_raisetakethat");
   wait(6);
if(<compare([currentitemcode],"equal",801)>,<jumptoscript("presenttrucyprofilecorrect")>,<jumptoscript("presenttrucyprofilewrong")>);

[presenttrucyprofilecorrect]
   runscript("pw_showmessagebox");
   runscript("pw_setnameboxtophoenix");
   message("What about this?");
   runscript("setlipsynctochar");
   runscript("pw_setnameboxtoema");
   runscript("pw_enableemanormal");
   runscript("setlipsynctochar");
   message("Hmmm, that is interesting...");
   jumptoscript("scene1");
   
[presenttrucyprofilewrong]
   runscript("pw_showmessagebox");
   runscript("pw_setnameboxtophoenix");
   message("What about this?");
   runscript("setlipsynctochar");
   runscript("pw_setnameboxtoema");
   runscript("pw_enableemanormal");
   runscript("setlipsynctochar");
   message("I'm not sure about this, you \nknow...!");
   jumptoscript("scene1");[/size]