-----------------------------------

tecnikal

Sat May 30, 2009 10:17 am


"get" prompt. Can't see what is being typed with cursor.

-----------------------------------

What is it you are trying to achieve?

placing a "get" prompt and seeing what is being typed.


What is the problem you are having?
 I have a get prompt BUT when i type, what is typed is not seen

Describe what you have tried to solve this problem
get rid of cls in places,changed up view update


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)




import GUI % BUTTONS

% sets the ID of the window for closing it with "quit" procedure
var winID : int
winID := Window.Open ("graphics:700;520,nobuttonbar,position:center;center")
% ----------- Variable Set for Sprites -----------

% ########### PLAYER ONES UNITS ####################

%                                                 
var tank1 : int := Pic.FileNew ("tank1.bmp")
var mdtank1 : int := Pic.FileNew ("mdtank1.bmp") 
%var gigatank1 : int := Pic.FileNew ("gigatank1.bmp")
var artillery1 : int := Pic.FileNew ("artillery1.bmp")
var infantry1 : int := Pic.FileNew ("infantry1.bmp")    
var bazooka1 : int := Pic.FileNew ("bazooka1.bmp") 
%                                                  
% ##################################################


% ################# PLAYER TWO UNITS ###############


var tank2 :int := Pic.FileNew("tank2.bmp")
var mdtank2 : int := Pic.FileNew ("mdtank2.bmp") 
%var gigatank2 : int := Pic.FileNew ("gigatank2.bmp")
var artillery2 : int := Pic.FileNew ("artillery2.bmp")
var infantry2: int := Pic.FileNew ("infantry2.bmp")    
var bazooka2: int := Pic.FileNew ("bazooka2.bmp") 

% ##################################################



% UNIT STATS

% >>> TANK1 > MID TANK1 > ARTILLERY1 > INFANTRY1 > BAZOOKA1 >> all active text goes here >> WHAT DOT COLOUR FOR DETERMINING THE UNIT TYPE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


        % Displays cursor location.
        locate (1, 38)
        colourback (black)
        colour (white)
        put "Cursor Co-Ordinates: " : 2, "x = (", cursor_btm_left_X, ") , y = (", cursor_btm_left_Y, ")"
        % >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>




        colourback (white)
        locate (34, 1)
        colour (black)
        put "Unit Stats"
        drawline (180, 0, 180, 150, black)
        drawline (450, 0, 450, 150, black)
        drawline (0, 150, 660, 150, black)
        View.Update


       
        % Draws the map of level 1
        Pic.Draw (level1, 30, 180, picMerge)

        delay (90)
    end loop

end cursormovement




proc MENU
    loop
        % ------------------- START MENU GAMEPLAY SELECTION --------------------

        View.Set ("graphics:700;520,nobuttonbar,position:center;center")
        var background : int := Pic.FileNew ("menuback.jpg")
        Pic.Draw (background, 0, 0, 0)

        loop
            % these place the buttons on the menu.
            var button1 : int := GUI.CreateButton (25, 25, 0, "    Quit        ", Quit)
            var button2 : int := GUI.CreateButton (25, 50, 0, "   Credits    ", Credits)
            var button3 : int := GUI.CreateButton (25, 75, 0, "      Play!     ", cursormovement)
            loop
                exit when GUI.ProcessEvent
            end loop
        end loop
    end loop
end MENU


% actual start of game
% On school computers, there is a utility that allows a
% user to change their screen resolution.
% This procedure sets the resolution to 1024.
%if not Sys.Exec ("Resolution1024") then

%  delay (1000)
%  MENU
%end if

MENU




Please specify what version of Turing you are using
 4.0.5



-----------------------------------

cavetroll

Sat May 30, 2009 11:02 am


RE:"get" prompt. Can\'t see what is being typed with cursor.

-----------------------------------

'get' doesn't show the text if you are in 'offscreenonly' mode. Just change the screen to 'nooffscreenonly' before the prompt, and change it back after.


-----------------------------------

tecnikal

Sat May 30, 2009 11:19 am


RE:"get" prompt. Can\'t see what is being typed with cursor.

-----------------------------------

Thank you very much cavetroll.

It worked :)