The Dink Network

For Aghata Smallwood's Will the script is man-1.c here's how it looks like:

//Man who sells things
void talk(void)
{
    freeze(1);
    freeze(&current_sprite);
    say_stop("Hello", 1);
    say_stop("`7Hello and welcome to my shop!", &current_sprite);
talk:
    choice_start()
    set_y 240
    set_title_color 15
    title_start()
    The old man's shop
    title_end()
    "Buy something!"
    "Chit-Chat"
    "Leave"
    choice_end()
    
    If (&result ==  1)
    {
        
        choice_start()
        set_y 240
        set_title_color 15
        title_start()
        The old man's shop
        title_end()
        (&haves == 0)"Buy a Shovel -  50 gold"
        (&haveb == 0)"Buy Rubber boots - 100 gold"
        (&havef == 0)"Buy Fireball spell - 100 gold"
        "Complain about prices"
        "Leave"
        choice_end()
        
        If(&result == 1)
        {
            If(&gold > 49)
            {
                &haves = 1;
                
                //add a shovel!
                add_item("item-sw1", 438, 7);
                int &junk = say_stop_xy("`%*ITEM ADDED: Shovel*", 0, 200);
                int &junk = say_stop_xy("`%*Try to use it at locations which look strange.*", 0, 250);
                &gold -= 50;
                &acg -= 50;
                unfreeze(1);
                unfreeze(&current_sprite);
                return;
            }
            else
            {
                say_stop("I can't afford that!", 1);
                goto talk;
            }
        }
        If(&result == 2)
        {
            if(&gold > 99)
            {
                &haveb = 1;
                add_item("boots", 438, 3);
                int &junk = say_stop_xy("`%*ITEM ADDED: Rubber boots*", 0, 200);
                int &junk = say_stop_xy("`%*With those you can walk in shalow water.*", 0, 250);
                int &junk = say_stop_xy("`%*Note: you can keep them in your invetory and still use them*", 0, 300);
                &gold -= 100;
                &acg -= 100;
                unfreeze(1);
                unfreeze(&current_sprite);
                goto leave;
            }
        }
        If(&result == 3)
        {
            If(&gold > 99)
            {
                &havef = 1;
                add_magic("item-fb",437, 1);
                &gold -= 100;
                &acg -= 100;
                unfreeze(1);
                unfreeze(&current_sprite);
                return;
            }
            else
            {
                say_stop("I can't afford that!", 1);
                goto talk;
            }
        }
        If(&result == 4)
        {
            say_stop("I don't have that kind of money!", 1);
            say_stop("`7Then you should get some money,", &current_sprite);
            say_stop("`7I'm sure there are many villagers around here", &current_sprite);
            say_stop("`7That are more than willing to give you a job.",&current_sprite);
            say_stop("But I hate working!", 1);
            say_stop("`7That's life.", &current_sprite);
            unfreeze(1);
            unfreeze(&current_sprite);
            goto talk;
        }
        If(&result == 5)
        {
            unfreeze(1);
            unfreeze(&current_sprite);
            return;
        }
    }
    If (&result ==  2)
    {
        say_stop("So... what do you do for a living?", 1);
        say_stop("`7I sell things.", &current_sprite);
        say_stop("Like what?", 1);
        say_stop("`7Shovels, Spells and Boots ", &current_sprite);
        say_stop("Hyper Boots?", 1);
        say_stop("`7No, Rubber Boots. With those you can walk in water without getting wet.", &current_sprite);
        say_stop("Awesome!", 1);
        goto talk;
    }
    If (&result ==  3)
    {
        leave:
        unfreeze(1);
        unfreeze(&current_sprite);
        return;
    }
}