File: main.c - Tab length: 1 2 4 8 - Lines: on off - No wrap: on off

#include <stdio.h>
#include <stdio.h>
#include <stdlib.h>
#include <input.h>
#include <DATlib.h>
#include "externs.h"
#include "sound.h"

#define FRONT_START_X 157
#define FRONT_START_Y 0
#define FRONT_MIN_X 8
#define FRONT_MAX_X 624
#define FRONT_MIN_Y 0
#define FRONT_MAX_Y 0

#define BACK_MIN_X 8
#define BACK_MAX_X 149
#define BACK_MIN_Y 5
#define BACK_MAX_Y 8

int breast_frame=0;

int action=0;
int choice=0;
int wherefrom=0;
int miniGame=0;
int controlON=0;
int success=0;
bool button_available;
short curs_x=0;
short curs_y=0;
int frame=0;
int sec=0;
int min=0;
picture testPict;

typedef struct bkp_ram_info {
 WORD debug_dips;
 BYTE stuff[254];
 //256 bytes
} bkp_ram_info;

bkp_ram_info bkp_data;

extern uint _end;
BYTE p1,p2,ps,p1e,p2e;
uint callBackCounter;

//fix palettes for text
static const ushort fixPalettes[]= {
 0x8000, 0xefb8, 0x0222, 0x5fa7, 0xde85, 0x2c74, 0x2a52, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0xebea, 0x0041, 0xa9d8, 0x57c7, 0xf6b5, 0x43a4, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0x014c, 0x9113, 0xb15e, 0x317f, 0x119f, 0x11af, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0xeb21, 0x0111, 0xee21, 0x6f31, 0x6f51, 0x6f61, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0xed31, 0xc311, 0xee51, 0x4f81, 0x4fa1, 0x4fc1, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0xbad3, 0x0111, 0x09c0, 0xe7b0, 0xc580, 0xe250, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0xefb8, 0x0111, 0xde96, 0x3c75, 0x2950, 0x4720, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000,
 0x8000, 0x8444, 0x0111, 0xf555, 0xf666, 0x7777, 0x8888, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000, 0x8000 };
 
#define CLIPPING 5

void scrollerInitClipped(scroller *s, scrollerInfo *si, ushort baseSprite, ushort basePalette, short posX, short posY, ushort clipping) {
 ushort i,addr,pos;

 scrollerInit(s,si,baseSprite,basePalette,posX,posY);
 addr=VRAM_POSY_ADDR(baseSprite);
 //pos=((YSHIFT-(0-posY))<<7)|(clipping&0x3f);
 pos=VRAM_POSY(-posY,SPR_UNLINK,clipping);
 for(i=0;i<21;i++)
  SC234Put(addr++,pos);
}

void scrollerSetPosClipped(scroller *s, short toX, short toY, ushort clipping) {
 ushort i,addr,pos;

 if(s->scrlPosY!=toY) { //Y moved ?
  scrollerSetPos(s,toX,toY);
 
  addr=VRAM_POSY_ADDR(s->baseSprite);
  //pos=((YSHIFT-(0-toY))<<7)|(clipping&0x3f);
  pos=VRAM_POSY(-toY,SPR_UNLINK,clipping);
  for(i=0;i<21;i++)
   SC234Put(addr++,pos);
  //s->scrlPosY=toY;
 } else scrollerSetPos(s,toX,toY);
}

void sortSprites(aSprite *list[], int count) {
 //insertion sort
 int x,y;
 aSprite *tmp;
 
 for(x=1;x<count;x++) {
  y=x;
  while(y>0 && (list[y]->posY < list[y-1]->posY)) {
   tmp=list[y];
   list[y]=list[y-1];
   list[y-1]=tmp;
   y--;
  }
 }
}

#define POOL_MODE
#define LOTS

const char sinTable[]={ 32,34,35,37,38,40,41,43,44,46,47,48,50,51,52,53,
      55,56,57,58,59,59,60,61,62,62,63,63,63,64,64,64,
      64,64,64,64,63,63,63,62,62,61,60,59,59,58,57,56,
      55,53,52,51,50,48,47,46,44,43,41,40,38,37,35,34,
      32,30,29,27,26,24,23,21,20,18,17,16,14,13,12,11,
      9,8,7,6,5,5,4,3,2,2,1,1,1,0,0,0,
      0,0,0,0,1,1,1,2,2,3,4,5,5,6,7,8,
      9,11,12,13,14,16,17,18,20,21,23,24,26,27,29,30};

//misc fix maps
static const ushort fadeData0[15]={0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x03f0,0x0000};
static const ushort fadeData1[15]={0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x03f1,0x0000};
static const ushort fadeData2[15]={0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x03f2,0x0000};
static const ushort fadeData3[15]={0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x03f3,0x0000};
static const ushort fadeData4[15]={0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x03f4,0x0000};
static const ushort fadeData5[15]={0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x03f5,0x0000};
static const ushort fadeData6[15]={0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x03f6,0x0000};
static const ushort fadeData7[15]={0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x03f7,0x0000};
static const ushort fadeData8[15]={0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x03f8,0x0000};
static const ushort fadeData9[15]={0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x03f9,0x0000};
static const ushort fadeDataA[15]={0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x03fa,0x0000};
static const uint fadeData[11]={(uint)fadeData0,(uint)fadeData1,(uint)fadeData2,(uint)fadeData3,(uint)fadeData4,(uint)fadeData5,(uint)fadeData6,(uint)fadeData7,(uint)fadeData8,(uint)fadeData9,(uint)fadeDataA};
static const ushort logo_95[78]={ 0x0500,0x0501,0x0502,0x0503,0x0504,0x0505,0x0506,0x0507,0x0508,0x0509,0x050a,0x050b,0x0000,
         0x0510,0x0511,0x0512,0x0513,0x0514,0x0515,0x0516,0x0517,0x0518,0x0519,0x051a,0x051b,0x0000,
         0x0520,0x0521,0x0522,0x0523,0x0524,0x0525,0x0526,0x0527,0x0528,0x0529,0x052a,0x052b,0x0000,
         0x0530,0x0531,0x0532,0x0533,0x0534,0x0535,0x0536,0x0537,0x0538,0x0539,0x053a,0x053b,0x0000,
         0x0540,0x0541,0x0542,0x0543,0x0544,0x0545,0x0546,0x0547,0x0548,0x0549,0x054a,0x054b,0x0000,
         0x0550,0x0551,0x0552,0x0553,0x0554,0x0555,0x0556,0x0557,0x0558,0x0559,0x055a,0x055b,0x0000 };
