macro igiari
sfx franziska/objection_jp.ogg
endmacro

macro megaphone
sfx aa/sfx-ween.ogg
endmacro

macro jobject
fg ani-judge-gavel name=gavel
delete name=gavel
endmacro

macro dobject
sfx phoenix/objection.ogg
fg ObjectionAnim name=oa
delete name=oa
endmacro

macro pobject
sfx franziska/objection.ogg
fg ObjectionAnim name=oa
delete name=oa
endmacro

macro hold
sfx phoenix/holdit.ogg
fg HoldItAnim name=oa
delete name=oa
endmacro

macro take
sfx phoenix/takethat.ogg
fg TakeThatAnim name=oa
delete name=oa
endmacro

macro throw
sfx snackood.wav
set _return ka-TONK
endmacro

macro munch
sfx munch.wav
set _return MUNCH
endmacro

set helper_nt Maya
set defense_nt Phoenix
set witness_nt Meekins
set prosecutor_nt Franziska
set judge_nt Judge
set _defense Phoenix
set _witness Meekins
set _helper Maya
set _prosecutor Franziska
set _judge Judge
set dx 0
addvar dx 256
set wx 520
addvar wx 256
set px 1040
addvar px 256
set jx 1296
addvar jx 256
set hx 1551
addvar hx 256

isempty court_dbench?
set court_dbench dbench
isempty court_wbench?
set court_wbench wbench
isempty court_pbench?
set court_pbench pbench
isempty court_background?
set court_background courtroomfull
isempty court_helper?
set court_helper helper

isempty helper_nt?
set helper_nt $_helper
isempty defense_nt?
set defense_nt $_defense
isempty witness_nt?
set witness_nt $_witness
isempty prosecutor_nt?
set prosecutor_nt $_prosecutor
isempty judge_nt?
set judge_nt $_judge

bg $court_background x=$dx stack
char $_defense x=$dx name=dc nametag=$defense_nt
fg $court_dbench x=$dx
char $_witness x=$wx stack name=wc nametag=$witness_nt e=bob
fg $court_wbench x=$wx
char $_prosecutor x=$px stack name=pc nametag=$prosecutor_nt
fg $court_pbench x=$px
bg judgestand x=$jx stack
char $_judge x=$jx stack name=jc nametag=$judge_nt
bg $court_helper x=$hx stack
char $_helper x=$hx stack name=hc nametag=$helper_nt

set court_x 0
emo ready name=pc

macro court_begin
#music: 03 - Ace Attorney - Trial
mus 03 - Ace Attorney - Trial.ogg
endmacro
macro court_crossexam
#music: 04 - Examination - Moderate 2001.ogg
mus 04 - Examination - Moderate 2001.ogg
endmacro
macro court_endcross
#music: 07 - Examination - Allegro 2001
mus 07 - Examination - Allegro 2001.ogg
endmacro
macro court_finalev
#music: 08 - Investigation - Cornered
mus 08 - Investigation - Cornered.ogg
endmacro
macro court_end
#music: 09 - Announce the Truth 2001.ogg
mus 09 - Announce the Truth 2001.ogg
endmacro
macro court_objection
#music: 06 - Phoenix Wright - Objection! 2001
mus 06 - Phoenix Wright - Objection! 2001.ogg
endmacro

