home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSBF10.ZIP
/
AGSBF.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-12-02
|
42KB
|
2,321 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER022
Integer INTEGER023
Real REAL001
Real REAL002
Real REAL003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String TSTRING056(15)
String STRING057
String STRING058
String STRING059
Int INT001
Int INT002
Int INT003
;------------------------------------------------------------------------------
STRING001 = "Ok, you have decompiled this PPE... PPLD is a nice utility eh?"
STRING002 = "Well, look at this code, learn or laugh, do what you want but"
STRING003 = "please, don't spread any modification without prior permission..."
STRING004 = ""
STRING005 = "And please, there is no backdoor here... don't put one... :("
STRING006 = ""
STRING007 = " _.Lone Runner/AGS'94"
For INTEGER011 = 1 To MaxNode()
If (INTEGER011 <> PcbNode()) Then
RdUNet INTEGER011
If (UN_Oper() == "PLaYiNG AEGiS BaTTLe FieLD") Then
PrintLn "@X0FSorry, the game is already in use on another node..."
PrintLn "Try again later..."
PrintLn
AnsiPos 1, 23
Wait
End
Endif
Endif
Next
RdUNet PcbNode()
WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "PLaYiNG AEGiS BaTTLe FieLD", " "
FOpen 1, PPEPath() + "WAR.CFG", 0, 0
FGet 1, INTEGER021
FGet 1, INTEGER017
FGet 1, INTEGER018
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING054
Select Case (Upper(STRING054))
Case "YES"
BOOLEAN008 = 1
Case "NO"
BOOLEAN008 = 0
Case Else
PrintLn "@X0FError in WAR.CFG ! (allowGuess) please, check doc !"
AnsiPos 1, 23
Wait
End
End Select
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING054
Select Case (Upper(STRING054))
Case "ALL"
BOOLEAN004 = 1
Case "REGD"
BOOLEAN004 = 0
Case Else
PrintLn "@X0FError in WAR.CFG ! (1) please, check doc !"
AnsiPos 1, 23
Wait
End
End Select
FGet 1, STRING054
Select Case (Upper(STRING054))
Case "ALL"
BOOLEAN005 = 1
Case "REGD"
BOOLEAN005 = 0
Case Else
PrintLn "@X0FError in WAR.CFG ! (2) please, check doc !"
AnsiPos 1, 23
Wait
End
End Select
FGet 1, STRING054
Select Case (Upper(STRING054))
Case "ALL"
BOOLEAN006 = 1
Case "REGD"
BOOLEAN006 = 0
Case Else
PrintLn "@X0FError in WAR.CFG ! (3) please, check doc !"
AnsiPos 1, 23
Wait
End
End Select
FGet 1, STRING018
FGet 1, INTEGER001
FGet 1, STRING026
FGet 1, STRING019
FGet 1, INTEGER002
FGet 1, STRING027
FGet 1, STRING020
FGet 1, INTEGER003
FGet 1, STRING028
FGet 1, STRING021
FGet 1, INTEGER004
FGet 1, STRING029
FGet 1, STRING022
FGet 1, INTEGER005
FGet 1, STRING030
FGet 1, STRING023
FGet 1, INTEGER006
FGet 1, STRING031
FGet 1, STRING024
FGet 1, INTEGER007
FGet 1, STRING032
FGet 1, STRING025
FGet 1, INTEGER008
FGet 1, STRING033
FClose 1
STRING039 = PPEPath() + "NUSERS.DAT"
STRING040 = PPEPath() + "REGD.DAT"
STRING044 = PPEPath() + "ULIST.$$$"
STRING045 = PPEPath() + "UNUM.$$$"
STRING054 = U_Name()
STRING054 = Replace(STRING054, "A", "a")
STRING054 = Replace(STRING054, "E", "e")
STRING054 = Replace(STRING054, "I", "i")
STRING054 = Replace(STRING054, "O", "o")
STRING054 = Replace(STRING054, "U", "u")
STRING046 = STRING054
FOpen 1, STRING039, 0, 0
FGet 1, INTEGER020
FClose 1
STRING037 = PPEPath() + "TEMP.$$$"
Gosub LABEL030
STRING038 = PPEPath() + "TEMP2.$$$"
Gosub LABEL031
INTEGER012 = 0
For INTEGER011 = 1 To Len(U_Name())
INTEGER012 = INTEGER012 + Asc(Mid(U_Name(), INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = U_Name()
Gosub LABEL089
STRING034 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING059, " "), 3) + Right(Trim(STRING059, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
GetUser
StartDisp 1
Cls
BOOLEAN002 = 0
Gosub LABEL012
AnsiPos 1, 13
PrintLn "@X0F┌@X09─@X01───────────────────@X09H@X0FoSTiLiTi@X0Fe@X09S@X01───────────────────@X09─@X0F┐"
AnsiPos 1, 14
PrintLn "@X09│ │"
For INTEGER011 = 15 To 20
AnsiPos 1, INTEGER011
PrintLn "@X01│ │"
Next
AnsiPos 1, INTEGER011
PrintLn "@X09│ │"
AnsiPos 1, INTEGER011 + 1
PrintLn "@X0F└@X09─@X01────────────────────────────────────────────────@X01─@X09─@X0F┘"
Gosub LABEL091
If (Exist(STRING034)) Then
BOOLEAN001 = 1
Goto LABEL001
Else
BOOLEAN001 = 0
Endif
STRING041 = U_Name()
Gosub LABEL013
:LABEL001
Gosub LABEL014
:LABEL002
For INTEGER009 = 1 To 8
Gosub LABEL010
Next
INTEGER009 = 1
:LABEL003
If (BOOLEAN002) Gosub LABEL012
BOOLEAN002 = 1
Gosub LABEL025
Gosub LABEL011
:LABEL004
STRING051 = Inkey()
If (STRING051 == "") Goto LABEL004
If (STRING051 == "UP") Then
Gosub LABEL010
If (INTEGER009 == 1) Then
INTEGER009 = 8
Goto LABEL005
Endif
Dec INTEGER009
:LABEL005
Gosub LABEL011
Endif
If (STRING051 == "DOWN") Then
Gosub LABEL010
If (INTEGER009 == 8) Then
INTEGER009 = 1
Goto LABEL006
Endif
Inc INTEGER009
:LABEL006
Gosub LABEL011
Endif
If (STRING051 == Chr(27)) Then
Goto LABEL007
Endif
If (STRING051 == Chr(13)) Then
If (INTEGER009 == 1) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL053
Goto LABEL003
Endif
If (INTEGER009 == 2) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL062
Goto LABEL003
Endif
If (INTEGER009 == 3) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL073
Goto LABEL003
Endif
If (INTEGER009 == 4) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL040
Goto LABEL003
Endif
If (INTEGER009 == 5) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL035
Goto LABEL003
Endif
If (INTEGER009 == 6) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL070
Goto LABEL003
Endif
If (INTEGER009 == 7) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL075
Goto LABEL003
Endif
If (INTEGER009 == 8) Then
Gosub LABEL010
Gosub LABEL012
Gosub LABEL081
Goto LABEL002
Endif
Endif
Goto LABEL004
:LABEL007
AnsiPos 1, 23
Wait
Color 8
Gosub LABEL008
Delay 2
Backup 19
Color 7
Gosub LABEL008
Delay 2
Backup 19
Color 15
Gosub LABEL008
Delay 2
Backup 19
Color 7
Gosub LABEL008
Delay 2
Backup 19
Color 8
Gosub LABEL008
Delay 2
Backup 19
Color 15
Print " "
Backup 19
Color 8
Gosub LABEL009
Delay 2
Backup 14
Color 7
Gosub LABEL009
Delay 2
Backup 14
Color 15
Gosub LABEL009
Delay 2
Backup 14
Color 7
Gosub LABEL009
Delay 2
Backup 14
Color 8
Gosub LABEL009
Delay 2
Backup 14
Color 15
Print " "
Goto LABEL071
:LABEL008
Print "CoDe BY LoNe RuNNeR"
Return
:LABEL009
Print "<┤EGiS CoRP'94"
Return
:LABEL010
If (INTEGER009 == 1) Then
INTEGER011 = (50 - Len(StripAtx(STRING008))) / 2 + 3
AnsiPos 3, 14
PrintLn "@X0F", Space(INTEGER011 - 3), STRING008, Space(52 - GetX())
Endif
If (INTEGER009 == 2) Then
INTEGER011 = (50 - Len(StripAtx(STRING009))) / 2 + 3
AnsiPos 3, 15
PrintLn "@X0F", Space(INTEGER011 - 3), STRING009, Space(52 - GetX())
Endif
If (INTEGER009 == 3) Then
INTEGER011 = (50 - Len(StripAtx(STRING010))) / 2 + 3
AnsiPos 3, 16
PrintLn "@X0F", Space(INTEGER011 - 3), STRING010, Space(52 - GetX())
Endif
If (INTEGER009 == 4) Then
INTEGER011 = (50 - Len(StripAtx(STRING011))) / 2 + 3
AnsiPos 3, 17
PrintLn "@X0F", Space(INTEGER011 - 3), STRING011, Space(52 - GetX())
Endif
If (INTEGER009 == 5) Then
INTEGER011 = (50 - Len(StripAtx(STRING012))) / 2 + 3
AnsiPos 3, 18
PrintLn "@X0F", Space(INTEGER011 - 3), STRING012, Space(52 - GetX())
Endif
If (INTEGER009 == 6) Then
INTEGER011 = (50 - Len(StripAtx(STRING013))) / 2 + 3
AnsiPos 3, 19
PrintLn "@X0F", Space(INTEGER011 - 3), STRING013, Space(52 - GetX())
Endif
If (INTEGER009 == 7) Then
INTEGER011 = (50 - Len(StripAtx(STRING014))) / 2 + 3
AnsiPos 3, 20
PrintLn "@X0F", Space(INTEGER011 - 3), STRING014, Space(52 - GetX())
Endif
If (INTEGER009 == 8) Then
INTEGER011 = (50 - Len(StripAtx(STRING015))) / 2 + 3
AnsiPos 3, 21
PrintLn "@X0F", Space(INTEGER011 - 3), STRING015, Space(52 - GetX())
Endif
Return
:LABEL011
If (INTEGER009 == 1) Then
INTEGER011 = (50 - Len(StripAtx(STRING008))) / 2 + 3
AnsiPos 3, 14
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING008), Space(52 - GetX())
Endif
If (INTEGER009 == 2) Then
INTEGER011 = (50 - Len(StripAtx(STRING009))) / 2 + 3
AnsiPos 3, 15
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING009), Space(52 - GetX())
Endif
If (INTEGER009 == 3) Then
INTEGER011 = (50 - Len(StripAtx(STRING010))) / 2 + 3
AnsiPos 3, 16
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING010), Space(52 - GetX())
Endif
If (INTEGER009 == 4) Then
INTEGER011 = (50 - Len(StripAtx(STRING011))) / 2 + 3
AnsiPos 3, 17
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING011), Space(52 - GetX())
Endif
If (INTEGER009 == 5) Then
INTEGER011 = (50 - Len(StripAtx(STRING012))) / 2 + 3
AnsiPos 3, 18
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING012), Space(52 - GetX())
Endif
If (INTEGER009 == 6) Then
INTEGER011 = (50 - Len(StripAtx(STRING013))) / 2 + 3
AnsiPos 3, 19
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING013), Space(52 - GetX())
Endif
If (INTEGER009 == 7) Then
INTEGER011 = (50 - Len(StripAtx(STRING014))) / 2 + 3
AnsiPos 3, 20
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING014), Space(52 - GetX())
Endif
If (INTEGER009 == 8) Then
INTEGER011 = (50 - Len(StripAtx(STRING015))) / 2 + 3
AnsiPos 3, 21
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING015), Space(52 - GetX())
Endif
Return
:LABEL012
AnsiPos 1, 1
PrintLn "@X0F─@X0C─@X04─@X0F<┤@X0CE@X04GiS @X0FC@X0Co@X04RP @X0FB@X0Ca@X04TTLe @X0FF@X0Ci@X04eLD─────────────────────────@X0C─@X0F┬@X0C─@X04───────@X0CS@X0FTaT@X0Fu@X0CS@X04─────────@X0C─@X0F┐"
AnsiPos 54, 2
PrintLn "@X0C│ │"
AnsiPos 1, 2
For INTEGER011 = 3 To 20
AnsiPos 54, INTEGER011
PrintLn "@X04│ │"
Next
AnsiPos 54, INTEGER011
PrintLn "@X0C│ │"
AnsiPos 54, INTEGER011 + 1
PrintLn "@X0F└@X0C─@X04─────────────────────@X04─@X0C─@X0F┘"
Return
:LABEL013
STRING057 = Upper(STRING041)
INTEGER012 = 0
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
If (Exist(STRING035)) Then
Delete STRING035
Endif
FCreate 1, STRING035, 1, 0
FPutLn 1, STRING041
FPutLn 1, INTEGER021
FPutLn 1, "[iS_HaTiNG]"
FPutLn 1, "[eND]"
FPutLn 1, "[iS_HaTeD_BY]"
FPutLn 1, "[eND]"
FPutLn 1, "[MeSSaGeS_WaiTiNG]"
FPutLn 1, "[eND]"
FPutLn 1, "[BRiBe_GiFT]"
FPutLn 1, "[eND]"
FPutLn 1, "[DeCLaRaTioNS]"
FPutLn 1, "[eND]"
FPutLn 1, "[eND_DaTa]"
FClose 1
INTEGER020 = S2I(ReadLine(STRING039, 1), 10)
FClose -1
Inc INTEGER020
Delete STRING039
FCreate 5, STRING039, 1, 0
FPutLn 5, INTEGER020
FClose 5
FCreate 5, STRING037, 1, 0
FOpen 7, STRING040, 0, 0
FGet 7, STRING052
While (STRING052 <> "") Do
FPutLn 5, STRING052
FGet 7, STRING052
EndWhile
STRING041 = Replace(STRING041, "A", "a")
STRING041 = Replace(STRING041, "E", "e")
STRING041 = Replace(STRING041, "I", "i")
STRING041 = Replace(STRING041, "O", "o")
STRING041 = Replace(STRING041, "U", "u")
FPutLn 5, STRING041
FClose 5
FClose 7
Delete STRING040
Rename STRING037, STRING040
Return
:LABEL014
Gosub LABEL031
FOpen 1, STRING034, 0, 0
FCreate 4, STRING038, 1, 0
FGet 1, STRING052
If (STRING052 <> U_Name()) Then
AnsiPos 55, 3
PrintLn " THiS aCCouNT iS NoT "
AnsiPos 55, 4
PrintLn " YouRS ! FoR iNTeRNaL "
AnsiPos 55, 5
PrintLn " ReaSoNS, You CaNNot "
AnsiPos 55, 6
PrintLn " PLay... :( "
AnsiPos 1, 23
Wait
Else
FPutLn 4, STRING052
FGet 1, INTEGER013
FPutLn 4, INTEGER013
While (1) Do
BOOLEAN002 = 1
FGet 1, STRING053
If (STRING053 == "[iS_HaTiNG]") Then
FPutLn 4, STRING053
INTEGER014 = -1
:LABEL015
Inc INTEGER014
FGet 1, STRING052
FPutLn 4, STRING052
If (STRING052 <> "[eND]") Goto LABEL015
Endif
If (STRING053 == "[iS_HaTeD_BY]") Then
FPutLn 4, STRING053
INTEGER015 = -1
:LABEL016
Inc INTEGER015
FGet 1, STRING052
FPutLn 4, STRING052
If (STRING052 <> "[eND]") Goto LABEL016
Endif
If (STRING053 == "[MeSSaGeS_WaiTiNG]") Then
FPutLn 4, STRING053
:LABEL017
FGet 1, STRING052
If (STRING052 == "[BeGiN_MeSSaGe]") Then
FGet 1, STRING016
FGet 1, BOOLEAN003
For INTEGER011 = 0 To 15
FGet 1, TSTRING056(INTEGER011)
Next
FGet 1, STRING052
If (STRING052 <> "[eND_MeSSaGe]") Then
Goto LABEL023
Goto LABEL018
Endif
Gosub LABEL024
:LABEL018
Goto LABEL017
Endif
If (STRING052 <> "[eND]") Then
Goto LABEL023
Endif
FPutLn 4, STRING052
Endif
If (STRING053 == "[BRiBe_GiFT]") Then
FPutLn 4, STRING053
:LABEL019
FGet 1, STRING052
If (STRING052 == "[BeGiN_BRiBe_GiFT]") Then
FGet 1, STRING055
FGet 1, BOOLEAN003
FGet 1, INTEGER016
For INTEGER011 = 0 To 10
FGet 1, TSTRING056(INTEGER011)
Next
FGet 1, STRING052
If (STRING052 <> "[eND_BRiBe_GiFT]") Then
Goto LABEL023
Goto LABEL020
Endif
Gosub LABEL027
:LABEL020
Goto LABEL019
Endif
If (STRING052 <> "[eND]") Then
Goto LABEL023
Endif
FPutLn 4, STRING052
Endif
If (STRING053 == "[DeCLaRaTioNS]") Then
FPutLn 4, STRING053
:LABEL021
FGet 1, STRING052
If (STRING052 == "[BeGiN_DeCLaRaTioN]") Then
FGet 1, STRING016
STRING055 = STRING016
FGet 1, BOOLEAN003
INTEGER016 = INTEGER018
For INTEGER011 = 0 To 10
FGet 1, TSTRING056(INTEGER011)
Next
FGet 1, STRING052
If (STRING052 <> "[eND_DeCLaRaTioN]") Then
Goto LABEL023
Goto LABEL022
Endif
Gosub LABEL068
:LABEL022
Goto LABEL021
Endif
If (STRING052 <> "[eND]") Then
Goto LABEL023
Endif
FPutLn 4, STRING052
Endif
If (STRING053 == "[eND_DaTa]") Then
FPutLn 4, STRING053
Break
Endif
EndWhile
FClose 1
FClose 4
Delete STRING034
Copy STRING038, STRING034
Return
If (Exist(STRING034)) Then
Delete STRING034
Endif
FCreate 1, STRING034, 1, 0
FClose 1
Return
:LABEL023
AnsiPos 55, 3
PrintLn " eRRoR iN uSeR DaTa!! "
AnsiPos 55, 4
PrintLn " SoRRy, You CaNNot "
AnsiPos 55, 5
PrintLn " PLay... :( "
AnsiPos 1, 23
Wait
Goto LABEL071
:LABEL024
Gosub LABEL012
AnsiPos 55, 3
If (BOOLEAN003) Then
PrintLn " aN aNoNYMouS uZeR "
Else
PrintLn Space((24 - Len(STRING016)) / 2) + STRING016
Endif
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────@X0FSaYZ@X04────────@X0C─@X0F─"
AnsiPos 55, 5
PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
AnsiPos 55, 6
PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
AnsiPos 55, 7
PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
AnsiPos 55, 8
PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
AnsiPos 55, 9
PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
AnsiPos 55, 10
PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
AnsiPos 55, 11
PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
AnsiPos 55, 12
PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
AnsiPos 55, 13
PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
AnsiPos 55, 14
PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
AnsiPos 55, 15
PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
AnsiPos 55, 16
PrintLn Space((24 - Len(TSTRING056(11))) / 2) + TSTRING056(11)
AnsiPos 55, 17
PrintLn Space((24 - Len(TSTRING056(12))) / 2) + TSTRING056(12)
AnsiPos 55, 18
PrintLn Space((24 - Len(TSTRING056(13))) / 2) + TSTRING056(13)
AnsiPos 55, 19
PrintLn Space((24 - Len(TSTRING056(14))) / 2) + TSTRING056(14)
AnsiPos 55, 20
PrintLn Space((24 - Len(TSTRING056(15))) / 2) + TSTRING056(15)
AnsiPos 1, 23
Wait
Return
:LABEL025
AnsiPos 55, 3
PrintLn " CuRReNT STaTuS : "
AnsiPos 55, 7
STRING052 = "You HaTe " + String(INTEGER014) + " GuYZ !"
PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
AnsiPos 55, 8
PrintLn " aND "
AnsiPos 55, 9
STRING052 = String(INTEGER015) + " GuYZ HaTe You !"
PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
AnsiPos 55, 11
STRING052 = "You HaVe " + String(INTEGER013) + " CReDZ"
PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
AnsiPos 55, 12
PrintLn " LeFT... "
AnsiPos 55, 14
PrintLn " HaTe-o-MeTeR : "
REAL002 = INTEGER020
REAL003 = INTEGER014 + INTEGER015
REAL001 = (22 / ((REAL002 - 1) * 2)) * REAL003
If (REAL001 > 22) REAL001 = 22
STRING052 = "@X0A■"
INTEGER011 = 1
While (INTEGER011 < REAL001) Do
If (INTEGER011 == 10) STRING052 = STRING052 + "@X0E"
If (INTEGER011 == 19) STRING052 = STRING052 + "@X0C"
STRING052 = STRING052 + "■"
Inc INTEGER011
EndWhile
STRING052 = STRING052 + "@X0F"
While (Len(StripAtx(STRING052)) < 22) Do
STRING052 = STRING052 + "·"
EndWhile
AnsiPos 56, 15
PrintLn STRING052
AnsiPos 55, 16
If (REAL001 < 2) Then
PrintLn " PeaCeFull... "
ElseIf (REAL001 < 5) Then
PrintLn " NoT BaD... "
ElseIf (REAL001 < 10) Then
PrintLn " iT CoMeS !... "
ElseIf (REAL001 < 15) Then
PrintLn " ReaLLy GooD ! "
ElseIf (REAL001 <= 20) Then
PrintLn " ouTSTaNDiNG !! "
ElseIf (REAL001 > 20) Then
PrintLn " !¡! FuRiouS !¡! "
Goto LABEL026
Endif
:LABEL026
Return
:LABEL027
Gosub LABEL012
AnsiPos 55, 3
If (BOOLEAN003) Then
PrintLn " aN aNoNYMouS uZeR "
Else
PrintLn Space((24 - Len(STRING055)) / 2) + STRING055
Endif
AnsiPos 55, 4
PrintLn " WaNTS To BRiBe YaH ! "
AnsiPos 55, 5
STRING052 = "He GiVES " + String(INTEGER016) + " CReDZ !"
PrintLn Space((24 - Len(STRING052)) / 2) + STRING052
AnsiPos 55, 6
PrintLn " aND aTTaCH THooZ"
AnsiPos 55, 7
PrintLn " WoRDZ..."
AnsiPos 55, 9
PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
AnsiPos 55, 10
PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
AnsiPos 55, 11
PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
AnsiPos 55, 12
PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
AnsiPos 55, 13
PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
AnsiPos 55, 14
PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
AnsiPos 55, 15
PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
AnsiPos 55, 16
PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
AnsiPos 55, 17
PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
AnsiPos 55, 18
PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
AnsiPos 55, 19
PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
AnsiPos 56, 21
PrintLn " aCCePT GiFT (Y/N) ? "
:LABEL028
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL028
If (Upper(STRING051) == "Y") Then
INTEGER013 = INTEGER013 + INTEGER016
BOOLEAN003 = 0
STRING017 = "AGS BaTTLe FieLD"
TSTRING056(0) = "YouR BRiBe TRy WiTH"
TSTRING056(1) = Trim(STRING046, " ")
TSTRING056(2) = "WaS SuCCeSSFuL !"
TSTRING056(3) = ""
TSTRING056(4) = ""
TSTRING056(5) = "LeT'S HoPe THaT THe GuY"
TSTRING056(6) = "WiLL NoT oNLY TaKE"
TSTRING056(7) = "THe CReDiTZ !"
TSTRING056(8) = ""
TSTRING056(9) = ""
TSTRING056(10) = ""
TSTRING056(11) = ""
TSTRING056(12) = ""
TSTRING056(13) = ""
TSTRING056(14) = ""
TSTRING056(15) = ""
STRING057 = STRING055
Gosub LABEL029
Else
INTEGER019 = INTEGER016
STRING057 = STRING055
Gosub LABEL032
BOOLEAN003 = 0
STRING017 = "AGS BaTTLe FieLD"
TSTRING056(0) = "YouR BRiBe TRy WiTH"
TSTRING056(1) = Trim(STRING046, " ")
TSTRING056(2) = "WaS uNSuCCeSSFuL !"
TSTRING056(3) = ""
TSTRING056(4) = ""
TSTRING056(5) = "You SHouLD TRy WiTH"
TSTRING056(6) = "MoRe CReDiTZ !"
TSTRING056(7) = ""
TSTRING056(8) = ""
TSTRING056(9) = ""
TSTRING056(10) = ""
TSTRING056(11) = ""
TSTRING056(12) = ""
TSTRING056(13) = ""
TSTRING056(14) = ""
TSTRING056(15) = ""
Gosub LABEL029
Endif
Return
:LABEL029
Gosub LABEL033
STRING057 = Upper(STRING057)
INTEGER012 = 0
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
Gosub LABEL030
FOpen 2, STRING035, 0, 0
FCreate 3, STRING037, 1, 0
STRING052 = ""
While (STRING052 <> "[MeSSaGeS_WaiTiNG]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FPutLn 3, "[BeGiN_MeSSaGe]"
FPutLn 3, STRING017
FPutLn 3, BOOLEAN003
FPutLn 3, TSTRING056(0)
FPutLn 3, TSTRING056(1)
FPutLn 3, TSTRING056(2)
FPutLn 3, TSTRING056(3)
FPutLn 3, TSTRING056(4)
FPutLn 3, TSTRING056(5)
FPutLn 3, TSTRING056(6)
FPutLn 3, TSTRING056(7)
FPutLn 3, TSTRING056(8)
FPutLn 3, TSTRING056(9)
FPutLn 3, TSTRING056(10)
FPutLn 3, TSTRING056(11)
FPutLn 3, TSTRING056(12)
FPutLn 3, TSTRING056(13)
FPutLn 3, TSTRING056(14)
FPutLn 3, TSTRING056(15)
FPutLn 3, "[eND_MeSSaGe]"
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING035
Copy STRING037, STRING035
Gosub LABEL034
Return
:LABEL030
If (Exist(STRING037)) Then
Delete STRING037
Endif
Return
:LABEL031
If (Exist(STRING038)) Then
Delete STRING038
Endif
Return
:LABEL032
Gosub LABEL033
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING036 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
Gosub LABEL030
FOpen 2, STRING036, 0, 0
FCreate 3, STRING037, 1, 0
FGet 2, STRING052
FPutLn 3, STRING052
FGet 2, INTEGER011
INTEGER011 = INTEGER011 + INTEGER019
FPutLn 3, INTEGER011
STRING052 = ""
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING036
Copy STRING037, STRING036
Gosub LABEL034
Return
:LABEL033
AnsiPos 54, 22
PrintLn "@X0F└@X0C─@X04─────@X8FWorking...@X04───────@X0C─@X0F┘"
Return
:LABEL034
AnsiPos 54, 22
PrintLn "@X0F└@X0C─@X04──────────────────────@X0C─@X0F┘"
Return
:LABEL035
AnsiPos 55, 3
PrintLn " SeND MeSSaGe To : "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (BOOLEAN005) Then
STRING042 = PPEPath() + "USER.LST"
STRING043 = PPEPath() + "TOTAL.DAT"
Else
STRING042 = PPEPath() + "REGD.DAT"
STRING043 = PPEPath() + "NUSERS.DAT"
Endif
Gosub LABEL055
STRING057 = Upper(Trim(STRING050, " "))
If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
BOOLEAN002 = 0
Return
Endif
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
:LABEL036
If (Exist(STRING035)) Then
AnsiPos 55, 3
PrintLn " TyPe iN THy MeSSaGe "
AnsiPos 56, 21
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
For INTEGER022 = 0 To 15
TSTRING056(INTEGER022) = ""
Next
INTEGER023 = 15
Gosub LABEL090
AnsiPos 56, 21
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL037
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL037
If (Upper(STRING051) == "Y") Then
AnsiPos 56, 21
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL038
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL038
If (Upper(STRING051) == "Y") Then
BOOLEAN003 = 0
Goto LABEL039
Endif
BOOLEAN003 = 1
:LABEL039
STRING017 = STRING046
Gosub LABEL029
Endif
Else
Gosub LABEL033
STRING041 = STRING057
Gosub LABEL013
Gosub LABEL034
Goto LABEL036
Endif
Return
:LABEL040
AnsiPos 55, 3
PrintLn " BRiBe WHo ? "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (BOOLEAN006) Then
STRING042 = PPEPath() + "USER.LST"
STRING043 = PPEPath() + "TOTAL.DAT"
Else
STRING042 = PPEPath() + "REGD.DAT"
STRING043 = PPEPath() + "NUSERS.DAT"
Endif
Gosub LABEL055
STRING057 = Upper(Trim(STRING050, " "))
If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
BOOLEAN002 = 0
Return
Endif
AnsiPos 55, 4
PrintLn " GiVe HoW MaNy CReDz? "
AnsiPos 56, 6
BOOLEAN009 = 0
Gosub LABEL046
INTEGER016 = S2I(STRING047, 10)
If (INTEGER016 > INTEGER013 - 1) Then
Gosub LABEL012
AnsiPos 55, 4
PrintLn " You DoN'T HaVe "
AnsiPos 55, 5
PrintLn " eNouGH CReDiTS ! "
AnsiPos 55, 6
PrintLn " (MaX = #CReDiTZ - 1) "
AnsiPos 1, 23
Wait
Return
Endif
If (INTEGER016 == 0) Return
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
:LABEL041
If (Exist(STRING035)) Then
Gosub LABEL012
AnsiPos 55, 3
PrintLn " TyPe iN THy MeSSaGe "
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
BOOLEAN009 = 1
For INTEGER022 = 0 To 15
TSTRING056(INTEGER022) = ""
Next
INTEGER023 = 10
Gosub LABEL090
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL042
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL042
If (Upper(STRING051) == "Y") Then
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL043
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL043
If (Upper(STRING051) == "Y") Then
BOOLEAN003 = 0
Goto LABEL044
Endif
BOOLEAN003 = 1
:LABEL044
STRING017 = STRING046
Gosub LABEL045
INTEGER013 = INTEGER013 - INTEGER016
Endif
Else
Gosub LABEL033
STRING041 = STRING057
Gosub LABEL013
Gosub LABEL034
Goto LABEL041
Endif
Return
:LABEL045
Gosub LABEL033
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
Gosub LABEL030
FOpen 2, STRING035, 0, 0
FCreate 3, STRING037, 1, 0
STRING052 = ""
While (STRING052 <> "[BRiBe_GiFT]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FPutLn 3, "[BeGiN_BRiBe_GiFT]"
FPutLn 3, STRING017
FPutLn 3, BOOLEAN003
FPutLn 3, INTEGER016
FPutLn 3, TSTRING056(0)
FPutLn 3, TSTRING056(1)
FPutLn 3, TSTRING056(2)
FPutLn 3, TSTRING056(3)
FPutLn 3, TSTRING056(4)
FPutLn 3, TSTRING056(5)
FPutLn 3, TSTRING056(6)
FPutLn 3, TSTRING056(7)
FPutLn 3, TSTRING056(8)
FPutLn 3, TSTRING056(9)
FPutLn 3, TSTRING056(10)
FPutLn 3, "[eND_BRiBe_GiFT]"
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING035
Copy STRING037, STRING035
Gosub LABEL034
Return
:LABEL046
BOOLEAN010 = 0
STRING047 = ""
:LABEL047
If (STRING058 == "") Then
STRING051 = Inkey()
If (STRING051 == Chr(27)) Then
BOOLEAN010 = 1
STRING051 = Chr(13)
Endif
Else
STRING051 = Left(STRING058, 1)
STRING058 = Mid(STRING058, 2, Len(STRING058) - 1)
Endif
If ((STRING051 <> "") && (Len(STRING051) < 2)) Then
If (STRING051 == Chr(13)) Goto LABEL052
If ((Asc(STRING051) > 31) && (Len(STRING047) < 22)) Then
STRING048 = Right(STRING047, 1)
STRING049 = Left(Right(STRING047, 2), 1)
If ((STRING048 <> "") && (STRING048 <> " ")) Then
If ((STRING049 <> "") && (STRING049 <> " ")) Then
Color 4
Goto LABEL048
Endif
Color 12
:LABEL048
Goto LABEL049
Endif
Color 15
:LABEL049
Print STRING051
STRING047 = STRING047 + STRING051
Goto LABEL051
Endif
If (((Asc(STRING051) > 31) && (Len(STRING047) == 22)) && BOOLEAN009) Then
For STRING048 = Len(STRING047) To 0 Step -1
If (Mid(STRING047, STRING048, 1) == " ") Break
Next
If (STRING051 == " ") Then
Goto LABEL052
Endif
If (STRING048 == 0) Then
STRING058 = STRING051
Goto LABEL050
Endif
Backup 22 - STRING048
Print Space(22 - STRING048)
Backup 22 - STRING048
STRING058 = Right(STRING047, 22 - STRING048) + STRING051
STRING047 = Mid(STRING047, 1, STRING048 - 1)
:LABEL050
Goto LABEL052
Endif
:LABEL051
If ((STRING051 == Chr(8)) && (Len(STRING047) > 0)) Then
Backup 1
Print "@X07 "
Backup 1
STRING047 = Mid(STRING047, 1, Len(STRING047) - 1)
Endif
Endif
Goto LABEL047
:LABEL052
Return
:LABEL053
If (INTEGER013 == 0) Then
AnsiPos 55, 3
PrintLn " SoRRY, You HaVe No "
AnsiPos 56, 4
PrintLn " MoRe CReDiTS ! "
AnsiPos 1, 23
Wait
Return
Endif
AnsiPos 55, 3
PrintLn " eNGaGe WaR WiTH ? "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
If (BOOLEAN004) Then
STRING042 = PPEPath() + "USER.LST"
STRING043 = PPEPath() + "TOTAL.DAT"
Else
STRING042 = PPEPath() + "REGD.DAT"
STRING043 = PPEPath() + "NUSERS.DAT"
Endif
Gosub LABEL055
STRING057 = Upper(Trim(STRING050, " "))
If ((STRING057 == "") || (STRING057 == Trim(U_Name(), " "))) Then
BOOLEAN002 = 0
Return
Endif
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
BOOLEAN007 = 0
If (Exist(STRING035)) Then
Gosub LABEL033
Gosub LABEL072
Gosub LABEL034
If (BOOLEAN007 == 1) Then
Goto LABEL054
Endif
Inc INTEGER014
Dec INTEGER013
Else
Gosub LABEL033
STRING041 = STRING057
Gosub LABEL013
Gosub LABEL072
Gosub LABEL034
If (BOOLEAN007 == 1) Then
Goto LABEL054
Endif
Inc INTEGER014
Dec INTEGER013
Endif
BOOLEAN002 = 0
Return
:LABEL054
AnsiPos 55, 4
PrintLn " You aRe aLReaDY aT "
AnsiPos 55, 5
PrintLn " WaR WiTH THiS GuY! "
AnsiPos 1, 23
Wait
Return
:LABEL055
INT003 = S2I(ReadLine(STRING043, 1), 10)
FClose -1
INT002 = 1
Gosub LABEL061
INT001 = 1
Gosub LABEL059
:LABEL056
STRING051 = Inkey()
STRING051 = Upper(STRING051)
If (STRING051 == "") Goto LABEL056
If ((STRING051 == "DOWN") || (STRING051 == "2")) Then
If (INT001 < INT003) Then
If (INT001 < INT002 + 15) Then
Gosub LABEL060
Inc INT001
Gosub LABEL059
Goto LABEL056
Goto LABEL057
Endif
Gosub LABEL060
INT002 = INT002 + 16
Gosub LABEL061
INT001 = INT002
Gosub LABEL059
Goto LABEL056
Endif
Endif
:LABEL057
If ((STRING051 == "UP") || (STRING051 == "8")) Then
If (INT001 > 1) Then
If (INT001 > INT002) Then
Gosub LABEL060
Dec INT001
Gosub LABEL059
Goto LABEL056
Goto LABEL058
Endif
Gosub LABEL060
INT002 = INT002 - 16
Gosub LABEL061
INT001 = INT002 + 15
Gosub LABEL059
Goto LABEL056
Endif
Endif
:LABEL058
If (((STRING051 == "PGDN") || (STRING051 == "3")) || (STRING051 == "D")) Then
If (INT002 + 15 < INT003) Then
INTEGER012 = INT001
Gosub LABEL060
INT002 = INT002 + 16
Gosub LABEL061
INT001 = INTEGER012 + 16
If (INT001 > INT003) INT001 = INT003
Gosub LABEL059
Goto LABEL056
Endif
Endif
If (((STRING051 == "PGUP") || (STRING051 == "9")) || (STRING051 == "U")) Then
If (INT002 > 1) Then
INTEGER012 = INT001
Gosub LABEL060
INT002 = INT002 - 16
Gosub LABEL061
INT001 = INTEGER012 - 16
Gosub LABEL059
Goto LABEL056
Endif
Endif
If (STRING051 == Chr(27)) Then
FClose -1
Gosub LABEL012
STRING050 = ""
Return
Endif
If (STRING051 == Chr(13)) Then
STRING050 = ReadLine(STRING042, INT001)
Gosub LABEL012
FClose -1
Return
Endif
Goto LABEL056
:LABEL059
AnsiPos 55, 5 + INT001 - INT002
STRING052 = ReadLine(STRING042, INT001)
STRING052 = Space((24 - Len(STRING052)) / 2) + Upper(STRING052) + Space((24 - Len(STRING052)) / 2)
Print "@X1F", STRING052 + Space(24 - Len(STRING052))
Return
:LABEL060
AnsiPos 55, 5 + INT001 - INT002
STRING052 = ReadLine(STRING042, INT001)
STRING052 = Space((24 - Len(STRING052)) / 2) + STRING052 + Space((24 - Len(STRING052)) / 2)
Print "@X0F", STRING052 + Space(24 - Len(STRING052))
Return
:LABEL061
For INT001 = INT002 To INT002 + 15
Gosub LABEL060
Next
Return
:LABEL062
AnsiPos 55, 3
PrintLn " TyPe iN THy MeSSaGe "
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
BOOLEAN009 = 1
For INTEGER022 = 0 To 15
TSTRING056(INTEGER022) = ""
Next
INTEGER023 = 10
Gosub LABEL090
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ca@X04ve @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL063
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL063
If (Upper(STRING051) == "Y") Then
AnsiPos 56, 16
PrintLn "@X0F─@X0C─@X04── @X0FS@X0Ci@X04gn @X0F? (@X0CY@X0F/@X0CN@X0F) @X04──@X0C─@X0F─"
:LABEL064
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL064
If (Upper(STRING051) == "Y") Then
BOOLEAN003 = 0
Goto LABEL065
Endif
BOOLEAN003 = 1
:LABEL065
Gosub LABEL066
Endif
Return
:LABEL066
Gosub LABEL033
FOpen 5, STRING040, 0, 0
STRING054 = " "
While (1) Do
FGet 5, STRING054
If (Trim(STRING054, " ") == "") Break
STRING057 = STRING054
If (Upper(STRING057) <> U_Name()) Then
STRING017 = STRING046
Gosub LABEL067
Endif
EndWhile
FClose 5
Gosub LABEL034
Return
:LABEL067
STRING057 = Upper(STRING057)
INTEGER012 = 0
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
Gosub LABEL030
FOpen 2, STRING035, 0, 0
FCreate 3, STRING037, 1, 0
STRING052 = ""
While (STRING052 <> "[DeCLaRaTioNS]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FPutLn 3, "[BeGiN_DeCLaRaTioN]"
FPutLn 3, STRING017
FPutLn 3, BOOLEAN003
FPutLn 3, TSTRING056(0)
FPutLn 3, TSTRING056(1)
FPutLn 3, TSTRING056(2)
FPutLn 3, TSTRING056(3)
FPutLn 3, TSTRING056(4)
FPutLn 3, TSTRING056(5)
FPutLn 3, TSTRING056(6)
FPutLn 3, TSTRING056(7)
FPutLn 3, TSTRING056(8)
FPutLn 3, TSTRING056(9)
FPutLn 3, TSTRING056(10)
FPutLn 3, "[eND_DeCLaRaTioN]"
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING035
Copy STRING037, STRING035
Return
:LABEL068
Gosub LABEL012
AnsiPos 55, 3
If (BOOLEAN003) Then
PrintLn " aN aNoNYMouS uZeR "
Else
PrintLn Space((24 - Len(STRING016)) / 2) + STRING016
Endif
AnsiPos 55, 4
PrintLn " GeTS CReDiTS iF You "
AnsiPos 55, 5
PrintLn " aGRee WiTH HiM ! "
AnsiPos 55, 7
PrintLn " He SaiZ : "
AnsiPos 55, 9
PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0)
AnsiPos 55, 10
PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1)
AnsiPos 55, 11
PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2)
AnsiPos 55, 12
PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3)
AnsiPos 55, 13
PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4)
AnsiPos 55, 14
PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5)
AnsiPos 55, 15
PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6)
AnsiPos 55, 16
PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7)
AnsiPos 55, 17
PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8)
AnsiPos 55, 18
PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9)
AnsiPos 55, 19
PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10)
AnsiPos 56, 21
PrintLn " Do You aGRee (Y/N) ? "
:LABEL069
STRING051 = Inkey()
If ((Upper(STRING051) <> "Y") && (Upper(STRING051) <> "N")) Goto LABEL069
If (Upper(STRING051) == "Y") Then
STRING057 = STRING055
INTEGER019 = INTEGER016
Gosub LABEL032
TSTRING056(0) = Trim(STRING046, " ")
TSTRING056(1) = "aGReeD WiTH You!"
TSTRING056(2) = ""
TSTRING056(3) = "You GeT ONe CReDiT !"
TSTRING056(4) = ""
TSTRING056(5) = ""
TSTRING056(6) = ""
TSTRING056(7) = ""
TSTRING056(8) = ""
TSTRING056(9) = ""
TSTRING056(10) = ""
TSTRING056(11) = ""
TSTRING056(12) = ""
TSTRING056(13) = ""
TSTRING056(14) = ""
TSTRING056(15) = ""
STRING057 = STRING055
BOOLEAN003 = 0
STRING017 = "AGS BaTTLe FieLD"
Gosub LABEL029
Else
STRING057 = STRING055
TSTRING056(0) = Trim(STRING046, " ")
TSTRING056(1) = "DiD NoT aGReeD WiTH You"
TSTRING056(2) = ""
TSTRING056(3) = "You DoN'T GeT aNY"
TSTRING056(4) = "CReDiT !"
TSTRING056(5) = ""
TSTRING056(6) = ""
TSTRING056(7) = ""
TSTRING056(8) = ""
TSTRING056(9) = ""
TSTRING056(10) = ""
TSTRING056(11) = ""
TSTRING056(12) = ""
TSTRING056(13) = ""
TSTRING056(14) = ""
TSTRING056(15) = ""
BOOLEAN003 = 0
STRING017 = "AGS BaTTLe FieLD"
Gosub LABEL029
Endif
Return
:LABEL070
If (INTEGER014 == 0) Then
AnsiPos 55, 3
PrintLn " You ARe aT WaR WiTH "
AnsiPos 55, 4
PrintLn " NoBoDY ! "
AnsiPos 1, 23
Wait
Return
Endif
Gosub LABEL030
Gosub LABEL031
FOpen 5, STRING034, 0, 0
FCreate 3, STRING037, 1, 0
STRING054 = ""
While (STRING054 <> "[iS_HaTiNG]") Do
FGet 5, STRING054
EndWhile
FGet 5, STRING054
INTEGER011 = 0
While (STRING054 <> "[eND]") Do
Inc INTEGER011
FPutLn 3, STRING054
FGet 5, STRING054
EndWhile
FClose 5
FClose 3
STRING042 = STRING037
FCreate 3, STRING038, 1, 0
FPutLn 3, INTEGER011
FClose 3
STRING043 = STRING038
AnsiPos 55, 3
PrintLn " MaKe PeaCe WiTH : "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
Gosub LABEL055
If (STRING050 == "") Then
BOOLEAN002 = 0
Return
Endif
Gosub LABEL033
Gosub LABEL030
FOpen 5, STRING034, 0, 0
FCreate 3, STRING037, 1, 0
STRING054 = ""
While (1) Do
If (STRING054 == "[iS_HaTiNG]") Break
FGet 5, STRING054
FPutLn 3, STRING054
EndWhile
STRING054 = ""
While (1) Do
If (STRING054 == "[eND]") Break
FGet 5, STRING054
If (Upper(STRING054) <> Upper(STRING050)) Then
FPutLn 3, STRING054
Endif
EndWhile
STRING054 = ""
While (1) Do
If (STRING054 == "[eND_DaTa]") Break
FGet 5, STRING054
FPutLn 3, STRING054
EndWhile
FClose 5
FClose 3
Delete STRING034
Rename STRING037, STRING034
Dec INTEGER014
Inc INTEGER013
Gosub LABEL030
STRING057 = Upper(STRING050)
INTEGER012 = 0
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
FOpen 5, STRING035, 0, 0
FCreate 3, STRING037, 1, 0
STRING054 = ""
While (1) Do
If (STRING054 == "[iS_HaTeD_BY]") Break
FGet 5, STRING054
FPutLn 3, STRING054
EndWhile
STRING054 = ""
While (1) Do
If (STRING054 == "[eND]") Break
FGet 5, STRING054
If (Upper(STRING054) <> U_Name()) Then
FPutLn 3, STRING054
Endif
EndWhile
STRING054 = ""
While (1) Do
If (STRING054 == "[eND_DaTa]") Break
FGet 5, STRING054
FPutLn 3, STRING054
EndWhile
FClose 5
FClose 3
Delete STRING035
Rename STRING037, STRING035
Gosub LABEL034
Return
Endif
:LABEL071
FClose 1
FClose 2
FClose 3
FClose 4
FClose 5
FClose 6
FClose 7
Gosub LABEL030
FOpen 1, STRING034, 0, 0
FCreate 3, STRING037, 1, 0
FPutLn 3, U_Name()
FPutLn 3, INTEGER013
FGet 1, STRING054
FGet 1, STRING054
STRING054 = ""
While (STRING054 <> "[eND_DaTa]") Do
FGet 1, STRING054
FPutLn 3, STRING054
EndWhile
FClose 1
FClose 3
Delete STRING034
Rename STRING037, STRING034
Gosub LABEL030
Gosub LABEL031
End
:LABEL072
INTEGER012 = 0
STRING057 = Upper(STRING057)
For INTEGER011 = 1 To Len(STRING057)
INTEGER012 = INTEGER012 + Asc(Mid(STRING057, INTEGER011, 1))
Next
STRING052 = I2S(INTEGER012, 16)
STRING059 = STRING057
Gosub LABEL089
STRING057 = STRING059
STRING035 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING057, " "), 3) + Right(Trim(STRING057, " "), 4) + Left(STRING052, 1) + "." + Mid(STRING052, 2, 3), " ")
Gosub LABEL030
FOpen 2, STRING034, 0, 0
FCreate 3, STRING037, 1, 0
STRING052 = ""
While (STRING052 <> "[iS_HaTiNG]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FGet 2, STRING052
While (STRING052 <> "[eND]") Do
If (Upper(STRING052) == STRING057) Then
FClose 2
FClose 3
Gosub LABEL030
BOOLEAN007 = 1
Return
Endif
FPutLn 3, STRING052
FGet 2, STRING052
EndWhile
STRING054 = Replace(STRING057, "A", "a")
STRING054 = Replace(STRING054, "E", "e")
STRING054 = Replace(STRING054, "I", "i")
STRING054 = Replace(STRING054, "O", "o")
STRING054 = Replace(STRING054, "U", "u")
FPutLn 3, STRING054
FPutLn 3, STRING052
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING034
Copy STRING037, STRING034
Gosub LABEL030
FOpen 2, STRING035, 0, 0
FCreate 3, STRING037, 1, 0
STRING052 = ""
While (STRING052 <> "[iS_HaTeD_BY]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
STRING054 = Replace(U_Name(), "A", "a")
STRING054 = Replace(STRING054, "E", "e")
STRING054 = Replace(STRING054, "I", "i")
STRING054 = Replace(STRING054, "O", "o")
STRING054 = Replace(STRING054, "U", "u")
FPutLn 3, STRING054
While (STRING052 <> "[eND_DaTa]") Do
FGet 2, STRING052
FPutLn 3, STRING052
EndWhile
FClose 2
FClose 3
Delete STRING035
Copy STRING037, STRING035
Return
:LABEL073
If (BOOLEAN008) Goto LABEL074
AnsiPos 55, 3
PrintLn " SoRRY, YouR SYSoP "
AnsiPos 55, 4
PrintLn " HaS DiSaBLeD THiS "
AnsiPos 55, 5
PrintLn " FuNCTioN :( "
AnsiPos 1, 23
Wait
Return
:LABEL074
If (INTEGER013 < INTEGER017) Then
AnsiPos 55, 3
PrintLn " You DoN'T HaVe eNouGH "
AnsiPos 56, 4
PrintLn " CReDiTS To Do THaT !"
AnsiPos 1, 23
Wait
Return
Endif
AnsiPos 55, 3
PrintLn " -" + String(INTEGER017) + " CReDiT BY MiSTaKe ! "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
STRING042 = PPEPath() + "USER.LST"
STRING043 = PPEPath() + "TOTAL.DAT"
Gosub LABEL055
If (Trim(STRING050, " ") == "") Then
BOOLEAN002 = 0
Return
Endif
FOpen 4, STRING034, 0, 0
STRING054 = ""
BOOLEAN007 = 0
While (STRING054 <> "[iS_HaTeD_BY]") Do
FGet 4, STRING054
EndWhile
While (STRING054 <> "[eND]") Do
If (STRING054 == "[eND_DaTa]") Break
FGet 4, STRING054
If (Upper(STRING054) == Upper(STRING050)) Then
BOOLEAN007 = 1
Endif
EndWhile
FClose 4
AnsiPos 55, 4
Print " You WeRe"
For INTEGER011 = 1 To 5
Print "."
Delay 10
Next
If (BOOLEAN007) Then
PrintLn "RiGHT !!"
STRING057 = Upper(STRING050)
TSTRING056(0) = Trim(STRING046, " ")
TSTRING056(1) = "HaS DiSCoVeRD THaT"
TSTRING056(2) = "You HaTe HiM !"
TSTRING056(3) = ""
TSTRING056(4) = ""
TSTRING056(5) = ""
TSTRING056(6) = ""
TSTRING056(7) = ""
TSTRING056(8) = ""
TSTRING056(9) = ""
TSTRING056(10) = ""
TSTRING056(11) = ""
TSTRING056(12) = ""
TSTRING056(13) = ""
TSTRING056(14) = ""
TSTRING056(15) = ""
BOOLEAN003 = 0
STRING017 = "AGS BaTTLe FieLD"
Gosub LABEL029
Else
PrintLn "WRoNG :("
INTEGER013 = INTEGER013 - INTEGER017
Endif
AnsiPos 1, 23
Wait
Return
:LABEL075
AnsiPos 55, 3
PrintLn " HeLP "
AnsiPos 56, 4
PrintLn "@X0F─@X0C─@X04──────────────────@X0C─@X0F─"
FOpen 4, PPEPath() + "Help.txt", 0, 0
FGet 4, STRING054
If (STRING054 <> "[BeGiN_HeLP]") Then
FClose 4
AnsiPos 55, 5
PrintLn " SoRRY, HeLP iS NoT "
AnsiPos 55, 6
PrintLn " aVaiLaBLe... "
AnsiPos 1, 23
Wait
Return
Endif
While (1) Do
For INTEGER011 = 0 To 15
FGet 4, TSTRING056(INTEGER011)
If (TSTRING056(INTEGER011) == "[eND_HeLP]") Goto LABEL076
Next
Gosub LABEL077
EndWhile
:LABEL076
If (INTEGER011 > 0) Then
For INTEGER012 = INTEGER011 To 15
TSTRING056(INTEGER012) = ""
Next
Gosub LABEL077
Endif
FClose 4
TSTRING056(0) = ""
TSTRING056(1) = "<┤EGiS CoRP"
TSTRING056(2) = "BaTTLe FieLD"
TSTRING056(3) = ""
TSTRING056(4) = "MaiN CoDiNG :"
TSTRING056(5) = "LoNe RuNNeR/AGS"
TSTRING056(6) = ""
TSTRING056(7) = "aDDiTioNaL CoDiNG :"
TSTRING056(8) = "NuMBeR SiX/AGS"
TSTRING056(9) = ""
TSTRING056(10) = "ANSi DeSiGN :"
TSTRING056(11) = "aSiaN KNiGHT/ACiD"
TSTRING056(12) = ""
TSTRING056(13) = "oRiGiNaL CoNCePT :"
TSTRING056(14) = "PiZZa & DRoNT/ReBeLS"
TSTRING056(15) = ""
Gosub LABEL077
Return
:LABEL077
AnsiPos 55, 5
PrintLn Space((24 - Len(TSTRING056(0))) / 2) + TSTRING056(0) + Space((24 - Len(TSTRING056(0))) / 2)
AnsiPos 55, 6
PrintLn Space((24 - Len(TSTRING056(1))) / 2) + TSTRING056(1) + Space((24 - Len(TSTRING056(1))) / 2)
AnsiPos 55, 7
PrintLn Space((24 - Len(TSTRING056(2))) / 2) + TSTRING056(2) + Space((24 - Len(TSTRING056(2))) / 2)
AnsiPos 55, 8
PrintLn Space((24 - Len(TSTRING056(3))) / 2) + TSTRING056(3) + Space((24 - Len(TSTRING056(3))) / 2)
AnsiPos 55, 9
PrintLn Space((24 - Len(TSTRING056(4))) / 2) + TSTRING056(4) + Space((24 - Len(TSTRING056(4))) / 2)
AnsiPos 55, 10
PrintLn Space((24 - Len(TSTRING056(5))) / 2) + TSTRING056(5) + Space((24 - Len(TSTRING056(5))) / 2)
AnsiPos 55, 11
PrintLn Space((24 - Len(TSTRING056(6))) / 2) + TSTRING056(6) + Space((24 - Len(TSTRING056(6))) / 2)
AnsiPos 55, 12
PrintLn Space((24 - Len(TSTRING056(7))) / 2) + TSTRING056(7) + Space((24 - Len(TSTRING056(7))) / 2)
AnsiPos 55, 13
PrintLn Space((24 - Len(TSTRING056(8))) / 2) + TSTRING056(8) + Space((24 - Len(TSTRING056(8))) / 2)
AnsiPos 55, 14
PrintLn Space((24 - Len(TSTRING056(9))) / 2) + TSTRING056(9) + Space((24 - Len(TSTRING056(9))) / 2)
AnsiPos 55, 15
PrintLn Space((24 - Len(TSTRING056(10))) / 2) + TSTRING056(10) + Space((24 - Len(TSTRING056(10))) / 2)
AnsiPos 55, 16
PrintLn Space((24 - Len(TSTRING056(11))) / 2) + TSTRING056(11) + Space((24 - Len(TSTRING056(11))) / 2)
AnsiPos 55, 17
PrintLn Space((24 - Len(TSTRING056(12))) / 2) + TSTRING056(12) + Space((24 - Len(TSTRING056(12))) / 2)
AnsiPos 55, 18
PrintLn Space((24 - Len(TSTRING056(13))) / 2) + TSTRING056(13) + Space((24 - Len(TSTRING056(13))) / 2)
AnsiPos 55, 19
PrintLn Space((24 - Len(TSTRING056(14))) / 2) + TSTRING056(14) + Space((24 - Len(TSTRING056(14))) / 2)
AnsiPos 55, 20
PrintLn Space((24 - Len(TSTRING056(15))) / 2) + TSTRING056(15) + Space((24 - Len(TSTRING056(15))) / 2)
AnsiPos 1, 23
Wait
Return
:LABEL078
AnsiPos 1, 23
SaveScrn
Select Case (INTEGER010)
Case 1
If (STRING026 == "") Goto LABEL079
If (INTEGER001 > U_Sec) Goto LABEL080
Call STRING026
Case 2
If (STRING027 == "") Goto LABEL079
If (INTEGER002 > U_Sec) Goto LABEL080
Call STRING027
Case 3
If (STRING028 == "") Goto LABEL079
If (INTEGER003 > U_Sec) Goto LABEL080
Call STRING028
Case 4
If (STRING029 == "") Goto LABEL079
If (INTEGER004 > U_Sec) Goto LABEL080
Call STRING029
Case 5
If (STRING030 == "") Goto LABEL079
If (INTEGER005 > U_Sec) Goto LABEL080
Call STRING030
Case 6
If (STRING031 == "") Goto LABEL079
If (INTEGER006 > U_Sec) Goto LABEL080
Call STRING031
Case 7
If (STRING032 == "") Goto LABEL079
If (INTEGER007 > U_Sec) Goto LABEL080
Call STRING032
Case 8
If (STRING033 == "") Goto LABEL079
If (INTEGER008 > U_Sec) Goto LABEL080
Call STRING033
End Select
:LABEL079
RestScrn
Return
:LABEL080
AnsiPos 55, 3
PrintLn " SoRRY, You DoN'T "
AnsiPos 55, 4
PrintLn " HaVe THe ReQuiReD "
AnsiPos 55, 5
PrintLn " LeVeL FoR THiS "
AnsiPos 55, 6
PrintLn " FuNCTioN :( "
AnsiPos 1, 23
Wait
Gosub LABEL012
Return
:LABEL081
For INTEGER010 = 1 To 8
Gosub LABEL087
Next
INTEGER010 = 1
:LABEL082
Gosub LABEL088
:LABEL083
STRING051 = Inkey()
If (STRING051 == "") Goto LABEL083
If (STRING051 == "UP") Then
Gosub LABEL087
If (INTEGER010 == 1) Then
INTEGER010 = 8
Goto LABEL084
Endif
Dec INTEGER010
:LABEL084
Gosub LABEL088
Endif
If (STRING051 == "DOWN") Then
Gosub LABEL087
If (INTEGER010 == 8) Then
INTEGER010 = 1
Goto LABEL085
Endif
Inc INTEGER010
:LABEL085
Gosub LABEL088
Endif
If (STRING051 == Chr(27)) Then
Goto LABEL086
Endif
If (STRING051 == Chr(13)) Then
Gosub LABEL087
Gosub LABEL078
Goto LABEL082
Endif
Goto LABEL083
:LABEL086
Return
:LABEL087
If (INTEGER010 == 1) Then
INTEGER011 = (50 - Len(StripAtx(STRING018))) / 2 + 3
AnsiPos 3, 14
PrintLn "@X0F", Space(INTEGER011 - 3), STRING018, Space(52 - GetX())
Endif
If (INTEGER010 == 2) Then
INTEGER011 = (50 - Len(StripAtx(STRING019))) / 2 + 3
AnsiPos 3, 15
PrintLn "@X0F", Space(INTEGER011 - 3), STRING019, Space(52 - GetX())
Endif
If (INTEGER010 == 3) Then
INTEGER011 = (50 - Len(StripAtx(STRING020))) / 2 + 3
AnsiPos 3, 16
PrintLn "@X0F", Space(INTEGER011 - 3), STRING020, Space(52 - GetX())
Endif
If (INTEGER010 == 4) Then
INTEGER011 = (50 - Len(StripAtx(STRING021))) / 2 + 3
AnsiPos 3, 17
PrintLn "@X0F", Space(INTEGER011 - 3), STRING021, Space(52 - GetX())
Endif
If (INTEGER010 == 5) Then
INTEGER011 = (50 - Len(StripAtx(STRING022))) / 2 + 3
AnsiPos 3, 18
PrintLn "@X0F", Space(INTEGER011 - 3), STRING022, Space(52 - GetX())
Endif
If (INTEGER010 == 6) Then
INTEGER011 = (50 - Len(StripAtx(STRING023))) / 2 + 3
AnsiPos 3, 19
PrintLn "@X0F", Space(INTEGER011 - 3), STRING023, Space(52 - GetX())
Endif
If (INTEGER010 == 7) Then
INTEGER011 = (50 - Len(StripAtx(STRING024))) / 2 + 3
AnsiPos 3, 20
PrintLn "@X0F", Space(INTEGER011 - 3), STRING024, Space(52 - GetX())
Endif
If (INTEGER010 == 8) Then
INTEGER011 = (50 - Len(StripAtx(STRING025))) / 2 + 3
AnsiPos 3, 21
PrintLn "@X0F", Space(INTEGER011 - 3), STRING025, Space(52 - GetX())
Endif
Return
:LABEL088
If (INTEGER010 == 1) Then
INTEGER011 = (50 - Len(StripAtx(STRING018))) / 2 + 3
AnsiPos 3, 14
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING018), Space(52 - GetX())
Endif
If (INTEGER010 == 2) Then
INTEGER011 = (50 - Len(StripAtx(STRING019))) / 2 + 3
AnsiPos 3, 15
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING019), Space(52 - GetX())
Endif
If (INTEGER010 == 3) Then
INTEGER011 = (50 - Len(StripAtx(STRING020))) / 2 + 3
AnsiPos 3, 16
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING020), Space(52 - GetX())
Endif
If (INTEGER010 == 4) Then
INTEGER011 = (50 - Len(StripAtx(STRING021))) / 2 + 3
AnsiPos 3, 17
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING021), Space(52 - GetX())
Endif
If (INTEGER010 == 5) Then
INTEGER011 = (50 - Len(StripAtx(STRING022))) / 2 + 3
AnsiPos 3, 18
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING022), Space(52 - GetX())
Endif
If (INTEGER010 == 6) Then
INTEGER011 = (50 - Len(StripAtx(STRING023))) / 2 + 3
AnsiPos 3, 19
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING023), Space(52 - GetX())
Endif
If (INTEGER010 == 7) Then
INTEGER011 = (50 - Len(StripAtx(STRING024))) / 2 + 3
AnsiPos 3, 20
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING024), Space(52 - GetX())
Endif
If (INTEGER010 == 8) Then
INTEGER011 = (50 - Len(StripAtx(STRING025))) / 2 + 3
AnsiPos 3, 21
PrintLn "@X1F", Space(INTEGER011 - 3), Upper(STRING025), Space(52 - GetX())
Endif
Return
:LABEL089
STRING059 = Replace(STRING059, ".", "_")
STRING059 = Replace(STRING059, "*", "_")
STRING059 = Replace(STRING059, "?", "_")
STRING059 = Replace(STRING059, "\", "_")
STRING059 = Replace(STRING059, "/", "_")
STRING059 = Replace(STRING059, ":", "_")
STRING059 = Replace(STRING059, ";", "_")
STRING059 = Replace(STRING059, ",", "_")
STRING059 = Replace(STRING059, "=", "_")
STRING059 = Replace(STRING059, "+", "_")
STRING059 = Replace(STRING059, Chr(34), "_")
STRING059 = Replace(STRING059, "[", "_")
STRING059 = Replace(STRING059, "]", "_")
STRING059 = Replace(STRING059, "<", "_")
STRING059 = Replace(STRING059, ">", "_")
For INTEGER022 = 0 To 31
STRING059 = Replace(STRING059, Chr(INTEGER022), "_")
Next
Return
:LABEL090
For INTEGER022 = 0 To INTEGER023
AnsiPos 56, 5 + INTEGER022
If (INTEGER022 <> INTEGER023) Then
BOOLEAN009 = 1
Else
BOOLEAN009 = 0
Endif
Gosub LABEL046
TSTRING056(INTEGER022) = STRING047
If (BOOLEAN010) Break
Next
Return
:LABEL091
AnsiPos 1, 2
PrintLn "@X06░ ▒ @X0E░ @X06░ @X07▐█▄ @X0C▀▀ @X0F▄▄ @X0C▀ @X0F▄▄ @X7F▓@X0F ▄@X7F█@X0F▄ @X07▄@X7F░@X07▄ @X06▐▌ █▒ ░▀▀▄▓"
PrintLn "@X06 ░ ░ ░ @X07█@X7F░@X07█▄@X7F▒▓@X0F█████▄██▄██@X7F▓█@X0F▐█@X7F▓▓@X0F█@X7F░@X07█▀ @X0C▀@X6C▓@X0F @X06░ @X0E░ @X06▒"
PrintLn "@X06 @X6E░@X06█░ ▒@X0E░ @X06░ @X07▀▀@X7F▒▓@X0F█▀███████▌██@X7F▓@X0F▀▀ @X7F▒@X78░@X0F @X0C▐▌ @X0E░ ▒ @X06▐"
PrintLn "@X6E░▒░@X06█@X6E░@X06▓@X0E▒ @X06▒ ░ @X0F▀ @X7F░@X0F @X0C▀▄@X6C▓@X0C▌ @X06▄@X0E▒ ░ ▓ @X06▄▌"
PrintLn "@X0E█▌@X6E▒@X06▄@X6E▒░@X0E▓@X6E░@X06▓@X6E░@X06▒ @X0C▄▀ @X07▐▌ @X0C▐▀@X6C▒@X0F @X0E▓░▒▓▓@X6E░▓@X07"
PrintLn "@X0F @X0E▀@X6E█▒@X0E█@X6E▓@X0E▀@X6E▒░▒@X06░▓ @X0F▄▄@X7F░@X0F▄ @X04▄▄▄█▓█▓▄ @X07█ @X08▄ @X0C▐@X06▌ @X0E▐@X6E▓▒▒@X0E█▀"
PrintLn "@X04▄ @X0E▀ ▀▄▀▀▄@X6E▓@X0E▀ @X0F▐▀▄▀▀ @X04▄████▓▓████ @X07▐▌▄@X78▓@X08▄ @X04■ @X6C▒@X0F @X0E▀▀ @X0C▄█"
PrintLn "@X04██▀ ▄ ▄ @X0F▀@X7F░▒@X0F▄@X7F▓@X0F ▄▄▄@X04▀@X0F▄▄@X04▀▀▀@X0F▄▄▄▄@X7F▒░@X78░▒▓@X08▀ @X04▌@X6C░@X0C▌ ▄██"
PrintLn "@X04▀ ▄ ▀ @X0F▀@X7F▒▓█▓@X0F██@X7F▓@X0F█████████@X7F▓▓@X07▐@X7F░@X78░@X08▀ @X04▓ @X6C▒@X0F @X0C▄█▀ ▄"
PrintLn "@X0C @X04▄▄█▀ @X07███@X0C▄@X6C▓@X0C▄▄▄▄▄▄▄@X0F▀▀▀▀███▐@X7F▓@X0F▀▀@X07▄▀ @X04▄▓▀@X0C▐▌@X07███ @X0C▐█ ▀"
PrintLn "@X04████▀ ▄ ▀ ▄█@X07█ @X0C▐██▀█@X6C▓▓▓▓▒▒░░@X06▄▄░▄▄ ▓ @X04▀▓▀@X06▄▓@X6C▒@X0C░@X07██ @X0C▀ @X07█@X06▄▌"
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 End
; 1 Cls
; 19 Wait
; 15 Color
; 408 Goto
; 493 Let
; 11 Print
; 200 PrintLn
; 262 If
; 16 FCreate
; 17 FOpen
; 47 FClose
; 95 FGet
; 108 FPutLn
; 1 StartDisp
; 1 GetUser
; 16 Delete
; 159 Gosub
; 58 Return
; 11 Delay
; 11 Inc
; 6 Dec
; 8 Call
; 2 RdUNet
; 1 WrUNet
; 199 AnsiPos
; 15 Backup
; 1 SaveScrn
; 1 RestScrn
; 4 Rename
; 7 Copy
;
;
; ■ Functions used :
;
; 9 -
; 2 *
; 114 /
; 275 +
; 195 -
; 143 ==
; 54 <>
; 41 <
; 30 <=
; 19 >
; 58 >=
; 215 !
; 73 &&
; 38 ||
; 145 Len(
; 71 Upper()
; 26 Mid()
; 24 Left()
; 14 Right()
; 148 Space()
; 12 Chr()
; 13 Asc()
; 46 Trim()
; 14 U_Name()
; 33 StripAtx()
; 36 Replace()
; 12 Inkey()
; 5 String()
; 33 PPEPath()
; 3 PcbNode()
; 5 ReadLine()
; 1 UN_Name()
; 1 UN_City()
; 1 UN_Oper()
; 8 Exist()
; 11 I2S()
; 3 S2I()
; 32 GetX()
; 2 MaxNode()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 29 For/Next
; 29 While/EndWhile
; 140 If/Then or If/Then/Else
; 5 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------