static const ushort logo_96[78]={ 0x0560,0x0561,0x0562,0x0563,0x0564,0x0565,0x0566,0x0567,0x0568,0x0569,0x056a,0x056b,0x0000,
         0x0570,0x0571,0x0572,0x0573,0x0574,0x0575,0x0576,0x0577,0x0578,0x0579,0x057a,0x057b,0x0000,
         0x0580,0x0581,0x0582,0x0583,0x0584,0x0585,0x0586,0x0587,0x0588,0x0589,0x058a,0x058b,0x0000,
         0x0590,0x0591,0x0592,0x0593,0x0594,0x0595,0x0596,0x0597,0x0598,0x0599,0x059a,0x059b,0x0000,
         0x05a0,0x05a1,0x05a2,0x05a3,0x05a4,0x05a5,0x05a6,0x05a7,0x05a8,0x05a9,0x05aa,0x05ab,0x0000,
         0x05b0,0x05b1,0x05b2,0x05b3,0x05b4,0x05b5,0x05b6,0x05b7,0x05b8,0x05b9,0x05ba,0x05bb,0x0000 };
static const ushort logo_97[78]={ 0x0600,0x0601,0x0602,0x0603,0x0604,0x0605,0x0606,0x0607,0x0608,0x0609,0x060a,0x060b,0x0000,
         0x0610,0x0611,0x0612,0x0613,0x0614,0x0615,0x0616,0x0617,0x0618,0x0619,0x061a,0x061b,0x0000,
         0x0620,0x0621,0x0622,0x0623,0x0624,0x0625,0x0626,0x0627,0x0628,0x0629,0x062a,0x062b,0x0000,
         0x0630,0x0631,0x0632,0x0633,0x0634,0x0635,0x0636,0x0637,0x0638,0x0639,0x063a,0x063b,0x0000,
         0x0640,0x0641,0x0642,0x0643,0x0644,0x0645,0x0646,0x0647,0x0648,0x0649,0x064a,0x064b,0x0000,
         0x0650,0x0651,0x0652,0x0653,0x0654,0x0655,0x0656,0x0657,0x0658,0x0659,0x065a,0x065b,0x0000 };
static const ushort logo_98[78]={ 0x0660,0x0661,0x0662,0x0663,0x0664,0x0665,0x0666,0x0667,0x0668,0x0669,0x066a,0x066b,0x0000,
         0x0670,0x0671,0x0672,0x0673,0x0674,0x0675,0x0676,0x0677,0x0678,0x0679,0x067a,0x067b,0x0000,
         0x0680,0x0681,0x0682,0x0683,0x0684,0x0685,0x0686,0x0687,0x0688,0x0689,0x068a,0x068b,0x0000,
         0x0690,0x0691,0x0692,0x0693,0x0694,0x0695,0x0696,0x0697,0x0698,0x0699,0x069a,0x069b,0x0000,
         0x06a0,0x06a1,0x06a2,0x06a3,0x06a4,0x06a5,0x06a6,0x06a7,0x06a8,0x06a9,0x06aa,0x06ab,0x0000,
         0x06b0,0x06b1,0x06b2,0x06b3,0x06b4,0x06b5,0x06b6,0x06b7,0x06b8,0x06b9,0x06ba,0x06bb,0x0000 };

//#define TIME 120

void Control_Sub()
{
 p1=volMEMBYTE(P1_CURRENT);
 ps=volMEMBYTE(PS_CURRENT);
 p1e=volMEMBYTE(P1_EDGE);
 
 if(button_available==true)
 {
  if(miniGame==1)
  {
   controlON=0;
   
   if((p1&JOY_LEFT)&&curs_x>0)
   {
    curs_x-=2;
    controlON=1;
   }
   if((p1&JOY_RIGHT)&&curs_x<304)
   {
    curs_x+=2;
    controlON=1;
   }
   if((p1&JOY_UP)&&curs_y>0)
   {
    curs_y-=2;
    controlON=1;
   }
   if((p1&JOY_DOWN)&&curs_y<192)
   {
    curs_y+=2;
    controlON=1;
   }
  }
  else
  {
   if((p1e&JOY_A)||(p1e&JOY_B)||(p1e&JOY_C))
   {
    clearSprites(22,3);
    clearFixLayer();
    action++;
   }
  }
 }
}

void avatar(int character, int textheight)
{
 if(character==0)
 {
  pictureInit(&testPict, &Avatar1,22,16,8,176-(textheight*8),FLIP_NONE);
  palJobPut(16, Avatar1.palInfo->count, Avatar1.palInfo->data);
 }
 if(character==1)
 {
  pictureInit(&testPict, &Avatar2,22,16,8,176-(textheight*8),FLIP_NONE);
  palJobPut(16, Avatar2.palInfo->count, Avatar2.palInfo->data);
 }
 if(character==2)
 {
  pictureInit(&testPict, &Avatar3,22,16,8,176-(textheight*8),FLIP_NONE);
  palJobPut(16, Avatar3.palInfo->count, Avatar3.palInfo->data);
 }
 if(character==3)
 {
  pictureInit(&testPict, &Avatar4,22,16,8,176-(textheight*8),FLIP_NONE);
  palJobPut(16, Avatar4.palInfo->count, Avatar4.palInfo->data);
 }
 if(character==4)
 {
  pictureInit(&testPict, &Avatar5,22,16,8,176-(textheight*8),FLIP_NONE);
  palJobPut(16, Avatar5.palInfo->count, Avatar5.palInfo->data);
 }
}

void GameOver()
{
 int screenTimer=0;
 button_available=false;
 
 send_sound_command(ADPCM_GAMEOVER);
 
 if(success==0)
 {
  fixPrint(15,15,4,3,"GAME OVER");
 }
 else
 {
  fixPrint(16,15,4,3,"YOU WIN!");
 }
 
 while(1) {
  SCClose();
  waitVBlank();
 
  if(++screenTimer==780)
  {
   screenTimer=0;
   miniGame=0;
   success=0;
   clearSprites(1,21);
   SCClose();
   waitVBlank();
   main();
  }
 }
}

void TimerEd()
{
 frame++;
 if(frame==60)
 {
  sec--;
  frame=0;
 }
 if(sec==60)
 {
  min--;
  sec=0;
 }
}