{court_begin}
emo ready name=pc
emo salutes3 name=wc
emo sheepish name=dc
emo warning name=jc
{judge}
{jobject}
"Our forgetful defense has forgotten evidence. Now, where were we?"
{prosecutor}
"We were about to ask Mike Meekins about what he saw."
{judge}
"{enormal}Have you gotten the necessary evidence?"
{defense}
"Yes, Your Honor."
"Oh yeah, here! {c095}{throw}{c}"
"Now, Officer Meekins may testify."
{judge}
savegame part3
"What is this? {munch} {munch} {munch}!"
{defense}
"It's a Snackoo."
{scrollwitness}
"{esalutes3}Yes, sir!"
"{emegaphone}{megaphone}Let's see... This alien took out this ray gun and started {c950}SHOOTING{c} at me!"
"Then, she called me a whippersnapper!"
{judge}
{jobject}
"{eheadshake}I'm sorry, but the murder weapon was a spear."
{witness}
"{eyank}MURDER?{emegaphone}{megaphone} I though you were asking me about when I was attacked!"
{scrolldefense}
"Your Honor, I would like to call another witness."
"Obviously, this witness is talking about something else."
{judge}
"{esurprised}The defense calling a witness?"
"That's new!"
"Who is your witness?"
{defense}
"The defense calls Forensic Scientist Ema Skye."
fade start=100 end=0 speed=1
{scrollwitness}
delete name=wc
set newx $wx
subvar newx $court_x
char Skye x=$newx stack name=wc nametag=Skye
fade start=0 end=100 speed=1
mus 13 - Search - Opening 2001.ogg
{scrollprosecutor}
"{ewhip}Please testify about the day of the murder."
{scrollwitness}
mus
fg testimonyanim name=test
delete name=test
{court_crossexam}
{tbon}
"{enormal}The real scene of the crime was in Wright Anything Agency."
"{enormal}The defendant here killed Gavin."
"{enormal}He was the only other person besides myself."
"{enormal}I was there to visit Mr. Wright."
{tboff}
emo ready name=pc
{scrollprosecutor}
{judge}
"Mr. Wright, you may proceed with your cross-examination."
{defense}
"{enormal}Gladly."
{scrollwitness}
fg cross-examinationanim name=ce
delete name=ce
cross ema
statement cs
"{enormal}The real scene of the crime was in Wright Anything Agency."
statement fail
"{enormal}The defendant here killed Gavin."
statement op
"{enormal}He was the only other person besides myself."
statement vw
"{enormal}I was there to visit Mr. Wright."
endcross
"(There's got to be a contradiction somewhere!)"
{helper}
"Phoenix, don't you see it? Check the court record!"
goto ema
label press cs
{defense}
{hold}
{scrollwitness}
"I saw it."
resume
label press fail
{defense}
{hold}
"How do you know that?"
{scrollwitness}
"{emad}Be patient."
emo normal name=wc
resume
label press op
{defense}
{hold}
"You can't know that! He could have been upstairs!"
{scrollwitness}
"I checked the security cam data."
resume
label press vw
{defense}
{hold}
"...{p30}That's true."
{scrollwitness}
resume
label none
{defense}
random rn 0 9
is_ex (rn < 6) ? fail=fail_1
random rn 0 6
is_ex (rn < 3) fail_2
goto fail_3
#random rn 1 2
#random rt 1 2
#subvar rt 1
#"RN is {$rn}, and RT is {$rt}"
#addvar rn $rt
#is_ex (rn == 1) fail_1
#is_ex (rn == 2) fail_2
#is_ex (rn == 3) fail_3
label fail_1
{defense}
{dobject}
emo normal name=dc
"This evidence contradicts this testimony!"
{prosecutor}
emo ready name=pc
{pobject}
"{ewhip}No, it doesn't."
{defense}
{dobject}
"Yes, it does."
{prosecutor}
{pobject}
"{ewhip}NO, IT DOESN'T!"
{defense}
sfx Meow.wav
"{esheepish}Meow. ._."
{judge}
{jobject}
"{eheadshake}Penalty! Please don't scream back and forth like that!{enormal}"
penalty -5
{defense}
"{c095}(Crap.){c}"
{scrollwitness}
resume
label fail_2
{defense}
emo normal name=dc
{dobject}
"Your Honor, do you see a flaw?"
{judge}
"No."
{defense}
"{esheepish}Really?"
{judge}
"Yes. Penalty!"
penalty -5
{defense}
"{c095}(Man! I was sure I found something!){c}"
{scrollwitness}
resume
label fail_3
{defense}
{emo normal name=dc}
{dobject}
"Object-{next}"
{prosecutor}
{pobject}
penalty -5
"Stop it, Wright!"
{scrollwitness}
resume