home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TR-XTRB2.ZIP
/
XTURBO.PPS
< prev
Wrap
Text File
|
1997-01-01
|
5KB
|
144 lines
;------------------------------------------------------------------------------
;Sorry i dont know how to do released source codes they call algarithms.
;fuck all that, heres the code i wrote, it compiles and runs so what else
;do you need!
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
string string005
string string006
string string007
string string008
string string009
integer integer001
integer integer002
integer integer003
integer integer004
integer integer005
;------------------------------------------------------------------------------
if (!Exist(ppepath() + "xturbo.pcb")) then
fcreate 4, ppepath() + "xturbo.pcb", 2, 0
fputln 4, "@X08---------------@X07 @X08---@X07 @X08--@X07 "
fputln 4, " @X0BT@X03urbo@X0B L@X03ogon@X07 "
fputln 4, "@X08-----------------@X07 @X08------@X07 "
fputln 4, " "
fputln 4, " @X0Fa."
fputln 4, " @X0Fb."
fputln 4, " "
fputln 4, "@X08------------ -------- ------@X07 "
fputln 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07 "
fputln 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07 "
fputln 4, ""
fclose 4
if (exist(ppepath() + "xturbo.cfg")) delete ppepath() + "xturbo.cfg"
fcreate 3, ppepath() + "xturbo.cfg", 2, 0
fputln 3, "30"
fputln 3, "6 5"
fputln 3, "6 6"
fputln 3, "YES"
fputln 3, "@X3B"
fputln 3, "@X08"
fputln 3, ""
fputln 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------"
fputln 3, " Line One : The minimum security level to run the program. Users with access"
fputln 3, " levels higher than this number will go straight into displaying"
fputln 3, " the file Xpert.TXT."
fputln 3, " Line Two : The x/y co-ordinates of the `no turbo login'"
fputln 3, " Line Three: The x/y co-ordinates of the `yes turbo login'"
fputln 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on."
fputln 3, " If he/she does, it will go straight into displaying the file"
fputln 3, " Xpert.TXT"
fputln 3, " Line Five : The PCB colour code for the selected litebar"
fputln 3, " Line Six : The PCB colour code for the non-selected litebar"
fputln 3, ""
fclose 3
endif
if (!exist(ppepath() + "xturbo.cfg")) then
log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1
end
endif
GetUser
STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1)
integer001 = string003
; If (U_Sec >= integer001) Goto LABEL006
string005 = readline(ppepath() + "xturbo.cfg", 2)
tokenize string005
integer002 = gettoken()
integer003 = gettoken()
string006 = readline(ppepath() + "xturbo.cfg", 3)
tokenize string006
integer004 = gettoken()
integer005 = gettoken()
string007 = readline(ppepath() + "xturbo.cfg", 4)
if ((Upper(string007) == "YES")) then
getuser
if ((U_expert)) goto label006
endif
string008 = readline(ppepath() + "xturbo.cfg", 5)
string009 = readline(ppepath() + "xturbo.cfg", 6)
STRING001 = " No turbo login! "
STRING002 = " Yes turbo login! "
print "@CLS@@POFF@"
DispFile PPEPath() + "xturbo.PCB", 1
:LABEL001
AnsiPos integer002, integer003
Print upper(string008) + STRING001
AnsiPos integer004, integer005
Print upper(string009) + STRING002
Color 0
Print " "
Backup 1
:LABEL002
STRING004 = ""
while ((string004 == "")) string004 = inkey()
If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003
If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003
If (STRING004 == Chr(13)) Goto LABEL005
If (Upper(STRING004) == "A") Goto LABEL007
If (Upper(STRING004) == "B") Goto LABEL008
Goto LABEL002
:LABEL003
AnsiPos integer002, integer003
Print string009 + STRING001
AnsiPos integer004, integer005
Print string008 + STRING002
Color 0
Print " "
Backup 1
:LABEL004
STRING004 = ""
while ((string004 == "")) string004 = inkey()
if (((Upper(STRING004) == "DOWN") || (STRING004 == "2"))) Goto LABEL001
If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001
If (STRING004 == Chr(13)) Goto LABEL006
If (Upper(STRING004) == "A") Goto LABEL005
If (Upper(STRING004) == "B") Goto LABEL006
Goto LABEL004
:LABEL005
print "@PON@@CLS@"
if (exist(ppepath() + "logon.txt")) then
DispFile PPEPath() + "LOGON.TXT", 1
endif
End
:LABEL006
print "@PON@@CLS@"
if (exist(ppepath() + "xpert.txt")) then
Dispfile ppepath() + "XPERT.TXT", 1
endif
End
:LABEL007
AnsiPos 15, 9
Print "@X0Fa"
delay 5
Goto LABEL005
:LABEL008
AnsiPos 15, 9
Print "@X0Fb"
delay 5
Goto LABEL006