void Lose1() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgA,1,23,0,0);
 palJobPut(23, BkgA.palInfo->count, BkgA.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
   
  if(action==0)
  {
   fixPrint(1,27,4,3,"Unfortunately, she's not here anymore.");
   fixPrint(1,28,4,3,"It's a catastrophe!");
  }
  if(action==1)
  {
   fixPrint(1,27,4,3,"Looks like I'm gonna spend this night");
   fixPrint(1,28,4,3,"all alone.");
  }
  if(action==2)
  {
   fixPrint(1,27,4,3,"The most awful that this incident can");
   fixPrint(1,28,4,3,"destroy my career! Oh, shit...");
  }
  if(action==3)
  {
   GameOver();
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Lose2() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgA,1,23,0,0);
 palJobPut(23, BkgA.palInfo->count, BkgA.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
   
  if(action==0)
  {
   fixPrint(1,28,4,3,"It's just a catastrophe!");
  }
  if(action==1)
  {
   fixPrint(1,27,4,3,"Looks like I'm gonna spend this night");
   fixPrint(1,28,4,3,"all alone.");
  }
  if(action==2)
  {
   fixPrint(1,27,4,3,"The most awful that this incident can");
   fixPrint(1,28,4,3,"destroy my career! Oh, shit...");
  }
  if(action==3)
  {
   GameOver();
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Lose3() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgA,1,23,0,0);
 palJobPut(23, BkgA.palInfo->count, BkgA.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
   
  if(action==0)
  {
   fixPrint(1,27,4,3,"The chicks go out. I wasn't expecting");
   fixPrint(1,28,4,3,"that.");
  }
  if(action==1)
  {
   fixPrint(1,28,4,3,"To be honest, I'm a bit disappointed.");
  }
  if(action==2)
  {
   fixPrint(1,27,4,3,"Looks like I'm gonna spend another");
   fixPrint(1,28,4,3,"night alone.");
  }
  if(action==3)
  {
   GameOver();
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene6() {
 scroller sc;
 picture Timer;
 picture Cursor;
 aSprite sp1, sp2, sp3, sp4, sp5;
 int score=0;
 int eyes1_frame=0;
 int eyes2_frame=0;
 int lips_frame=0;
 int hand_frame=0;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 curs_x=160;
 curs_y=112;
 
 send_sound_command(ADPCM_JUST_ONE_NIGHT);
 
 clearFixLayer();
 scrollerInit(&sc,&BkgJ,1,89,0,0);
 palJobPut(89, BkgJ.palInfo->count, BkgJ.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
  fixPrintf1(6,3,3,3,"%d:",controlON);
   
  if(action==0)
  {
   fixPrint(1,28,4,3,"Girls haven't wasted their time.");
  }
  if(action==1)
  {
   avatar(1,2);
   fixPrint(1,27,3,3,"Oh, finally you're back! We need your");
   fixPrint(1,28,3,3,"help.");
  }
  if(action==2)
  {
   fixPrint(1,28,4,3,"OK, but what do you want me to do?");
  }
  if(action==3)
  {
   avatar(1,1);
   fixPrint(1,28,3,3,"I want you to warm her up a bit ;)");
  }
  if(action==4)
  {
   fixPrint(1,28,4,3,"I can do relaxing massage for you.");
  }
  if(action==5)
  {
   avatar(3,2);
   fixPrint(1,27,3,3,"Wow! That sounds hot! Now show me why");
   fixPrint(1,28,3,3,"they call you Casanova.");
  }
  if(action==6)
  {
   
   
   if(miniGame==0)
   {
    frame=0;
    sec=20;
   
    pictureInit(&Timer, &Clock,25,23,0,0,FLIP_NONE);
   palJobPut(23, Clock.palInfo->count, Clock.palInfo->data);
   pictureInit(&Cursor, &Cur,56,34,curs_x,curs_y,FLIP_NONE);
   palJobPut(34, Cur.palInfo->count, Cur.palInfo->data);
   aSpriteInit(&sp1,&eyes1_spr,30,35,174,48,0,FLIP_NONE,AS_FLAGS_DEFAULT);
   palJobPut(35,eyes1_spr.palInfo->count,&eyes1_spr.palInfo->data);
   aSpriteInit(&sp2,&eyes2_spr,34,45,128,59,0,FLIP_NONE,AS_FLAGS_DEFAULT);
   palJobPut(45,eyes2_spr.palInfo->count,&eyes2_spr.palInfo->data);
   aSpriteInit(&sp3,&lips_spr,37,52,184,72,0,FLIP_NONE,AS_FLAGS_DEFAULT);
   palJobPut(52,lips_spr.palInfo->count,&lips_spr.palInfo->data);
   aSpriteInit(&sp4,&hand_spr,39,56,96,216,0,FLIP_NONE,AS_FLAGS_DEFAULT);
   palJobPut(56,hand_spr.palInfo->count,&hand_spr.palInfo->data);
   aSpriteInit(&sp5,&breast_spr,44,63,106,104,0,FLIP_NONE,AS_FLAGS_DEFAULT);
   palJobPut(63,breast_spr.palInfo->count,&breast_spr.palInfo->data);
   
    /*pictureInit(&Timer, &Clock,25,23,0,0,FLIP_NONE);
    palJobPut(23, Clock.palInfo->count, Clock.palInfo->data);
    pictureInit(&Cursor, &Cur,29,34,curs_x,curs_y,FLIP_NONE);
    palJobPut(34, Cur.palInfo->count, Cur.palInfo->data);
    aSpriteInit(&sp1,&eyes1_spr,30,35,168,32,0,FLIP_NONE,AS_FLAGS_DEFAULT);
    palJobPut(35,eyes1_spr.palInfo->count,&eyes1_spr.palInfo->data);
    aSpriteInit(&sp2,&eyes2_spr,34,45,128,48,0,FLIP_NONE,AS_FLAGS_DEFAULT);
    palJobPut(45,eyes2_spr.palInfo->count,&eyes2_spr.palInfo->data);
    aSpriteInit(&sp3,&lips_spr,37,52,184,64,0,FLIP_NONE,AS_FLAGS_DEFAULT);
    palJobPut(52,lips_spr.palInfo->count,&lips_spr.palInfo->data);
    aSpriteInit(&sp4,&hand_spr,39,56,96,216,0,FLIP_NONE,AS_FLAGS_DEFAULT);
    palJobPut(56,hand_spr.palInfo->count,&hand_spr.palInfo->data);
    aSpriteInit(&sp5,&breast_spr,44,63,104,96,0,FLIP_NONE,AS_FLAGS_DEFAULT);
    palJobPut(63,breast_spr.palInfo->count,&breast_spr.palInfo->data);*/

   
    miniGame=1;
   }
   
   fixPrintf1(1,5,7,3,"%d:",min);
   fixPrintf1(3,5,7,3,"%d",sec);
   
   pictureSetPos(&Cursor,curs_x,curs_y);
   
   if(miniGame==1)
   {
   
    if(controlON==1)
    {
     if((curs_x>104)&&(curs_y>96))
     {
      if((curs_x<208)&&(curs_y>136))
      {
       // aSpriteAnimate(&sp5);
       // if(frame%10==3) boobs();
       
       aSpriteSetStep(&sp5, breast_frame);
 
       if(breast_frame<5) breast_frame++;
       else breast_frame=0;
 
       if(frame==55) score++;
       
       aSpriteSetStep(&sp1, eyes1_frame);
       aSpriteSetStep(&sp2, eyes2_frame);
       aSpriteSetStep(&sp3, lips_frame);
       aSpriteSetStep(&sp4, hand_frame);
       
       aSpriteAnimate(&sp1);
       aSpriteAnimate(&sp2);
       aSpriteAnimate(&sp3);
       aSpriteAnimate(&sp4);
       aSpriteAnimate(&sp5);
   
   
      }
     }
    }
   
    if((min==0)&&(sec==0)&&(frame==0))
    {
     miniGame=2;
     clearSprites(25,60);
     if(score>=21) choice=0;
     if(score<=15) choice=1;
     if((score>15)&&(score<21)) choice=2;
     action++;
    }
   }
   
  }
 
  if(action==17)
  {
   fixPrint(1,27,4,3,"Girls are pissed off with me. They say");
   fixPrint(1,28,4,3,"that I highly disappointed them.");
  }
  if(action==18)
  {
   action=0;
   Lose3();
  }
 
  if(choice==0)
  {
   if(action==7)
   {
    fixPrint(1,28,4,3,"I shoudn't have done it that fast.");
   }
   if(action==8)
   {
    action=17;
   }
  }
  if(choice==1)
  {
   if(action==7)
   {
    fixPrint(1,28,4,3,"I was doing it too slow.");
   }
   if(action==8)
   {
    action=17;
   }
  }
  if(choice==2)
  {
   if(action==7)
   {
    fixPrint(1,28,4,3,"Looks like she liked it!");
   }
   if(action==8)
   {
    fixPrint(1,27,4,3,"She's ready to spend a whole night");
    fixPrint(1,28,4,3,"with me!");
   }
   if(action==9)
   {
    scrollerInit(&sc,&BkgK,1,23,0,0);
    palJobPut(23, BkgK.palInfo->count, BkgK.palInfo->data);
   
    fixPrint(1,28,4,3,"Man, that's gonna be epic!");
   }
   if(action==10)
   {
    avatar(3,1);
    fixPrint(1,28,3,3,"Come here, Casanova...");
   }
   if(action==11)
   {
    fixPrint(1,28,4,3,"That's the ticket!");
   }
   if(action==12)
   {
    avatar(1,2);
    fixPrint(1,27,3,3,"Come, play with us! There's plenty of");
    fixPrint(1,28,3,3,"room.");
   }
   if(action==13)
   {
    fixPrint(1,27,4,3,"I want to show you my gratitude - the");
    fixPrint(1,28,4,3,"hot chicks just can't wait.");
   }
   if(action==14)
   {
    fixPrint(1,28,4,3,"I recommend you to play again.");
   }
   if(action==15)
   {
    fixPrint(1,27,4,3,"Make sure you didn't miss out on");
    fixPrint(1,28,4,3,"anything interesting!");
   }
   if(action==16)
   {
    success=1;
    GameOver();
   }
  }
 
  if(miniGame==1) TimerEd();
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Home1() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgG,1,23,0,0);
 palJobPut(23, BkgG.palInfo->count, BkgG.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=3
  if(action==3)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
  //Select Options Action=10
  if(action==10)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,27,4,3,"Girls quickly find a common");
   fixPrint(1,28,4,3,"language...");
  }
  if(action==1)
  {
   avatar(1,1);
   fixPrint(1,28,3,3,"Come closer, honey... Don't be shy.");
  }
  if(action==2)
  {
   fixPrint(1,27,4,3,"I need to create an atmosphere full of");
   fixPrint(1,28,4,3,"love, lust and joy.");
  }
  if(action==3)
  {
   avatar(0,5);
   fixPrint(1,24,4,3,"But how?");
   fixPrint(3,25,choice==0?2:6,3,"LIGHT UP THE CANDLES AND POUR SOME");
   fixPrint(3,26,choice==0?2:6,3,"WINE");
   fixPrint(3,27,choice==1?2:6,3,"TURN OFF THE LIGHTS AND TURN ON SOME");
   fixPrint(3,28,choice==1?2:6,3,"MUSIC");
  }
  if(action==5)
  {
   fixPrint(1,28,4,3,"A joyful melody starts playing.");
  }
  if(action==6)
  {
   avatar(1,2);
   fixPrint(1,27,3,3,"I got an idea... How about going to a");
   fixPrint(1,28,3,3,"club?");
  }
  if(action==7)
  {
   fixPrint(1,27,4,3,"The girl from the park doesn't mind.");
   fixPrint(1,28,4,3,"The model says...");
  }
  if(action==8)
  {
   avatar(1,1);
   fixPrint(1,28,3,3,"Thanks for everything! Bye!");
  }
  if(action==9)
  {
   action=0;
   Lose3();
  }
  if(action==10)
  {
   avatar(0,5);
   fixPrint(1,24,4,3,"But I ran out of wine! Should I leave");
   fixPrint(1,25,4,3,"the girls and go to the local liqueur");
   fixPrint(1,26,4,3,"store?");
   fixPrint(3,27,choice==0?2:6,3,"NO. STAY HOME.");
   fixPrint(3,28,choice==1?2:6,3,"YES. GO TO THE STORE.");
  }
 
  if(choice==0)
  {
   if(action==4)
   {
    action=10;
    choice=0;
   }
   if(action==11)
   {
    fixPrint(1,28,4,3,"The model turns on the radio.");
   }
   if(action==12)
   {
    action=5;
   }
  }
  if(choice==1)
  {
   if(action==4)
   {
    fixPrint(1,28,4,3,"I turn on the radio.");
   }
   if(action==11)
   {
    wherefrom=0;
    fixPrint(1,28,4,3,"I take my wallet and go out.");
   }
   if(action==12)
   {
    action=0;
    Scene5();
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Home2() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgD,1,23,0,0);
 palJobPut(23, BkgD.palInfo->count, BkgD.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
   
  if(action==0)
  {
   fixPrint(1,26,4,3,"Unfortunately, the girl from the club");
   fixPrint(1,27,4,3,"changed her mind when you weren't");
   fixPrint(1,28,4,3,"there.");
  }
  if(action==1)
  {
   avatar(2,2);
   fixPrint(1,27,3,3,"Sorry, but I gotta go. I hope you");
   fixPrint(1,28,3,3,"understand...");
  }
  if(action==2)
  {
   fixPrint(1,28,4,3,"The model is disappointed.");
  }
  if(action==3)
  {
   avatar(1,3);
   fixPrint(1,26,4,3,"If she leaves, then I'm gonna go with");
   fixPrint(1,27,4,3,"her. I thought I could count on you,");
   fixPrint(1,28,4,3,"but I was wrong.");
  }
  if(action==4)
  {
   action=0;
   Lose2();
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene5() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgH,1,23,0,0);
 palJobPut(23, BkgH.palInfo->count, BkgH.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=3
  if(action==3)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,26,4,3,"Fortunately, the liqueur store is");
   fixPrint(1,27,4,3,"across the road. I take a bottle and");
   fixPrint(1,28,4,3,"go to the checkout.");
  }
  if(action==1)
  {
   avatar(4,2);
   fixPrint(1,27,3,3,"You sure you don't want anything else,");
   fixPrint(1,28,3,3,"handsome?");
  }
  if(action==2)
  {
   fixPrint(1,27,4,3,"A young, pretty cashier winks at me. I");
   fixPrint(1,28,4,3,"got her...");
  }
  if(action==3)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"What should I do?");
   fixPrint(3,27,choice==0?2:6,3,"PAY FOR THE WINE AND GO HOME");
   fixPrint(3,28,choice==1?2:6,3,"FLIRT WITH HER");
  }
 
  if(choice==0)
  {
   if(action==4)
   {
    fixPrint(1,28,4,3,"Going back home.");
   }
   if(action==5)
   {
    if(wherefrom==1)
    {
     action=0;
     Home2();
    }
    if(wherefrom==0)
    {
     action=0;
     Scene6();
    }
   }
  }
  if(choice==1)
  {
   if(action==4)
   {
    fixPrint(1,27,4,3,"The cashier grabs my hand and leads me");
    fixPrint(1,28,4,3,"to the storeroom where...");
   }
   if(action==5)
   {
    scrollerInit(&sc,&BkgI,1,23,0,0);
    palJobPut(23, BkgI.palInfo->count, BkgI.palInfo->data);
   
    fixPrint(1,28,4,3,"... well, you can see for yourself ;)");
   }
   if(action==6)
   {
    avatar(4,1);
    fixPrint(1,28,3,3,"I can't believe it!");
   }
   if(action==7)
   {
    fixPrint(1,27,4,3,"She's quite hot. The girl whispers in");
    fixPrint(1,28,4,3,"my ear...");
   }
   if(action==8)
   {
    avatar(4,1);
    fixPrint(1,28,3,3,"Do you like it, honey?");
   }
   if(action==9)
   {
    fixPrint(1,28,4,3,"You bet I do!");
   }
   if(action==10)
   {
    avatar(4,1);
    fixPrint(1,28,3,3,"You're such a good kisser!");
   }
   if(action==11)
   {
    fixPrint(1,27,4,3,"I think I'm gonna shop here more");
    fixPrint(1,28,4,3,"often. ;)");
   }
   if(action==12)
   {
    fixPrint(1,27,4,3,"Not all of our customers get such a");
    fixPrint(1,28,4,3,"service.");
   }
   if(action==13)
   {
    fixPrint(1,27,4,3,"They're simply not as good looking as");
    fixPrint(1,28,4,3,"me ;)");
   }
   if(action==14)
   {
    avatar(4,1);
    fixPrint(1,28,3,3,"Let's go to your place.");
   }
   if(action==15)
   {
    fixPrint(1,26,4,3,"Wait, oh shit... I completely forgot");
    fixPrint(1,27,4,3,"about it! The girls are still waiting");
    fixPrint(1,28,4,3,"for me in my apartment.");
   }
   if(action==16)
   {
    fixPrint(1,27,4,3,"Gotta hurry up! I hope the model is");
    fixPrint(1,28,4,3,"still there.");
   }
   if(action==17)
   {
    action=0;
    Lose1();
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene4() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgF,1,23,0,0);
 palJobPut(23, BkgF.palInfo->count, BkgF.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=5
  if(action==5)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=7
  if(action==7)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,28,4,3,"I sit down next to a pretty girl.");
  }
  if(action==1)
  {
   avatar(4,1);
   fixPrint(1,28,3,3,"Can I help you?");
  }
  if(action==2)
  {
   fixPrint(1,28,4,3,"I tell her about the model.");
  }
  if(action==3)
  {
   avatar(4,2);
   fixPrint(1,27,3,3,"I would love to meet her... But you");
   fixPrint(1,28,3,3,"have to do something for me.");
  }
  if(action==4)
  {
   fixPrint(1,27,4,3,"She probably means a present or");
   fixPrint(1,28,4,3,"something...");
  }
  if(action==5)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"What can I offer her?");
   fixPrint(3,27,choice==0?2:6,3,"A FREE PHOTO SHOOT");
   fixPrint(3,28,choice==1?2:6,3,"A DINNER AT A FANCY RESTAURANT");
  }
  if(action==6)
  {
   choice=0;
   action=7;
  }
  if(action==7)
  {
   avatar(4,4);
   fixPrint(1,25,3,3,"How_about_something_more...");
   fixPrint(1,26,3,3,"Impressive?");
   fixPrint(3,27,choice==0?2:6,3,"AN EXOTIC TRIP");
   fixPrint(3,28,choice==1?2:6,3,"MEET A CELEBRITY");
  }
  if(action==9)
  {
   fixPrint(1,26,4,3,"Well, there's nothing else I can do...");
   fixPrint(1,27,4,3,"I call the model and tell her that I");
   fixPrint(1,28,4,3,"can't find a girl for her.");
  }
  if(action==10)
  {
   fixPrint(1,27,4,3,"She's extremely disappointed. Probably");
   fixPrint(1,28,4,3,"doesn't want to work with me anymore.");
  }
  if(action==11)
  {
   fixPrint(1,28,4,3,"What a bummer!");
  }
  if(action==12)
  {
   fixPrint(1,27,4,3,"Looks like I'm gonna spend another");
   fixPrint(1,28,4,3,"night alone.");
  }
  if(action==13)
  {
   fixPrint(1,27,4,3,"And the worst is that it might hurt my");
   fixPrint(1,28,4,3,"reputation! Damn...");
  }
  if(action==14)
  {
   GameOver();
  }
 
  if(choice==0)
  {
   if(action==8)
   {
    avatar(4,1);
    fixPrint(1,28,3,3,"No, I'm not interested.");
   }
  }
  if(choice==1)
  {
   if(action==6)
   {
    avatar(4,2);
    fixPrint(1,27,3,3,"Sorry, but I don't think you know any");
    fixPrint(1,28,3,3,"famous people.");
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene3() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgC,1,23,0,0);
 palJobPut(23, BkgC.palInfo->count, BkgC.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=5
  if(action==5)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=10
  if(action==10)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=15
  if(action==15)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,28,4,3,"She catches my eye immediately.");
  }
  if(action==1)
  {
   avatar(2,1);
   fixPrint(1,28,3,3,"Hi! How's it going?");
  }
  if(action==2)
  {
   fixPrint(1,28,4,3,"I explain her the situation.");
  }
  if(action==3)
  {
   fixPrint(1,27,4,3,"She doesn't mind. The girl obviously");
   fixPrint(1,28,4,3,"likes me.");
  }
  if(action==4)
  {
   fixPrint(1,27,4,3,"Should I get to know her better when");
   fixPrint(1,28,4,3,"it's not too late?");
  }
  if(action==5)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"What do you think?");
   fixPrint(3,27,choice==0?2:6,3,"KEEP GOING TO YOUR PLACE");
   fixPrint(3,28,choice==1?2:6,3,"STAY HERE WITH HER");
  }
  if(action==10)
  {
   avatar(0,6);
   fixPrint(1,23,4,3,"Maybe I can do something to make her");
   fixPrint(1,24,4,3,"feel better?");
   fixPrint(3,25,choice==0?2:6,3,"LIGHT UP THE CANDLES AND POUR HER");
   fixPrint(3,26,choice==0?2:6,3,"SOME WINE");
   fixPrint(3,27,choice==1?2:6,3,"TURN OFF THE LIGHTS AND TURN ON");
   fixPrint(3,28,choice==1?2:6,3,"SOME MUSIC");
  }
  if(action==15)
  {
   avatar(0,5);
   fixPrint(1,24,4,3,"But I ran out of wine! Should I leave");
   fixPrint(1,25,4,3,"the girls and go to the local liqueur");
   fixPrint(1,26,4,3,"store?");
   fixPrint(3,27,choice==0?2:6,3,"NO. STAY HOME.");
   fixPrint(3,28,choice==1?2:6,3,"YES. GO TO THE STORE.");
  }
  if(action==17)
  {
   fixPrint(1,28,4,3,"The model is disappointed.");
  }
  if(action==18)
  {
   avatar(1,3);
   fixPrint(1,26,3,3,"If she leaves, then I'm gonna go with");
   fixPrint(1,27,3,3,"her. I thought I could count on you,");
   fixPrint(1,28,3,3,"but I was wrong.");
  }
  if(action==19)
  {
   action=0;
   Lose2();
  }
  if(action==20)
  {
   fixPrint(1,26,4,3,"Now I realize how much time has");
   fixPrint(1,27,4,3,"passed. I left the poor thing all");
   fixPrint(1,28,4,3,"alone!");
  }
  if(action==21)
  {
   fixPrint(1,27,4,3,"I run back home, hoping she's still");
   fixPrint(1,28,4,3,"there.");
  }
  if(action==22)
  {
   action=0;
   Lose1();
  }
 
  if(choice==0)
  {
   if(action==6)
   {
    fixPrint(1,28,4,3,"I pay and we go out.");
   }
   if(action==7)
   {
    scrollerInit(&sc,&BkgD,1,23,0,0);
    palJobPut(23, BkgD.palInfo->count, BkgD.palInfo->data);
   
    fixPrint(1,28,4,3,"The model is all horny, ready to play.");
   }
   if(action==8)
   {
    avatar(1,2);
    fixPrint(1,27,3,3,"I like your style! Come closer,");
    fixPrint(1,28,3,3,"baby...");
   }
   if(action==9)
   {
    fixPrint(1,27,4,3,"The chick from the club is a little");
    fixPrint(1,28,4,3,"timid.");
   }
   if(action==11)
   {
    action=15;
    choice=0;
   }
   if(action==16)
   {
    fixPrint(1,28,4,3,"''Sorry, I gotta go'', she says.");
   }
  }
  if(choice==1)
  {
   if(action==6)
   {
    fixPrint(1,27,4,3,"I'm flirting with her. She really does");
    fixPrint(1,28,4,3,"like me!");
   }
   if(action==7)
   {
    fixPrint(1,27,4,3,"We talk for a while. I tell her about");
    fixPrint(1,28,4,3,"my job. She seems interested.");
   }
   if(action==8)
   {  
    fixPrint(1,28,4,3,"Then she orders her favorite cocktail.");
   }
   if(action==9)
   {
    action=20;
   }
   if(action==11)
   {
    fixPrint(1,26,4,3,"It wouldn't change anything. She says");
    fixPrint(1,27,4,3,"''sorry, but I gotta go. It's too late");
    fixPrint(1,28,4,3,"now''.");
   }
   if(action==12)
   {
    action=17;
   }
   if(action==16)
   {
    action=23;
    wherefrom=1;
    fixPrint(1,28,4,3,"I take my wallet and go out.");
   }
   if(action==24)
   {
    action=0;
    Scene5();
   }
  }
  if(choice==2)
  {
   if(action==15)
   {
    action=7;
    choice=0;
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene2() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgE,1,23,0,0);
 palJobPut(23, BkgE.palInfo->count, BkgE.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=5
  if(action==5)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=11
  if(action==11)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=14
  if(action==14)
  {
   if(p1e&JOY_UP)
   {
    if(choice>=1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice<2) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,28,4,3,"I come across a sexy gal.");
  }
  if(action==1)
  {
   avatar(3,1);
   fixPrint(1,28,3,3,"Hey! How are you?");
  }
  if(action==2)
  {
   fixPrint(1,28,4,3,"I explain her the situation.");
  }
  if(action==3)
  {
   avatar(3,2);
   fixPrint(1,27,3,3,"OK, I got it... Looks like your friend");
   fixPrint(1,28,3,3,"want to have some fun.");
  }
  if(action==4)
  {
   fixPrint(1,27,4,3,"She thinks for a minute... But, no.");
   fixPrint(1,28,4,3,"She's not interested.");
  }
  if(action==5)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"What now?");
   fixPrint(3,27,choice==0?2:6,3,"FIND ANOTHER GAL");
   fixPrint(3,28,choice==1?2:6,3,"TRY TO CONVINCE HER");
  }
  if(action==7)
  {
   avatar(3,1);
   fixPrint(1,28,3,3,"Well, if you insist...");
  }
  if(action==8)
  {
   fixPrint(1,28,4,3,"I think my stubbornness turns her on.");
  }
  if(action==9)
  {
   avatar(3,3);
   fixPrint(1,26,3,3,"Honestly, I was just about to go to");
   fixPrint(1,27,3,3,"bed... But why not? It's gonna be fun");
   fixPrint(1,28,3,3,"I guess.");
  }
  if(action==10)
  {
   action=0;
   Home1();
  }
  if(action==11)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"Where to now?");
   fixPrint(3,27,choice==0?2:6,3,"TO THE CLUB");
   fixPrint(3,28,choice==1?2:6,3,"TO THE CAFE");
  }
  if(action==14)
  {
   avatar(0,5);
   fixPrint(1,24,4,3,"I try, but doesn't work out. Gotta");
   fixPrint(1,25,4,3,"find another girl. But where?");
   fixPrint(3,26,choice==0?2:6,3,"TO THE CLUB");
   fixPrint(3,27,choice==1?2:6,3,"TO THE CAFE");
   fixPrint(3,28,choice==2?2:6,3,"STAY IN THE PARK");
  }
 
  if(choice==0)
  {
   if(action==6)
   {
    action=11;
   }
   if(action==12)
   {
    fixPrint(1,28,4,3,"I go there.");
   }
   if(action==13)
   {
    action=0;
    Scene3();
   }
   if(action==15)
   {
    fixPrint(1,28,4,3,"It's not that far. Good.");
   }
   if(action==16)
   {
    action=0;
    Scene3();
   }
  }
  if(choice==1)
  {
   if(action==6)
   {
    action=14;
    choice=0;
   }
   if(action==12)
   {
    fixPrint(1,28,4,3,"I go there.");
   }
   if(action==13)
   {  
    action=0;
    Scene4();
   }
   if(action==15)
   {
    fixPrint(1,28,4,3,"It's not that far. Good.");
   }
   if(action==16)
   {
    action=0;
    Scene4();
   }
  }
  if(choice==2)
  {
   if(action==15)
   {
    action=7;
    choice=0;
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene1() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgB,1,23,0,0);
 palJobPut(23, BkgB.palInfo->count, BkgB.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
 
////////////Control////////////
//Select Options Action=2
  if(action==2)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=8
  if(action==8)
  {
   if(p1e&JOY_UP)
   {
    if(choice==1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice==0) choice++;
   }
  }
//Select Options Action=14
  if(action==14)
  {
   if(p1e&JOY_UP)
   {
    if(choice>=1) choice--;
   }
   if(p1e&JOY_DOWN)
   {
    if(choice<2) choice++;
   }
  }
////////////Control////////////
   
  if(action==0)
  {
   fixPrint(1,27,4,3,"Jeez! She's even more hot in person");
   fixPrint(1,28,4,3,"than she was in the pictures!");
  }
  if(action==1)
  {
   fixPrint(1,27,4,3,"I wonder if she would go with me on a");
   fixPrint(1,28,4,3,"date...");
  }
  if(action==2)
  {
   avatar(0,3);
   fixPrint(1,26,4,3,"What do you think I should do?");
   fixPrint(3,27,choice==0?2:6,3,"FLIRT WITH HER");
   fixPrint(3,28,choice==1?2:6,3,"CONCENTRATE ON WORK");
  }
  if(action==8)
  {
   avatar(0,4);
   fixPrint(1,25,4,3,"Damn it! Should I ask her to go");
   fixPrint(1,26,4,3,"somewhere chill instead?");
   fixPrint(3,27,choice==0?2:6,3,"DO IT.");
   fixPrint(3,28,choice==1?2:6,3,"NOT NOW. JUST LEAVE HER ALONE.");
  }
  if(action==14)
  {
   avatar(0,4);
   fixPrint(1,25,4,3,"Now where can I find a girl?");
   fixPrint(3,26,choice==0?2:6,3,"GO TO THE PARK");
   fixPrint(3,27,choice==1?2:6,3,"GO TO A CLUB");
   fixPrint(3,28,choice==2?2:6,3,"GO TO A CAFE");
  }
  if(action==15)
  {
   fixPrint(1,28,4,3,"I'm starting right away.");
  }
  if(action==16)
  {
   action=0;
   if(choice==0) Scene2();
   if(choice==1) Scene3();
   if(choice==2) Scene4();
  }
 
  if(choice==0)
  {
   if(action==3)
   {
    fixPrint(1,27,4,3,"I tell her that she has a gorgeous");
    fixPrint(1,28,4,3,"body.");
   }
   if(action==4)
   {
    fixPrint(1,25,4,3,"She seems to ignore my compliment. Of");
    fixPrint(1,26,4,3,"course she does! She probably hears");
    fixPrint(1,27,4,3,"those kinds of compliments all the");
    fixPrint(1,28,4,3,"time.");
   }
   if(action==5)
   {
    fixPrint(1,27,4,3,"Ok then. Let's just start doing my job");
    fixPrint(1,28,4,3,"before it gets even worse.");
   }
   if(action==6)
   {
    choice=1;
    action=3;
   }
   if(action==9)
   {
    fixPrint(1,27,4,3,"I smile at her warmly and promise her");
    fixPrint(1,28,4,3,"a night she'll never forget.");
   }
   if(action==10)
   {
    avatar(1,2);
    fixPrint(1,27,3,3,"Excuse me?! Don't you know that I");
    fixPrint(1,28,3,3,"don't do boys?!");
   }
   if(action==11)
   {
    fixPrint(1,26,4,3,"Looks like I really pissed her off.");
    fixPrint(1,27,4,3,"Now there's no chance I'm gonna seduce");
    fixPrint(1,28,4,3,"her.");
   }
   if(action==12)
   {
    fixPrint(1,27,4,3,"Bad move, buddy. Such things can ruin");
    fixPrint(1,28,4,3,"my entire carrier.");
   }
   if(action==13)
   {
    //clearFixLayer();
    GameOver();
   }
  }
  if(choice==1)
  {
   if(action==3)
   {
    fixPrint(1,27,4,3,"I'm setting up the camera and starting");
    fixPrint(1,28,4,3,"taking pictures.");
   }
   if(action==4)
   {
    fixPrint(1,26,4,3,"Now everything goes smoothly. Oh boy...");
    fixPrint(1,27,4,3,"She's such a beauty! And so");
    fixPrint(1,28,4,3,"professional!");
   }
   if(action==5)
   {  
    fixPrint(1,27,4,3,"After we're done I ask her what she's");
    fixPrint(1,28,4,3,"doing tonight.");
   }
   if(action==6)
   {
    avatar(1,2);
    fixPrint(1,27,3,3,"I'm looking for something hot ");
    fixPrint(1,28,3,3,"tonight... If you know what I mean.");
   }
   if(action==7)
   {
    choice=0;
    action=8;
   }
   if(action==9)
   {
    fixPrint(1,26,4,3,"She asks me if I know some hot girls.");
    fixPrint(1,27,4,3,"Oh my... Who would've thought she was");
    fixPrint(1,28,4,3,"into chicks?!");
   }
   if(action==10)
   {
    fixPrint(1,26,4,3,"I'm telling her that she can stay at");
    fixPrint(1,27,4,3,"my place while I go out and find her");
    fixPrint(1,28,4,3,"some pretty girl.");
   }
   if(action==11)
   {
    choice=0;
    action=14;
   }
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

void Scene0() {
 scroller sc;
 // short posX=0;
 // short posY=0;
 // ushort *data;
 // ushort flipMode=0;
 button_available=true;
 choice=0;
 action=0;
 
 clearFixLayer();
 scrollerInit(&sc,&BkgA,1,16,0,0);
 palJobPut(16, BkgA.palInfo->count, BkgA.palInfo->data);

 while(1) {
  SCClose();
  waitVBlank();
  Control_Sub();
   
  if(action==0)
  {
   fixPrint(1,27,4,3,"Hi! It's me, Casanova - a natural born");
   fixPrint(1,28,4,3,"pick-up artist!");
  }
 
  if(action==1)
  {
   fixPrint(1,27,4,3,"Not so long ago I became a");
   fixPrint(1,28,4,3,"professional photographer.");
  }
 
  if(action==2)
  {
   fixPrint(1,27,4,3,"And today I'm going to have a photo");
   fixPrint(1,28,4,3,"shoot with a famous fashion model.");
  }
 
  if(action==3)
  {
   fixPrint(1,26,4,3,"Well... Looks like I gotta go. It is");
   fixPrint(1,27,4,3,"extremely important and I can't be");
   fixPrint(1,28,4,3,"late.");
  }
 
  if(action==4)
  {
   clearSprites(1,21);
   SCClose();
   waitVBlank();
   action=0;
   Scene1();
  }
 
  //scrollerSetPos(&sc,posX,posY);
 }
}

int main(void) {
 int scrl_x=0;
 int scrl_y=0;
 short showdebug=false;
 scroller frontScroll;
 ushort *data;
 // ushort flipMode=0;
 
 send_sound_command(ADPCM_DR_LOVE);
 
 clearFixLayer();
 initGfx();

 palJobPut(0,8,fixPalettes);

 //if(setup4P())
 // fixPrint(2,4,7,3,"4P! :)");
 //else fixPrint(2,4,7,3,"no 4P :(");

 backgroundColor(0x7bbb);
 jobMeterSetup(true);

 scrollerInit(&frontScroll, &ffbg_b, 1, 16, scrl_x, scrl_y);
 //scrollerInitClipped(&frontScroll, &ffbg_b, 22, 16 + ffbg_a.palInfo->count, x, y, CLIPPING);
 palJobPut(16, ffbg_b.palInfo->count, ffbg_b.palInfo->data);

 data=dbgTags.maps[0];
 palJobPut(200,dbgTags.palInfo->count,&dbgTags.palInfo->data);
 SC234Put(VRAM_POSX_ADDR(200),VRAM_POSX(0));
 SC234Put(VRAM_POSY_ADDR(200),VRAM_POSY(224,SPR_UNLINK,0));
 SC234Put(VRAM_SPR_ADDR(200),data[4<<1]);
 SC234Put(VRAM_SPR_ADDR(200)+1,200<<8);
 SC234Put(VRAM_POSX_ADDR(201),VRAM_POSX(0));
 SC234Put(VRAM_POSY_ADDR(201),VRAM_POSY(224,SPR_UNLINK,0));
 SC234Put(VRAM_SPR_ADDR(201),data[40<<1]);
 SC234Put(VRAM_SPR_ADDR(201)+1,200<<8);
 SC234Put(VRAM_POSX_ADDR(202),VRAM_POSX(0));
 SC234Put(VRAM_POSY_ADDR(202),VRAM_POSY(224,SPR_UNLINK,0));
 SC234Put(VRAM_SPR_ADDR(202),data[40<<1]);
 SC234Put(VRAM_SPR_ADDR(202)+1,(200<<8)|FLIP_X);
 SC234Put(VRAM_POSX_ADDR(203),VRAM_POSX(0));
 SC234Put(VRAM_POSY_ADDR(203),VRAM_POSY(224,SPR_UNLINK,0));
 SC234Put(VRAM_SPR_ADDR(203),data[40<<1]);
 SC234Put(VRAM_SPR_ADDR(203)+1,(200<<8)|FLIP_Y);
 SC234Put(VRAM_POSX_ADDR(204),VRAM_POSX(0));
 SC234Put(VRAM_POSY_ADDR(204),VRAM_POSY(224,SPR_UNLINK,0));
 SC234Put(VRAM_SPR_ADDR(204),data[40<<1]);
 SC234Put(VRAM_SPR_ADDR(204)+1,(200<<8)|FLIP_XY);
 
 fixPrint(14,20,4,3,"PRESS START");
 
 while(1) {
  SCClose();
  waitVBlank();

  p1=volMEMBYTE(P1_CURRENT);
  p1e=volMEMBYTE(P1_EDGE);
  ps=volMEMBYTE(PS_EDGE);
 
  while((volMEMWORD(0x3c0006)>>7)!=0x120); //wait raster line 16
  jobMeterColor(JOB_BLUE);

  /*if((p1&JOY_UP)&&y>=176) y--;
  if((p1&JOY_DOWN)&&y<=220) y++;
  if((p1&JOY_LEFT)&&x>=32)
  {
   x--;
   flipMode|=FLIP_X;
   aSpriteSetFlip(&demoSpr,flipMode);
  }
  if((p1&JOY_RIGHT)&&x<=288)
  {
   x++;
   flipMode&=~FLIP_X;
   aSpriteSetFlip(&demoSpr,flipMode);
  }*/

 
  if(ps&P1_START) {
   clearSprites(1, 42);
   SCClose();
   waitVBlank();
   Scene6();
  }
 
  if(p1e&JOY_D) {
   if(showdebug) {
    //move debug stuff offscreen
    SC234Put(VRAM_POSY_ADDR(200),VRAM_POSY(224,SPR_UNLINK,0));
    SC234Put(VRAM_POSY_ADDR(201),VRAM_POSY(224,SPR_UNLINK,0));
    SC234Put(VRAM_POSY_ADDR(202),VRAM_POSY(224,SPR_UNLINK,0));
    SC234Put(VRAM_POSY_ADDR(203),VRAM_POSY(224,SPR_UNLINK,0));
    SC234Put(VRAM_POSY_ADDR(204),VRAM_POSY(224,SPR_UNLINK,0));
    fixJobPut(0,25,FIX_LINE_WRITE,0,_fixBlankLine);
    fixJobPut(0,26,FIX_LINE_WRITE,0,_fixBlankLine);
    fixJobPut(0,27,FIX_LINE_WRITE,0,_fixBlankLine);
    fixJobPut(0,28,FIX_LINE_WRITE,0,_fixBlankLine);
   }
   showdebug^=1;
  }

  //aSprite debug info
  /*if(showdebug) {
   jobMeterColor(JOB_BLACK);
   if(!(demoSpr.flags&AS_FLAG_STRICT_COORDS)) {
    if(demoSpr.currentFlip&FLIP_X) relX=x-((demoSpr.currentFrame->tileWidth<<4)+demoSpr.currentStep->shiftX)+1;
     else relX=x+demoSpr.currentStep->shiftX;
    if(demoSpr.currentFlip&FLIP_Y) relY=y-((demoSpr.currentFrame->tileHeight<<4)+demoSpr.currentStep->shiftY)+1;
     else relY=y+demoSpr.currentStep->shiftY;
   } else {
    relX=demoSpr.posX;
    relY=demoSpr.posY;
   }
   SC234Put(VRAM_POSX_ADDR(200),VRAM_POSX(x-3));
   SC234Put(VRAM_POSY_ADDR(200),VRAM_POSY(y-3,SPR_UNLINK,1));
   SC234Put(VRAM_POSX_ADDR(201),VRAM_POSX(relX));
   SC234Put(VRAM_POSY_ADDR(201),VRAM_POSY(relY,SPR_UNLINK,1));
   SC234Put(VRAM_POSX_ADDR(202),VRAM_POSX(relX+((demoSpr.currentFrame->tileWidth-1)<<4)));
   SC234Put(VRAM_POSY_ADDR(202),VRAM_POSY(relY,SPR_UNLINK,1));
   SC234Put(VRAM_POSX_ADDR(203),VRAM_POSX(relX));
   SC234Put(VRAM_POSY_ADDR(203),VRAM_POSY(relY+((demoSpr.currentFrame->tileHeight-1)<<4),SPR_UNLINK,1));
   SC234Put(VRAM_POSX_ADDR(204),VRAM_POSX(relX+((demoSpr.currentFrame->tileWidth-1)<<4)));
   SC234Put(VRAM_POSY_ADDR(204),VRAM_POSY(relY+((demoSpr.currentFrame->tileHeight-1)<<4),SPR_UNLINK,1));
   
   //debug live update prints = 1 frame ahead. meh.
   jobMeterColor(JOB_GREY);
   fixPrintf1(3,25,2,3,"Anim data: A:%02d S:%02d R:%02d   ",demoSpr.currentAnim,demoSpr.stepNum,demoSpr.repeats);
   fixPrintf1(3,26,2,3,"Step data: Frame:0x%06x",bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].frame);
   fixPrintf1(14,27,2,3,"SX:%04d SY:%04d D:%02d",
    bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].shiftX,
    bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].shiftY,
    bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].duration
   );
   fixPrintf1(2,28,2,3,"Frame data: W:%02d H:%02d TMAP:0x%06x",
    ((sprFrame*)(bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].frame))->tileWidth,
    ((sprFrame*)(bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].frame))->tileHeight,
    ((sprFrame*)(bmary_spr.anims[demoSpr.currentAnim][demoSpr.stepNum].frame))->maps[demoSpr.currentFlip]
   );
  }*/

 
  //scrollerSetPos(&frontScroll, scrl_x, scrl_y);
  //scrollerSetPosClipped(&frontScroll, x, y, CLIPPING);

  jobMeterColor(JOB_GREEN);
 }
}