IF Engine

{
    //Here I define the main parts of the story
    name = 'Mystery at Arkan';
    author = 'CaptainLepidus';
    intro = 'A whistle is blown. A sudden jolt makes you jump. The doors open, and you step outside. The heated train did not leave you prepared for the cold of the station. Gingerly, you rub your hands together.';
    var i , j , k;
    blank = '%blank%line';
    draw_set_color(c_white);
    draw_set_font(fnt_courier);
    //this is just the offset of the text
    off = 2;
    //alive/dead :P
    alive = 1;
    //
    //  Initialized the collection of lines for display
    //
    {
      global.maxline = room_height / string_height( '|' ) - 4;
      for (i=0; i<global.maxline; i+=1)
      {
        global.line[i] = blank;
        global.color[i] = c_black;
      }
    }
    //inventory
    {
      global.maxinv = 5;
      for (i=0; i<global.maxline; i+=1)
      {
        global.inv[i] = -1;
        global.invs[i] = -1;
      }
    }
    lx = global.maxline;
    quit = 0;
    //player start coords
    px = 10;
    py = 10;
    pz = 10;
    tx = px;
    ty = py;
    tz = pz;
    sz = pz;
    //world size
    h = 20;
    w = 20;
    d = 20;
    //this sets up the rooms
    for(k=0;k<=d;k=k+1)
    for(j=0;j<=h;j=j+1)
    for(i=0;i<=w;i=i+1)
    {
        zz[ i , j ] = j * w + i;
        nn[ zz[ i , j ] , k ] = '';
        rm[ zz[ i , j ] , k ] = '';
        so[ zz[ i , j ] , k ] = 1;
        sx[ zz[ i , j ] , k ] = 0;
        sy[ zz[ i , j ] , k ] = 0;
        sz[ zz[ i , j ] , k ] = 0;
        st[ zz[ i , j ] , k ] = '';
        se[ zz[ i , j ] , k ] = 0;
        de[ zz[ i , j ] , k ] = 0;
        rr[ zz[ i , j ] , k ] = 0;
    }
    //this is setting up all the rooms that I have defined, rooms are like rooms in GM
    sr( 0 , 0 , 0 , 'The station is a rather simple affair; merely a platform next to the tracks, which lie to the south. North is the town square. You can make out a few buildings, but a mist seems to pervade the town.' , 0 , 'Arkan Station' );
    sr( 0 , 1 , 0 , 'The tracks are set off a little below the platform. You are not worried, for trains passing through Arkan are rare. You caught the one you did through luck.' , 0 , 'Tracks' );
    sr( 0 , -1 , 0 , 'This is the upper part of the town square. A little grass patch in the center adds some green to the grey buildings surrounding it. West is the inn; something of an anachronism, perhaps, but then so is the entire town. East is a small, boarded up shop. North leads to the lower town square, and south leads to the train station.' , 0 , 'Arkan Upper Town Square' );
    set_code( 0 , -1 , 0 , 0 , - 1 , 0 , 'This is the upper part of the town square. A little grass patch in the center adds some green to the grey buildings surrounding it. West is the inn; something of an anachronism, perhaps, but then so is the entire town. East is a small, boarded up shop. North leads to the lower town square, and south leads to the train station.' , 3 , 1 );
    sr( 1 , -1 , 0 , 'You open the door to the inn. The warmth is a nice change from the cold of the outside. People crowd around small tables.' , 0 , 'Arkan Inn' );
    set_code( 1 , -1 , 0 , 1 , -1 , 0 , 'Inside the inn, people crowd around small tables.' , 8 , 1 );
    sr( 0 , -2 , 0 , 'You are standing in the lower section of the town square. You can see a church to the east and a bakers to the west. To the south is the bridge into the more "residential" area. To the north is the upper town square.' , 0 , 'Arkan Lower Town Square' );
    sr( -1 , -2 , 0 , 'No one is praying today. Despite the thick stone walls, the church feels no warmer then outside.' , 0 , 'Arkan Church' );
    sr( 0 , -3 , 0 , 'You stand upon the stone bridge that connects the upper and lower parts of Arkan. To the east and west there is water. To the south is the commercial area. To the north lies the houses.' , 0 , 'Arkan Bridge' );
    sr( 0 , -3 , -1 , 'The water is freezing cold. You can reach the bridge above.' , 0 , 'Beneath the Bridge' );
    sr( 0 , -4 , 0 , 'Water laps at the ground beneath you. A bridge stretches south from here towards the shops. A path leads north, and houses stretch out before you.' , 0 , 'River Banks' );
    sr( 0 , -5 , 0 , 'This is the central street; to the east and west, smaller streets are surrounded by shabby houses. The river bank is to the north.' , 0 , 'Central Street' );
    sr( -1 , -5 , 0 , "You stand in a narrow street, with houses towering above you. You're not sure exactly which way is which." , 0 , 'Narrow Street' );
    sr( 1 , -5 , 0 , "You stand in a narrow street, with houses towering above you. You're not sure exactly which way is which." , 0 , 'Narrow Street' );
    pm = 0;
    add_passage( 0 , -3 , -1 , 0 , -3 , 0 );
    im = 0;
    //This sets up some items, items are kinda similar to objects in GM
    trapdoor = create_item_talk( 'hatch' , 'A small trapdoor. It has a lock on it.' , 'Trapdoor' , "Despite the church being empty, you do not want to speak." );
    bartender = create_item( 'barkeep' , 'The bartender is a middle-aged, muscular man with brown hair.' , 'Bartender' , 0 , 0 , '' , "'Hey, I was wondering if you've heard of a man called-' you begin to speak." + chr( 10 ) + "The bartender cuts you off. 'Do you want a drink, or not?'" , 0 , '' , '' , "You don't think that's a good idea." );
    bartender2 = create_item_talk( 'barkeep' , 'The bartender is a middle-aged, muscular man with brown hair.' , 'Bartender' , "'I just wanted to ask-'" + chr( 10 ) + "'Well you can't. Now buy something or leave.' His voice takes on an all to aggressive tone, and you decide to back out." );
    bartender3 = create_item_talk( 'barkeep' , 'The bartender is a middle-aged, muscular man with brown hair.' , 'Bartender' , "You don't think that it's a good idea to ask for any more information from him. And you're not in the mood for a drink." );
    //This code configures how items will change when you talk to them-ie, talking to bartender changes him into a different type of bartender with a different response
    set_talk( bartender , bartender2 );
    set_talk( bartender2 , bartender3 );
    om = 0;
    //Objects are like instances, they can go in rooms and can be a particular object
    add_object( 1 , -1 , bartender , 1 , 'The bartender is bending over the bar.' , 0 );
    add_object( -1 , -2 , trapdoor , 1 , 'A slightly conspicuous trapdoor is fitted to the ground.' , 0 );
    cm = 0;
    jm = 0;
    //this lets you jump off things :D
    set_jump( 0 , -3 , 0 , 0 , -3 , -1 , 'You hit the water with a splash.' );
    em = 0;
    ec = 0;
    //Events are the little messages that will appear from time to time
    add_event( 'So, this is your first sight of Arkan. The train station is run down. No other passengers exited here. As you survey your surroundings, the train behind you takes off.' , 1 );
    add_event( "You review what you know. Jenny Roth asked you down here to investigate the disappearance of her husband. You are out of work, and you took the job, boring as it sounds." + chr( 10 ) + 'You shake your hands to warm them.' , 1 );
    add_event( "You had better get started, then. It might be a good idea to snoop around a bit, get a feel for the town." , 1 );
    //How to do looping: '',1|'message',1|'',2|'',-2|'message',-1
    add_event( '' , 1 );
    add_event( 'You shake your head, trying to clear it. The cold mist is giving you something of a headache.' , 1 );
    add_event( '' , 2 );
    add_event( '' , -2 );
    add_event( 'You rub your hands against the cold.' , -1 );
    add_event( 'Someone in the inn suddenly emits a laugh.' , 1 );
    add_event( '' ,1 );
    add_event( '' , 2 );
    add_event( '' , -2 );
    add_event( 'The inn quiets down for a moment, then goes back to its usual low hum of converation.' , -1 );
    add_lines( intro );
    add_lines( '%' + name + '%' + ' by ' + author );
    add_lines( 'If you are new to the game, you may want to type "help".' );
    add_lines( desc() );
}