Fun Online 1997 April/FOL0497.iso/win95/tvml.z/atlas.tvm

Text File | 1997-02-27 | 185KB | 8,286 lines

local

    int    bit_type=8
    int    yes=1,no=0
    int    cd_virsion=yes
    int     make_3ds_to_bin=no
    int    busy_mover
    int    interface_on_screen
    int    popups_are_on
    int    new_index[0]
    int    old_index[266]

    int    text_down_id
    int    text_up_id
    int    change_text

    int    tile_game_left
    int    tile_game_right


    int    test_prog=1
    int    loadphoto
    int    big_start
    int    tile_speed
    int     random_moves
    int    exit_tile
    int    total_moves
    int    help_game1
    int    help_id_on


    int    fun_facts_on[270]
    int    kf_pic_on[270]
    int     kf_txt_on[270]
    int     pic_txt_on[270]


    int    rnd_pic_check[266]
    int    rnd_pic_cnt
    int    af_pic_on[266]
    int    af_txt_on[266]
    int    da_txt_on[266]
    int    vid_txt_on[266]

    int    last_cap_count
    int    set_up_film
    int    popup_the_sprite
    int    small_map1
    int    small_map2
    int    small_map3
    int    small_map4

    int    flag_id_on
    int    photo_id_on


    int     last_sprite_country

    int    up_id_on
    int    down_id_on
    int    list_id_on
    int    fun_id_on
    int    d3_id_on
    int    where_id_on
    int    zoom_id_on
    int    country_left_id
    int    country_right_id
    int    back_button_id



    int    flag_id_on_main
    int    photo_id_on_main
    int    up_id_on_main
    int    down_id_on_main
    int    list_id_on_main
    int    fun_id_on_main
    int    d3_id_on_main
    int    where_id_on_main


    int    country_left_id_main
    int    country_right_id_main
    int    back_button_id_main

    int    zoom_id_on_main




    int    bar_map1
    int    bar_map2
    int    bar_map3
    int    bar_map4

    int    current_bar_c

    int    bar_text_map1
    int    bar_text_map2
    int    bar_text_map3
    int    bar_text_map4
    int    bar_text_map_lable

    photo_cr as string[300]
    circle_id as int[10]
    flood_id as int[10][10]
    lable_id as int[10][10]
    line_id as int[10][10]

    cir_key as int[10]
    cir_cir as int[10]
    cir_cir_fill as int[10]

    not_avail1 as int[5]
    not_avail2 as int[5]

    int    small_start
    int    country_set
    int    combo_small_start
    int    combo_small
    int    combo_big_start
    int    combo_big
    int    sprites_on
    int    loadphoto_l
    int    flag_hold,dummy
    int    count_key_facts
    load_ext as filename
    int     objHTMLBox1
    int     objHTMLBox2
    int     objHTMLBox3
    load_ext2 as filename
    load_ext3 as filename
    load_ext4 as filename
    load_3ds_cd_files as filename
    int    id,id1,id2,count_extra,count,letter_count,next_image,new_number,x,y,l,count_c
    int    radius,start_x,start_y,mode,sect,p_count,draw_first,max_des_key
    int    world_map=-1,large_text_button=4,large_pic=2,big=100,small=1,games=11,fun_facts=12
    int    show_dates=14,show_amasing=15,show_film=16,games1=21,games2=22
    int    down=1,up=0,where=9,a
    int    graph[5],red[11],green[11],blue[11],pie_desc[11],pie_number[11],pie_number_old[11],total_slides[300]
    int    land_name[300][6],land_number[300][6],labor_name[300][10],labor_number[300][10]
    int    rel_name[300][10],rel_number[300][10]

    key_facts_local as filename
    key_facts as filename
    key_facts_vid as filename

    int    show_3d_interface
    int    total_images,count3,count2,def_count,count_pos,line_pos
    int    CurrentObject=1
    read_text as string[25]
    int    click_it[200]
    int    play_it[200]
    int    on_3d
    int    check_text
    int    show_flag

    int    show_where
    string abc
    string overview[10]
    int    total_over

    int    map_on_screen
    int    flag_on_screen

    int    new_country_text
    int    loop_exit=0

    int     pop_up_small
    int     pop_up_big
    int    hit_3d=0

    int    show_3d[20]
    int    click3d

    string    show_3d_desc[30]


    string    small_cap[0],large_cap[0]

    string    popup_cap_l[830],popup_cap_s[830]

    float    one_rad,angle,flood_angle,total_angle,new_x,new_y,lable_x,lable_y,max,form,check_the_per
    float    the_per[5],bar1[5],old_max

    filename country,check_file,menu_load,file_name

    string    country_code,check,slide_txt,current_country,header_top,header_text
    string    area[266],prod[300],pop[300],graph_name[5],country_list[300],number[10],name[10],des_key[11]
    string    list_1[0],list_2[0],list_3[0]

    server_icons as filename
    server_cache as filename
    server as filename
    server_local as filename
    server_sounds as filename
    server_maps as filename
    server_menu as filename
    server_games as filename
//    the_main_path as filename =`http://194.80.180.23/web/`
    the_main_path as filename =`http://www.fol.de/`



    main as string
    new_line as string
    total_lines as string[100]
    total    as int
    stop_scroll as int
    int line_cnt
    int new_len
    int current_pos
    main2 as string
    int lines_shown




    include `apps\world\data-ge.tvm`

    include `apps\world\games\global.tvm`
    include `apps\world\games\grid.tvm`
    include `apps\world\games\quick.tvm`



//    include `apps/world/newworld/code/rwvars.tvm`


/**************** Renderware ******************/

    const
        boolean WantRenderWareModels = false
        boolean WantRenderWareConvertMessages = false
        boolean animtest = false

        boolean CreateBinary = FALSE, LoadBinary = FALSE, AlwaysLoad = TRUE

        homepath as filename = ``
        CreateDir as filename = `c:\wolf\`
        LocalSource as boolean = TRUE

        LocalSourceDir as filename   = `apps/cache`
        RemoteSourceDir as filename  = the_main_path+`tvml/apps/world/newworld/3d`
//        RemoteSourceDir as filename = `http://www.mbay.net/~tvml/apps`

        LocalTextureDir as filename = `apps\world\textures\`
        RemoteTextureDir as filename = `http://www.tvml.co.uk/apps/wolf/maps/`

        MAXOBJECTS as int = 1
        MAXPARTS as int =300

        DEFAULT_WINDOW_WIDTH    as int=320
        DEFAULT_WINDOW_HEIGHT   as int=240

        MAXIMUM_WINDOW_WIDTH    as int=640
        MAXIMUM_WINDOW_HEIGHT   as int=480

    var
        int winxpos=14, winypos=65
        int xpos=0, ypos=0
//        int xpos=192, ypos=144
        int w=640, h=480

        SBI_FLAGS bi_default = BI_STATUS|BI_MENU
        SBI_FLAGS bi_flag = bi_default
        int SCX, SCY




    const
        int MAXROOMS = 500




    var
        filename RoomDir[MAXROOMS]
        filename RoomName[MAXROOMS]
        float Roomdata[MAXROOMS][4]
        Filename BackName[MaxRooms]
        int CurrentRoom, FirstRoom, LastRoom, NumberOfRooms
        RwReal pos[3]
        newroom as int

/**************** Renderware ******************/




    float ThisRoomData[4]

    boolean res
    int olddir = 1



// Room 3D


    /* Binary /text control flags */



const
    //int FastScale = 2, SlowScale = 1
    int FastScale = 2, SlowScale = 1
    DEFAULT_CAMERA_TILT     as RwReal = 0.0


    DEFAULT_STEP_HEIGHT     as RwReal = 0.3

    MAX_ANIM_TEXTURE        as int = 10
    MAXIMUM_OBJECTS            as int =200

            // Maximum forward speed of player

    // Freedom control constants

    int RotateX = 1, RotateY = 2, RotateZ = 4
    int MoveX   = 8 , MoveY   =16, MoveZ   =32
    int RotateXYZ = RotateX|RotateY|RotateZ
    int MoveXYZ   = MoveX|MoveY|MoveZ

    /* What kind of action to take on mouse events. */
    int MMNoAction=0, MMPanAndZoomCamera =1, MMTiltCamera =2, MMHeightCamera =3, MMRotateClump=4, MMMoveClump=5,MMRotateClumpX =6,MMRotateClumpY =7,MMRotateClumpZ=8

var
    MaxSpeed as RwReal = 0.4
//    RwStream BStream
    depth as int
    ModelHeight as RwReal
    VScale as int = SlowScale
    RwReal ZoomScale = 1.0
    boolean fast=false, Zoom=false, crouch=false, torch=false, ghost=false

    boolean userw = true

    RwLight TorchLight

    appdir  as filename
    appname as filename

    Destroyed as boolean=FALSE

    TimerActive as boolean

    RoomExitFlag as int
    DEFAULT_CAMERA_HEIGHT   as RwReal = 1.2
    DEFAULT_COL_HEIGHT    as RwReal =DEFAULT_CAMERA_HEIGHT - DEFAULT_STEP_HEIGHT
    MovementSpeed as RwReal

var
    at as RwReal[3]
    Scene as RwScene
    Camera as RwCamera

    MouseMoveMode as int = MMNoAction

    int StartX ,StartY ,LastX ,    LastY ,    Width ,    Height, FirstX, FirstY

    CamZDelta as RwReal
    CamPanDelta as RwReal
    CamTilt  as RwReal = DEFAULT_CAMERA_TILT

    DragClump as RwClump
    RoomClump as RwClump

    Name3d as RwClump

    RwReal fforward, pan, floorheight = DEFAULT_CAMERA_HEIGHT

    boolean ThreeDInitialized, RoomInitialized

    TextureArray as RwTexture[MAX_ANIM_TEXTURE]
    TextureCount as int = 0

    BBoxList     as RwReal[MAXIMUM_OBJECTS][2][3]

    BBoxList2    as RwReal[MAXIMUM_OBJECTS][2]
    BBoxList2Index as int

    objTagsN    as int    [MAXOBJECTS]
    objTags        as string [MAXOBJECTS][1 to MAXPARTS]
    //filename BACKDROPFILENAME        =`back.bmp`
    filename BACKDROPFILENAME        =`land.bmp`
    RwRaster *backdrop

//    include `apps\world\newworld\code\3dstring.tvm`

sub printrwerror( str as string )
    print str, " ", RwStrError( RwGetError() ), "\n"
endsub

//    include `apps\newworld\code\room3.tvm`

/**********************************************************************
 *
 * File :     room.tvm
 *
 * Abstract : RenderWare room demo for TVML
 *
 **********************************************************************
 *
 * This file is a product of TVML Ltd.
 *
 * This file is provided as is with no warranties of any kind and is
 * provided without any obligation on TVML Ltd.
 *
 * TVML Ltd. will not, under any circumstances, be liable for any
 * lost revenue or other damages arising from the use of this file.
 *
 * Copyright (c) 1995 TVML Ltd
 *
 * All Rights Reserved.
 *
 * RenderWare is a trademark of Canon Inc.
 *
 ************************************************************************/

function ReadCompressedModel( rootfile as filename ) as RwClump
local
    cmpfile as filename
    binfile as filename
    int err
    RwStream B
    RwClump clump=NULL
    str as string
    int ctype
end local

    if depth = 8 then
        cmpfile = rootfile + `8.cmp`
        binfile = rootfile + `8.bin`
    else
        cmpfile = rootfile + `16.cmp`
        binfile = rootfile + `16.bin`
    endif

    // compress will fetch from anywhere including across the net and report errors
//    print "Trying compressed source ", cmpfile, "\n"
//    err = compress ( cmpfile, binfile, TEXT, NONE, NONE )
    if !err then
        B = RwOpenStreamFilename( rwSTREAMREAD, binfile );
        if B == NULL then
            print "Error opening binary stream\n", binfile
            return NULL
        endif

        // skip TVML header
        err = !RwReadStream( B, str, 7 );

        err |= !RwReadStreamChunkType( B, CType )
        err |= !RwReadStreamChunk( B, rwCHUNKCLUMP,  Clump,  0 )
        if err then
            printrwerror( "Error reading clump chunk from binary " + string( binfile ) )
            return NULL
        endif

        RwCloseStreamFile( B )
    endif

    return clump

end function



function SaveAsBinary( clump as RwClump, where as filename ) as boolean
local
    RwStream B
    int ok
    int err
endlocal

    if depth = 8 then
        where += `8`
    else
        where += `16`
    endif

    B = RwOpenStreamFilename( rwSTREAMWRITE, where + `.bin` )

    if ( B == NULL ) then
        printrwerror( "Error opening stream for write ")
        return false
    endif

    ok = RwWriteStreamChunk( B, rwCHUNKCLUMP,  Clump,  rwSAVECHUNKALL );
    if !ok then
        printrwerror( "Error writing clump chunk")
        return false
    endif

    ok = RwCloseStreamFile( B );
    if !ok then
        printrwerror( "Error closing stream" ) ;
        return false
    endif

    err = compress (where + `.bin`, where + `.cmp`, TEXT, AHUFF, NONE )

    if err then
        print "Compress error", err, "\n"
        return false
    endif

    return true
end function




function OpenBinhary( cmpfile as filename, root as filename, depth inout int ) as RwStream
local
    srcfile as filename
    int err
