; Name      : Turbo Login v1.0
; Purpose   : Provide users with a way to skip oneliners, lastcallers etc.
; Author    : Buzh / Snusk!Software
; Type      : PCBoard 15.21 PPE
; Notes     : Do whatever you wish with this source.. just don't take 
;             take credit for it, or charge any money for it..... 
;             See doc files for details

string key_pr
string yesbar
string nobar

int y_pos
int user_sec
int yes_x
int yes_y
int no_x
int no_y
int minsec


;readcfg
fopen 1,ppepath()+"tlog.cfg",O_RD,S_dw
fget 1,yes_x
fget 1,yes_y
fget 1,yesbar
fget 1,no_x
fget 1,no_y
fget 1,nobar
fget 1,minsec
fclose 1

;initializations
    y_pos = GetY()
    Inc y_pos
    user_sec = CurSec()
    If ((user_sec < minsec)) Goto slow

:disp_yes          ;display if the selection is set to yes
    ansipos yes_x,yes_y
    Print yesbar
:sel_loop1
    key_pr = Inkey()
    If ((Upper(key_pr) == "LEFT")) Goto disp_no
    If ((Upper(key_pr) == "RIGHT")) Goto disp_no
    If ((Asc(key_pr) == "13")) Goto turbo
    Goto sel_loop1
:disp_no
    AnsiPos no_x,no_y
    Print nobar
:sel_loop2
    key_pr = Inkey()
    If ((Upper(key_pr) == "LEFT")) Goto disp_yes
    If ((Upper(key_pr) == "RIGHT")) Goto disp_yes
    If ((Asc(key_pr) == "13")) Goto slow
    Goto sel_loop2
:turbo
    DispFile PpePath() + "TURBO", 1
    End
:slow
    DispFile PpePath() + "normal", 1
    End