end local

    srcfile = `apps\` + root
    mkdir srcfile

    srcfile += `\` + root
    if LocalSource then
        cmpfile += `\` + root + `\` + root
    else
        cmpfile += `/` + root + `/` + root
    endif

    RwGetDeviceInfo( rwRENDERDEPTH, depth )
    if depth = 16 then
        srcfile += `16.src`
        cmpfile += `16.cmp`
        print "Using 16-bit data\n"
    else
        srcfile += `8.src`
        cmpfile += `8.cmp`
        print "Using 8-bit data\n"
    endif

    print "Checking", srcfile, "\n"
    if AlwaysLoad || !checkfile( srcfile, exists ) then

        print "Decompressing", cmpfile, " to ", srcfile, "\n"
        err = compress ( cmpfile, srcfile, TEXT, NONE, NONE )
        if err then
            print "Error decompressing : ", err, "\n"
            remove( srcfile )
            return NULL
        endif
    endif

    return RwOpenStreamFilename( rwSTREAMREAD, srcfile )
end function


function GetMaxBBox( clump as RwClump, bll inout RwReal[3], fur inout RwReal[3] ) as RwClump
local
    RwReal bll1[3], fur1[3]
    int i
end local

    RwGetClumpBBox( clump, bll1, fur1 )
    for i = 0 to 2 loop
        bll[i] = fmin( [ bll1[i], bll[i] ] )
        fur[i] = fmax( [ fur1[i], fur[i] ] )
    end for

    return clump
end function



sub UpdateTorch( pos inout RwReal[3] )
local
    pos2 as RwReal[3]
end local

    RwSetLightPosition( TorchLight, pos[0], pos[1], pos[2] )
    RwGetCameraLookAt( Camera, pos2 )
    RwSetLightVector( TorchLight, pos2[0], pos2[1], pos2[2] )  //+random()
end sub


function CreateTorch() as boolean
    TorchLight = RwCreateLight(rwDirectional, -0.5, 1.0, 0.5, 1.0)
    if (TorchLight == NULL) then
        print "Error creating the RenderWare torch light\n"
        return FALSE
    endif

    RwSetLightColor( TorchLight, 0.3, 0.3, 0.3 )
    RwSetLightState( TorchLight, rwOFF )
//    RwSetLightConeAngle( TorchLight, 95.0 )
    RwAddLightToScene(Scene, TorchLight)
    return true
end function


sub SetViewport( vscale as int )
local
    int w, h
endlocal

    WinGetClientRect w, h
    RwSetCameraViewport(Camera, 0, 0, w/vscale, h/vscale )
    RwSetCameraBackdropViewportRect(Camera, 0, 0, w/vscale, h/vscale )
endsub


/**********************************************************************
 *
 * Functions.
 *
 **********************************************************************/


function AddAnimTextures(Texture as RwTexture ) as RwTexture
local
    str as string
endlocal

    if ( RwGetTextureNumFrames(Texture) > 1 ) then
        RwGetTextureName( texture, str )
        print textureCount, str, '\n'
        TextureArray[TextureCount++] = Texture
    endif
    return Texture
endfunction




function LoadTags( object as int, tagfile as filename ) as int
local
    oneline as string
    l as int
    tagstr as string
    tag as int
    n as int=0
end local

    tagfile += `.hdr`
    if checkfile( tagfile, exists ) then
        open tagfile for read as #1

        while not feof ( #1 ) loop
            oneline = inputline$( #1 )
            if left$( oneline, 12 ) = '#define TAG_' then
                l = len( oneline )
                oneline = right$( oneline, l - 12 )
                tagstr = substr$( ' ', oneline )
                oneline = left$( oneline, l - len( tagstr ) - 12 )
                input from tagstr, tag
                objTags[ object ][ tag ] = oneline
                n++
            end if
        end while

        close #1
    end if

    return n
end function


sub PrintTags( object as int, n as int )
local
    i as int
end local

    print n, "tags\n"
    for i=1 to n loop
        print using "'%d' '%s'\n", i, objTags[ object ][i]
    end loop

end sub


function fast_ LocalInit3D( ) as boolean
local
    rectright as int
    rectbottom as int
    Light as RwLight
    string str
    filename fname
    pos as RwReal[3]

    filename flamespath
    RwClump flames
endlocal

//    Set the shape path to enable texture loading

//    RwSetDebugTraceState rwON

    RwGetDeviceInfo( rwRENDERDEPTH, depth )

    RwSetShapePath(homepath + LocalTextureDir, rwREPLACE)
    RwSetShapePath(homepath + LocalSourceDir + appdir, rwPOSTCONCAT)
//    RwGetNamedTexture("face.bmp")
    Camera = RwCreateCamera(MAXIMUM_WINDOW_WIDTH, MAXIMUM_WINDOW_HEIGHT)
    if Camera == NULL then
        if RwGetError() == RwErrorCode'E_RW_NOMEM then
            print "Insufficient memory to create the RenderWare camera\n"
        else
            print "Error creating the RenderWare camera\n"
        endif
        return FALSE
    endif

    RwTiltCamera(Camera, CamTilt)
    //RwSetCameraBackColor(Camera, 0.5, 0.5, 1.0)
    RwSetCameraViewwindow(Camera, 1.0, 1.0)
        backdrop = RwReadRaster(BACKDROPFILENAME, rwGAMMARASTER | rwDITHERRASTER);
        ifc (backdrop != NULL)   PRINT "READ BACKDROP" RwSetCameraBackdrop(Camera, backdrop)
     RwSetCameraBackdropViewportRect(Camera,0,0,320,240);
    PRINT "HERE"
    RwSetCameraNearClipping( Camera, 0.03 )

    Scene = RwCreateScene()
    if Scene = NULL then
        print "Error creating the RenderWare scene\n"
        return FALSE
    endif

    //Light = RwCreateLight(rwDIRECTIONAL, 0.1, -1.0, -0.5, 1.0)
        Light = RwCreateLight(rwPoint, 0.3, 1.0, 2.5, 1.0)
    if Light == NULL then
        print "Error creating the RenderWare light\n"
        return FALSE
    endif

    //RwAddLightToScene(Scene, Light)

    if animtest then
        flamespath = `c:\rwwin\src\sample\rwmaze\`
        RwSetShapePath(flamespath + `TEXTURES`, rwREPLACE)
        RwSetShapePath(flamespath + `SCRIPTS`, rwPOSTCONCAT)
        flames = RwReadShape( `flames.rwx` )

        if flames == NULL then
            printrwerror( "Error reading flames clump" )
        else
            RwAddClumpToScene( Scene, flames )
            RwSetClumpDataInt( flames, 4 )
        endif
    endif

    WinGetClientRect rectright, rectbottom
    RwDeviceControl(rwWINSETOUTPUTSIZE, Camera, rectright, rectbottom)
    RwSetCameraViewport(Camera, 0, 0, rectright , rectbottom )

    if !CreateTorch() then
        return false
    endif

    ThreeDInitialized = TRUE

    return TRUE
endfunction

/**********************************************************************/

sub TidyUp3D()
    if Scene != NULL then
        RwDestroyScene(Scene)
    endif
    if Camera != NULL then
        RwDestroyCamera(Camera)
    endif
    RwClose
endsub
/**************************************************************************/

function fast_ AddObj( appdir as filename, appname as filename, height as RwReal, ix as RwReal, iy as RwReal, iz as RwReal, xpos as int, ypos as int ) as boolean
local
    RwConvertOptions opts = optPROTOTYPE|optCOMMENTS|optCENTRE//|optHEADER
    RwTexture cbTexture
    RwClump cbclump, clump

    RwReal scale
    int oldtag, newtag, n, i

    RwReal bll[3], fur[3]
endlocal
checkandreadpalette(server_local+`factor.pal`)

    Set3dsConvertOptions opts|optNORMALIZE, optTEXTUREEXT|optTEXTURE|optFORESHORTEN|optLit|optFIlter, optHS, 1.0, 1.0, 0.3, 0.59, 0.11, 0.5

    RoomClump = ReadCompressedModel(LocalSourceDir + appdir + `\` + appname)

    //RoomClump = Rw3dsReadShape(LocalSourceDir + appdir + `\` + appname + `.3ds`)
    //SaveAsBinary(RoomClump , LocalSourceDir + appdir + `\` + appname)



    if not WantRenderWareModels then
        remove LocalSourceDir + appdir + `\` + appname + `.rwx`        //may not exist but doesn't matter
    endif

    bll[0] = 0;        bll[1] = 5.5;        bll[2] = 0
    fur[0] = 0;        fur[1] = 0;        fur[2] = 0

    RwForAllClumpsInHierarchy( RoomClump, GetMaxBBox( cbclump, bll, fur ), cbclump )
    RwForAllClumpsInHierarchy( RoomClump, GetMaxBBox( cbclump, bll, fur ), cbclump )
    fur[1] -= bll[1]
    scale = Height/fur[1]
    scale = 0.2
    RwTranslateMatrix( RwScratchMatrix(), 0, -bll[1], 0, rwREPLACE )
    RwScaleMatrix( RwScratchMatrix(), scale, scale, scale, rwPOSTCONCAT )
    RwTransformClump( RoomClump, RwScratchMatrix(), rwPOSTCONCAT )

        RwAddClumpToScene(Scene, RoomClump)

end function


/**********************************************************************/

function fast_ AddRoom( appdir as filename, appname as filename, height as RwReal, ix as RwReal, iy as RwReal, iz as RwReal, xpos as int, ypos as int ) as boolean
local
    RwConvertOptions opts = optPROTOTYPE|optCOMMENTS|optCENTRE//|optHEADER
    RwTexture cbTexture
    RwClump cbclump, clump

    RwReal scale
    int oldtag, newtag, n, i

    RwReal bll[3], fur[3]
endlocal

    ifc(cd_virsion==no)
    {
        filecopy(remotesourcedir+`/`+appdir+`/`+appname+`.3ds`,localSourceDir+`/`+appdir+`/`+appname+`.3ds`)
    }





    checkandreadpalette(server_local+`factor.pal`)

    //default_Camera_height=RoomData[currentRoom][4]
    DEFAULT_COL_HEIGHT = DEFAULT_CAMERA_HEIGHT - DEFAULT_STEP_HEIGHT

    if RoomData[currentRoom] [0] >15 then
        MovementSpeed=100
        MaxSpeed=20.00
       else
        Movementspeed =500
        Maxspeed =0.2
        end if


    if RoomClump <> null then
        RoomInitialized = false
        RwDestroyClump( RoomClump )
        RoomClump = null
    endif

    if WantRenderWareConvertMessages then
        SetConvertMessageLevel enabled, rwCONVERTVERBOSE
    else
        SetConvertErrorLevel   disabled, rwCONVERTWARN
    endif

    Set3dsConvertOptions opts|optNORMALIZE, optTEXTUREEXT|optTEXTURE|optFORESHORTEN|optFilter, optHS, 1.0, 1.0, 0.3, 0.59, 0.11, 0.5
    ifc(cd_virsion==yes)
    {
        RoomClump = ReadCompressedModel(load_3ds_cd_files + appdir + `\` + appname)
    }
    else
    {
print "this is it ",LocalSourceDir + appdir + `\` + appname + `.3ds`
        RoomClump = Rw3dsReadShape(LocalSourceDir + `\` + appdir + `\` + appname + `.3ds`)
    }


    ifc(make_3ds_to_bin==yes)
    {
        RoomClump = Rw3dsReadShape(LocalSourceDir + appdir + `\` + appname + `.3ds`)
        if RoomClump != NULL then
            SaveAsBinary(RoomClump , LocalSourceDir + appdir + `\` + appname)
        endif
    }

    if (RoomClump == NULL) then
        print "Error reading Script\n"
        return FALSE
    endif

    //endif

//endloop
    n = LoadTags( 0, LocalSourceDir + appdir + `\` + appname )
    //remove LocalSourceDir + appname + appdir + `\` + `.hdr`
    objTagsN[ 0 ] = n


    if not WantRenderWareModels then
        //remove LocalSourceDir + appdir + `\` + appname + `.rwx`        //may not exist but doesn't matter
        null
    endif

    bll[0] = 0;        bll[1] = 0.5;        bll[2] = 0
    fur[0] = 0;        fur[1] = 0;        fur[2] = 0

    RwForAllClumpsInHierarchy( RoomClump, GetMaxBBox( cbclump, bll, fur ), cbclump )

    fur[1] -= bll[1]
    scale = Height/fur[1]
    RwTranslateMatrix( RwScratchMatrix(), 0, -bll[1], 0, rwREPLACE )
    RwScaleMatrix( RwScratchMatrix(), scale, scale, scale, rwPOSTCONCAT )
    RwTransformClump( RoomClump, RwScratchMatrix(), rwPOSTCONCAT )

    RwAddClumpToScene(Scene, RoomClump)

    if checkfile( LocalSourceDir + appdir + `\` + appname + `.dat`, exists ) then
        open LocalSourceDir + appdir + `\` + appname + `.dat` for read as #1
        while not feof( #1 ) loop
            input #1, oldtag, newtag
            Clump = RwFindTaggedClump( RoomClump, oldtag )
            if Clump != NULL then
//                print "Tagging ", oldtag, " as ", newtag, '\n'
                //RwSetClumpDataInt( Clump, newtag )
                null
            else
                print "Tag ", oldtag, " not found\n"
            end if
        end while
        close #1
    end if

    RwResetCamera(camera)
    CamTilt = DEFAULT_CAMERA_TILT
    RwTiltCamera(Camera, CamTilt)
    RwSetCameraPosition(Camera, ix, DEFAULT_CAMERA_HEIGHT+iy, -iz)
//    RwSetCameraLookAt( Camera, 0,0, 0 ) //-1

         // now add chappy to the scene

            //clump = ManSetup(LocalSourceDir, 0, int(iy)+2 , 0)

            //if clump != NULL then
            //    RwAddClumpToScene(scene, clump);
            //    print "add man"
            //    print RoomName[currentRoom]
            //end if



//    if !CreateTorch() then
//        return false
//    endif
        RwGetCameraPosition(Camera, pos )
        UpdateTorch( pos )
        RwSetLightState( TorchLight, rwON )

    RoomInitialized = true

    return true


end function


var
    boolean collided
    OldCameraPos as RwReal[3]
    CameraPos as RwReal[3]
    Camerabll as RwReal[3]
    Camerafur as RwReal[3]

    CameraPos2 as RwReal
    Camerabll2 as RwReal
    Camerafur2 as RwReal
    OldCameraPos2 as RwReal

    int CameraVX, CameraVY
    RwReal GroundHeight, OldGroundHeight


function printvec( vec inout RwReal[3] ) as string
    return print (vec[0], vec[1], vec[2])
endfunction


function OldCameraInsideBox( bll inout RwReal[3], fur inout RwReal[3] ) as boolean
    if OldCameraPos[0] <= bll[0] or OldCameraPos[0] >= fur[0]
    or OldCameraPos[1] <= bll[1] or OldCameraPos[1] >= fur[1]
    or OldCameraPos[2] <= bll[2] or OldCameraPos[2] >= fur[2] then
        return false
    else
        return true
    endif
end function


function BoxIntersectsCamera( bll inout RwReal[3], fur inout RwReal[3] ) as boolean
    if  ((Camerabll[0] >= bll[0] and Camerabll[0] <= fur[0]) or
         (Camerafur[0] >= bll[0] and Camerafur[0] <= fur[0]))
    and ((Camerabll[1] >= bll[1] and Camerabll[1] <= fur[1]) or
         (Camerafur[1] >= bll[1] and Camerafur[1] <= fur[1]))
    and ((Camerabll[2] >= bll[2] and Camerabll[2] <= fur[2]) or
         (Camerafur[2] >= bll[2] and Camerafur[2] <= fur[2])) then
        return true
    else
        return false
    endif
end function



function BoxCoaxialWithCameraY( bll inout RwReal[3], fur inout RwReal[3] ) as int
local
    total as int=0
end local

    if (Camerabll[0] >= bll[0] and Camerabll[0] <= fur[0]) or
       (Camerafur[0] >= bll[0] and Camerafur[0] <= fur[0]) then
        total += 1
    endif

    if (Camerabll[2] >= bll[2] and Camerabll[2] <= fur[2]) or
       (Camerafur[2] >= bll[2] and Camerafur[2] <= fur[2]) then
        total += 3
    endif

    // Reject clump that is above the camera
    if Camerafur[1] <= bll[1]  then
        total = 0
    endif

    return total = 4
end function



sub fast_ docollision( )
local
    RwReal bll[3], fur[3]
    RwClump child
end local

    child = RwGetFirstChildClump( RoomClump )
    collided = false

    while not collided and child <> NULL loop
        RwGetClumpBBox( child, bll, fur )

        if not OldCameraInsideBox( bll, fur ) and BoxIntersectsCamera( bll, fur ) then
            collided = TRUE



        endif

        child = RwGetNextClump( child )
    end while

//    if collided  then sound `apps/newworld/sound/hit.wav wave` end if
end sub



function FindFloor( CameraPos inout RwReal[3] ) as RwReal
local
    RwReal bll[3], fur[3]
    RwReal floor = -100.0, feet
    RwClump clump
end local

    if Crouch then
        feet = CameraPos[1] - DEFAULT_STEP_HEIGHT - DEFAULT_COL_HEIGHT/2
    else
        feet = CameraPos[1] - DEFAULT_STEP_HEIGHT - DEFAULT_COL_HEIGHT
    end if

    clump = RwGetFirstChildClump( RoomClump )
    while clump <> null loop
        RwGetClumpBBox( clump, bll, fur )

        if bll[0] <= CameraPos[0] and fur[0] >= CameraPos[0] and bll[2] <= CameraPos[2] and fur[2] >= CameraPos[2] then
            if fur[1] > floor and fur[1] <= feet + DEFAULT_STEP_HEIGHT then
                floor = fur[1]
            endif
        endif

        clump = RwGetNextClump( clump )
    end while

    if floor = -100.0 then
        return 0
    else
        return floor - feet
    endif
end function



sub MakeCameraBBox()
local
    const o1 as RwReal = 0.07
    const o2 as RwReal = 0.04
endlocal

    Camerabll[0] = CameraPos[0] - o2
    Camerafur[0] = CameraPos[0] + o2
    if Crouch then
        Camerabll[1] = CameraPos[1] - DEFAULT_COL_HEIGHT/2
    else
        Camerabll[1] = CameraPos[1] - DEFAULT_COL_HEIGHT
    end if

    Camerafur[1] = CameraPos[1] + o2
    Camerabll[2] = CameraPos[2] - o1
    Camerafur[2] = CameraPos[2] + o1

end sub


/*
 * Move the camera forward.  We cannot use RwVCMoveCamera() since the
 * camera is potentially tilted up or down - we want to move forward
 * only in the XZ plane.
 */

sub fast_ moveforward(fforward as RwReal)
local
    RwReal at[3],pos[3], floorheight
    RwClump cbclump, child
endlocal

    RwGetCameraLookAt(Camera, at)

    if fforward != 0 then
        if fforward > MaxSpeed then
            fforward = MaxSpeed
        elsif fforward < -MaxSpeed then
            fforward = -MaxSpeed
        endif

        RwGetCameraPosition( Camera, OldCameraPos )

        RwWCMoveCamera(Camera, at[0]*fforward, 0, at[2]*fforward )
        RwGetCameraPosition( Camera, CameraPos )

//        floorheight = FindFloor( CameraPos )

//        RwWCMoveCamera(Camera, 0, floorheight, 0 )
        MakeCameraBBox()

        docollision()

        if collided and not ghost then
            RwWCMoveCamera(Camera, -(at[0]*fforward), -floorheight, -(at[2]*fforward))
        endif
    end if


end sub



/*
 * Handle window resize. The most important job here is to change the
 * size of the camera's viewport (if preserving the aspect ratio of
 * the viewport is necessary, then the viewwindow should also be
 * changed at this point to reflect then new aspect ratio of the
 * viewport).
 */
sub fast_ HandleSize(width as int, height as int)

    /*
     * The window has been resized. Therefore, it is necessary to
     * to modify the camera's viewport to be the same size as the
     * client area of the window.
     */
    if width >400 then
          VScale = FastScale
          VScale = SlowScale
        else
          Vscale = SlowScale
    end if

    RwDeviceControl(rwWINSETOUTPUTSIZE, Camera, width, height)
    RwSetCameraViewport(Camera, 0, 0, width/VScale, height/VScale)
    RwSetCameraBackdropViewportRect(Camera, 0,0, width/VScale, height/VScale)

    /* viewwindow aspect ratio of 1:1 regardless of viewport aspect ratio */
/*    if ((width != 0) && (height != 0)) then
        if (width >= height) then
            RwSetCameraViewwindow(Camera, 1.0, (1.0*( float(height)/float(width) )) )
        else
            RwSetCameraViewwindow(Camera, (1.0*( float(width)/float(height) )), 1.0)
        endif
    endif
*/
    /*
     * Ensure the entire window is repainted. Note, we stop MS Windows
     * repainting the window as RenderWare paints the entire background.
     */
    WinInvalidateRect
endsub

/**********************************************************************/

/*
 * This functions handles the left mouse button going down. Its main
 * job is to determine the kind of action to be taken when the mouse
 * moves, such as spinning a clump, or panning the camera. This involves
 * examining the virtual keys that were depressed when the mouse button
 * went down and attempting to pick a clump under the mouse pointer
 * position.
 */
sub fast_ HandleLeftButtonDown(x as int, y as int , vKeys as int )

    if (vKeys & MK_DEFS'MK_CONTROL) then
        MouseMoveMode = MMHeightCamera
    elsif (vKeys & MK_DEFS'MK_SHIFT) then
        MouseMoveMode = MMTiltCamera
    else
        MouseMoveMode = MMPanAndZoomCamera
        fforward = 0.0
        pan = 14.0

        if !Fast then
            Vscale = SlowScale
        endif
    endif

    /*
     * If any form of action is to be taken on mouse move, remember the
     * the current x and y position of the mouse and capture future
     * mouse movement.
     */

    if (MouseMoveMode != MMNoAction) then
        WinSetCapture
        LastX = x
        LastY = y
        WinClientToScreen LastX, LastY

        StartX = x
        StartY = y
        WinClientToScreen StartX, StartY
    endif
endsub

/**********************************************************************/


sub fast_ HandleRightButtonDown(x as int, y as int, vkeys as int)
local
    vx as int
    vy as int
    vw as int
    vh as int

    XDelta as RwReal
    YDelta as RwReal

//pickrecord
    picktype as RwPickObject
    pickclump as RwClump
    pickpolygon as RwPolygon3d
    vindex as int
    d2 as int
    pickx as RwReal
    picky as RwReal
    pickz as RwReal
    tag as float
endlocal

    MouseMoveMode = MMNoAction

    if (Scene != NULL) then
        RwPickScene(Scene, x, y, Camera, picktype, pickclump, pickpolygon, vindex, d2, pickx, picky, pickz)

        if (Picktype == RwPickObject'rwPICKCLUMP) then
            /* The objects in the scene which are manipulatable are tagged with 2. */

            tag = RwGetClumpDataInt(Pickclump)
            //if tag then
                DragClump = Pickclump
                MouseMoveMode = MMMoveClump
                if int(tag) bitand RotateY  then
                        MouseMoveMode = MMRotateClumpY
                //sound `apps/newworld/sound/creak.wav wave`
                //newroom =1
                //currentRoom=10
                //elseif tag bitand (MoveX|MoveZ) then


                elseif

                      (vKeys & MK_DEFS'MK_CONTROL) then
                    MouseMoveMode = MMRotateClumpX
                elseif


                      (vKeys & MK_DEFS'MK_shift) then
                    MouseMoveMode = MMRotateClumpZ

                endif
            endif
        //endif
    endif

    if (MouseMoveMode != MMNoAction) then
        RwGetCameraViewport(Camera, vx, vy, vw, vh)
        FirstX = vx + (vw >> 1)
        FirstY = vy + (vh >> 1)
        WinClientToScreen FirstX, FirstY
        LastX = x
        LastY = y
        WinClientToScreen LastX, LastY

        WinSetCapture
    endif

endsub

/**********************************************************************/

/*
 * Handle a movement of the mouse. If a previous left or right mouse
 * button down event has set a mouse move mode then this function will
 * take the necessary actions. For example, pan and zooming the camera,
 * panning the light, dragging or spinning a clump etc.
 */
sub fast_ HandleMouseMove(x as int, y as int)
local
    centrex as int
    centrey as int

    foffx as float
    foffy as float
    width as int
    height as int
    offx as int
    offy as int
    boolean DummyBool
    //at as RwReal[3]
    RwReal hyp, cosangle
    RwMatrix4d mat, matr
    RwReal tlate[3]
    int OldVScale = VScale
    RwReal adj

    int dx, dy
    string tag

endlocal

    WinClientToScreen x, y
    RwGetCameraViewport(Camera, DummyBool, DummyBool, width, height)


    /* MouseMoveMode tells us what kind of action to perform. */

    if MouseMoveMode == MMPanAndZoomCamera then
        /*
         * We are panning and zooming the camera. Movement of the
         * mouse in the X direction will pan the camera about the
         * origin of world coordinate space, and movement of the mouse
         * in the Y direction will zoom the camera into and out of the
         * the scene.
         */
        /*
         * Pan the camera by mouse X delta degrees.
         */

        RwGetCameraPosition(Camera, at)

        pan = float(Startx - x) / 10.0
        fforward = float(Starty - y) / MovementSpeed

        pan /=ZoomScale

    elsif MouseMoveMode == MMHeightCamera then
        RwGetCameraPosition(Camera, at)
        adj = float(Lasty - y) / 50.0

        adj /= ZoomScale

        at[1] += adj
        RwSetCameraPosition( Camera, at[0], at[1], at[2] )
    elsif MouseMoveMode == MMTiltCamera then
        /*
         * Pan the camera by mouse X delta degrees.
         */
        RwRotateMatrix(RwScratchMatrix(), 0.0, 1.0, 0.0, float(LastX - x), rwREPLACE)
        RwTransformCameraOrientation(Camera, RwScratchMatrix())
        RwTiltCamera(Camera, float(y - LastY))

        RwGetCameraPosition( Camera, at )
        UpdateTorch( at )

    elsif MouseMoveMode == MMRotateClump then
        foffx = float(x - LastX)/ float(width)
        RwPushScratchMatrix()
        RwRotateMatrix(RwScratchMatrix(), (0.0), (0.0), (1.0), foffx * (180.0), rwREPLACE)
        RwTransformClumpJoint(DragClump, RwScratchMatrix(), rwPOSTCONCAT)
        RwPopScratchMatrix()

    elsif MouseMoveMode == MMRotateClumpx then
        foffx = float(x - LastX)/ float(width)
        RwPushScratchMatrix()
        RwRotateMatrix(RwScratchMatrix(), (1.0), (0.0), (0.0), foffx * (180.0), rwREPLACE)
        RwTransformClumpJoint(DragClump, RwScratchMatrix(), rwPOSTCONCAT)
        RwPopScratchMatrix()

 elsif MouseMoveMode == MMRotateClumpY then
        foffx = float(x - LastX)/ float(width)
        RwPushScratchMatrix()
        RwRotateMatrix(RwScratchMatrix(), (0.0), (1.0), (0.0), foffx * (180.0), rwREPLACE)
        RwTransformClumpJoint(DragClump, RwScratchMatrix(), rwPOSTCONCAT)
        RwPopScratchMatrix()

     elsif MouseMoveMode == MMRotateClumpZ then
        foffx = float(x - LastX)/ float(width)
        RwPushScratchMatrix()
        RwRotateMatrix(RwScratchMatrix(), (0.0), (0.0), (1.0), foffx * (180.0), rwREPLACE)
        RwTransformClumpJoint(DragClump, RwScratchMatrix(), rwPOSTCONCAT)
        RwPopScratchMatrix()

    elsif MouseMoveMode == MMMoveClump then
        foffx = float(x - LastX)/ float(width)
        foffy = float(y - LastY)/ float(height)
        RwGetCameraLookAt( Camera, at )
        hyp = sqrt( at[0]*at[0] + at[2]*at[2] )
        cosangle = at[2]/hyp

        tlate[0] = -foffx/(ZoomScale*4)
        tlate[1] = 0
        tlate[2] = -foffy/(ZoomScale*4)

        RwPushScratchMatrix()
        RwRotateMatrixCos( RwScratchMatrix(), 0,1,0, cosangle, at[0], rwREPLACE )
        RwTransformVector( tlate, RwScratchMatrix() )

        RwTranslateMatrix( RwScratchMatrix(), tlate[0], 0.0, tlate[2], rwREPLACE)
        RwTransformClump(DragClump, RwScratchMatrix(), rwPOSTCONCAT)
        RwPopScratchMatrix()
    endif

    /* Remember the current X and Y for next time. */
    LastX = x
    LastY = y
endsub

/**********************************************************************/

/*
 * Handle the left mouse button comming back up. The basic action is
 * to turn off mouse move actions and release mouse capture.
 */
sub fast_ HandleLeftButtonUp( )
    /*
     * If we were engaged in a mouse move action and the button has come
     * back up, then terminate the action and release mouse capture.
     */
    if (MouseMoveMode != MMNoAction) then
        MouseMoveMode = MMNoAction
        fforward = 0.0
        pan = 0.0

        if !Fast then
            Vscale = SlowScale
        endif

        WinReleaseCapture
    endif
endsub


/**********************************************************************/

/*
 * Handle the right mouse button comming back up. The basic action is
 * to turn of mouse move actions and release mouse capture.
 */
sub fast_ HandleRightButtonUp( )

    RwSetCameraLookUp(Camera, 0.0, 1.0, 0.0)

    /*
     * If we were engaged in a mouse move action and the button has come
     * back up, then terminate the action and release mouse capture.
     */
    if (MouseMoveMode != MMNoAction) then
        MouseMoveMode = MMNoAction
        fforward = 0.0
        pan = 0.0

        if !Fast then
            Vscale = SlowScale
        endif
//        DragClump = NULL
        WinReleaseCapture
    endif
endsub

/**********************************************************************/

/*
 * Handle window paint messages by re-rendering the entire scene and
 * copying the camera's entire viewport to the display.
 */
sub fast_ HandlePaint()
local
    int w, h
endlocal

    /*
     * As we are repainting the entire window we invalidate the
     * camera's viewport to ensure the whole window gets updated
     * (and not simply the parts that will be damaged by the render
     * operation).
     */

    WinGetClientRect w, h
    HandleSize( w, h )

    WinBeginPaint
    RwInvalidateCameraViewport(Camera)
    RwBeginCameraUpdate(Camera)
    RwClearCameraViewport(Camera)
    RwRenderScene(Scene)
    RwEndCameraUpdate(Camera)
    RwShowCameraImage(Camera)
    WinEndPaint
endsub



/*
 * Handle MS Window's timer expiry. This function will perform any
 * animation actions necessary, including spinning clumps and animating
 * textures.
 */
sub fast_ HandleTimer()
local
    int i
endlocal
        WinKillTimer 1
        TimerActive = false

//if update =1 then
    /* Perform any "momentum" camera moves. */
    if ( (pan != 0.0) || (fforward != 0.0) ) then
        RwRotateMatrix(RwScratchMatrix(), 0.0, 1.0, 0.0, pan, rwREPLACE)
        RwTransformCameraOrientation(Camera, RwScratchMatrix())
        moveforward(fforward)

    endif
    //flicker the torch !
//    RwSetLightColor( TorchLight, 1.0, 1.0, random() )
    RwGetCameraPosition(Camera, pos )
    UpdateTorch( pos )
    // move the man
    //ManUpdate()
    //AnimateRoom()
    forc (i = 0;  i < TextureCount; i++ )
        RwTextureNextFrame(TextureArray[i])

    RwInvalidateCameraViewport(Camera)
    RwBeginCameraUpdate(Camera)
    RwClearCameraViewport(Camera)
    RwRenderScene(Scene)
    RwEndCameraUpdate(Camera)
    RwShowCameraImage(Camera)
//end if

        WinSetTimer  1, 10
        TimerActive = true
endsub
/**********************************************************************/

sub RemoveEventHandlers( )
    OffWinEvent   WM_CREATE
    OffWinEvent   WM_SIZE
    OffWinEvent   WM_KEYDOWN
    OffWinEvent   WM_KEYUP
    OffWinEvent   WM_CHAR
    OffMouseEvent LBUTTONDOWN
    OffMouseEvent RBUTTONDOWN
    OffMouseEvent MOUSEMOVE
    OffMouseEvent LBUTTONUP
    OffMouseEvent RBUTTONUP
    OffWinEvent   WM_PAINT
    OffWinEvent   WM_TIMER
    OffWinEvent   WM_DESTROY
endsub


sub SetupEventHandlers( )
local
    key       as int
    Reason    as int
    NewSize   as BOOL
    NewWidth  as int
    NewHeight as int
    MouseXPos as int
    MouseYPos as int
    keys  as int
    dummy as BOOL
    timercount as int
    char  as int
    // RwReal pos[3]
endlocal

     OnWinEvent WM_CREATE, dummy, dummy, {
        break on
//        print "CREATE\n"
        WinSetTimer  1, 10
        TimerActive = true
        }

     OnWinEvent WM_SIZE, Reason, NewSize, {
        break off
//        print "SIZE\n"
        if RoomInitialized then
            NewWidth = NewSize & %xffff
            NewHeight = NewSize >> 16

            if Reason = SIZE_REASON'SIZE_MINIMIZED then
                if TimerActive then
                    WinKillTimer 1
                    TimerActive = false
                endif
            else
                if !TimerActive then
                    WinSetTimer 1, 10
                    TimerActive = true
                endif

                HandleSize( NewWidth, NewHeight)
            endif
        endif
        }


    OnMouseEvent LBUTTONDOWN, MouseXPos, MouseYPos, keys, {
        break on
//        print "LBUTTONDOWN\n"
        if RoomInitialized then
            HandleLeftButtonDown(MouseXPos/VScale, MouseYPos/VScale, keys)
        endif
        }

    OnMouseEvent RBUTTONDOWN, MouseXPos, MouseYPos, keys, {
        break on
//        print "RBUTTONDOWN\n"
        if RoomInitialized then
            HandleRightButtonDown(MouseXPos/VScale, MouseYPos/VScale, keys)
        endif
        }

    OnMouseEvent MOUSEMOVE, MouseXPos, MouseYPos, keys, {
        break on
//        print "MOUSEMOVE\n"
        if RoomInitialized then
            if MouseMoveMode != MMNoAction then
                HandleMouseMove(MouseXPos/VScale, MouseYPos/VScale)
            endif
        endif
        }

    OnMouseEvent LBUTTONUP, MouseXPos, MouseYPos, keys, {
        break on
//        print "LBUTTONUP\n"
        if RoomInitialized then
            HandleLeftButtonUp()
        endif
        }

    OnMouseEvent RBUTTONUP, MouseXPos, MouseYPos, keys, {
        break on
//        print "RBUTTONUP\n"
        if RoomInitialized then
            HandleRightButtonUp()
        endif
        }

    OnWinEvent WM_PAINT, dummy, dummy, {
        break on
//        print "PAINT\n"
        if ThreeDInitialized then
            HandlePaint()
        endif
        }

    OnWinEvent WM_TIMER, dummy, dummy, {
        break on

    if newroom then
    NewRoom=0


        res = AddRoom(    RoomDir[CurrentRoom], RoomName[CurrentRoom],
                    RoomData[CurrentRoom][0], RoomData[CurrentRoom][1],
                    RoomData[CurrentRoom][2], RoomData[CurrentRoom][3], xpos, ypos)




    endif
        if RoomInitialized then
            HandleTimer()
        endif


        }

    OnWinEvent WM_DESTROY, dummy, dummy, {
        break off
//        print "DESTROY\n"

        RemoveEventHandlers()
        WinKillTimer 1
/*        if ThreeDInitialized then
            TidyUp3D()
//            Discard3dChars()
        endif

        DeinitRw()
*/        Destroyed = TRUE
        RoomExitFlag = KEYCODE'KEY_END
        }


//     OnWinEvent WM_KEYDOWN, key, dummy, {
//        break on
//        print "KEYDOWN", key, "\n"
//
//        if RoomInitialized then
//            if keycode'( key = key_home or key = key_end or key = key_left or key = key_right or key = key_up or key = key_pgup or key = key_pgdn) then
//                //RoomExitFlag = key
//                    WinKillTimer 1
//                     TimerActive = false
//                     WinShowWindow 0,hide
//                    wait 100
//
//            endif
//
//        endif
//        }
/*
     OnWinEvent WM_KEYUP, char, dummy, {
        break on
        print "KEYUP", char, "\n"
        }
*/
     OnWinEvent WM_CHAR, char, dummy, {
        break on
//        print "CHAR", char, "\n"
        if RoomInitialized then
            if(char == asc('z') || char == asc('Z')) then
                Zoom = !Zoom

                if Zoom then
                    ZoomScale = 4.0
                else
                    ZoomScale = 1.0
                endif

                RwSetCameraViewWindow( Camera, 1/ZoomScale, 1/ZoomScale )

            elsif(char == asc('c') || char == asc('C')) then
                Crouch = !Crouch

                RwGetCameraPosition(Camera, pos )
                if Crouch then
                    pos[1] = pos[1]-DEFAULT_COL_HEIGHT/2
                else
                    pos[1] = pos[1]+DEFAULT_COL_HEIGHT/2
                endif

                RwSetCameraPosition(Camera, pos[0], pos[1], pos[2] )
                UpdateTorch( pos )

            elsif(char == asc('u') || char == asc('U')) then
                Crouch = false
                Zoom = false

                RwSetCameraViewWindow( Camera, 1.0, 1.0 )

                RwGetCameraPosition(Camera, pos )
                pos[1] = DEFAULT_CAMERA_HEIGHT
                RwSetCameraPosition(Camera, pos[0], pos[1], pos[2] )
                UpdateTorch( pos )

            elsif ( char == asc('t') || char == asc('T') ) then
                Torch = !Torch

                if Torch then
                    RwGetCameraPosition(Camera, pos )
                    UpdateTorch( pos )
                    RwSetLightState( TorchLight, rwON )

                else
                    RwSetLightState( TorchLight, rwOFF )
                endif

            elsif ( char == asc('g') || char == asc('G') ) then
                Ghost = !Ghost

            elsif ( char == asc('r') || char == asc('R') ) then
                Crouch = false
                Zoom = false
                ghost = false

                RwResetCamera( Camera )
                RwGetCameraPosition(Camera, pos )
                pos[1] = DEFAULT_CAMERA_HEIGHT
                RwSetCameraPosition(Camera, pos[0], pos[1], pos[2] )
                UpdateTorch( pos )

            elsif(char == asc('f') || char == asc('F')) then
                Fast = !Fast

                if Fast then
                    VScale = FastScale
                else
                    Vscale = SlowScale
                endif

                SetViewport( VScale )

            elsif(char == asc('a') || char == asc('A')) then

                RwGetCameraPosition(Camera, pos )
            print "x ",pos[0]," y ",pos[1]," z ",pos[2],"\n"




            elseif char = asc(' ') then
                    newroom =1
                    currentRoom++


        endif
        endif
    }

endsub

/**********************************************************************/

initcode as int


function fast_ StartRoom( app as string ) as boolean
    destroyed = false

    SetupEventHandlers()
    //WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_CAPTION
    initcode = InitRw(app, WS_MAXIMIZEBOX|WS_POPUP,
             winxpos+xpos, winypos+ypos, DEFAULT_WINDOW_WIDTH, DEFAULT_WINDOW_HEIGHT, MAXIMUM_WINDOW_WIDTH , MAXIMUM_WINDOW_HEIGHT )

    if initcode > 0 then
        print "InitRw() failure code", initcode, "\n"
        RemoveEventHandlers()
    else
        if initcode = -1 then
            print "Display not running in a native RenderWare depth of 8 or 16 bits\n"
        endif

        if ! LocalInit3D( ) then
            print "LocalInit3D() failed\n"
            WinClose
        else
            LocalInitDoneRw
            return true
        endif
    endif

    return false
end function

sub ShutdownRoom()



    if ThreeDInitialized then
        winclose
        timerActive = false
        loop
            null
        until destroyed

        tidyup3d()

        deinitrw()
    endif




    //WinKillTimer 1
     //TimerActive = false
     //WinShowWindow 0,hide
    //wait 100
    //if ThreeDInitialized then
    //    TidyUp3D()
        //Discard3dChars()
        //ManDestroy()
    //endif

    //DeinitRw()
    //wait 1000
end sub


//    include `apps/world/newworld/code/vr.tvm`
    sub InitRoomData()
    local
        int i,j
    endlocal

        for i=0 to MAXROOMS-1 loop
            RoomData[i][0] = 16.0
            for j=1 to 3 loop
                RoomData[i][j] = 0
            endfor
        endfor

        // Room names
        FirstRoom = 0

        RoomDir[0] = `encyone`
        RoomDir[1] = `encyone`
        RoomDir[2] = `encyone`
        RoomDir[3] = `encyone`
        RoomDir[4] = `encyone`
        RoomDir[5] = `encyone`

        RoomDir[6] = `encyone`
        RoomDir[7] = `encyone`
        RoomDir[8] = `encyone`
        RoomDir[9] = `encyone`
        RoomDir[10] = `encyone`

        RoomDir[11] = `encyone`
        RoomDir[12] = `encyone`
        RoomDir[13] = `encyone`
        RoomDir[14] = `encyone`
        RoomDir[15] = `encyone`

        RoomDir[16] = `encyone`
        RoomDir[17] = `encyone`
        RoomDir[18] = `encyone`
        RoomDir[19] = `encyone`
        RoomDir[20] = `encyone`

        RoomDir[21] = `encyone`
        RoomDir[22] = `encyone`
        RoomDir[23] = `encyone`
        RoomDir[24] = `encyone`
        RoomDir[25] = `encyone`

        RoomDir[26] = `encyone`
        RoomDir[27] = `encyone`
        RoomDir[28] = `encyone`
        RoomDir[29] = `encyone`
        RoomDir[30] = `encyone`

        RoomDir[31] = `encyone`
        RoomDir[32] = `encyone`
        RoomDir[33] = `encyone`
        RoomDir[34] = `encyone`
        RoomDir[35] = `encyone`

        RoomDir[36] = `encyone`
        RoomDir[37] = `encyone`
        RoomDir[38] = `encyone`
        RoomDir[39] = `encyone`
        RoomDir[40] = `encyone`


        RoomDir[41] = `encyone`
        RoomDir[42] = `encyone`
        RoomDir[43] = `encyone`
        RoomDir[44] = `encyone`
        RoomDir[45] = `encyone`

        RoomDir[46] = `encyone`
        RoomDir[47] = `encyone`
        RoomDir[48] = `encyone`
        RoomDir[49] = `encyone`
        RoomDir[50] = `encyone`

        RoomDir[51] = `encyone`
        RoomDir[52] = `encyone`
        RoomDir[53] = `encyone`
        RoomDir[54] = `encyone`
        RoomDir[55] = `encyone`
        RoomDir[56] = `encyone`

        RoomDir[57] = `encyone`
        RoomDir[58] = `encyone`
        RoomDir[59] = `encyone`
        RoomDir[60] = `encyone`
        RoomDir[61] = `encyone`
        RoomDir[62] = `encyone`
        RoomDir[63] = `encyone`
        RoomDir[64] = `encyone`
        RoomDir[65] = `encyone`
        RoomDir[66] = `encyone`
        RoomDir[67] = `encyone`
        RoomDir[68] = `encyone`
        RoomDir[69] = `encyone`
        RoomDir[70] = `encyone`
        RoomDir[71] = `encyone`
        RoomDir[72] = `encyone`
        RoomDir[73] = `encyone`
        RoomDir[74] = `encyone`
        RoomDir[75] = `encyone`








        backName[1]=`bskyh.bmp` //1
        backName[2]=`bskyh.bmp` //1
        backName[3]=`bskyf.bmp` //1
        backName[4]=`bskyf.bmp` //1
        backName[5]=`bkgnd.bmp` //1
        backName[6]=`bkgnd.bmp` //1
        backName[7]=`bskyf.bmp` //1
        backName[8]=`bskyh.bmp` //1
        backName[9]=`bkgnd.bmp` //1
        backName[10]=`bskyh.bmp` //1
        backName[11]=`bskyh.bmp` //1
        backName[12]=`bskyn.bmp` //1
        backName[13]=`bkgnd.bmp` //1
        backName[14]=`bskyh.bmp` //1
        backName[15]=`bkgnd.bmp` //1
        backName[16]=`bkgnd.bmp` //1
        backName[17]=`bskyh.bmp` //1
        backName[18]=`bkgnd.bmp` //1
        backName[19]=`bskyh.bmp` //1
        backName[20]=`bktara.bmp` //1
        backName[21]=`bskyF.bmp` //1
        backName[22]=`bskyF.bmp` //1
        backName[23]=`bskyh.bmp` //1
        backName[24]=`bkgnd.bmp` //1
        backName[25]=`bkgnd.bmp` //1
        backName[26]=`bskyF.bmp` //1
        backName[27]=`bskyF.bmp` //1
        backName[28]=`bkgnd.bmp` //1
        backName[29]=`bkgnd.bmp` //1
        backName[30]=`bkgnd.bmp` //1
        backName[31]=`bskyh.bmp` //1
        backName[32]=`bkgnd.bmp` //1
        backName[33]=`bskyF.bmp` //1
        backName[34]=`bkgnd.bmp` //1
        backName[35]=`bkgnd.bmp` //1
        backName[36]=`bkgnd.bmp` //1
        backName[37]=`bskyf.bmp` //1
        backName[38]=`bkgnd.bmp` //1
        backName[39]=`bkgnd.bmp` //1
        backName[40]=`bkgnd.bmp` //1

        backName[41]=`bskyf.bmp` //1
        backName[42]=`bskyf.bmp` //1
        backName[43]=`bskyf.bmp` //1
        backName[44]=`bskyf.bmp` //1
        backName[45]=`bskyf.bmp` //1
        backName[46]=`bskyf.bmp` //1
        backName[47]=`bskyf.bmp` //1
        backName[48]=`bskyn.bmp` //1
        backName[49]=`bskyn.bmp` //1
        backName[50]=`bskyf.bmp` //1


        backName[51]=`bskyf.bmp` //1
        backName[52]=`bskyh.bmp` //1
        backName[53]=`bskyf.bmp` //1
        backName[54]=`bskyf.bmp` //1
        backName[55]=`bskyf.bmp` //1
        backName[56]=`bskyf.bmp` //1

        backName[57]=`bskyf.bmp` //1
        backName[58]=`bskyf.bmp` //1
        backName[59]=`bskyf.bmp` //1
        backName[60]=`bskyf.bmp` //1
        backName[61]=`bskyf.bmp` //1
        backName[62]=`bskyf.bmp` //1
        backName[63]=`bskyh.bmp` //1
        backName[64]=`bkgnd.bmp` //1
        backName[65]=`bskyf.bmp` //1
        backName[66]=`bkgnd.bmp` //1
        backName[67]=`bkgnd.bmp` //1
        backName[68]=`bkgnd.bmp` //1
        backName[69]=`bskyf.bmp` //1
        backName[70]=`bkgnd.bmp` //1
        backName[71]=`bkgnd.bmp` //1
        backName[72]=`bskyh.bmp` //1
        backName[73]=`bkgnd.bmp` //1
        backName[74]=`bkgnd.bmp` //1







RoomName[1]=`1`
RoomName[2]=`2`
RoomName[3]=`3`
RoomName[4]=`4`
RoomName[5]=`5`
RoomName[6]=`6`
RoomName[7]=`7`
RoomName[8]=`8`
RoomName[9]=`9`
RoomName[10]=`10`
RoomName[11]=`11`
RoomName[12]=`12`
RoomName[13]=`13`
RoomName[14]=`14`
RoomName[15]=`15`
RoomName[16]=`16`
RoomName[17]=`17`
RoomName[18]=`18`
RoomName[19]=`19`
RoomName[20]=`20`
RoomName[21]=`21`
RoomName[22]=`22`
RoomName[23]=`23`
RoomName[24]=`24`
RoomName[25]=`25`
RoomName[26]=`26`
RoomName[27]=`27`
RoomName[28]=`28`
RoomName[29]=`29`
RoomName[30]=`30`
RoomName[31]=`31`
RoomName[32]=`32`
RoomName[33]=`33`
RoomName[34]=`34`
RoomName[35]=`35`
RoomName[36]=`36`
RoomName[37]=`37`
RoomName[38]=`38`
RoomName[39]=`39`
RoomName[40]=`40`
RoomName[41]=`41`
RoomName[42]=`42`
RoomName[43]=`43`
RoomName[44]=`44`
RoomName[45]=`45`
RoomName[46]=`46`
RoomName[47]=`47`
RoomName[48]=`48`
RoomName[49]=`49`
RoomName[50]=`50`

RoomName[51]=`51`
RoomName[52]=`52`
RoomName[53]=`53`
RoomName[54]=`54`
RoomName[55]=`55`
RoomName[56]=`56`

RoomName[57]=`57`
RoomName[58]=`58`
RoomName[59]=`59`
RoomName[60]=`60`
RoomName[61]=`61`
RoomName[62]=`62`
RoomName[63]=`63`
RoomName[64]=`64`
RoomName[65]=`65`
RoomName[66]=`66`
RoomName[67]=`67`
RoomName[68]=`68`
RoomName[69]=`69`
RoomName[70]=`70`
RoomName[71]=`71`
RoomName[72]=`72`
RoomName[73]=`73`
RoomName[74]=`74`
RoomName[75]=`75`



LastRoom=a

NumberOfRooms = LastRoom - FirstRoom + 1

        // Scale factor

            RoomData[1][0] = 10.0
            RoomData[1][1] = 0.0
            RoomData[1][2] = 4.0
            RoomData[1][3] = -3.0

            RoomData[2][0] = 10.0
            RoomData[2][1] = 0.0
            RoomData[2][2] = 1.0
            RoomData[2][3] = 0.0

            RoomData[3][0] = 3.5
            RoomData[3][1] = 0.0
            RoomData[3][2] = 1.3
            RoomData[3][3] = -7.0

            RoomData[4][0] = 4.0
            RoomData[4][1] = 0.0
            RoomData[4][2] = 1.3
            RoomData[4][3] = -1.0

            RoomData[5][0] = 4.0
            RoomData[5][1] = 0.0
            RoomData[5][2] = 0.0
            RoomData[5][3] = -7.0

            RoomData[6][0] = 2.0
            RoomData[6][1] = 0.0
            RoomData[6][2] = 0.0
            RoomData[6][3] = -4.0

            RoomData[7][0] = 5.0
            RoomData[7][1] = 0.0
            RoomData[7][2] = 2.3
            RoomData[7][3] = -3.0

            RoomData[8][0] = 4.0
            RoomData[8][1] = 0.0
            RoomData[8][2] = 1.0
            RoomData[8][3] = -2.0

            RoomData[9][0] = 4.0
            RoomData[9][1] = 0.0
            RoomData[9][2] = 0.0
            RoomData[9][3] = -4.0

            RoomData[10][0] = 11.0
            RoomData[10][1] = 0.0
            RoomData[10][2] = 4.0
            RoomData[10][3] = -4.0

            RoomData[11][0] = 10.0
            RoomData[11][1] = 0.0
            RoomData[11][2] = 4.0
            RoomData[11][3] = -4.0

            RoomData[12][0] = 10.0
            RoomData[12][1] = 0.7
            RoomData[12][2] = 6.0
            RoomData[12][3] = -6.0

            RoomData[13][0] = 4.0
            RoomData[13][1] = -1.5
            RoomData[13][2] = 0.8
            RoomData[13][3] = -1.0

            RoomData[14][0] = 4.0
            RoomData[14][1] = -0.25
            RoomData[14][2] = 1.0
            RoomData[14][3] = -1.5

            RoomData[15][0] = 4.0
            RoomData[15][1] = 0.0
            RoomData[15][2] = 0.0
            RoomData[15][3] = -5.0

            RoomData[16][0] = 10.0
            RoomData[16][1] = -1.0
            RoomData[16][2] = 5.0
            RoomData[16][3] = -7.0

            RoomData[17][0] = 10.0
            RoomData[17][1] = 0.0
            RoomData[17][2] = 4.0
            RoomData[17][3] = -7.0

            RoomData[18][0] = 20.0
            RoomData[18][1] = -0.75
            RoomData[18][2] = 10.25
            RoomData[18][3] = -1.25

            RoomData[19][0] = 5.0
            RoomData[19][1] = 0.5
            RoomData[19][2] = 1.0
            RoomData[19][3] = -2.0

            RoomData[20][0] = 20.0
            RoomData[20][1] = -2.0
            RoomData[20][2] = 13.0
            RoomData[20][3] = -20.0

            RoomData[21][0] = 4.0
            RoomData[21][1] = 0.0
            RoomData[21][2] = 1.0
            RoomData[21][3] = -1.5

            RoomData[22][0] = 50.0
            RoomData[22][1] = -2.0
            RoomData[22][2] = 14.0
            RoomData[22][3] = -6.0

            RoomData[23][0] = 20.0
            RoomData[23][1] = 1.0
            RoomData[23][2] = 11.0
            RoomData[23][3] = -2.0

            RoomData[24][0] = 4.0
            RoomData[24][1] = 0.0
            RoomData[24][2] = 2.0
            RoomData[24][3] = -5.0

            RoomData[25][0] = 20.0
            RoomData[25][1] = 1.0
            RoomData[25][2] = 11.0
            RoomData[25][3] = -20.0

            RoomData[26][0] = 30.0
            RoomData[26][1] = 0.0
            RoomData[26][2] = 11.7
            RoomData[26][3] = 1.0

            RoomData[27][0] = 4.0
            RoomData[27][1] = -1.0
            RoomData[27][2] = 1.8
            RoomData[27][3] = -1.0

            RoomData[28][0] = 4.0
            RoomData[28][1] = 0.0
            RoomData[28][2] = 1.0
            RoomData[28][3] = -3.0

            RoomData[29][0] = 4.0
            RoomData[29][1] = 0.0
            RoomData[29][2] = 1.0
            RoomData[29][3] = -3.0

            RoomData[30][0] = 20.0
            RoomData[30][1] = 1.0
            RoomData[30][2] = 11.0
            RoomData[30][3] = -20.0

            RoomData[31][0] = 100
            RoomData[31][1] = -3.3
            RoomData[31][2] = 63.5
            RoomData[31][3] = 0.0

            RoomData[32][0] = 4.0
            RoomData[32][1] = 1.0
            RoomData[32][2] = 0.0
            RoomData[32][3] = -5.0

            RoomData[33][0] = 10.0
            RoomData[33][1] = -3.0
            RoomData[33][2] = 5.8
            RoomData[33][3] = 4

            RoomData[34][0] = 4.0
            RoomData[34][1] = 0.0
            RoomData[34][2] = 1.5
            RoomData[34][3] = -10.0

            RoomData[35][0] = 4.0
            RoomData[35][1] = 0.25
            RoomData[35][2] = 1.0
            RoomData[35][3] = -4.0

            RoomData[36][0] = 20.0
            RoomData[36][1] = -8.5
            RoomData[36][2] = 11.0
            RoomData[36][3] = -25.0

            RoomData[37][0] = 10.0
            RoomData[37][1] = -1.1
            RoomData[37][2] = 4.0
            RoomData[37][3] = -4.0

            RoomData[38][0] = 20.0
            RoomData[38][1] = -6.0
            RoomData[38][2] = 13.0
            RoomData[38][3] = -65.0

            RoomData[39][0] = 20.0
            RoomData[39][1] = 0.0
            RoomData[39][2] = 9.0
            RoomData[39][3] = -35.0

            RoomData[40][0] = 20.0
            RoomData[40][1] = 0.0
            RoomData[40][2] = 9.0
            RoomData[40][3] = -20.0

            RoomData[41][0] = 100.0
            RoomData[41][1] = -8.0
            RoomData[41][2] = 60.0
            RoomData[41][3] = -60.0

            RoomData[42][0] = 100.0
            RoomData[42][1] = -14.0
            RoomData[42][2] = 43.0
            RoomData[42][3] = -20.0

            RoomData[43][0] = 10.0
            RoomData[43][1] = -1.0
            RoomData[43][2] = 4.0
            RoomData[43][3] = -4.0

            RoomData[44][0] = 10.0
            RoomData[44][1] = 2.0
            RoomData[44][2] = 2.0
            RoomData[44][3] = -12.0

            RoomData[45][0] = 100.0
            RoomData[45][1] = 5.0
            RoomData[45][2] = 45.5
            RoomData[45][3] = -76.0

            RoomData[46][0] = 20.0
            RoomData[46][1] = 0.0
            RoomData[46][2] = 8.0
            RoomData[46][3] = -4.0

            RoomData[47][0] = 150.0
            RoomData[47][1] = -26.0
            RoomData[47][2] = 77.0
            RoomData[47][3] = -55.0

            RoomData[48][0] = 15.0
            RoomData[48][1] = 1.0
            RoomData[48][2] = 4.0
            RoomData[48][3] = -10.0

            RoomData[49][0] = 50.0
            RoomData[49][1] = 1.0
            RoomData[49][2] = 40.0
            RoomData[49][3] = -20.0

            RoomData[50][0] = 20.0
            RoomData[50][1] = -4.0
            RoomData[50][2] = 6.0
            RoomData[50][3] = -8.0


            RoomData[51][0] = 10.0
            RoomData[51][1] = 0.0
            RoomData[51][2] = 4.0
            RoomData[51][3] = -6.5

            RoomData[52][0] = 10.0
            RoomData[52][1] = 0.0
            RoomData[52][2] = 4.0
            RoomData[52][3] = -9.0

            RoomData[53][0] = 3.5
            RoomData[53][1] = 0.0
            RoomData[53][2] = 0.8
            RoomData[53][3] = -2.5

            RoomData[54][0] = 10.0
            RoomData[54][1] = 0.0
            RoomData[54][2] = 3.0
            RoomData[54][3] = -3.0

            RoomData[55][0] = 4.0
            RoomData[55][1] = 0.0
            RoomData[55][2] = 1.3
            RoomData[55][3] = -6.0

            RoomData[56][0] = 4.0
            RoomData[56][1] = 0.0
            RoomData[56][2] = 0.0
            RoomData[56][3] = -2.0


            RoomData[57][0] = 5.0
            RoomData[57][1] = -0.3
            RoomData[57][2] = 2.0
            RoomData[57][3] = -9.0


            RoomData[58][0] = 10.0
            RoomData[58][1] = 0.4
            RoomData[58][2] = 3.0
            RoomData[58][3] = -2.0

            RoomData[59][0] = 4.0
            RoomData[59][1] = 0.0
            RoomData[59][2] = 2.0
            RoomData[59][3] = -13.0

            RoomData[60][0] = 11.0
            RoomData[60][1] = 0.0
            RoomData[60][2] = 3.5
            RoomData[60][3] = -7.5

            RoomData[61][0] = 10.0
            RoomData[61][1] = 1.0
            RoomData[61][2] = 4.0
            RoomData[61][3] = -12.0

            RoomData[62][0] = 10.0
            RoomData[62][1] = 0.7
            RoomData[62][2] = 3.0
            RoomData[62][3] = -6.0

            RoomData[63][0] = 30.0
            RoomData[63][1] = -4.0
            RoomData[63][2] = 20
            RoomData[63][3] = -4.0


            RoomData[64][0] = 4.0
            RoomData[64][1] = -0.25
            RoomData[64][2] = 1
            RoomData[64][3] = -3.2


            RoomData[65][0] = 10.0
            RoomData[65][1] = -1.0
            RoomData[65][2] = 4.0
            RoomData[65][3] = -8.0




            RoomData[66][0] = 10.0
            RoomData[66][1] = 0.2
            RoomData[66][2] = 4.4
            RoomData[66][3] = -7.0


            RoomData[67][0] = 10.0
            RoomData[67][1] = 0.0
            RoomData[67][2] = 4.0
            RoomData[67][3] = -8.0


            RoomData[68][0] = 10.0
            RoomData[68][1] = 0.0
            RoomData[68][2] = 4.0
            RoomData[68][3] = -6.0

            RoomData[69][0] = 10.0
            RoomData[69][1] = -0.7
            RoomData[69][2] = 2.3
            RoomData[69][3] = -6.0

            RoomData[70][0] = 10.0
            RoomData[70][1] = 0.0
            RoomData[70][2] = 4.0
            RoomData[70][3] = -12.0

            RoomData[71][0] = 4.0
            RoomData[71][1] = 0.0
            RoomData[71][2] = 1.5
            RoomData[71][3] = -3.0

            RoomData[72][0] = 10.0
            RoomData[72][1] = 0.9
            RoomData[72][2] = 4.3
            RoomData[72][3] = -2.6

                        RoomData[73][0] = 10.0
            RoomData[73][1] = 1.0
            RoomData[73][2] = 6.0
            RoomData[73][3] = -8.0

                        RoomData[74][0] = 4.0
            RoomData[74][1] = 0.0
            RoomData[74][2] = 2.0
            RoomData[74][3] = -4.0





    end sub



sub start_vr()

InitRoomData()



if !StartRoom("Inside the Alchemist's Lair") then
    BrowserExit
endif

//CurrentRoom = FirstRoom

checkandreadpalette(server_local+`factor.pal`)

    RoomExitFlag = -1
    BACKDROPFILENAME=backName[CurrentRoom]
print "backdrop=",backName[CurrentRoom],"\n"
    backdrop = RwReadRaster(BACKDROPFILENAME, rwGAMMARASTER | rwDITHERRASTER);
        ifc (backdrop != NULL)    RwSetCameraBackdrop(camera, backdrop)
     RwSetCameraBackdropViewportRect(camera,0,0,320,240);


    res = AddRoom(    RoomDir[CurrentRoom], RoomName[CurrentRoom],
                    RoomData[CurrentRoom][0], RoomData[CurrentRoom][1],
                    RoomData[CurrentRoom][2], RoomData[CurrentRoom][3], xpos, ypos)

end sub

sub nostart_vr()

SCX = GetSystemMetrics(SM_CXSCREEN)
SCY = GetSystemMetrics(SM_CYSCREEN)




InitRoomData()



if !StartRoom("Inside the Alchemist's Lair") then
    BrowserExit
endif

//CurrentRoom = FirstRoom
loop
    RoomExitFlag = -1
    BACKDROPFILENAME=backName[CurrentRoom]
print "backdrop=",backName[CurrentRoom],"\n"
    backdrop = RwReadRaster(BACKDROPFILENAME, rwGAMMARASTER | rwDITHERRASTER);
        ifc (backdrop != NULL)    RwSetCameraBackdrop(camera, backdrop)
     RwSetCameraBackdropViewportRect(camera,0,0,320,240);


    res = AddRoom(    RoomDir[CurrentRoom], RoomName[CurrentRoom],
                    RoomData[CurrentRoom][0], RoomData[CurrentRoom][1],
                    RoomData[CurrentRoom][2], RoomData[CurrentRoom][3], xpos, ypos)

    if res then
        // Windows messages get lost without this
        loop
            if not TimerActive then
                wait 100
            endif
            wait 100
        until RoomExitFlag <> -1
    else
        CurrentRoom += olddir
    endif

    if RoomExitFlag = keycode'KEY_END then
        loopexit
    elsif RoomExitFlag = keycode'KEY_HOME then
        olddir = +1
        CurrentRoom = FirstRoom
    elsif RoomExitFlag = keycode'KEY_LEFT then
        olddir = -1
        CurrentRoom--
    elsif RoomExitFlag = keycode'KEY_RIGHT then
        olddir = +1
        CurrentRoom++
    elsif RoomExitFlag = keycode'KEY_PGDN then
        olddir = -1
        CurrentRoom-=5
    elsif RoomExitFlag = keycode'KEY_PGUP then
        olddir = +1
        CurrentRoom+=5
    endif

    if CurrentRoom < FirstRoom then
        CurrentRoom += NumberOfRooms
    elsif CurrentRoom > LastRoom then
        CurrentRoom -= NumberOfRooms
    endif

endloop
print "loops end"

        WinKillTimer 1
        TimerActive = false
        ShutdownRoom()

endsub

sub display_object(item as int)
currentRoom=item



//if TimerActive then

if ThreeDinitialized then
    BACKDROPFILENAME=backName[CurrentRoom]
print "backdrop=",backName[CurrentRoom],"\n"

    backdrop = RwReadRaster(BACKDROPFILENAME, rwGAMMARASTER | rwDITHERRASTER);
        ifc (backdrop != NULL)    RwSetCameraBackdrop(camera, backdrop)
     RwSetCameraBackdropViewportRect(camera,0,0,320,240);

     res = AddRoom(    RoomDir[CurrentRoom], RoomName[CurrentRoom],
                    RoomData[CurrentRoom][0], RoomData[CurrentRoom][1],
                    RoomData[CurrentRoom][2], RoomData[CurrentRoom][3], xpos, ypos)
    winsettimer 1,10
    WinShowWindow 0,show
    timeractive = TRUE
else




    start_vr()
endif
end sub

sub Kill_3d()

    sound server_sounds+`apps/test.mid sequencer`
    id1=998
    settext id1, " "
    on_3d=no
    if TimerActive then
        WinKillTimer 1
        TimerActive = false
        WinShowWindow 0,hide
        wait 100
    endif

end sub

sub set_server_info()
local

string    cd_drive
check_copy as int
end local

        cd_drive=getinfo(CDROMS)

        setreadonlycache enabled,filename(cd_drive),`/`       //Use this read only cashe for www.fol.de
//        setreadonlycache enabled,filename(cd_drive),`/web/`  //Use this read only cashe for 194.80.180.23


        server_icons =the_main_path+`tvml/apps/world/icons/`    //Where to get the popup icons from
        server = the_main_path+`tvml/apps/world/countrys/`    //Where to get all the world maps from + images + text

        key_facts=the_main_path+`tvml/apps/world/key/`        //Where all key fact data is



        load_3ds_cd_files =filename(cd_drive)+`tvml/apps/world/newworld/3d/`  //This is for the 3d bin files
        server_sounds = filename(cd_drive)+`tvml/apps/world/sounds/`          //Sounds used for 2d + 3d icons


        server_local  = `apps/world/images/`        //The main interface
        server_maps  = `apps/world/maps/`        //All the world Maps
        server_menu  =`apps/world/menus/`        //Menus for the statistics
        server_games =`apps/world/games/`        //interface for the games


        key_facts_vid    = filename(cd_drive)+`tvml/apps/world/key/`  //Not used at the moment
        key_facts_local    =`apps/world/key/`                  //interface for key facts



        server_cache = `apps/world/cache/`            //Where to copy all cached text files


end sub



sub load_image_to_screen(start_x_pos as int ,start_y_pos as int,x_size as int,y_size as int,type as int,speed_type as int,load_it as filename)
local
    int flag_hold_f
end local

        Print "http Image file = ",load_it,"\n"

    ifc(busy_mover==no)
    {
        SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
        SpriteFlags2 233, enabled|visible, UNBOUND
    }
    flag_hold_f=0
    activepage 0
    saveimage 1280,960,x_size,y_size,jpg, load_it, ``, dummy, { flag_hold_f = 1 }
    while not flag_hold_f loop
        hold
        print flag_hold_f
    endwhile
    activepage 1

    loadimage start_x_pos,start_y_pos,x_size,y_size,jpg, load_it
//    while not flag_hold_f loop
//        hold
//        print flag_hold_f
//    endwhile
        Print "http Image file now done = ",load_it,"\n"

    activepage 0
    clearscreen start_x_pos,start_y_pos,x_size,y_size,standard,1,255
    delsprite 233
    busy_mover=no
end sub


sub read_overview(over_view_name as filename)
local
    int over_count
end local

    open over_view_name for read as #1
    over_count=0
    whilec(!feof(#1))
    {
        overview[over_count] = inputline$(#1)
        over_count++
    }
    close #1
    total_over=over_count

print "OVERBIWE LINES=",total_over

end sub


sub show_overview()
local
    int over_count

end local

    pencolor 255,255,255
    forc(over_count=0;over_count<total_over;over_count++)
    {
        ifc(over_count==0)
        {
            FONT "TIMESROMAN.BOLD",15,30
            id=over_count*1000
            ifc(country_set==1)
                settext id, overview[over_count]
            else
                label id, 126,720+(over_count*40), 1100, 40, left, overview[over_count]
        }
        else
        {
            FONT "TIMESROMAN",15,30
        }
        id=over_count*1000
        ifc(country_set==1)
            settext id, overview[over_count]
        else
            label id, 126,720+(over_count*40), 1100, 200, wrap|left, overview[over_count]
    }



end sub


sub show_overview_on_text_screen()
local
    int over_count

end local

print change_text,"ch\n"
    pencolor 0,0,0
    forc(over_count=1;over_count<total_over+1;over_count++)
    {
        ifc(over_count==1)
        {
            FONT "TIMESROMAN.BOLD",15,30
            id=over_count*1000
        }
        else
        {
            FONT "TIMESROMAN",15,30
        }
        id=over_count*1000
        ifc(change_text==2)
            settext id, overview[over_count-1]
        else
            label id, 150,130+(over_count*50), 900, 500, wrap|left, overview[over_count-1]
    }



end sub


sub hold_buttons(hold_button as int)


    id=500 //search
    iconbuttonid id,  672,0,116,124,enabled,none,1,100,100,100,
    {
        null
    }
    id=403 //help
    iconbuttonid id,  912,0,112,124,enabled,none,1,106,106,106,
    {
        null
    }
    id=426 //EXIT
    iconbuttonid id,  1130,0,146,124,enabled,none,1,108,108,108,
    {
        null
    }
    id=401 //World MAP
    iconbuttonid id,  792,0,120,124,enabled,none,1,102,102,102,
    {
        null
    }
    ifc(hold_button!=2)
    {
        id=413 //country left
        deleteobject country_left_id
        country_left_id=getnextobjectid()
        iconbuttonid id,  30,30,58,72,enabled,none,2,300,301,302,
        {
            null
        }
        id=412 //country right
        deleteobject country_right_id
        country_right_id=getnextobjectid()
        iconbuttonid id,  88,30,58,72,enabled,none,2,304,305,306,
        {
            null
        }
        deleteobject country_left_id_main
        deleteobject country_right_id_main

    }
    id=402 //print
//    iconbuttonid id,  1028,0,108,124,enabled,none,1,104,104,104,
//    {
//        null
//    }

    ifc(hold_button==1)
    {
        ifc(show_where==1)
        {
            id=411 //Where
            where_id_on=getnextobjectid()
            iconbuttonid id,  1086,184,150,140,enabled,none,1,124,124,124,
            {
                null
            }
            deleteobject    where_id_on_main
        }
        else
        {
            deleteobject    where_id_on
            deleteobject    where_id_on_main
        }

        ifc(show_3d_interface>0)
        {
            id=410 //next 3d object fro demo only
            d3_id_on=getnextobjectid()
            iconbuttonid id,  1130,332,150,140,enabled,none,1,122,122,122,
            {
                null
            }
            deleteobject    d3_id_on_main
        }
        else
        {
            deleteobject    d3_id_on
            deleteobject    d3_id_on_main
        }
        ifc(fun_facts_on[new_number]==1)
        {
            id=407 //fun facts
            fun_id_on=getnextobjectid()
            iconbuttonid id,  754,488,150,140,enabled,none,1,116,116,116,
            {
                null
            }
            deleteobject    fun_id_on_main
        }
        else
        {
            deleteobject    fun_id_on
            deleteobject    fun_id_on_main
        }
        id=409 //games
        iconbuttonid id,  1098,492,150,140,enabled,none,1,120,120,120,
        {
            null
        }
        ifc(total_slides[new_number]>0)
        {
            id=415 //Image up
            deleteobject    up_id_on
            deleteobject    down_id_on
            deleteobject    list_id_on
            up_id_on=getnextobjectid()
            iconbuttonid id,  670,620,56,68,enabled,none,2,308,308,308,
            {
                null
            }

            id=416 //Image down
            down_id_on=getnextobjectid()
            iconbuttonid id,  724,620,56,68,enabled,none,2,312,312,312,
            {
                null
            }
            id=480    //photo list
            list_id_on=getnextobjectid()
            iconbuttonid id,  572,612,120,100,enabled,none,1,144,144,144,
            {
                null
            }
            deleteobject    up_id_on_main
            deleteobject    down_id_on_main
            deleteobject    list_id_on_main

        }
        else
        {
            deleteobject    up_id_on_main
            deleteobject    down_id_on_main
            deleteobject    list_id_on_main
            deleteobject    up_id_on
            deleteobject    down_id_on
            deleteobject    list_id_on
        }
        id=423 //Large Image
        deleteobject zoom_id_on
        zoom_id_on=getnextobjectid()
        iconbuttonid id,  0,600,120,124,enabled,none,1,142,142,142,
        {
            null
        }
        id=422 //Large text
        iconbuttonid id,  0,716,120,104,enabled,none,1,138,138,138,
        {
            null
        }
        id=408    //Stats
        iconbuttonid id,  936,584,150,140,enabled,none,1,118,118,118,
        {
            null
        }
        ifc(total_slides[new_number]>0)
        {
            id=406    //Photo
            photo_id_on=getnextobjectid()
            iconbuttonid id,  706,328,150,140,enabled,none,1,114,114,114,
            {
                null
            }
            deleteobject    photo_id_on_main
        }
        else
        {
            deleteobject    photo_id_on
            deleteobject    photo_id_on_main

        }
        id=404  //country map
        iconbuttonid id,  926,122,152,140,enabled,none,1,110,110,110,
        {
            null
        }
        ifc(show_flag==0)
        {
            id=405    //flag
            deleteobject    flag_id_on
            flag_id_on=getnextobjectid()
            iconbuttonid id,  752,166,150,140,enabled,none,1,112,112,112,
            {
                null
            }
            deleteobject    flag_id_on_main
        }
        else
        {
            deleteobject    flag_id_on
            deleteobject    flag_id_on_main
        }

    }


end sub



sub fast_ handle_popup( id as int x as int the_map_size as int )
local
    int last_id
endlocal

        font "HELVETICA",11,22

        if x then


            if the_map_size==1 then
                id1=998
                settext id1, popup_cap_l[strtoi(read_text[id-1])]
                sound server_sounds+filename(itostr(play_it[id-1]))+`.wav wave`
            else
                id1=997
                settext id1, popup_cap_l[strtoi(read_text[id-1])]
                sound server_sounds+filename(itostr(play_it[id-1]))+`.wav wave`
            endif
            last_id=id
        else


            if id==last_id then

                if on_3d==no then
                    if the_map_size==1 then
                        id1=998
                        settext id1, " "
                        sound `apps/2222.wav wave`
                    else
                        id1=997
                        settext id1, " "
                        sound `apps/2222.wav wave`
                    endif
                endif
            endif
        endif
end sub



sub show_sprite(the_map_size as int)

local
    string    read_string
    string    sprite_label[20]

    int    id,x,y,sprite_count,offset_x,offset_y,ttt
    int    pos_x[25],pos_y[25],sprit_no[25]
    int    last_id,icon_start,read_icon
    float factor_size_x,factor_size_y,check_pos
    int    del_sp_cnt
end local

//    ifc(test_prog==1)
//        return


    deleteobject popup_the_sprite
    sprites_on=yes
    ifc(the_map_size==1)
    {
        factor_size_x=(320.0/501.0)
        factor_size_y=(320.0/501.0)
        offset_x=30
        offset_y=130
    }
    else
    {
        factor_size_x=1
        factor_size_y=1
        offset_x=140
        offset_y=132
    }

//    hold_buttons(the_map_size)

    restoredata icon_pos
    icon_start=(new_number-1)*60


    forc(sprite_count=1;sprite_count<total_images+1;sprite_count++)
    {
        input data icon_pos[icon_start] , sprit_no[sprite_count]
        icon_start++
        input data icon_pos[icon_start] ,read_icon
        icon_start++
        check_pos=float(read_icon)
        check_pos*=factor_size_x
        check_pos+=offset_x
        pos_x[sprite_count]=int(check_pos)
        input data icon_pos[icon_start] , read_icon
        icon_start++
        check_pos=float(read_icon)
        check_pos*=factor_size_y
        check_pos+=offset_y
        pos_y[sprite_count]=int(check_pos)


        ifc(the_map_size==1)
        {
            ifc(pos_y[sprite_count]>482)
                pos_y[sprite_count]=482
            ifc(pos_y[sprite_count]<130)
                pos_y[sprite_count]=130

            ifc(pos_x[sprite_count]>542)
                pos_x[sprite_count]=542
            ifc(pos_x[sprite_count]<30)
                pos_x[sprite_count]=30
        }



    }


    ACTIVEPAGE 0
//    transparentcolour 246,255,252,244
    transparentcolor  255,255,255


    ifc(last_sprite_country!=new_number)
    {
        last_sprite_country=new_number
        ifc(pop_up_small==yes  && the_map_size==1)
        {
            pop_up_small=no
            forc(sprite_count=1;sprite_count<total_images+1;sprite_count++)
            {
                sprite sprite_count, pos_x[sprite_count], pos_y[sprite_count], looped, 1, 1000, [sprit_no[sprite_count]]
                SpriteFlags2 sprite_count, enabled|visible|popup  , UNBOUND
//                SpriteFlags sprite_count, true, true, false, true, UNBOUND
                SpritePopup sprite_count, 0, false
                spritebbox sprite_count,pos_x[sprite_count],pos_y[sprite_count],128,128
                spritepopup sprite_count,15,true
                wait 1000
            }
        }
        else
        {
            ifc(pop_up_big==yes)
            {
                pop_up_big=no
                forc(sprite_count=1;sprite_count<total_images+1;sprite_count++)
                {
                    sprite sprite_count, pos_x[sprite_count], pos_y[sprite_count], looped, 1, 1000, [sprit_no[sprite_count]]
                    SpriteFlags2 sprite_count, enabled|visible|popup, UNBOUND
                    SpritePopup sprite_count, 0, false
                    spritebbox sprite_count,pos_x[sprite_count],pos_y[sprite_count],128,128
                    spritepopup sprite_count,15,true
                    wait 1000
                }
            }
        }

    }
        click3d=0
        last_id=0
        forc(sprite_count=1;sprite_count<total_images+1;sprite_count++)
        {
            show_3d_desc[sprite_count]=" "
            sprite sprite_count, pos_x[sprite_count], pos_y[sprite_count], looped, 1, 1000, [sprit_no[sprite_count]]
            ifc(click_it[sprite_count-1]>0 && the_map_size==1)
            {
                SpriteFlags2 sprite_count, clickable|enabled|visible|popup,UNBOUND
                show_3d[click3d]=click_it[sprite_count-1]
                show_3d_desc[click3d]=popup_cap_l[strtoi(read_text[sprite_count-1])]
                click3d++
            }
            else
                SpriteFlags2 sprite_count, enabled|visible|popup,UNBOUND
            SpritePopup sprite_count, 0, false
        }


    pencolor 255,255,255

    font "HELVETICA",11,22
    id=998
    label id, 126,628, 440, 102, left|wrap," "
    id=997
    label id, 132,900, 1002, 102, centre|wrap, " "

    popup_the_sprite=getnextobjectid()
    on_sprite_popup id, x
    {
        handle_popup( id, x, the_map_size )
    }
    deleteobject popups_are_on
    popups_are_on=getnextobjectid()
    on_sprite_drop id, x, y,
    {
        ifc(the_map_size==1)
        {
            sound `apps/2222.wav wave`
            small_start=1
            deleteobject zoom_id_on
            ifc(sprites_on==yes)
            {
                forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                    delsprite del_sp_cnt
            }

            on_3d=yes
                sound server_sounds+`longplay/`+filename(itostr(click_it[id-1]))+`.mid sequencer`
            display_object(click_it[id-1])
            flag_hold=0
            SetFilenameProperty loadphoto, "LoadImageNotify", server_local +`/bkgnd`+load_ext
            while not flag_hold loop
                hold
            endwhile


//            LOADIMAGE 30,130,640,480,jpg,server_local +`/bkgnd`+load_ext

        }
    }
end sub

sub work_out_rad()

    one_rad=3.14*2
    one_rad/=360

end sub

sub work_angle(new_angle as float)

    new_angle*=3.6
    total_angle+=new_angle
    angle=total_angle
    angle*=one_rad
    flood_angle=total_angle-(new_angle/2)
    flood_angle*=one_rad

end sub

sub draw_circle(draw_pie_no as int)

    circle_id[draw_pie_no]=getnextobjectid()
    CIRCLE start_x,start_y,radius

end sub

sub draw_line()

    new_y=radius*sin(angle)
    new_x=radius*cos(angle)
    new_x+=start_x
    new_y+=start_y
    pencolor 0,0,100
    line
    [
        start_x,start_y,int(new_x),int(new_y)
    ]

end sub

sub draw_flood(draw_pie_no as int, p_count as int, current_cir as int)
local
    int r,g,b
    float new_x1, new_y1
    pie_lable as string
endlocal

    new_y=radius/2*sin(flood_angle)
    new_x=radius/2*cos(flood_angle)
    new_x1 = new_x*0.75
    new_y1 = new_y*0.75
    lable_y=radius*1.15*sin(flood_angle)
    lable_x=radius*1.15*cos(flood_angle)
    new_x+=start_x
    new_y+=start_y
    new_x1+=start_x
    new_y1+=start_y
    lable_x+=start_x
    lable_y+=start_y
    pencolor  255, 255, 255
    line_id[current_cir][p_count]=getnextobjectid()
    line
    [
        int(new_x),int(new_y),int(lable_x),int(lable_y)
    ]
    ifc(pie_number[p_count]>0)
        pie_lable=itostr(pie_number_old[p_count])
    else
        pie_lable=itostr(pie_number[p_count])
    pie_lable=pie_lable+"% "
    ifc(lable_x<new_x)
    {
        lable_id[current_cir][p_count]=getnextobjectid()
        ifc(lable_y<new_y)
            text int(lable_x)-45,int(lable_y)-35,pie_lable
        else
            text int(lable_x)-35,int(lable_y),pie_lable
    }
    else
    {
        lable_id[current_cir][p_count]=getnextobjectid()
        ifc(lable_x>new_x)
            text int(lable_x),int(lable_y)-25,pie_lable
        else
            text int(lable_x),int(lable_y),pie_lable
    }
    pencolor  red[pie_desc[p_count] ],green[pie_desc[p_count]],blue[pie_desc[p_count]]

    flood_id[current_cir][p_count]=getnextobjectid()
    floodfill int(new_x1),int(new_y1)

    pencolor  255, 255, 255

end sub


sub tryit( x as int, y as int ,draw_pie_no as int, pie_type as int, current_cir as int)
local
    max_cut as int
    largest as int
    int pie_big
endlocal

restoredata fcolour

    start_x=x
    start_y=y
    radius=90
    total_angle=0

    largest=1
    ifc(pie_type==1)
    {
        max_cut=5
        forc(p_count=1;p_count<6;p_count++)
        {
            pie_desc[p_count]=land_name[draw_pie_no][p_count]
            pie_number[p_count]=land_number[draw_pie_no][p_count]
            pie_number_old[p_count]=land_number[draw_pie_no][p_count]
            ifc(pie_number[p_count]>pie_big)
            {
                pie_big=pie_number[p_count]
                largest=p_count
            }

        }
    }

    ifc(pie_type==2)
    {
        max_cut=8
        pie_big=0
        forc(p_count=1;p_count<9;p_count++)
        {
            pie_desc[p_count]=labor_name[draw_pie_no][p_count]
            pie_number[p_count]=labor_number[draw_pie_no][p_count]
            pie_number_old[p_count]=labor_number[draw_pie_no][p_count]
            ifc(pie_number[p_count]>pie_big)
            {
                pie_big=pie_number[p_count]
                largest=p_count
            }
        }
    }


    ifc(pie_type==3)
    {
        max_cut=9
        forc(p_count=1;p_count<10;p_count++)
        {
            pie_desc[p_count]=rel_name[draw_pie_no][p_count]
            pie_number[p_count]=rel_number[draw_pie_no][p_count]
            pie_number_old[p_count]=rel_number[draw_pie_no][p_count]
            ifc(pie_number[p_count]>pie_big)
            {
                pie_big=pie_number[p_count]
                largest=p_count
            }
        }
    }


    forc(p_count=1;p_count<10;p_count++)
    {
        ifc(pie_number[p_count]==1)
        {
            pie_number[p_count]=3
            pie_number[largest]-=2
        }
        ifc(pie_number[p_count]==2)
        {
            pie_number[p_count]=3
            pie_number[largest]--
        }
    }

    draw_first=1


    ifc(pie_number[1]==999)
    {
        PENCOLOR 255,255,255
        TRANSPARENCY 50
        fillmask0
        not_avail1[current_cir]=getnextobjectid()
        text x-20,y-40,"Not"
        not_avail2[current_cir]=getnextobjectid()
        text x-50,y-10,"Available"

        LINESTYLE SOLID
        PENWIDTH 1
        draw_circle(current_cir)
        TRANSPARENCY 0
        FILLMASK1 255,255,255
    }
    else
    {
        FILLMASK1 255,255,255
        TRANSPARENCY 0
        PENCOLOR 0,0,0
        LINESTYLE SOLID
        PENWIDTH 1
        work_out_rad()
        draw_circle(current_cir)
        work_angle(0)
        forc(p_count=1;p_count<max_cut;p_count++)
        {
            ifc(pie_number[p_count]>0)
            {
                ifc(draw_first=1)
                {
                    draw_line()
                    draw_first=0

                }
                work_angle(pie_number[p_count])
                draw_line()
                draw_flood(draw_pie_no,p_count,current_cir)

            }
        }


        ifc(pie_number[p_count]>0)
        {
            work_angle(pie_number[p_count])
            draw_flood(draw_pie_no,p_count,current_cir)
        }
    }

endsub

sub pie_bar(menu_number as int)

    FONT "HELVETICA.BOLD",13,26
    tryit( 172, 570 , graph[0],menu_number,1)
    tryit( 482, 570 ,graph[1],menu_number,2)
    tryit( 792, 570 ,graph[2],menu_number,3)
    tryit( 1102, 570 ,graph[3],menu_number,4)

end sub


sub add_sprites()
local

    int    icon_start,next_icon
end local

    ifc(new_number==261)
        return

    ifc(new_number==21)
        return

    delsprite 0
    delsprite 1
    delsprite 2
    delsprite 3
    delsprite 4
    delsprite 5
    delsprite 6
    delsprite 7
    delsprite 8
    delsprite 9
    delsprite 10
    delsprite 11
    delsprite 12
    delsprite 13
    delsprite 14
    delsprite 15
    delsprite 16
    delsprite 17
    delsprite 18
    delsprite 19
    delsprite 20

//    transparentcolour 246,255,252,244
    transparentcolor 255,255,255
    SPRITEFILE gif,server_icons+country+`.gif`
    show_3d_interface=0
    restoredata icon_data
    icon_start=(new_number-1)*64
    input data icon_data[icon_start] , total_images
    icon_start++
    ifc(total_images==0)
    {
        null
    }
    else
    {

        count3=0
        forc(count2=0;count2<15;count2++)
        {
            forc(count_extra=0;count_extra<10;count_extra++)
            {
                input data icon_data[icon_start] , read_text[count3]
                icon_start++
                input data icon_data[icon_start] , click_it[count3]
                ifc(click_it[count3]>0)
                    show_3d_interface=1
                icon_start++
                input data icon_data[icon_start] , play_it[count3]
                icon_start++
                count3++
                ifc(count3==total_images)
                {
                    breakc
                }
            }
            ifc(count3==total_images)
            {
                breakc
            }
        }
        count_pos=0
        line_pos=0
        forc(def_count=1;def_count<total_images+1;def_count++)
        {

            DEFSPRITE def_count, count_pos*128, line_pos*128,128,128
            count_pos++
            ifc(count_pos==10)
            {
                count_pos=0
                line_pos++
            }
        }

    }

    transparency 50



end sub


sub show_country(show_pic as int)
local
    int read_number,id_check
    int    hotxs[100],hotys[100],hotxe[100],hotye[100],store_country[100]
    string    map_name[30]
end local

    ifc(interface_on_screen==no)
    {
        ifc(country_set!=1)
        {
            load_image_to_screen(0,0,1280,960,1,255,server_local+`main`+load_ext)
        }
    }
    interface_on_screen=no
    restoredata highlight_map
    read_number=new_number-1
    read_number*=6
    input data highlight_map[read_number],id_check,hotxs[0],hotys[0],hotxe[0],hotye[0],map_name[0]
    ifc(strtoi(map_name[0])==0)
    {
        show_where=0
    }
    else
        show_where=1

    restoredata total_flag_data
    read_number=new_number-1
    input data total_flag_data[read_number],show_flag
    ifc(last_sprite_country!=new_number)
    {
        add_sprites()
    }
    FONT "HELVETICA",24,48
    pencolor  255,255,255
    ACTIVEPAGE 0
    hold_buttons(1)
    clearscreen 0,0,1279,959,standard,1,255

    ifc(country_set==1)
    {
        id=99
        settext id, header_top
    }
    else
    {
        id=99
        label id, 190,40, 550, 60, left, header_top
        FONT "HELVETICA",11,22
        pencolor  255,255,255
        id=98
        label id, 126,628, 440, 102, left|wrap," "
    }

    FILLMASK1 255,255,255
    TRANSPARENCY 0
    PENCOLOR 0,0,0
    LINESTYLE SOLID
    PENWIDTH 4

    show_overview()

    ifc(show_pic==yes)
    {
        ifc(busy_mover==no)
        {
            SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
            SpriteFlags2 233, enabled|visible, UNBOUND
            busy_mover=yes
        }
        hit_3d=0
        id=98
        settext id," "

        id=998
        settext id, " "
        hit_3d=0
        flag_hold=0
        ifc(country_set==1)
        {
            SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/map320`+load_ext3
            while not flag_hold loop
                hold
            endwhile
        }
        else
        {
            loadphoto=getnextobjectid()
            saveimage 28,130,640,480,jpg, server_local  +`/bkgnd`+load_ext, ``, dummy, { flag_hold = 1 }
            while not flag_hold loop
                hold
            endwhile
            wait 100
            flag_hold=0
            SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/map320`+load_ext3
            while not flag_hold loop
                hold
            endwhile


        }
        ifc(busy_mover=yes)
        {
            delsprite 233
            busy_mover=no
        }
        show_sprite(1)
        count=0
    }
    ifc(busy_mover=yes)
    {
        delsprite 233
        busy_mover=no
    }

    browsersetcursorbusy false

end sub


sub title()

    SCX = GetSystemMetrics(SM_CXSCREEN)
    SCY = GetSystemMetrics(SM_CYSCREEN)

    ShowBrowserWindow Fullscreen
    ifc(scx==800)
    {
            xpos=80
            ypos=60
            SetBrowserWindowPos  0, 0
            SetBrowserWindowSize SCX,SCY
    }
    else
    {
        ifc(scx<800)
        {
            xpos=0
            ypos=0
            SetBrowserWindowPos  0, 0
            SetBrowserWindowSize 640, 480
        }
        else
        {
            xpos=192
            ypos=144
            SetBrowserWindowPos  0, 0
            SetBrowserWindowSize SCX,SCY
        }
    }
    load_image_to_screen(0 ,0,1280,960,1,255,server_local+`title`+load_ext)



//    ACTIVEPAGE 1
//    LOADIMAGE 0,0,1280,960,JPG,server_local+`title`+load_ext
//    ACTIVEPAGE 0
//    clearscreen 0,0,1280,960,standard,1,255
    wait 1000
end sub

sub start_screen()
local
    read_count as int
    check_it as int
end local

    country=`129`
    new_number=129
    header_top=list_2[129]
    header_text=list_1[129]

    restoredata area_data
    restoredata pop_data
    restoredata prod_data
    restoredata total_slide_data

    forc(read_count=1;read_count<266;read_count++)
    {
        input data area_data , area[read_count]
    }

    forc(read_count=1;read_count<266;read_count++)
    {
        input data pop_data , pop[read_count]
    }

    forc(read_count=1;read_count<266;read_count++)
    {
        input data prod_data ,prod[read_count]
    }

    forc(read_count=1;read_count<266;read_count++)
    {
        input data total_slide_data , total_slides[read_count]

    }




    rnd_pic_cnt=1
    forc(read_count=1;read_count<266;read_count++)
    {
        input data  fun_facts, check_it

        input data  fun_facts, fun_facts_on[read_count]

        input data  fun_facts, af_pic_on[read_count]
        input data  fun_facts, kf_pic_on[read_count]
        input data  fun_facts, af_txt_on[read_count]
        input data  fun_facts, pic_txt_on[read_count]
        input data  fun_facts, da_txt_on[read_count]
        input data  fun_facts, kf_txt_on[read_count]
        input data  fun_facts, vid_txt_on[read_count]
        ifc(af_pic_on[read_count]==1)
        {
            rnd_pic_check[rnd_pic_cnt]=read_count
            rnd_pic_cnt++
        }

    }

    forc(read_count=1;read_count<811;read_count++)
    {
        input data popup_cap_new , check_it
        input data popup_cap_new , popup_cap_l[check_it]
    }

    forc(read_count=1;read_count<266;read_count++)
    {
        input data photo_facts, check_it
        input data photo_facts , photo_cr[check_it]
    }

    graph[0]=129
    graph[1]=249
    graph[2]=90
    graph[3]=122
    graph_name[0]="Kenya"
    graph_name[1]="Vereinigte Staaten"
    graph_name[2]="Deutschland"
    graph_name[3]="Japan"

end sub


sub games_screen()

//    load_image_to_screen(0 ,0,1280,960,1,255,server_games+`gamsel`+load_ext)

    ACTIVEPAGE 1
    LOADIMAGE 0,0,1280,960,JPG,server_games+`/gamsel`+load_ext
    ACTIVEPAGE 0
    clearscreen 0,0,1279,959,standard,1,255

end sub


sub games_screen1()

//    load_image_to_screen(0 ,0,1280,960,1,255,server_games+`tile`+load_ext)

    activepage 1
    loadimage 0,0,1280,960,gif,server_games+`tile`+load_ext
    activepage 0
    clearscreen 0,0,1280,960,standard,1,255

end sub

sub games_screen2()
    activepage 1
    loadimage 0,0,1280,960,gif,server_games+`quick`+load_ext
    activepage 0
    clearscreen 0,0,1280,960,standard,1,255
end sub


sub show_text_pic()
local

    int pic_txt
    line_in as string

end local

    ifc(pic_txt_on[new_number]==1)
    {
        open key_facts+country+`/pic`+country+`.txt` for read as #1
        pencolor  255,255,255
        whilec(!feof(#1))
        {
            line_in = inputline$(#1)
        }
        close #1
        FONT "HELVETICA",11,22
        id=819
        label id, 10,650, 644, 148, wrap|left, line_in
    }

end sub


sub show_text_am()
local

    int pic_txt
    line_in as string
    line_in2 as string
    start as int

end local

    ifc(af_txt_on[new_number]==1)
    {
        open key_facts+country+`/af`+country+`.txt` for read as #1
        pencolor  0,0,0
        pic_txt=0
        start=1
        whilec(!feof(#1))
        {
            line_in = inputline$(#1)
            ifc(len(line_in)==0)
            {
                start=0
                line_in = inputline$(#1)
            }
            ifc(start==1)
            {
                FONT "HELVETICA.BOLD",12,24
            }
            else
            {
                FONT "HELVETICA",12,24
            }
            id=129+pic_txt
            label id, 745,330+(pic_txt*30), 480, 362, left, line_in
            pic_txt++
        }
        close #1
    }


end sub


sub show_text_kf()
local

    int pic_txt
    line_in as string
    line_in2 as string
    check as string
end local

    ifc(kf_txt_on[new_number]==1)
    {
        open key_facts+country+`/kf`+country+`.txt` for read as #1
        pencolor  0,0,0
        pic_txt=0
        whilec(!feof(#1))
        {
            line_in = inputline$(#1)
            FONT "HELVETICA",14,28
            check=mid$(line_in,0,4)
            ifc(check=="FlΣc")
                FONT "HELVETICA.BOLD",13,26
            check=mid$(line_in,0,7)
//            ifc(check=="Capital"  | check=="Populat" | check=="Languag" | check=="Religio" |check=="Governm" | check=="Currenc")

            ifc(check=="Hauptst"  | check=="Sprache" | check=="Bev÷lke" | check=="Religio" |check=="Staatsf" | check=="WΣhrung")
                FONT "HELVETICA.BOLD",13,26
            id=229+pic_txt
            label id, 710,215+(pic_txt*35), 500, 362, left, line_in
//            label id, 754,220+(pic_txt*35), 462, 362, left, line_in
            pic_txt++
        }
        close #1
    }

end sub





sub show_am()

    load_image_to_screen(0 ,0,1280,960,1,255,key_facts_local+`keya`+load_ext)

    ifc(af_pic_on[new_number]==1)
    {
        ACTIVEPAGE 0
        LOADIMAGE 74,330,640,480,jpg,server_local  +`/bkgnd`+load_ext
        LOADIMAGE 74,330,640,480,jpg,key_facts+country+`/af`+country+load_ext2
    }
    show_text_am()
    sound key_facts_local+`afsd.wav wave`

end sub




sub fun_screen()


    load_image_to_screen(0 ,0,1280,960,1,255,key_facts_local+`keyf`+load_ext)
    wait 500
    ifc(kf_pic_on[new_number]==1)
    {
        ACTIVEPAGE 0
        LOADIMAGE 28,130,640,480,jpg,server_local  +`/bkgnd`+load_ext
        LOADIMAGE 28,130,640,480,jpg,key_facts+country+`/kf`+country+load_ext2
        pencolor  255,255,255
        FONT "HELVETICA",11,22
        id =1010
        label id,740,930,800,48,left,"Photo:"+photo_cr[new_number]
    }
    transparentcolor 255,255,255
    fillmask0




//    show_text_pic()
//    show_text_kf()

end sub


sub add_text_to_screen()


    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
    SpriteFlags2 233, enabled|visible, UNBOUND

    id=1000
    settext id, " "
    id=2000
    settext id, " "

    show_overview_on_text_screen()

    FONT "HELVETICA",24,48
    pencolor  255,255,255
    id=99
    settext id,  header_top
    transparentcolor 255,255,255
    fillmask0

    pencolor  156,156,198

    deleteobject   text_up_id
    text_up_id=getnextobjectid()
    id=918 //text up large
    iconbuttonid id,  1184,780,62,60,enabled,none,2,320,321,322,{null}
    deleteobject   text_down_id
    text_down_id=getnextobjectid()
    id=919 //text down large
    iconbuttonid id,  1182,838,62,58,enabled,none,2,324,325,326,{null}


    check_text=checkfile(server_cache+country+`.txt`,readable)

    ifc(check_text)
    {
        id=1000
        settext id, " "
        id=2000
        settext id, " "

        objHTMLBox2=getnextobjectid()
        customtextwindow 148,128,1012,802,server_cache+country+`.txt`,918,919
    }
    else
    {
        check_text=filecopy(server + country +`/`+country+`.txt`,server_cache+country+`.txt`)
        id=1000
        settext id, " "
        id=2000
        settext id, " "
        objHTMLBox2=getnextobjectid()
        customtextwindow 148,128,1012,802,server_cache+country+`.txt`,918,919
    }

    delsprite 233

end sub

sub     large_text()

    pop_up_small=no

    load_image_to_screen(0 ,0,1280,960,1,255,server_local+`/lagtxt`+load_ext)

//    ACTIVEPAGE 1
//    LOADIMAGE 0,0,1280,960,JPG,server_local+`/lagtxt`+load_ext
//    ACTIVEPAGE 0
//    clearscreen 0,0,1279,959,standard,1,255

//    show_overview_on_text_screen()

    FONT "HELVETICA",24,48
    pencolor  255,255,255
    id=99
    label id, 190,40, 550, 60, left, header_top
    add_text_to_screen()

end sub


sub show_pic(slide_number as filename,slide_check as int, size as int,slide_number2 as filename)
local

    int    help
    int    del_sp_cnt
end local

    ifc(sprites_on==yes)
    {
        forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
            delsprite del_sp_cnt
    }

    pencolour  0,255,255,255
    FONT "HELVETICA",11,22
    activepage 0


    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
    SpriteFlags2 233, enabled|visible, UNBOUND

    ifc(slide_check==0)
    {
        ifc(size==small)
        {
            id=98
            settext id," "
            id=998
            settext id, " "

            slide_number=filename("map320")
            flag_hold = 0
            ifc(small_start==1)
            {
                small_start=0
                loadphoto=getnextobjectid()
                saveimage 28,130,640,480,jpg, server_local  +`/bkgnd`+load_ext, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold=0
                SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/`+ slide_number +load_ext3
                while not flag_hold loop
                    hold
                endwhile
            }
            else
            {
                SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/`+ slide_number +load_ext3
                while not flag_hold loop
                    hold
                endwhile
            }
            show_sprite(1)
            FILLMASK0
        }
        else
        {
            id=97
            settext id," "
            slide_number=filename("map")
            hit_3d=0
            flag_hold = 0
            ifc(big_start==1)
            {
                big_start=0
                loadphoto_l=getnextobjectid()
                saveimage 140,132,1002,752,jpg, server_local  +`/lgback`+load_ext, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold=0
                SetFilenameProperty loadphoto_l, "LoadImageNotify", server + country +`/`+ slide_number +load_ext2
                while not flag_hold loop
                    hold
                endwhile
            }
            else
            {
                SetFilenameProperty loadphoto_l, "LoadImageNotify", server + country +`/`+ slide_number +load_ext2
                while not flag_hold loop
                    hold
                endwhile
            }
            show_sprite(2)
        }

    }
    else
    {
        ifc(size==small)
        {
            help=0
            id=98
            settext id," "
            flag_hold = 0
            FONT "HELVETICA",11,22
            id=998
            settext id, " "
            id=98
            settext id,large_cap[count]
            ifc(small_start==1)
            {
                small_start=0
                loadphoto=getnextobjectid()
                saveimage 28,130,640,480,jpg, server_local  +`/bkgnd`+load_ext, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold=0
                SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/`+ slide_number+`s`+load_ext3

//                loadphoto=getnextobjectid()
//                saveimage 28,130,640,480,jpg, server + country +`/`+ slide_number+`s`+load_ext3, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
            }
            else
            {
                SetFilenameProperty loadphoto, "LoadImageNotify", server_local  +`/bkgnd`+load_ext
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold = 0
                SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/`+ slide_number +`s`+load_ext3
                while not flag_hold loop
                    hold
                endwhile

            }
        }
        else
        {
            FONT "HELVETICA",11,22
            id=997
            settext id, " "
            id=97
            settext id,large_cap[count]
            help=0
            flag_hold = 0
            ifc(big_start==1)
            {
                big_start=0

                loadphoto_l=getnextobjectid()
                saveimage 140,132,1002,752,jpg, server_local  +`/lgback`+load_ext, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold=0
                SetFilenameProperty loadphoto_l, "LoadImageNotify", server + country +`/`+ slide_number +`l`+load_ext2

//                loadphoto_l=getnextobjectid()
//                saveimage 140,132,1002,752,jpg, server + country +`/`+ slide_number +`l`+load_ext2, ``, dummy, { flag_hold = 1 }
                while not flag_hold loop
                    hold
                endwhile
            }
            else
            {
                SetFilenameProperty loadphoto_l, "LoadImageNotify", server_local  +`/lgback`+load_ext
                while not flag_hold loop
                    hold
                endwhile
                wait 100
                flag_hold = 0
                SetFilenameProperty loadphoto_l, "LoadImageNotify", server + country +`/`+ slide_number +`l`+load_ext2
                while not flag_hold loop
                    hold
                endwhile
            }
        }
        ifc(sprites_on==yes)
        {
            forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                delsprite del_sp_cnt
        }
    }
    delsprite 233
    browsersetcursorbusy false


end sub

sub set_large()

    big_start=1
    pencolor  255,255,255
    clearscreen 0,0,1279,959,standard,1,255
    FONT "HELVETICA",24,48
    id=99
    label id, 190,40, 550, 60, left, header_top
    clearscreen 0,0,1280,960,standard,1,255
    pencolor  241,230,119
    id=97
    label id, 132,900, 1002, 68, centre, " "
    load_image_to_screen(0 ,0,1280,960,1,255,server_local+`lagimg`+load_ext)

//    ACTIVEPAGE 1
//    LOADIMAGE 0,0,1280,960,JPG,server_local+`lagimg`+load_ext
//    ACTIVEPAGE 0
//    clearscreen 0,0,1280,960,standard,1,255

    show_pic(filename(itostr(count)),count,big,filename(itostr(next_image)))

end sub

sub menu_bar(menu_number as int)

    menu_load = filename( itostr(menu_number) )
    load_image_to_screen(0 ,840,1280,120,1,255,server_menu+menu_load+load_ext)

//    ACTIVEPAGE 1
//    LOADIMAGE 0,840,1280,120,jpg,server_menu+menu_load+load_ext
//    ACTIVEPAGE 0
//    clearscreen 0,840,1280,120,standard,1,255
    iconbuttonid id,  106,864,118,66,enabled,none,1,222,222,222,
    {
        null
    }

end sub

sub display_text(start_point_x as int ,start_point_y as int, text_number as int,menu_number as int)
local
    string    the_desc_with,temp_string
    int    string_count
end local

    the_desc_with=""
    temp_string=ftostr(the_per[text_number],"%.0f")
    forc(string_count=0;string_count<len(temp_string);string_count++)
    {
        ifc(string_count>0)
        {
            ifc(len(temp_string)-string_count==3 || len(temp_string)-string_count==6 || len(temp_string)-string_count==9)
            {
                the_desc_with=the_desc_with+","
            }
        }
        the_desc_with=the_desc_with+mid$(temp_string,string_count,1)
    }
    ifc(menu_number==1)
        the_desc_with+=" sq km"

    FONT "HELVETICA.BOLD",12,24


    id=444+text_number
    ifc(text_number==0)
        bar_text_map1=getnextobjectid()
    ifc(text_number==1)
        bar_text_map2=getnextobjectid()
    ifc(text_number==2)
        bar_text_map3=getnextobjectid()
    ifc(text_number==3)
        bar_text_map4=getnextobjectid()
    label id, start_point_x,start_point_y, 220, 68, centre, the_desc_with
    ifc(menu_number==3 && text_number==0)
    {
        id=411
        bar_text_map_lable=getnextobjectid()
        label id, 0,435, 1290, 68, centre, "Brutto-Sozialprodukt pro Kopf in US$"
    }


end sub

sub bar(menu_number as int, new_bar_line as int)

    TRANSPARENCY 0
    PENWIDTH 0
    fillmask0

    max=1
    forc(count_c=0;count_c<4;count_c++)
    {
        ifc(menu_number==1)
            the_per[count_c]=strtof(area[graph[count_c]])
        ifc(menu_number==2)
            the_per[count_c]=strtof(pop[graph[count_c]])
        ifc(menu_number==3)
            the_per[count_c]=strtof(prod[graph[count_c]])
    }
    forc(count_c=0;count_c<4;count_c++)
    {
        ifc(the_per[count_c]>max)
            max=the_per[count_c]
    }
    form=280/max
    forc(count_c=0;count_c<4;count_c++)
    {
        bar1[count_c]=810.0-(the_per[count_c]*form)
    }
    ifc(menu_number==1)
    {
        PENCOLOR 255,0,255
        fillmask3 jpg,server_local+`graph1`+load_ext
    }
    ifc(menu_number==2)
    {
        PENCOLOR 0,167,252
        fillmask3 jpg,server_local+`graph3`+load_ext
    }
    ifc(menu_number==3)
    {
        PENCOLOR 255,117,0
        fillmask3 jpg,server_local+`graph5`+load_ext
    }

    ifc(new_bar_line==0)
    {
        bar_map1=getnextobjectid()
        RECTANGLE  102,int(bar1[0]),72,810-int(bar1[0])
        bar_map2=getnextobjectid()
        RECTANGLE  412,int(bar1[1]),72,810-int(bar1[1])
        bar_map3=getnextobjectid()
        RECTANGLE  722,int(bar1[2]),72,810-int(bar1[2])
        bar_map4=getnextobjectid()
        RECTANGLE  1032,int(bar1[3]),72,810-int(bar1[3])
        PENCOLOR 255,255,255
        display_text(38,(int(bar1[0])-45),0,menu_number)
        display_text(348,(int(bar1[1])-45),1,menu_number)
        display_text(658,(int(bar1[2])-45),2,menu_number)
        display_text(968,(int(bar1[3])-45),3,menu_number)
        activepage 0
        clearscreen 0,400,1280,450,pushup,1,15

    }
    else
    {
        ifc(new_bar_line==1)
        {
            bar_map1=getnextobjectid()
            RECTANGLE  102,int(bar1[0]),72,810-int(bar1[0])
            PENCOLOR 255,255,255
            display_text(38,(int(bar1[0])-45),0,menu_number)
        }
        ifc(new_bar_line==2)
        {
            bar_map2=getnextobjectid()
            RECTANGLE  412,int(bar1[1]),72,810-int(bar1[1])
            PENCOLOR 255,255,255
            display_text(348,(int(bar1[1])-45),1,menu_number)
        }
        ifc(new_bar_line==3)
        {
            bar_map3=getnextobjectid()
            RECTANGLE  722,int(bar1[2]),72,810-int(bar1[2])
            PENCOLOR 255,255,255
            display_text(658,(int(bar1[2])-45),2,menu_number)
        }
        ifc(new_bar_line==4)
        {
            bar_map4=getnextobjectid()
            RECTANGLE  1032,int(bar1[3]),72,810-int(bar1[3])
            PENCOLOR 255,255,255
            display_text(968,(int(bar1[3])-45),3,menu_number)
        }
    }

end sub


sub sort_list1()
local

    int    sort_count1,sort_count2
    int    sorted_out
    current_lowest as string
    spare_string as string
    int    spare_number

end local



    sorted_out=0
    forc(sort_count1=0;sort_count1<265;sort_count1++)
    {
        current_lowest=list_1[sort_count1]
        sorted_out=sort_count1
        forc(sort_count2=sort_count1;sort_count2<265;sort_count2++)
        {
            ifc(list_1[sort_count2]<current_lowest)
            {
                current_lowest=list_1[sort_count2]
                sorted_out=sort_count2
            }

        }

        spare_string=list_1[sort_count1]
        list_1[sort_count1]=current_lowest
        list_1[sorted_out]=spare_string

        spare_number=new_index[sort_count1]
        new_index[sort_count1]=new_index[sorted_out]
        new_index[sorted_out]=spare_number

        print sort_count1,"\\t",list_1[sort_count1],`\\t`,"Ref",`\\t`,new_index[sort_count1], "\n"

    }


end sub

sub set_list()
local
    list_counter as int
    new_index_number as int
    read_in_line as string
end local

    restoredata names
    restoredata desc

    forc(list_counter=0;list_counter<265;list_counter++)
    {
        input data names,read_in_line
        addelement list_1,read_in_line

//        new_index[list_counter]=list_counter

        input data names,new_index_number
        addelement new_index,new_index_number

        old_index[new_index_number]=list_counter


    }


//    sort_list1()

    forc(list_counter=0;list_counter<265;list_counter++)
    {
        input data desc,read_in_line
        addelement list_2,read_in_line



//        input data desc,list_2[list_counter]
    }


end sub


sub load_map(check_name as int,pos_map as int)

    check_file=filename(itostr(check_name))


    activepage 1
    LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
    activepage 0


    FONT "HELVETICA.BOLD",13,26
    pencolor  241,230,119
    ifc(pos_map==1)
    {

        activepage 1
        saveimage 40,200,265,198,jpg, server+check_file+`/map132`+load_ext3 , ``, dummy, { flag_hold = 1 }
        while not flag_hold loop
            hold
        endwhile
        id=800
        label id, 40,155, 265, 68, centre, graph_name[0]
        activepage 0
        clearscreen 40,100,265,298,standard,1,255


    }
    ifc(pos_map==2)
    {
        activepage 1
        saveimage 352,200,265,198,jpg, server+check_file+`/map132`+load_ext3 , ``, dummy, { flag_hold = 1 }
        while not flag_hold loop
            hold
        endwhile
        id=801
        label id, 352,155, 265, 68, centre, graph_name[1]
        activepage 0
        clearscreen 352,100,265,298,standard,1,255


    }
    ifc(pos_map==3)
    {
        activepage 1
        saveimage 664,200,265,198,jpg, server+check_file+`/map132`+load_ext3 , ``, dummy, { flag_hold = 1 }
        while not flag_hold loop
            hold
        endwhile
        id=802
        label id, 664,155, 265, 68, centre, graph_name[2]
        activepage 0
        clearscreen 664,100,265,298,standard,1,255

    }
    ifc(pos_map==4)
    {
        activepage 1
        saveimage 970,200,265,198,jpg, server+check_file+`/map132`+load_ext3 , ``, dummy, { flag_hold = 1 }
        while not flag_hold loop
            hold
        endwhile
        id=803
        label id, 970,155, 265, 68, centre, graph_name[3]
        activepage 0
        clearscreen 970,100,265,298,standard,1,255


    }
    ifc(busy_mover==yes)
        delsprite 233


end sub

sub set_gph()

    load_image_to_screen(0 ,0,1280,960,1,255,server_menu+`stats`+load_ext)
    load_image_to_screen(0 ,840,1280,120,1,255,server_menu+`none`+load_ext)

    ACTIVEPAGE 1
//    LOADIMAGE 0,0,1280,960,JPG,server_menu+`stats`+load_ext
//    LOADIMAGE 0,840,1280,120,JPG,server_menu+`none`+load_ext
    FONT "HELVETICA",24,48
    pencolor  255,255,255
    id=888
    label id, 180,40, 550, 60, left, "Statistik"
    activepage 0
    clearscreen 0,0,1280,960,standard,1,255

    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
    SpriteFlags2 233, enabled|visible, UNBOUND

    busy_mover=no
    load_map(graph[0],1)
    load_map(graph[1],2)
    load_map(graph[2],3)
    busy_mover=yes
    load_map(graph[3],4)


end sub

sub show_key()
local
    int r,g,b,key_count,des_count
end local

    des_count=1
    FONT "HELVETICA.BOLD",12,24
//    FONT "HELVETICA.BOLD",13,26
    forc(key_count=48;key_count<1010;key_count+=320)
    {
        ifc(des_count>max_des_key)
            breakc
        pencolor  red[des_count],green[des_count],blue[des_count]
        cir_cir[des_count]=getnextobjectid()
        circle key_count+13,725+13,16
        cir_cir_fill[des_count]=getnextobjectid()
        floodfill key_count+13,725+13
        pencolor  255, 255, 255
        cir_key[des_count]=getnextobjectid()
        text Key_count+45,720,des_key[des_count]
        des_count++
    }

    forc(key_count=48;key_count<1010;key_count+=320)
    {
        ifc(des_count>max_des_key)
            breakc
        pencolor  red[des_count],green[des_count],blue[des_count]
        cir_cir[des_count]=getnextobjectid()
        circle key_count+13,770+13,16
        cir_cir_fill[des_count]=getnextobjectid()
        floodfill key_count+13,770+13
        pencolor  255, 255, 255
        cir_key[des_count]=getnextobjectid()
        text Key_count+45,765,des_key[des_count]
        des_count++
    }

    forc(key_count=48;key_count<1010;key_count+=320)
    {
        ifc(des_count>max_des_key)
            breakc
        pencolor  red[des_count],green[des_count],blue[des_count]
        cir_cir[des_count]=getnextobjectid()
        cir_cir_fill[des_count]=getnextobjectid()
        circle key_count+13,815+13,16
        floodfill key_count+13,815+13
        pencolor  255, 255, 255
        cir_key[des_count]=getnextobjectid()
        text Key_count+45,810,des_key[des_count]
        des_count++
    }


end sub


sub read_pies()
local
    int    pie_counter
end local

    restoredata pie_land
    restoredata pie_labor

    forc(pie_counter=1;pie_counter<266;pie_counter++)
    {
        input data pie_land, land_name[pie_counter][1],land_number[pie_counter][1],
                        land_name[pie_counter][2],land_number[pie_counter][2],
                    land_name[pie_counter][3],land_number[pie_counter][3],
                    land_name[pie_counter][4],land_number[pie_counter][4],
                    land_name[pie_counter][5],land_number[pie_counter][5]


        input data pie_labor, labor_name[pie_counter][1],labor_number[pie_counter][1],
                          labor_number[pie_counter][2],
                      labor_number[pie_counter][3],
                      labor_number[pie_counter][4],
                      labor_number[pie_counter][5],
                      labor_number[pie_counter][6],
                      labor_number[pie_counter][7],
                      labor_number[pie_counter][8]


    input data pie_rel, rel_name[pie_counter][1],rel_number[pie_counter][1],
                              rel_number[pie_counter][2],
                          rel_number[pie_counter][3],
                          rel_number[pie_counter][4],
                          rel_number[pie_counter][5],
                    rel_number[pie_counter][6],
                           rel_number[pie_counter][7],
                           rel_number[pie_counter][8],
                           rel_number[pie_counter][9]



        labor_name[pie_counter][1]=1
        labor_name[pie_counter][2]=2
        labor_name[pie_counter][3]=3
        labor_name[pie_counter][4]=4
        labor_name[pie_counter][5]=5
        labor_name[pie_counter][6]=6
        labor_name[pie_counter][7]=7
        labor_name[pie_counter][8]=8

        rel_name[pie_counter][1]=1
        rel_name[pie_counter][2]=2
        rel_name[pie_counter][3]=3
        rel_name[pie_counter][4]=4
        rel_name[pie_counter][5]=5
        rel_name[pie_counter][6]=6
        rel_name[pie_counter][7]=7
        rel_name[pie_counter][8]=8
        rel_name[pie_counter][9]=9
    }


end sub

sub set_key_code(the_pie_type as int)
local
    int cl_count
end local

    FONT "HELVETICA.BOLD",12,40

    ifc(the_pie_type==1)
    {
        restoredata colour_land
        restoredata describe_land
        forc(cl_count=1;cl_count<6;cl_count++)
        {
            input data colour_land, red[cl_count],green[cl_count],blue[cl_count]
            input data describe_land, des_key[cl_count]
        }
        max_des_key=5
    }
    ifc(the_pie_type==2)
    {
        restoredata colour_labor
        restoredata describe_labor
        forc(cl_count=1;cl_count<9;cl_count++)
        {
            input data colour_labor, red[cl_count],green[cl_count],blue[cl_count]
            input data describe_labor, des_key[cl_count]
        }
        max_des_key=8
    }

    ifc(the_pie_type==3)
    {
        restoredata colour_rel
        restoredata describe_rel
        forc(cl_count=1;cl_count<10;cl_count++)
        {
            input data colour_rel, red[cl_count],green[cl_count],blue[cl_count]
            input data describe_rel, des_key[cl_count]
        }
        max_des_key=9
    }


end sub

sub new_country(the_direction as int,show_map as int)
local

    caps_count as int
    check_cap as string

end local

    ifc(show_map==yes)
    {
        load_image_to_screen(0,0,1280,960,1,255,server_local+`main`+load_ext)
        interface_on_screen=yes
    }
    busy_mover=yes
    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
    SpriteFlags2 233, enabled|visible, UNBOUND


print "new_number=",new_number,"\n"
    new_number=old_index[new_number-1]

print "now new_number=",new_number,"\n"

    ifc(the_direction==down)
    {
        new_number--
        ifc(new_number<0)
            new_number=264
    }
    else
    {
        new_number++
        ifc(new_number>264)
            new_number=0
    }

    new_number=new_index[new_number]

print "final new_number=",new_number,"\n"

new_number++

    graph[0]=new_number
    graph_name[0]=list_2[new_number-1]
    header_top=list_2[new_number-1]
    header_text=list_1[new_number-1]
    country=filename(itostr(new_number))

//    graph[0]=new_number
//    graph_name[0]=list_2[new_number-1]
//    header_top=list_2[new_number-1]
//    header_text=list_1[new_number-1]
//    country=filename(itostr(new_number))



    pop_up_big=yes
    pop_up_small=yes
    read_overview(server + country +`/`+country+`.ovw`)
    ifc(total_slides[new_number]>0)
    {
        ifc(last_cap_count>0)
        {
            deleteelements small_cap,last_cap_count
            deleteelements large_cap,last_cap_count
        }
        open server + country +`/`+country+`.cap` for read as #1
        addelement small_cap,"MAP"
        addelement large_cap,"MAP"
        forc(caps_count=1;caps_count<total_slides[new_number]+1;caps_count++)
        {
            check_cap=inputline$(#1)
            check_cap=inputline$(#1)
            addelement small_cap,check_cap
            check_cap=inputline$(#1)
            addelement large_cap,check_cap

        }
        close #1
        last_cap_count=total_slides[new_number]+1
    }
    ifc(show_map==yes)
        show_country(yes)



end sub

sub    store_names(count_map as int,show_map as int)
local

    caps_count as int
    check_cap as string

end local
    ifc(show_map==yes)
    {
        load_image_to_screen(0,0,1280,960,1,255,server_local+`main`+load_ext)
        interface_on_screen=yes
        busy_mover=yes
    }
    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
    SpriteFlags2 233, enabled|visible, UNBOUND



    new_number=count_map+1
    country=filename(itostr(new_number))
    header_top=list_2[new_number-1]
    header_text=list_1[new_number-1]

    graph[0]=new_number
    graph_name[0]=list_2[new_number-1]
    pop_up_big=yes
    pop_up_small=yes



//    new_number=count_map
//    country=filename(itostr(new_number))
//    header_top=list_2[new_number-1]
//    header_text=list_1[new_number-1]
//    graph[0]=new_number
//    graph_name[0]=list_2[new_number-1]
//    pop_up_big=yes
//    pop_up_small=yes


    read_overview(server + country +`/`+country+`.ovw`)
    ifc(total_slides[new_number]>0)
    {
        ifc(last_cap_count>0)
        {
            deleteelements small_cap,last_cap_count
            deleteelements large_cap,last_cap_count
        }

        open server + country +`/`+country+`.cap` for read as #1
        addelement small_cap,"MAP"
        addelement large_cap,"MAP"

        forc(caps_count=1;caps_count<total_slides[new_number]+1;caps_count++)
        {
            check_cap=inputline$(#1)

            check_cap=inputline$(#1)
            addelement small_cap,check_cap
            check_cap=inputline$(#1)
            addelement large_cap,check_cap

        }
        close #1
        last_cap_count=total_slides[new_number]+1
    }
    ifc(show_map==yes)
        show_country(yes)
    count=0
end sub

sub set_gph_name(index as int,gph_no as int)

    graph[gph_no]=index+1
    graph_name[gph_no]=list_2[index]

end sub

sub    check_gph_names()
local
int check_gpg_cnt

end local

    forc(check_gpg_cnt=1;check_gpg_cnt<4;check_gpg_cnt++)
    {
        ifc(graph[check_gpg_cnt]==51)
        {
            ifc(check_gpg_cnt==1)
            {
                graph[1]=249
                graph_name[1]="Vereinigte Staaten"
            }
            ifc(check_gpg_cnt==2)
            {
                graph[2]=90
                graph_name[2]="Deutschland"
            }
            ifc(check_gpg_cnt==3)
            {
                graph[3]=122
                graph_name[3]="Japan"
            }
        }
    }


    forc(check_gpg_cnt=1;check_gpg_cnt<4;check_gpg_cnt++)
    {
        ifc(graph[check_gpg_cnt]==new_number)
        {
            graph[check_gpg_cnt]=51
            graph_name[check_gpg_cnt]=list_2[50]
        }
    }



end sub


sub change_images(the_direction as int,image_size as int)

    ifc(the_direction==up)
    {
        count++
        next_image++
        ifc(next_image>total_slides[new_number])
            next_image=1
        ifc(count>total_slides[new_number])
            count=0
    }
    else
    {
        count--
        next_image--
        ifc(next_image<0)
            next_image=total_slides[new_number]-1
        ifc(count<0)
            count=total_slides[new_number]
    }
    ifc(image_size==small)
        show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
    else
        show_pic(filename(itostr(count)),count,big,filename(itostr(next_image)))


end sub


sub delete_current_settings()
local

    int loop_del

end local


    ifc(current_bar_c<4 && current_bar_c>0)
    {
        deleteobject bar_map1
        deleteobject bar_text_map1
        deleteobject bar_map2
        deleteobject bar_text_map2
        deleteobject bar_map3
        deleteobject bar_text_map3
        deleteobject bar_map4
        deleteobject bar_text_map4
        deleteobject bar_text_map_lable
    }
    else
    {
        deleteobject circle_id[1]
        deleteobject circle_id[2]
        deleteobject circle_id[3]
        deleteobject circle_id[4]
        deleteobject not_avail1[1]
        deleteobject not_avail1[2]
        deleteobject not_avail1[3]
        deleteobject not_avail1[4]

        deleteobject not_avail2[1]
        deleteobject not_avail2[2]
        deleteobject not_avail2[3]
        deleteobject not_avail2[4]

        forc(loop_del=1;loop_del<10;loop_del++)
        {
            deleteobject flood_id[1][loop_del]
            deleteobject flood_id[2][loop_del]
            deleteobject flood_id[3][loop_del]
            deleteobject flood_id[4][loop_del]

            deleteobject lable_id[1][loop_del]
            deleteobject lable_id[2][loop_del]
            deleteobject lable_id[3][loop_del]
            deleteobject lable_id[4][loop_del]

            deleteobject line_id[1][loop_del]
            deleteobject line_id[2][loop_del]
            deleteobject line_id[3][loop_del]
            deleteobject line_id[4][loop_del]

            deleteobject cir_key[loop_del]
            deleteobject cir_cir_fill[loop_del]
            deleteobject cir_cir[loop_del]

        }

    }

end sub




sub read_dates()


    total=30
    count_key_facts=0
    main=""
    open key_facts+country+`/da`+country+`.txt` for read as #1
    whilec(!feof(#1))
    {
        total_lines[count_key_facts]=""
        total_lines[count_key_facts]=inputline$(#1)
        ifc(count_key_facts<20)
            main+="\n"
        count_key_facts++
    }
    close #1

    total=count_key_facts

end sub


sub set_up_screen()


    load_image_to_screen(0 ,0,1280,960,1,255,key_facts_local+`keyd`+load_ext)
    wait 500
//    ACTIVEPAGE 1
//    LOADIMAGE 0,0,1280,960,JPG,key_facts_local+`keyd`+load_ext
    ifc(kf_pic_on[new_number]==1)
    {
//        load_image_to_screen(28 ,130,640,480,1,255,key_facts+country+`/kf`+country+load_ext2)
        ACTIVEPAGE 0
        LOADIMAGE 28,130,640,480,jpg,server_local  +`/bkgnd`+load_ext
        LOADIMAGE 28,130,640,480,jpg,key_facts+country+`/kf`+country+load_ext2

        pencolor  255,255,255
        FONT "HELVETICA",11,22
        id=1010
        label id,740,930,800,48,left,"Photo:"+photo_cr[new_number]
    }
//    ACTIVEPAGE 0
//    clearscreen 0,0,1279,959,standard,1,255

    transparentcolor 255,255,255
    fillmask0
    show_text_pic()
    SPRITEb 221,532,810,looped,1,255,2,[354,355]
    SpriteFlags2 221, enabled|visible, UNBOUND
    FILLMASK1 255,255,255
    TRANSPARENCY 0
    PENCOLOR 255,255,255
    LINESTYLE SOLID
    PENWIDTH 1
    id=555
    label id, 750,198, 428, 650, wrap|left," "
    PENCOLOR 255,0,0
    PENCOLOR 0,0,0

end sub

sub off_click_small()

    SetProperty combo_small, "SetFocus"
    on_event mouseclick,x,y
    {
        ifc( (x<30 || x>670) || (y<130 || y>610) )
        {
            deleteobject combo_small
            off_event mouseclick
        }
    }

end sub


sub off_click_big()

    PENWIDTH 3
    combo_big=getnextobjectid()
    pencolor  255,139,0
    rectangle 387,190,530,575
    SetProperty combo_small, "SetFocus"
    on_event mouseclick,x,y
    {
        ifc( (x<378 || x>917) || (y<190 || y>765) )
        {
            deleteobject combo_small
            deleteobject combo_big
            off_event mouseclick
            FONT "HELVETICA",24,48
        }
    }
    pencolor  255,255,255

end sub


sub scroll_text()
local
int button_press
end local
    PENCOLOR 255,255,255

    lines_shown=0
    stop_scroll=1

    button_press=GetnextobjectID()
//    iconbuttonid id,  722,854,462,82,enabled,none,1,222,222,222,
    on_event mouseclick,x,y
    {
        ifc(stop_scroll==33)
        {
            delsprite 221
        }
        ifc(count_key_facts<total)
        {
            ifc(stop_scroll==1)
            {
                PENCOLOR 0,255,0
                stop_scroll=0
                PENCOLOR 255,255,255
                SPRITEb 221,532,810,looped,1,255,2,[355]
                print "stop the loop"
            }
            else
            {
                stop_scroll=1
                PENCOLOR 255,0,0
                PENCOLOR 255,255,255
                SPRITEb 221,532,810,looped,1,255,2,[354,355]
            }
        }
    }
    wait 20
    forc(count_key_facts=0;count_key_facts<total;count_key_facts++)
    {
        ifc(count_key_facts==99)
            breakc
        new_len=len(total_lines[count_key_facts])
        current_pos=len(main)
        print main
        forc(line_cnt=0;line_cnt<new_len+4;line_cnt=line_cnt)
        {
            ifc(count_key_facts==99)
                breakc
            ifc(stop_scroll==1)
            {
                FONT "MODERN",15,24
                id=555
                settext id, main
                main+=mid$(total_lines[count_key_facts],line_cnt,4)
                wait 1
                line_cnt+=4
            }
            wait 20
        }
        main2=main
        current_pos=len(main)
        ifc(lines_shown>9)
        {
            ifc(count_key_facts==99)
                breakc
            check=""
            forc(line_cnt=0;check!="\n";line_cnt++)
            {
                check=mid$(main,line_cnt,1)
            }
        }
        else
            line_cnt=1
        main=""
        forc(line_cnt=line_cnt;line_cnt<current_pos+1;line_cnt++)
        {
            ifc(count_key_facts==99)
                breakc
            main+=mid$(main2,line_cnt,1)
        }
        lines_shown++
        main+="\n"
        wait 20
    }
    ifc(count_key_facts==total)
        SPRITEb 221,532,810,looped,1,255,2,[355]

end sub








sub setup(hotspot_check as int)
local
    int    count_map,index,max_read,check_map,id_check,read_number
    int    hotxs[100],hotys[100],hotxe[100],hotye[100],store_country[100]
    string    map_name[30],map_pos_name
    string    ans
    filename new_file
    int    s23_count
    int    play_vid
    int    loop_del
    int    vobj
    int    flag_on
    boolean    paused
    int    del_sp_cnt
    int    state
    int     start_game_no
    int    count_map_mark

    int    wait_done1
    int    wait_done2
    int    wait_done3
    int    wait_done4
    int    wait_done5

endlocal

    loop_exit=0

    ifc(hotspot_check==world_map)
    {
        country_set=0

        ACTIVEPAGE 1
        LOADIMAGE 0,0,1280,960,JPG,server_maps+`wm`+load_ext
        LOADIMAGE 26-1,20+120,1230,804,JPG,server_maps+`mainm`+load_ext
        activepage 0
        clearscreen 0,0,1280,960,explode,1,50
        restoredata world_map
        forc(count_map=0;count_map<10;count_map++)
        {
            input data world_map ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],map_name[count_map]
            iconbuttonid count_map,  hotxs[count_map]-1,hotys[count_map]+120,hotxe[count_map],hotye[count_map],enabled,none,1,222,222,222,
            {
                click
                destroyAllobjects
                pencolor  255,255,255
                FONT "HELVETICA",24,48
                id=99
                label id, 190,40, 550, 60, left, " "
                ifc(count_map==0)
                {
                    restoredata map1
                    max_read=5
                    check_map=1
                }
                ifc(count_map==1)
                {
                    restoredata map2
                    check_map=2
                    max_read=24
                }
                ifc(count_map==2)
                {
                    restoredata map3
                    max_read=74
                    check_map=3

                }
                ifc(count_map==3)
                {
                    restoredata map4
                    check_map=4
                    max_read=56
                }
                ifc(count_map==4)
                {
                    check_map=5
                    restoredata map5
                    max_read=33
                }
                ifc(count_map==5)
                {
                    check_map=6
                    restoredata map6
                    max_read=13
                }
                ifc(count_map==6)
                {
                    check_map=7
                    restoredata map7
                    max_read=9
                }
                ifc(count_map==7)
                {
                    check_map=8
                    restoredata map8
                    max_read=25
                }
                ifc(count_map==8)
                {
                    check_map=9
                    restoredata map9
                    max_read=20
                }
                ifc(count_map==9)
                {
                    check_map=10
                    restoredata map10
                    max_read=9
                }
//                activepage 1
                new_file=filename(map_name[count_map])
//                LOADIMAGE 26-1,20+120,1230,804,gif,server_maps+`map`+new_file+load_ext
                load_image_to_screen(26-1 ,20+120,1230,804,1,255,server_maps+`map`+new_file+load_ext)

//                activepage 0
//                clearscreen 0,0,1280,960,standard,1,255
                id=426 //EXIT
                iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
                {
                    click
                    destroyAllobjects
                    loop_exit=1
                }
                id=401 //World MAP
                iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
                {
                    click
                    destroyAllobjects
                    setup(world_map)
                }
                id=402 //print
                iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
                {
                    click
                    //printsetup header|footer,"","Regional Map","","","","","Regional Map"
                    wait 20
                    printscreen 0,0,1280,960, scaled|centred ,0
                }
                id=403 //help
                iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
                {
                    click
                    null
                }
                id=400 //search
                iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
                {
                    font "COURIER.BOLD", 20,36
                    deleteobject combo_small
                    combo_small=getnextobjectid()
                    combobox 390,196,520,564,list_1,enabled,ans,index,
                    {
                        ifc(index!=-1)
                        {
                            click
                            destroyAllobjects
                            browsersetcursorbusy true
                            store_names(new_index[index],yes)
                            setup(1)
                        }
                    }
                    off_click_big()
                }
                count_map_mark=0
                forc(count_map=0;count_map<max_read;count_map++)
                {
                    ifc(check_map==1)
                        input data map1 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==2)
                        input data map2 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==3)
                        input data map3 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==4)
                        input data map4 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==5)
                        input data map5 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==6)
                        input data map6 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==7)
                        input data map7 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==8)
                        input data map8 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==9)
                        input data map9 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]
                    ifc(check_map==10)
                        input data map10 ,hotxs[count_map],hotys[count_map],hotxe[count_map],hotye[count_map],store_country[count_map]



                    hotregion count_map_mark,true ,   [hotxs[count_map]-1,hotys[count_map]+120,((hotxs[count_map]-1)+hotxe[count_map]),hotys[count_map]+120,
                            ((hotxs[count_map]-1)+hotxe[count_map]),((hotys[count_map]+120)+hotye[count_map]),
                            hotxs[count_map]-1,((hotys[count_map]+120)+hotye[count_map])],state,
                    {
                        ifc(state==1)
                        {
                            id=99
                            settext id, list_2[(store_country[count_map_mark])-1]

                        }
                        else
                        {
                            id=99
                            settext id, " "
                        }
                    }
                    ,
                    {
                        click
                        destroyAllobjects
                        browsersetcursorbusy true

print store_country[count_map_mark],"\n"
print new_index[store_country[count_map_mark]],"\n"
                        store_names(store_country[count_map_mark]-1,yes)
                        setup(1)
                    }
                    count_map_mark++

                }
            }
        }
        browsersetcursorbusy false
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"","World Map","","","","","World Map"
            wait 20
            printscreen 0,0,1280,960, scaled|centred ,0
        }

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }

        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    destroyAllobjects
                    browsersetcursorbusy true
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()
        }
    }

    ifc(hotspot_check==1)
    {
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            ifc(on_3d==yes)
                Kill_3d()
            country_set=1
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 28,130,646,482,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    hold_buttons(1)
                    ifc(sprites_on==yes)
                    {
                        forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                            delsprite del_sp_cnt
                    }
                    browsersetcursorbusy true
                    deleteobject combo_small
                    off_event mouseclick
                    flag_on=no
                    id=98
                    settext id," "
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            SetProperty combo_small, "SetFocus"
            off_click_small()
        }
        ifc(total_slides[new_number]>0)
        {
                country_set=1
                id=480    //photo list
                list_id_on_main=getnextobjectid()
                ifc(on_3d==yes)
                iconbuttonid id,  572,612,120,100,enabled,none,1,160,161,161,
                {
                    flag_on=yes
                    Kill_3d()
                    FONT "HELVETICA",11,22
                    deleteobject combo_small
                    combo_small=getnextobjectid()
                    combobox 28,130,646,482,show_3d_desc,enabled,ans,index,
                    {
                        ifc(index!=-1)
                        {
                            hold_buttons(1)
                            click
                            deleteobject combo_small
                            off_event mouseclick
                            pencolor  255,255,255
                            hit_3d=index
                            FONT "HELVETICA",11,22
                            id=998
                            settext id,show_3d_desc[hit_3d]
                            sound server_sounds+`longplay/`+filename(itostr(show_3d[hit_3d]))+`.mid sequencer`
                            display_object(show_3d[hit_3d])
                            on_3d=yes
                            setup(1)
                        }
                    }
                    SetProperty combo_small, "SetFocus"
                    off_click_small()
                }
                else
                {
                    iconbuttonid id,  572,612,120,100,enabled,none,1,144,145,145,
                    {
                        flag_on=no
                        ifc(on_3d==yes)
                            Kill_3d()
                        FONT "HELVETICA",11,22
                        deleteobject combo_small
                        combo_small=getnextobjectid()
                        combobox 28,130,646,482,small_cap,enabled,ans,index,
                        {
                            ifc(index!=-1)
                            {
                                click
                                deleteobject combo_small
                                hold_buttons(1)
                                off_event mouseclick
                                browsersetcursorbusy true
                                count=index
                                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
                                setup(1)
                            }
                        }
                        SetProperty combo_small, "SetFocus"
                        off_click_small()
                    }
                }




                ifc(count>0)
                {
                    id=415 //Image up
                    up_id_on_main=getnextobjectid()
                    iconbuttonid id,  670,620,56,68,enabled,none,2,308,309,310,
                    {
                        ifc(on_3d==yes)
                        {
                            click
                            hold_buttons(1)
                            flag_on=yes
                            Kill_3d()
                            hit_3d++
                            ifc(hit_3d>click3d-1)
                                hit_3d=0
                            on_3d=yes
                            FONT "HELVETICA",11,22
                            id1=98
                            settext id1," "
                            id1=998
                            settext id1, show_3d_desc[hit_3d]
                            sound server_sounds+`longplay/`+filename(itostr(show_3d[hit_3d]))+`.mid sequencer`
                            display_object(show_3d[hit_3d])
                            setup(1)
                        }
                        else
                        {

                            click
                            hold_buttons(1)
                            flag_on=no
                            ifc(on_3d==yes)
                                Kill_3d()
                            ifc(next_image+1<1)
                                next_image=total_slides[new_number]
                            ifc(count<1)
                                count=total_slides[new_number]+1
                            change_images(down,small)
                            setup(1)
                        }
                    }
                }
                ifc(count<total_slides[new_number])
                {
                    id=416 //Image down
                    down_id_on_main=getnextobjectid()
                    iconbuttonid id,  724,620,56,68,enabled,none,2,312,313,314,
                    {
                        ifc(on_3d==yes)
                        {
                            click
                            hold_buttons(1)
                            flag_on=yes
                            Kill_3d()
                            hit_3d--
                            ifc(hit_3d<0)
                                hit_3d=click3d-1
                            on_3d=yes
                            FONT "HELVETICA",11,22
                            id1=98
                            settext id1," "
                            id1=998
                            settext id1, show_3d_desc[hit_3d]
                            sound server_sounds+`longplay/`+filename(itostr(show_3d[hit_3d]))+`.mid sequencer`
                            display_object(show_3d[hit_3d])
                            setup(1)
                        }
                        else
                        {

                            click
                            hold_buttons(1)
                            flag_on=no
                            ifc(on_3d==yes)
                                Kill_3d()
                            ifc(next_image+1>total_slides[new_number])
                                next_image=0
                            ifc(count>total_slides[new_number])
                                count=0
                            change_images(up,small)
                            setup(1)
                        }
                    }
                }
                country_set=1
                deleteobject    up_id_on
                deleteobject    down_id_on
                deleteobject    list_id_on
        }

        ifc(flag_on=no)
        {
            deleteobject zoom_id_on
            id=423 //Large Image
            zoom_id_on=getnextobjectid()
            iconbuttonid id,  0,600,120,124,enabled,none,1,142,143,143,
            {
                click
                hold_buttons(1)
                country_set=0
                ifc(on_3d==yes)
                    Kill_3d()
                destroyAllobjects
                browsersetcursorbusy true
                set_large()
                setup(large_pic)
            }
        }
        id=422 //Large text
        iconbuttonid id,  0,716,120,104,enabled,none,1,138,139,139,
        {
            click
            change_text=1
            hold_buttons(1)
            country_set=0
            ifc(on_3d==yes)
                Kill_3d()
            destroyAllobjects
            new_country_text=no
            large_text()
            setup(large_text_button)
        }

        id=408    //Stats
        iconbuttonid id,  936,584,150,140,enabled,none,1,118,119,119,
        {
            click
            hold_buttons(1)
            country_set=0
            ifc(on_3d==yes)
                Kill_3d()
            destroyAllobjects
            check_gph_names()
            set_gph()
            current_bar_c=0
            setup(3)
        }

        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            hold_buttons(1)
            ifc(on_3d==yes)
                Kill_3d()
            destroyAllobjects
            loop_exit=1
        }
        ifc(total_slides[new_number]>0)
        {
            flag_on=no
            id=406    //Photo
            photo_id_on_main=getnextobjectid()
            iconbuttonid id,  706,328,150,140,enabled,none,1,114,115,115,
            {
                click
                hold_buttons(1)
                ifc(on_3d==yes)
                    Kill_3d()
                ifc(next_image+1>total_slides[new_number])
                    next_image=0
                ifc(count+1>total_slides[new_number])
                    count=0
                change_images(up,small)
                setup(1)
            }
            deleteobject    photo_id_on
        }
        id=404  //country map
        iconbuttonid id,  926,122,152,140,enabled,none,1,110,111,111,
        {
            click
            hold_buttons(1)
            flag_on=no
            ifc(on_3d==yes)
                Kill_3d()
            count=0
            next_image=1
            show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            setup(1)
        }
        ifc(show_3d_interface>0)
        {
            id=410 //next 3d object fro demo only
            d3_id_on_main=getnextobjectid()
            iconbuttonid id,  1130,332,150,140,enabled,none,1,122,123,123,
            {
                click
                hold_buttons(1)
                flag_on=yes
                deleteobject zoom_id_on
                ifc(new_number==261)
                {
                    click3d=1
                    show_3d[0]=40
                }
                ifc(click3d>0)
                {
                    ifc(sprites_on==yes)
                    {
                        forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                        delsprite del_sp_cnt
                    }
                    ifc(on_3d==yes)
                        Kill_3d()
                    hit_3d++
                    ifc(hit_3d>click3d-1)
                        hit_3d=0
                    on_3d=yes
                    id1=98
                    settext id1," "
                    FONT "HELVETICA",11,22
                    id1=998
                    settext id1, show_3d_desc[hit_3d]
                    sound server_sounds+`longplay/`+filename(itostr(show_3d[hit_3d]))+`.mid sequencer`
                    display_object(show_3d[hit_3d])
                    flag_hold=0
                    SetFilenameProperty loadphoto, "LoadImageNotify", server_local +`/bkgnd`+load_ext
                    while not flag_hold loop
                        hold
                    endwhile

                    setup(1)
                }
            }
            deleteobject    d3_id_on

        }
        ifc(show_flag==0)
        {
            id=405    //flag
            flag_id_on_main=getnextobjectid()
            iconbuttonid id,  752,166,150,140,enabled,none,1,112,113,113,
            {
                click
                hold_buttons(1)
                ifc(sprites_on==yes)
                {
                    forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                        delsprite del_sp_cnt
                }
                deleteobject zoom_id_on
                flag_on=yes
                ifc(on_3d==yes)
                    Kill_3d()
                id=98
                settext id," "
                flag_hold=0
                SetFilenameProperty loadphoto, "LoadImageNotify", server + country +`/flag`+load_ext2
                while not flag_hold loop
                    hold
                endwhile
                id=98
                settext id," "
                setup(1)
            }
            deleteobject    flag_id_on

        }

        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            hold_buttons(1)
            country_set=0
            flag_on_screen=no
            map_on_screen=no
            ifc(on_3d==yes)
                Kill_3d()
            destroyAllobjects
            setup(world_map)
        }
        ifc(show_where==1)
        {
            id=411 //Where
            where_id_on_main=getnextobjectid()
            iconbuttonid id,  1086,184,150,140,enabled,none,1,124,125,125,
            {
                click
                hold_buttons(1)
                country_set=0
                flag_on_screen=no
                map_on_screen=no
                ifc(on_3d==yes)
                    Kill_3d()
                destroyAllobjects
                setup(where)
            }
            deleteobject    where_id_on
        }
        id=413 //country left
        country_left_id_main=getnextobjectid()
        iconbuttonid id,  30,30,58,72,enabled,none,2,300,301,302,
        {
            click
            hold_buttons(1)
            flag_on=no
            ifc(on_3d==yes)
                Kill_3d()
            country_set=1
            browsersetcursorbusy true
            new_country(down,yes)
            setup(1)
        }
        deleteobject country_left_id

        id=412 //country right
        country_right_id_main=getnextobjectid()
        iconbuttonid id,  88,30,58,72,enabled,none,2,304,305,306,
        {
            click
            hold_buttons(1)
            flag_on=no
            ifc(on_3d==yes)
                Kill_3d()
            country_set=1
            browsersetcursorbusy true
            new_country(up,yes)
            setup(1)
        }
        deleteobject country_right_id

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
                click
        }


        ifc(fun_facts_on[new_number]==1)
        {
            id=407 //fun facts
            fun_id_on_main=getnextobjectid()
            iconbuttonid id,  754,488,150,140,enabled,none,1,116,117,117,
            {
                click
                hold_buttons(1)
                country_set=0
                flag_on_screen=no
                map_on_screen=no
                ifc(on_3d==yes)
                    Kill_3d()
                destroyAllobjects
                fun_screen()
                setup(fun_facts)
            }
            deleteobject    fun_id_on
        }

        id=409 //games
        iconbuttonid id,  1098,492,150,140,enabled,none,1,120,121,121,
        {

            click
            hold_buttons(1)
            country_set=0
            flag_on_screen=no
            map_on_screen=no
            ifc(on_3d==yes)
                Kill_3d()
            destroyAllobjects
            games_screen()
            setup(games)
        }
    }

    ifc(hotspot_check==games1)
    {

        iconbuttonid id,1166,750,86,80,enabled,none,3,421,421,422,
        {
            deleteobject help_id_on
            ifc(help_game1==0)
            {
                transparentcolor 0,255,0
                help_game1=1
                help_id_on=getnextobjectid()
                iconbuttonid id,  676,342,590,420,enabled,none,3,420,420,420,
                {
                    deleteobject help_id_on
                    help_game1=0
                }
            }
            else
            {
                help_game1=0
            }
        }
        iconbuttonid id, 0,860,88,100,enabled,none,3,451,412,413,
        {
            total_moves=101
            exit_tile=1
            forc(cut_sprite_tile_game=0;cut_sprite_tile_game<12;cut_sprite_tile_game++)
            {
                delsprite cut_sprite_tile_game+100
                delsprite cut_sprite_tile_game
            }
            destroyAllobjects
            games_screen()
            setup(games)
        }
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            total_moves=101
            forc(cut_sprite_tile_game=0;cut_sprite_tile_game<12;cut_sprite_tile_game++)
            {
                delsprite cut_sprite_tile_game+100
                delsprite cut_sprite_tile_game
            }

            click
            destroyAllobjects
            setup(world_map)
        }

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
        }
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    total_moves=101
                    forc(cut_sprite_tile_game=0;cut_sprite_tile_game<12;cut_sprite_tile_game++)
                    {
                        delsprite cut_sprite_tile_game+100
                        delsprite cut_sprite_tile_game
                    }
                    click
                    destroyAllobjects
                    browsersetcursorbusy true
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()
        }

        ifc(dg_no_tile_game>1)
        {
            tile_game_left=getnextobjectid()
            iconbuttonid id, 1154,836,64,58,enabled,none,3,414,415,416,
            {
                total_moves=random_moves
                wait 10
                dg_no_tile_game--
                ifc(dg_no_tile_game==1)
                    deleteobject tile_game_left
                current_n=filename(itostr(dg_no_tile_game))+`l`+load_ext4
                blank_x=116
                blank_y=166

                destroyallobjects
                setup(games1)
                tile_game(dg_no_tile_game)
            }
        }
        ifc(dg_no_tile_game<total_slides[new_number])
        {
            tile_game_right=getnextobjectid()
            iconbuttonid id, 1210,836,58,58,enabled,none,3,417,418,419,
            {
                total_moves=random_moves
                wait 10
                dg_no_tile_game++
                ifc(dg_no_tile_game>total_slides[new_number]-1)
                    deleteobject tile_game_right
                current_n=filename(itostr(dg_no_tile_game))+`l`+load_ext4
                blank_x=116
                blank_y=166

                destroyallobjects
                setup(games1)
                tile_game(dg_no_tile_game)
            }
        }

    }

    ifc(hotspot_check==games2)
    {
        read_number_sprites()
        iconbuttonid id,  12,870,64,60,enabled,none,3,211,212,213,//back
        {
            id1=0
            timer id1, time_delay, timer_off
            destroyAllobjects
            games_screen()
            setup(games)
        }
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            id1=0
            timer id1, time_delay, timer_off
            destroyAllobjects
            setup(world_map)
        }

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            id1=0
            timer id1, time_delay, timer_off
        }
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    id1=0
                    timer id1, time_delay, timer_off
                    click
                    destroyAllobjects
                    browsersetcursorbusy true
                    store_names(index+1,yes)
                    setup(1)
                }
            }
            off_click_big()
        }

        tile_game_left=getnextobjectid()
        iconbuttonid id,  1078,870,64,60,enabled,none,3,214,215,216,//left
        {
            wait 10
            destroyallobjects
            setup(games2)
            wait 500
            forc(del_s_count=0;del_s_count<quick_count;del_s_count++)
            {
                quick_fited[del_s_count]=0
            }
            time_delay=work_out_speed
            quick_s_t=0
            show_score()
            start_game_no=rnd(rnd_pic_cnt)
            start_game_no+=1
            quick_fit(rnd_pic_check[start_game_no])
        }
        ifc(dg_no_tile_game<total_slides[new_number])
        {
            tile_game_right=getnextobjectid()
            iconbuttonid id,  1144,870,60,60,enabled,none,3,217,218,219,//right
            {
                wait 10
                destroyallobjects
                setup(games2)
                wait 500
                forc(del_s_count=0;del_s_count<quick_count;del_s_count++)
                {
                    quick_fited[del_s_count]=0
                }
                time_delay=work_out_speed
                quick_s_t=0
                show_score()
                start_game_no=rnd(rnd_pic_cnt)
                start_game_no+=1
                quick_fit(rnd_pic_check[start_game_no])
            }
        }

    }
    ifc(hotspot_check==games)
    {
            forc(cut_sprite_tile_game=0;cut_sprite_tile_game<12;cut_sprite_tile_game++)
            {
                delsprite cut_sprite_tile_game+100
                delsprite cut_sprite_tile_game
            }
        start_game_no=count
        ifc(start_game_no==0)
            start_game_no=1
        deleteobject popups_are_on
        dg_no_tile_game=start_game_no

        iconbuttonid id,  20,598,66,66,enabled,none,4,222,400,400,
        {
            start_game_no=count
            ifc(start_game_no==0)
                start_game_no=1
            exit_tile=0
            destroyAllobjects
            games_screen1()
            setup(games1)
            random_moves=5
            tile_speed=20
            tile_game(start_game_no)
        }
        iconbuttonid id,  22,686,66,66,enabled,none,4,222,400,400,
        {
            start_game_no=count
            ifc(start_game_no==0)
                start_game_no=1
            exit_tile=0
            destroyAllobjects
            games_screen1()
            setup(games1)
            random_moves=10
            tile_speed=10
            tile_game(start_game_no)
        }

        iconbuttonid id,  24,770,66,66,enabled,none,4,222,400,400,
        {
            start_game_no=count
            ifc(start_game_no==0)
                start_game_no=1
            exit_tile=0
            destroyAllobjects
            games_screen1()
            setup(games1)
            random_moves=80
            tile_speed=10
            tile_game(start_game_no)
        }


        gettime hr,m,s,c
        randomise(s)
        start_game_no=rnd(rnd_pic_cnt)

        iconbuttonid id,  652,654,66,66,enabled,none,4,222,402,402,//quick fit
        {
            destroyallobjects
            click
            games_screen2()
            read_number_sprites()
            easy_level=3
            time_delay=3000
            setup(games2)
            start_game_no=rnd(rnd_pic_cnt)
            start_game_no+=1
            quick_fit(rnd_pic_check[start_game_no])
        }
        iconbuttonid id,  654,742,66,66,enabled,none,4,222,402,402,//quick fit
        {
            destroyallobjects
            click
            games_screen2()
            read_number_sprites()
            easy_level=4
            time_delay=2000
            setup(games2)
            start_game_no=rnd(rnd_pic_cnt)
            start_game_no+=1
            quick_fit(rnd_pic_check[start_game_no])
        }

        iconbuttonid id,  656,826,66,66,enabled,none,4,222,402,402,//quick fit
        {
            destroyallobjects
            click
            games_screen2()
            read_number_sprites()
            easy_level=5
            time_delay=1400
            setup(games2)
            start_game_no=rnd(rnd_pic_cnt)
            start_game_no+=1
            quick_fit(rnd_pic_check[start_game_no])
        }



        iconbuttonid id,  0,860,108,96,enabled,none,2,316,317,318,
        {
            small_start=1
            click
            destroyAllobjects
            ifc(count>0)
            {
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            else
                show_country(yes)
            SETUP(1)
        }
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    destroyAllobjects
                    browsersetcursorbusy true
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()
        }



    }
    ifc(hotspot_check==large_pic)
    {
        ifc(total_slides[new_number]>0)
        {
            ifc(count>0)
            {
                id=515 //Image up
                deleteobject up_id_on
                up_id_on=getnextobjectid()
                iconbuttonid id,  1150,830,62,68,enabled,none,2,334,335,336,
                {
                    click
                    ifc(sprites_on==yes)
                    {
                        forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                            delsprite del_sp_cnt
                    }



        id=426 //EXIT
        deleteobject wait_done1
        wait_done1=getnextobjectid()
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,108,108,
        {null}

        id=401 //World MAP
        deleteobject wait_done2
        wait_done2=getnextobjectid()
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,102,102,
        {null}

        id=402 //print
        deleteobject wait_done3
        wait_done3=getnextobjectid()
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,104,104,
        {null}

        id=403 //help
        deleteobject wait_done4
        wait_done4=getnextobjectid()
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,106,106,
        {null}

        id=400 //search
        deleteobject wait_done5
        wait_done5=getnextobjectid()
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,100,100,
        {null}





                    deleteobject up_id_on
                    up_id_on=getnextobjectid()
                    iconbuttonid id,  1150,830,62,68,enabled,none,2,334,334,334,
                    {null}
                    deleteobject down_id_on
                    down_id_on=getnextobjectid()
                    iconbuttonid id,  1212,830,58,68,enabled,none,2,338,338,338,
                    {null}
                    deleteobject list_id_on
                    list_id_on=getnextobjectid()
                    iconbuttonid id,  1154,734,112,102,enabled,none,2,331,331,331,
                    {null}
                    deleteobject country_right_id
                    deleteobject country_left_id
                    deleteobject back_button_id
                    ifc(next_image+1<1)
                        next_image=total_slides[new_number]
                    ifc(count<1)
                        count=total_slides[new_number]+1
                    change_images(down,big)
                    setup(large_pic)

                }
            }
            else
            {
                deleteobject up_id_on
            }
            ifc(count<total_slides[new_number])
            {
                id=516 //Image down
                deleteobject down_id_on
                down_id_on=getnextobjectid()
                iconbuttonid id,  1212,830,58,68,enabled,none,2,338,339,340,
                {
                    click
                    ifc(sprites_on==yes)
                    {
                        forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                            delsprite del_sp_cnt
                    }


        id=426 //EXIT
        deleteobject wait_done1
        wait_done1=getnextobjectid()
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,108,108,
        {null}

        id=401 //World MAP
        deleteobject wait_done2
        wait_done2=getnextobjectid()
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,102,102,
        {null}

        id=402 //print
        deleteobject wait_done3
        wait_done3=getnextobjectid()
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,104,104,
        {null}

        id=403 //help
        deleteobject wait_done4
        wait_done4=getnextobjectid()
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,106,106,
        {null}

        id=400 //search
        deleteobject wait_done5
        wait_done5=getnextobjectid()
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,100,100,
        {null}


                    deleteobject up_id_on
                    up_id_on=getnextobjectid()
                    iconbuttonid id,  1150,830,62,68,enabled,none,2,334,334,334,
                    {null}
                    deleteobject down_id_on
                    down_id_on=getnextobjectid()
                    iconbuttonid id,  1212,830,58,68,enabled,none,2,338,338,338,
                    {null}
                    deleteobject list_id_on
                    list_id_on=getnextobjectid()
                    iconbuttonid id,  1154,734,112,102,enabled,none,2,331,331,331,
                    {null}
                    deleteobject country_right_id
                    deleteobject country_left_id
                    deleteobject back_button_id
                    ifc(next_image+1>total_slides[new_number])
                        next_image=0
                    ifc(count>total_slides[new_number])
                        count=0
                    change_images(up,big)
                    setup(large_pic)
                }
            }
            else
            {
                deleteobject down_id_on
            }
            id=517 //Image list
            deleteobject list_id_on
            list_id_on=getnextobjectid()
            iconbuttonid id,  1154,734,112,102,enabled,none,2,331,332,332,
            {
                deleteobject combo_big
                deleteobject combo_small
                wait 20
                combo_small=getnextobjectid()
                combobox 390,196,520,564,small_cap,enabled,ans,index,
                {
                    ifc(index!=-1)
                    {
                        click
                        ifc(sprites_on==yes)
                        {
                            forc(del_sp_cnt=1;del_sp_cnt<total_images+1;del_sp_cnt++)
                                delsprite del_sp_cnt
                        }


        id=426 //EXIT
        deleteobject wait_done1
        wait_done1=getnextobjectid()
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,108,108,
        {null}

        id=401 //World MAP
        deleteobject wait_done2
        wait_done2=getnextobjectid()
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,102,102,
        {null}

        id=402 //print
        deleteobject wait_done3
        wait_done3=getnextobjectid()
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,104,104,
        {null}

        id=403 //help
        deleteobject wait_done4
        wait_done4=getnextobjectid()
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,106,106,
        {null}

        id=400 //search
        deleteobject wait_done5
        wait_done5=getnextobjectid()
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,100,100,
        {null}



                        deleteobject list_id_on
                        list_id_on=getnextobjectid()
                        iconbuttonid id,  1154,734,112,102,enabled,none,2,331,331,331,
                        {null}
                        id1=997
                        settext id1, " "

                        deleteobject country_right_id
                        deleteobject country_left_id
                        deleteobject back_button_id
                        deleteobject combo_small
                        deleteobject combo_big
                        browsersetcursorbusy true
                        off_event mouseclick
                        count=index
                        show_pic(filename(itostr(count)),count,big,filename(itostr(next_image)))
                        setup(large_pic)
                    }

                }
                off_click_big()
            }
        }

        id=424 //reduce image
        deleteobject back_button_id
        back_button_id=getnextobjectid()
        iconbuttonid id,  0,861,114,92,enabled,none,2,328,329,330,
        {
            destroyAllobjects
            small_start=1
            click
            ifc(count>0)
            {
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            else
                show_country(yes)
            SETUP(1)
        }


        id=426 //EXIT
        deleteobject wait_done1
        wait_done1=getnextobjectid()
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            loop_exit=1
            destroyAllobjects
        }
        id=401 //World MAP
        deleteobject wait_done2
        wait_done2=getnextobjectid()

        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        deleteobject wait_done3
        wait_done3=getnextobjectid()

        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"",header_top,"","","","",header_top
            wait 20
            printscreen 0,0,1280,960, scaled|centred ,0
        }

        deleteobject wait_done4
        wait_done4=getnextobjectid()

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
        }
        deleteobject wait_done5
        wait_done5=getnextobjectid()

        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {

            deleteobject combo_big
            deleteobject combo_small
            wait 20
            font "COURIER.BOLD", 20,36
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    destroyAllobjects
                    browsersetcursorbusy true
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()
        }

        id=413 //country left
        deleteobject country_left_id
        country_left_id=getnextobjectid()
        iconbuttonid id,  30,30,58,72,enabled,none,2,300,301,302,
        {
            click
            deleteobject up_id_on
            up_id_on=getnextobjectid()
            iconbuttonid id,  1150,830,62,68,enabled,none,2,334,334,334,
            {null}
            deleteobject down_id_on
            down_id_on=getnextobjectid()
            iconbuttonid id,  1212,830,58,68,enabled,none,2,338,338,338,
            {null}
            deleteobject list_id_on
            list_id_on=getnextobjectid()
            iconbuttonid id,  1154,734,112,102,enabled,none,2,331,331,331,
            {null}
            browsersetcursorbusy true
            new_country(down,no)
            FONT "HELVETICA",24,48
            pencolor  255,255,255
            id=99
            settext id ,header_top
            count=0
            add_sprites()
            show_pic(filename(itostr(count)),count,big,filename(itostr(next_image)))
            setup(large_pic)
        }

        id=412 //country right
        deleteobject country_right_id
        country_right_id=getnextobjectid()
        iconbuttonid id,  88,30,58,72,enabled,none,2,304,305,306,
        {
            click
            deleteobject up_id_on
            up_id_on=getnextobjectid()
            iconbuttonid id,  1150,830,62,68,enabled,none,2,334,334,334,
            {null}
            deleteobject down_id_on
            down_id_on=getnextobjectid()
            iconbuttonid id,  1212,830,58,68,enabled,none,2,338,338,338,
            {null}
            deleteobject list_id_on
            list_id_on=getnextobjectid()
            iconbuttonid id,  1154,734,112,102,enabled,none,2,331,331,331,
            {null}
            browsersetcursorbusy true
            new_country(up,no)
            FONT "HELVETICA",24,48
            pencolor  255,255,255
            id=99
            settext id ,header_top
            count=0
            add_sprites()
            show_pic(filename(itostr(count)),count,big,filename(itostr(next_image)))
            setup(large_pic)
        }
    }
    ifc(hotspot_check==3)
    {
        //check_gph_names()
        FONT "HELVETICA",24,48
        pencolor  255,255,255
        pencolor  241,230,119

        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"","Statistics","","","","","Statistics"
            wait 20
            printscreen 0,0,1280,960, scaled|centred ,0
        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            null
        }
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            deleteobject combo_small
            off_event mouseclick
            font "COURIER.BOLD", 20,36
//            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    destroyAllobjects
                    off_event mouseclick
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()

        }

        FONT "HELVETICA.BOLD",13,26
        pencolor  241,230,119
        iconbuttonid id,  40,135,265,268,enabled,none,1,222,222,222,
        {
            deleteobject combo_small
            off_event mouseclick
            font "COURIER.BOLD", 2,4
//            deleteobject combo_small
//            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 40,200,265,198,list_2,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    browsersetcursorbusy true
                    off_event mouseclick
                    browsersetcursorbusy true
//                    deleteobject small_map1
                    deleteobject combo_small
                    set_gph_name(index,0)
                    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
                    SpriteFlags2 233, enabled|visible, UNBOUND
                    load_map(graph[0],1)
                    ifc(current_bar_c>0)
                    {
                        ifc(current_bar_c<4)
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            bar(current_bar_c,0)
                        }
                        else
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            set_key_code(current_bar_c-3)
                            pie_bar(current_bar_c-3)
                            show_key()
                            activepage 0
                            clearscreen 0,400,1280,450,pushright,1,25
                        }
                    }
                    delsprite 233
                    browsersetcursorbusy false
                    setup(3)
                }


            }
            SetProperty combo_small, "SetFocus"
            on_event mouseclick,x,y
            {
                ifc( (x<40 || x>305) || (y<265 || y>463) )
                {
                    deleteobject combo_small
                    off_event mouseclick
                }
            }
        }
        iconbuttonid id,  350,135,265,268,enabled,none,1,222,222,222,
        {
            deleteobject combo_small
            off_event mouseclick
            font "COURIER.BOLD", 8,36
//            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 350,200,265,198,list_2,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    off_event mouseclick
                    browsersetcursorbusy true
//                    deleteobject small_map2
                    deleteobject combo_small
                    set_gph_name(index,1)
                    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
                    SpriteFlags2 233, enabled|visible, UNBOUND
                    load_map(graph[1],2)
                    ifc(current_bar_c>0)
                    {
                        ifc(current_bar_c<4)
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            bar(current_bar_c,0)
                        }
                        else
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            set_key_code(current_bar_c-3)
                            show_key()
                            pie_bar(current_bar_c-3)
                            activepage 0
                            clearscreen 0,400,1280,450,pushright,1,25
                        }
                    }
                    delsprite 233
                    browsersetcursorbusy false
                    setup(3)
                }
            }
            SetProperty combo_small, "SetFocus"
            on_event mouseclick,x,y
            {
                ifc( (x<350 || x>615) || (y<265 || y>463) )
                {
                    deleteobject combo_small
                    off_event mouseclick
                }
            }

        }
        iconbuttonid id,  665,135,265,268,enabled,none,1,222,222,222,
        {
            deleteobject combo_small
            off_event mouseclick
            font "COURIER.BOLD", 8,36
            combo_small=getnextobjectid()
            combobox 665,200,265,198,list_2,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    off_event mouseclick
                    browsersetcursorbusy true
                    id=802
                    settext id, " "
//                    deleteobject small_map3
                    deleteobject combo_small
                    set_gph_name(index,2)
                    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
                    SpriteFlags2 233, enabled|visible, UNBOUND
                    load_map(graph[2],3)
                    ifc(current_bar_c>0)
                    {
                        ifc(current_bar_c<4)
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            bar(current_bar_c,0)
                        }
                        else
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            set_key_code(current_bar_c-3)
                            show_key()
                            pie_bar(current_bar_c-3)
                            activepage 0
                            clearscreen 0,400,1280,450,pushright,1,25
                        }

                    }
                    delsprite 233
                    browsersetcursorbusy false
                    setup(3)
                }
            }
            SetProperty combo_small, "SetFocus"
            on_event mouseclick,x,y
            {
                ifc( (x<665 || x>930) || (y<265 || y>463) )
                {
                    deleteobject combo_small
                    off_event mouseclick
                }
            }

        }
        iconbuttonid id,  970,135,265,268,enabled,none,1,222,222,222,
        {
            deleteobject combo_small
            off_event mouseclick
            font "COURIER.BOLD", 8,36
            combo_small=getnextobjectid()
            combobox 970,200,265,198,list_2,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    off_event mouseclick
                    browsersetcursorbusy true
                    id=803
                    settext id, " "
//                    deleteobject small_map4
                    deleteobject combo_small

                    set_gph_name(index,3)
                    SPRITEb 233,570,10,looped,1,100,7,[700,701,702,703,704,705,706,707]
                    SpriteFlags2 233, enabled|visible, UNBOUND
                    load_map(graph[3],4)
                    ifc(current_bar_c>0)
                    {
                        ifc(current_bar_c<4)
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            bar(current_bar_c,0)
                        }
                        else
                        {
                            activepage 1
                            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
                            set_key_code(current_bar_c-3)
                            show_key()
                            pie_bar(current_bar_c-3)
                            activepage 0
                            clearscreen 0,400,1280,450,pushright,1,25
                        }

                    }
                    delsprite 233
                    browsersetcursorbusy false
                    setup(3)
                }
            }
            SetProperty combo_small, "SetFocus"
            on_event mouseclick,x,y
            {
                ifc( (x<975 || x>1240) || (y<265 || y>463) )
                {
                    deleteobject combo_small
                    off_event mouseclick
                }
            }

        }

        iconbuttonid id,  106,864,118,66,enabled,none,1,222,222,222,
        {
            click
            //delete_current_settings()
            destroyallobjects
            menu_bar(1)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            current_bar_c=1
            bar(1,0)
            setup(3)
        }

        iconbuttonid id,  234,864,198,66,enabled,none,1,222,222,222,
        {
            click
//            delete_current_settings()
            destroyallobjects
            menu_bar(2)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            bar(2,0)
            current_bar_c=2
            setup(3)
        }

        iconbuttonid id,  444,864,194,66,enabled,none,1,222,222,222,
        {
            click
            //delete_current_settings()
            destroyallobjects
            menu_bar(3)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            bar(3,0)
            current_bar_c=3
            setup(3)
        }
        iconbuttonid id,  650,864,188,66,enabled,none,1,222,222,222,
        {
            click
            //delete_current_settings()
            destroyallobjects
            current_bar_c=4
            menu_bar(4)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            set_key_code(1)
            pie_bar(1)
            show_key()
            activepage 0
            clearscreen 0,400,1280,450,pushright,1,25
            setup(3)
        }
        iconbuttonid id,  852,864,240,66,enabled,none,1,222,222,222,
        {
            click
            destroyallobjects
            //delete_current_settings()
            activepage 1
            current_bar_c=5
            menu_bar(5)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            set_key_code(2)
            pie_bar(2)
            show_key()
            activepage 0
            clearscreen 0,400,1280,450,pushright,1,25
            setup(3)
        }
        iconbuttonid id,  1100,864,170,66,enabled,none,1,222,222,222,
        {
            click
            destroyallobjects
            //delete_current_settings()
            activepage 1
            current_bar_c=6
            hold_buttons(2)
            menu_bar(6)
            activepage 1
            LOADIMAGE 0,0,1279,960,JPG,server_menu+`stats`+load_ext
            set_key_code(3)
            pie_bar(3)
            show_key()
            activepage 0
            clearscreen 0,400,1280,450,pushright,1,25
            setup(3)
        }


        id=413 //return to main screen
//        iconbuttonid id,  2,866,74,60,enabled,none,1,222,222,222,
        iconbuttonid id,  6,864,98,88,enabled,none,2,342,343,344,
        {
            click
            destroyAllobjects
            small_start=1
            show_country(no)
            show_pic(filename(itostr(count)),count,1,filename(itostr(next_image)))
            setup(1)
        }

    }

    ifc(hotspot_check==large_text_button)
    {

        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print text
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"",header_top,"","","","",header_top
            wait 20
            SetProperty objHTMLBox2 "Print"
        }

        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }


        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    change_text=2
                    deleteobject combo_small
                    deleteobject combo_big
                    deleteobject   text_down_id
                    deleteobject   text_up_id

                    deleteobject objHTMLBox2

                    off_event mouseclick
                    store_names(new_index[index],no)
                    add_text_to_screen()
//                    add_sprites()
                    setup(large_text_button)
                }
            }
            off_click_big()

        }


        id=413 //country left
        deleteobject country_left_id
        country_left_id=getnextobjectid()
        iconbuttonid id,  30,30,58,72,enabled,none,2,300,301,302,
        {
            click
            change_text=2
            deleteobject   text_down_id
            deleteobject   text_up_id

            deleteobject objHTMLBox2
            hold_buttons(0)
            count=0
            new_country_text=yes
            new_country(down,no)
            add_text_to_screen()
            setup(large_text_button)
        }

        id=412 //country right
        deleteobject country_right_id
        country_right_id=getnextobjectid()
        iconbuttonid id,  88,30,58,72,enabled,none,2,304,305,306,
        {
            click
            change_text=2
            deleteobject   text_down_id
            deleteobject   text_up_id

            deleteobject objHTMLBox2
            hold_buttons(0)
            count=0
            new_country_text=yes
            new_country(up,no)
            add_text_to_screen()
            setup(large_text_button)
        }
        id=424 //reduce text
        iconbuttonid id,  0,860,108,96,enabled,none,2,316,317,318,
        {
            click
            destroyAllobjects
            small_start=1
            ifc(new_country_text==yes)
            {
                show_country(yes)
            }
            else
            {
                new_country_text=no
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            setup(1)
        }
    }
    ifc(hotspot_check==show_dates)
    {
        read_dates()
        set_up_screen()
        FONT "HELVETICA",24,48
        pencolor  255,255,255
        id=99
        label id, 190,40, 550, 60, left, header_top

        ifc(af_txt_on[new_number]==1 | af_pic_on[new_number]==1)
        {
            id=801
            iconbuttonid id,  260,790,262,142,enabled,none,2,410,410,410,
            {
                count_key_facts=99
                click
                deleteobject set_up_film
                destroyAllobjects
                show_am()
                delsprite 221
                setup(show_amasing)
            }
        }
        id=802
        //iconbuttonid id,  754,122,86,82,enabled,none,1,222,222,222,
        iconbuttonid id,  1104,128,78,64,enabled,none,2,356,357,358,
        {
            click
            count_key_facts=99
            destroyAllobjects
            fun_screen()
            delsprite 221
            setup(fun_facts)
        }

        iconbuttonid id,  0,834,120,120,enabled,none,2,350,351,352,
        {
            click
            destroyAllobjects
            count_key_facts=99
            small_start=1
            ifc(count>0)
            {
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            else
                show_country(yes)
            SETUP(1)
        }

        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            count_key_facts=99
            click
            destroyAllobjects
            loop_exit=1
            loop
                if not TimerActive then
                    wait 100
                endif
                wait 20
            until loop_exit=1 or destroyed
            Kill_3d()
            winclose
            browserexit
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"","Key Dates","","","","","Key Dates"
            wait 20
            objHTMLBox3=getnextobjectid()
            customtextwindow 0,0,0,0,key_facts+country+`/da`+country+`.txt`,222,222
            SetProperty objHTMLBox3 "Print"
            wait 20000
            deleteobject objHTMLBox3
        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }

        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            click
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    count_key_facts=99
                    destroyAllobjects
                    off_event mouseclick
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()

        }
        wait 5
        scroll_text()
    }

    ifc(hotspot_check==show_amasing)
    {
        FONT "HELVETICA",24,48
        pencolor  255,255,255
        id=99
        label id, 190,40, 550, 60, left, header_top

        id=800
        iconbuttonid id,  0,834,120,120,enabled,none,2,346,347,348,
        {
            click
            destroyAllobjects
            fun_screen()
            setup(fun_facts)
        }

        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }

        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"","Amazing Facts","","","","","Amazing Facts"
            wait 20
            printscreen 0,0,1280,960, scaled|centred ,0
        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }
        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            click
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    destroyAllobjects
                    off_event mouseclick
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()

        }
    }
    ifc(hotspot_check==show_film)
    {

//        load_image_to_screen(0,0,1280,960,1,255,server_local+`main`+load_ext)
//
//        ACTIVEPAGE 1
//        LOADIMAGE 0,0,1280,960,JPG,`apps/world/key/key5`+load_ext
//        ACTIVEPAGE 0
//        clearscreen 0,0,1279,959,standard,1,255
        fillmask0

        play_vid=no
        FONT "HELVETICA",24,48
        pencolor  255,255,255
        id=99
        label id, 190,40, 550, 60, left, header_top
        show_text_kf()
        wait 100
        vobj=GetnextobjectID()
        VIDEO 28,130,640,480,avi,key_facts_vid+`clip.avi`

        ifc(da_txt_on[new_number]==1)
        {

            id=798 //dates
            iconbuttonid id,  530,820,660,110,enabled,none,2,411,411,411,
            {
                click
                destroyAllobjects
                setup(show_dates)
            }
        }

        ifc(af_txt_on[new_number]==1 | af_pic_on[new_number]==1)
        {
            id=799 //amazing
            iconbuttonid id,  260,790,262,142,enabled,none,2,410,410,410,
            {
                click
                destroyAllobjects
                show_am()
                setup(show_amasing)
            }
        }
        id=810 //play
        iconbuttonid id,  126,620,130,42,enabled,none,1,222,222,222,
        {
            ifc(play_vid==no)
            {
                print "play",vobj,"\n"
                SetProperty vobj,"Play" paused=false
                play_vid=yes
            }
        }

        id=811 //pause
        iconbuttonid id,  288,620,130,42,enabled,none,1,222,222,222,
        {
            if paused then
                SetProperty vobj, "Continue"
            else
                SetProperty vobj, "Stop"
            endif
            paused = not paused
        }


        id=812 //stop
        iconbuttonid id,  442,620,130,42,enabled,none,1,222,222,222,
        {
            SetProperty vobj, "Rewind"
            SetProperty vobj, "Stop"
            play_vid=no
        }


        id=803
        iconbuttonid id,  1158,810,120,120,enabled,none,1,222,222,222,
        {
            click
            destroyAllobjects
            small_start=1
            ifc(count>0)
            {
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            else
                show_country(yes)
            SETUP(1)
        }


        id=803 //funfacts
        iconbuttonid id,  736,144,442,58,enabled,none,1,222,222,222,
        {
            click
            destroyAllobjects
            fun_screen()
            setup(fun_facts)
        }
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
            loop
                if not TimerActive then
                    wait 100
                endif
                wait 20
            until loop_exit=1 or destroyed
            Kill_3d()
            winclose
            browserexit
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }


        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            click
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 690,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    click
                    destroyAllobjects
                    off_event mouseclick
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            PENWIDTH 3
            combo_big=getnextobjectid()
            pencolor  255,139,0
            rectangle 687,190,530,575
            SetProperty combo_small, "SetFocus"
            on_event mouseclick,x,y
            {
                ifc( (x<678 || x>1217) || (y<190 || y>765) )
                {
                    deleteobject combo_small
                    deleteobject combo_big
                    off_event mouseclick
                }
            }
        }
    }

    ifc(hotspot_check==fun_facts)
    {
        FONT "HELVETICA",24,48
        pencolor  255,255,255
        id=99
        label id, 190,40, 550, 60, left, header_top
        id=800
        small_start=1

        ifc(af_txt_on[new_number]==1 | af_pic_on[new_number]==1)
        {

            id=801
            iconbuttonid id,  260,790,262,142,enabled,none,2,410,410,410,
            {
                click
                destroyAllobjects
                show_am()
                setup(show_amasing)
            }
        }
        ifc(da_txt_on[new_number]==1)
        {
            id=802
            iconbuttonid id,  530,820,660,110,enabled,none,2,411,411,411,
            {
                click
                destroyAllobjects
                setup(show_dates)
            }
        }
        show_text_pic()
        show_text_kf()



        id=803
        //iconbuttonid id,  1158,810,120,120,enabled,none,1,222,222,222,

        iconbuttonid id,  0,834,120,120,enabled,none,2,350,351,352,
        {
            click
            destroyAllobjects
            small_start=1
            ifc(count>0)
            {
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
            }
            else
                show_country(yes)
            SETUP(1)
        }
        id=426 //EXIT
        iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
        {
            click
            destroyAllobjects
            loop_exit=1
        }
        id=401 //World MAP
        iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
        {
            click
            destroyAllobjects
            setup(world_map)
        }
        id=402 //print
        iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
        {
            click
            //printsetup header|footer,"","Key Facts","","","","","Key Facts"
            wait 20
            objHTMLBox3=getnextobjectid()
            customtextwindow 0,0,0,0,key_facts+country+`/kf`+country+`.txt`,222,222
            SetProperty objHTMLBox3 "Print"
            wait 20000
            deleteobject objHTMLBox3

        }
        id=403 //help
        iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
        {
            click
            null
        }

        id=400 //search
        iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
        {
            click
            font "COURIER.BOLD", 20,36
            deleteobject combo_small
            combo_small=getnextobjectid()
            combobox 390,196,520,564,list_1,enabled,ans,index,
            {
                ifc(index!=-1)
                {
                    destroyAllobjects
                    off_event mouseclick
                    store_names(new_index[index],yes)
                    setup(1)
                }
            }
            off_click_big()

        }

    }
    ifc(hotspot_check==where)
    {
        small_start=1
        restoredata highlight_map
        read_number=new_number-1
        read_number*=6
        input data highlight_map[read_number],id_check,hotxs[0],hotys[0],hotxe[0],hotye[0],map_name[0]

        ifc(strtoi(map_name[0])==0)
        {
            setup(1)
        }
        else
        {
            activepage 1
            new_file=filename(map_name[0])
            LOADIMAGE 0,0,1280,960,JPG,server_maps+`wm`+load_ext
            LOADIMAGE 26-1,20+120,1230,804,gif,server_maps+`map`+new_file+load_ext
            activepage 0
            clearscreen 0,0,1280,960,standard,1,255
            FONT "ARIAL.BOLD",21,50
            pencolor  255,255,255
            FONT "HELVETICA",24,48
            pencolor  255,255,255
            id=99
            label id, 190,40, 550, 60, left, header_top
            LINESTYLE SOLID
            FILLMASK0
            PENCOLOR 255,0,0
            PENWIDTH 3
            RECTANGLE hotxs[0]-1,hotys[0]+120,hotxe[0],hotye[0]
            count_map=0
//            hotspotid count_map,0,106,1280,854,enabled,
            iconbuttonid count_map,  0,106,1280,854,enabled,none,2,222,222,222,
            {
                click
                destroyAllobjects
                small_start=1
                show_country(no)
                show_pic(filename(itostr(count)),count,small,filename(itostr(next_image)))
                setup(1)
            }


            id=426 //EXIT
            iconbuttonid id,  1130,0,146,124,enabled,none,1,108,109,109,
            {
                click
                destroyAllobjects
                loop_exit=1
            }
            id=401 //World MAP
            iconbuttonid id,  792,0,120,124,enabled,none,1,102,103,103,
            {
                click
                destroyAllobjects
                setup(world_map)
            }
            id=402 //print
            iconbuttonid id,  1028,0,108,124,enabled,none,1,104,105,105,
            {
                printsetup header|footer,"","Regional Map","","","","","Regional Map"
                //wait 20
                printscreen 0,0,1280,960, centred ,0
            }

            id=403 //help
            iconbuttonid id,  912,0,112,124,enabled,none,1,106,107,107,
            {
                click
                null
            }

            id=400 //search
            iconbuttonid id,  672,0,116,124,enabled,none,1,100,101,101,
            {
                font "COURIER.BOLD", 20,36
                deleteobject combo_small
                combo_small=getnextobjectid()
                combobox 390,196,520,564,list_1,enabled,ans,index,
                {
                    ifc(index!=-1)
                    {
                        destroyAllobjects
                        off_event mouseclick
                        store_names(new_index[index],yes)
                        setup(1)
                    }
                }
                off_click_big()

            }
        }
    }
end sub

end local


    hilight false
    browsersetcursorbusy true

    combo_small_start=1
    combo_big_start=1

    bit_type=strtoi(getinfo(displaydepth))

    ifc(bit_type==16)
    {
        load_ext=`6g.gif`
        load_ext2=`6g.jjj` //jjj
        load_ext3=`6g.jjj` //jjj
        load_ext4=`8g.gif`
    }
    else
    {
        load_ext=`8g.gif`
        load_ext2=`8g.gif`
        load_ext3=`8g.gif`
        load_ext4=`8g.gif`
    }

    browsersetimagecache enabled,512,8000
    set_server_info()
    title()

    InitClick server_local+`55.wav`

    spritebank 1
    transparentcolor 0,255,0

    ifc(bit_type==16)
        SPRITEFILE gif,server_local+`icons16g.gif`
    else
        SPRITEFILE gif,server_local+`icons18g.gif`


    DEFSPRITE 100, 32,0,116,124            //MENU BAR ICONS
    DEFSPRITE 101, 32+640,0,116,124
    DEFSPRITE 102, 152,0,120,124
    DEFSPRITE 103, 152+640,0,120,124
    DEFSPRITE 106, 272,0,112,124
    DEFSPRITE 107, 272+640,0,112,124
    DEFSPRITE 104, 388,0,110,124
    DEFSPRITE 105, 388+640,0,108,124
    DEFSPRITE 108, 490,0,146,124
    DEFSPRITE 109, 490+640,0,146,124
    DEFSPRITE 110, 286,122,152,140            //'COMPASS' ICONS
    DEFSPRITE 111, 286+640,122,152,140
    DEFSPRITE 112, 112,166,150,140
    DEFSPRITE 113, 112+640,166,150,140
    DEFSPRITE 114, 66,328,150,140
    DEFSPRITE 115, 66+640,328,150,140
    DEFSPRITE 116, 114,488,150,140
    DEFSPRITE 117, 114+640,488,150,140
    DEFSPRITE 118, 296,584,150,140
    DEFSPRITE 119, 296+640,584,150,140
    DEFSPRITE 120, 458,492,150,140
    DEFSPRITE 121, 458+640,492,150,140
    DEFSPRITE 122, 490,332,150,140
    DEFSPRITE 123, 490+640,332,150,140
    DEFSPRITE 124, 446,184,150,140
    DEFSPRITE 125, 446+640,184,150,140
    DEFSPRITE 142, 480,720,120,124            //OTHER ICONS
    DEFSPRITE 143, 480+640,720,120,124
    DEFSPRITE 138, 480,856,120,104
    DEFSPRITE 139, 480+640,856,120,104
    DEFSPRITE 144, 60,746,120,100
    DEFSPRITE 145, 60+640,746,120,100
    DEFSPRITE 160, 260,746,120,100
    DEFSPRITE 161, 260+640,746,120,100




    transparency 0
    spritebank 0


    spritebank 2
    ifc(bit_type==16)
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`icons26g.gif`
    }
    else
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`icons28g.gif`
    }

    DEFSPRITE 300, 30,30,58,72            //BUTTONS
    DEFSPRITE 301, 430,30,58,72
    DEFSPRITE 302, 830,30,58,72
    DEFSPRITE 304, 288,30,58,72
    DEFSPRITE 305, 688,30,58,72
    DEFSPRITE 306, 1088,30,58,72
    DEFSPRITE 308, 30,980,56,68
    DEFSPRITE 309, 430,980,56,68
    DEFSPRITE 310, 830,980,56,68
    DEFSPRITE 312, 280,980,58,68
    DEFSPRITE 313, 680,980,58,68
    DEFSPRITE 314, 1080,980,58,68
    DEFSPRITE 316, 0,680,108,96
    DEFSPRITE 317, 400,680,108,96
    DEFSPRITE 318, 800,680,108,96
    DEFSPRITE 320, 94,814,62,60            //TEXT UP
    DEFSPRITE 321, 494,814,62,60
    DEFSPRITE 322, 894,814,62,60
    DEFSPRITE 324, 294,814,62,58            //TEXT DOWN
    DEFSPRITE 325, 694,814,62,58
    DEFSPRITE 326, 1094,814,62,58
    DEFSPRITE 328, 0,200,114,92
    DEFSPRITE 329, 400,200,114,92
    DEFSPRITE 330, 800,200,114,92
    DEFSPRITE 331, 264,174,112,102            //photo pic
    DEFSPRITE 332, 664,174,112,102
    DEFSPRITE 334, 60,330,62,68
    DEFSPRITE 335, 460,330,62,68
    DEFSPRITE 336, 860,330,62,68
    DEFSPRITE 338, 312,330,58,68
    DEFSPRITE 339, 712,330,58,68
    DEFSPRITE 340, 1112,330,58,68
    DEFSPRITE 342, 206,662,98,88
    DEFSPRITE 343, 606,662,98,88
    DEFSPRITE 344, 1006,662,98,88

    DEFSPRITE 346, 0,1120,120,120            //AMAZING FACTS
    DEFSPRITE 347, 400,1120,120,120
    DEFSPRITE 348, 800,1120,120,120
    DEFSPRITE 350, 0,1280,120,120            //KEY DATES
    DEFSPRITE 351, 400,1280,120,120
    DEFSPRITE 352, 800,1280,120,120
    DEFSPRITE 354, 200,1120,190,150
    DEFSPRITE 355, 600,1120,190,150
    DEFSPRITE 356, 200,1280,78,64
    DEFSPRITE 357, 600,1280,78,64
    DEFSPRITE 358, 1000,1280,78,64

    DEFSPRITE 410, 0,1440,262,140
    DEFSPRITE 411, 400,1440,660,110


    transparency 0
    spritebank 0




    spritebank 4
    ifc(bit_type==16)
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`gambut6g.gif`
    }
    else
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`gambut8g.gif`
    }
    DEFSPRITE 400, 200,0,66,66        //tile game
    DEFSPRITE 401, 100,0,66,66        //hi fliers
    DEFSPRITE 402, 300,0,66,66        //quick fit

    spritebank 0


    spritebank 3
    ifc(bit_type==16)
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`help16g.gif`
    }
    else
    {
        transparentcolor 0,255,0
        SPRITEFILE gif,server_local+`help18g.gif`
    }


    DEFSPRITE 451, 0,480,88,100    //back
    DEFSPRITE 412, 200,480,88,100
    DEFSPRITE 413, 400,480,88,100

    DEFSPRITE 414, 0,720,64,58    //left
    DEFSPRITE 415, 200,720,64,58
    DEFSPRITE 416, 400,720,64,58


    DEFSPRITE 417, 0,840,58,58    //right
    DEFSPRITE 418, 200,840,58,58
    DEFSPRITE 419, 400,840,58,58



    DEFSPRITE 420, 0,0,590,420    //help box and button
    DEFSPRITE 421, 0,600,86,80
    DEFSPRITE 422, 400,600,86,80


    transparency 0
    spritebank 0


    spritebank 7
    transparentcolor 255,140,0
    ifc(bit_type==16)
    {
        transparentcolor 255,140,0
        SPRITEFILE gif,server_local+`globe16.gif`
    }
    else
    {
        transparentcolor 255,139,0
        SPRITEFILE gif,server_local+`globe8.gif`
    }



    DEFSPRITE 700, 0,0,120,120
    DEFSPRITE 701, 120,0,120,120
    DEFSPRITE 702, 240,0,120,120
    DEFSPRITE 703, 360,0,120,120

    DEFSPRITE 704, 480,0,120,120
    DEFSPRITE 705, 600,0,120,120
    DEFSPRITE 706, 720,0,120,120
    DEFSPRITE 707, 840,0,120,120
    spritebank 0




    spritebank 8
    transparentcolor 0,0,0
    ifc(bit_type==16)
    {
        transparentcolor 0,0,0
        SPRITEFILE gif,server_local+`bigstrip.gif`
    }
    else
    {
        transparentcolor 0,0,0
        SPRITEFILE gif,server_local+`big8.gif`
    }



    DEFSPRITE 800, 0,0,240,240
    DEFSPRITE 801, 240,0,240,240
    DEFSPRITE 802, 480,0,240,240
    DEFSPRITE 803, 720,0,240,240

    DEFSPRITE 804, 960,0,240,240
    DEFSPRITE 805, 1200,0,240,240
    DEFSPRITE 806, 1440,0,240,240
    DEFSPRITE 807, 1680,0,240,240

    spritebank 0

    SPRITEb 239,510,648,looped,1,100,8,[800,801,802,803,804,805,806,807]
    SpriteFlags2 239, enabled|visible, UNBOUND

    count=0
    read_pies()
    set_list()
    browsersetcursorbusy false
    HOTSPOT 496,638,318,292,1,
    {
        browsersetcursorbusy true
    }

    HOTSPOT 0,448,360,482,1,
    {
        sound server_local+`no1.wav wave`
        wait 60000
    }
    HOTSPOT 36,62,378,328,1,
    {
        sound server_local+`no2.wav wave`
        wait 60000
    }
    HOTSPOT 902,72,348,328,1,
    {
        sound server_local+`no3.wav wave`
        wait 60000
    }
    HOTSPOT 910,470,346,280,1,
    {
        sound server_local+`no4.wav wave`
        wait 60000
    }
    HOTSPOT 970,788,304,140,1,
    {
        browserexit
    }

    wait 60000
    start_screen()
    click
    destroyAllobjects

    setup(world_map)
    loop
        if not TimerActive then
            wait 100
        endif
        wait 20
    until loop_exit=1 or destroyed
    Kill_3d()
    winclose
    browserexit