Archived
216 lines
6.2 KiB
VB.net
216 lines
6.2 KiB
VB.net
$INCLUDE "LOGO.INC"
|
|
$INCLUDE "PBWINDOW.INC"
|
|
if command$="SKIP" or command$="skip" then goto SkipIt
|
|
color 15
|
|
Lin=csrlin-1
|
|
txt$="proudly presents"
|
|
txt$(1)=txt$
|
|
gosub WriteText
|
|
txt$="The Paintbrush Pick Info Remover"
|
|
txt$(2)=txt$
|
|
print
|
|
Lin=csrlin-1
|
|
delay 1
|
|
gosub WriteText
|
|
delay 1
|
|
color 9
|
|
Anf1=40-int(len(txt$(1))/2)+1
|
|
Anf2=40-int(len(txt$(2))/2)+1
|
|
locate Lin-1,Anf1:print txt$(1)
|
|
locate Lin,Anf2:print txt$(2)
|
|
delay .15
|
|
color 3
|
|
locate Lin-1,Anf1:print txt$(1)
|
|
locate Lin,Anf2:print txt$(2)
|
|
delay .15
|
|
color 11
|
|
locate Lin-1,Anf1:print Txt$(1)
|
|
locate Lin,Anf2:print txt$(2)
|
|
delay .15
|
|
color 15
|
|
locate Lin-1,Anf1:print txt$(1)
|
|
locate Lin,Anf2:print txt$(2)
|
|
goto Program
|
|
|
|
WriteText:
|
|
AnfLocX=40-int(len(txt$)/2)
|
|
x=1
|
|
1 if x>0 then LetA$=mid$(txt$,x,1)
|
|
if x>1 then LetB$=mid$(txt$,x-1,1)
|
|
if x>2 then LetC$=mid$(txt$,x-2,1)
|
|
if x>3 then LetD$=mid$(txt$,x-3,1)
|
|
if x>4 then LetE$=mid$(txt$,x-4,1)
|
|
if x>0 then color 15:locate Lin,AnfLocX+x:print LetA$
|
|
if x>1 then color 11:locate Lin,AnfLocX+x-1:print LetB$
|
|
if x>2 then color 3:locate Lin,AnfLocX+x-2:print LetC$
|
|
if x>3 then color 9:locate Lin,AnfLocX+x-3:print LetD$
|
|
if x>4 then color 1:locate Lin,AnfLocX+x-4:print LetE$
|
|
x=x+1:if x>len(txt$)+4 then 2 else delay .05:goto 1
|
|
2 delay 1
|
|
color 15:locate Lin,AnfLocX+1:print txt$
|
|
delay .1:color 11:locate Lin,AnfLocX+1:print txt$
|
|
delay .1:color 3:locate Lin,AnfLocX+1:print txt$
|
|
delay .1:color 9:locate Lin,AnfLocX+1:print txt$
|
|
delay .1:color 1:locate Lin,AnfLocX+1:print txt$
|
|
return
|
|
|
|
SkipIt:
|
|
color 15
|
|
txt$="proudly presents"
|
|
locate csrlin-1,40-int(len(txt$)/2):print txt$
|
|
txt$="The Paintbrush Pick Info Remover"
|
|
locate csrlin,40-int(len(txt$)/2):print txt$
|
|
goto Program
|
|
|
|
Program:
|
|
Item$(0)="[Programm w„hlen]"
|
|
gosub PF2:test=1
|
|
gosub CheckForPresence
|
|
gosub PF3:test=2
|
|
gosub CheckForPresence
|
|
gosub PCP:test=3
|
|
gosub CheckForPresence
|
|
Lin=17
|
|
call MakeWindow (15,9,5,63,ColAttr%(11,0),2,4,2)
|
|
call TitleWindow (1,"[Information]")
|
|
txt$="Zum Abbrechen [ESC] dr�cken, ansonsten eine Auswahl treffen"
|
|
if command$="skip" or command$="SKIP" then
|
|
locate Lin,40-int(len(txt$)/2)
|
|
color 15,0
|
|
print txt$
|
|
goto 7
|
|
end if
|
|
gosub WriteText:delay 1
|
|
color 9:locate 17,AnfLocX+1:print txt$:delay .15
|
|
color 3:locate 17,AnfLocX+1:print txt$:delay .15
|
|
color 11:locate 17,AnfLocX+1:print txt$:delay .15
|
|
color 15:locate 17,AnfLocX+1:print txt$
|
|
7 Call MakeMenu (3,3,ColAttr%(11,1),ColAttr%(0,3),4,4,2,1,3,Item$())
|
|
if CurntPos%=0 then ag=0:goto BreakItUp
|
|
if CurntPos%=1 and right$(Item$(1),17)<>"[nicht vorhanden]" then ag=0:gosub PF2:goto 20 else ag=1:goto 7
|
|
if CurntPos%=2 and right$(Item$(2),17)<>"[nicht vorhanden]" then ag=0:gosub PF3:goto 20 else ag=1:goto 7
|
|
if CurntPos%=3 and right$(Item$(3),17)<>"[nicht vorhanden]" then ag=0:gosub PCP:goto 20 else ag=1:goto 7
|
|
20 if ag=0 then Call RemoveWindow
|
|
goto ChangeWININI
|
|
|
|
CheckForPresence:
|
|
open "I",#1,"C:\WINDOWS\WIN.INI"
|
|
10 if eof(1) then close #1:return
|
|
line input#1,dummy$
|
|
if left$(dummy$,1)="[" then
|
|
tit$=""
|
|
for dummy=2 to 80
|
|
if mid$(dummy$,dummy,1)="]" then exit for else tit$=tit$+mid$(dummy$,dummy,1)
|
|
next dummy
|
|
else
|
|
goto 10
|
|
end if
|
|
if tit$=Title$ then Item$(test)=ProgInfo$:close #1:return else Item$(test)=ProgInfo$+" [nicht vorhanden]":goto 10
|
|
|
|
PF2:
|
|
Title$="PhotoFinish"
|
|
ProgInfo$="Photo Finish 2.0"
|
|
PickInfo$=lcase$("Pick")
|
|
return
|
|
|
|
PF3:
|
|
Title$="Photo Finish 3.0"
|
|
ProgInfo$="Photo Finish 3.0"
|
|
PickInfo$=lcase$("Pick")
|
|
return
|
|
|
|
PCP:
|
|
Title$="PC Paintbrush"
|
|
ProgInfo$="PC Paintbrush 1.0"
|
|
PickInfo$=lcase$("Pick")
|
|
return
|
|
|
|
ChangeWININI:
|
|
call MakeWindow(5,5,15,70,ColAttr%(14,1),1,4,1)
|
|
WinTit$="[Editing C:\WINDOWS\WIN.INI]ÄÄÄ[Mode: "+Title$+"]"
|
|
call TitleWindow(1,WinTit$)
|
|
per%=0
|
|
color 14,1
|
|
locate 7,8:print"Erstelle Sicherheitskopie von Ausgangs-Datei ... ";
|
|
CopyOrd$="COPY C:\WINDOWS\WIN.INI C:\WINDOWS\WIN.PPR /V /Y >NUL"
|
|
shell CopyOrd$
|
|
print "OK"
|
|
locate 8,8:print"™ffne Eingabe-Datei ... ";
|
|
open "I",#1,"C:\WINDOWS\WIN.INI"
|
|
print "OK"
|
|
locate 9,8:print"™ffne Temp-Datei ... ";
|
|
open "O",#2,"C:\WINDOWS\PPR.$$$"
|
|
print "OK"
|
|
zeil=1
|
|
6 line input#1,dummy$
|
|
if eof(1) then 5 else zeil=zeil+1:goto 6
|
|
5 close #1:open "I",#1,"C:\WINDOWS\WIN.INI"
|
|
locate 10,8:print "Bearbeite Temp-Datei ... "; '10,33 ist HIER
|
|
gosub ShowGraph
|
|
aktz=1
|
|
3 line input#1,zei$
|
|
if left$(zei$,1)="[" then
|
|
tit$=""
|
|
for g=2 to 80
|
|
if mid$(zei$,g,1)="]" then exit for else tit$=tit$+mid$(zei$,g,1)
|
|
next g
|
|
per%=(aktz/zeil)*100
|
|
gosub ShowGraph
|
|
print#2,zei$
|
|
locate 11,8:print"Momentane Gruppe: ";tit$
|
|
else
|
|
raus$=zei$
|
|
gosub CheckForParam
|
|
print#2,raus$
|
|
end if
|
|
if eof(1) then goto 4
|
|
aktz=aktz+1
|
|
goto 3
|
|
4 locate 11,8:print space$(64)
|
|
locate 11,8:print"Schlieáe Eingabe-Datei ... ";
|
|
close #1
|
|
print"OK"
|
|
locate 12,8:print"Schlieáe Temp-Datei ... ";
|
|
close #2
|
|
print "OK"
|
|
locate 13,8:print"L”sche alte WIN.INI ... ";
|
|
kill "C:\WINDOWS\WIN.INI"
|
|
print "OK"
|
|
locate 14,8:print"Benenne Temp-Datei in WIN.INI um ... ";
|
|
name "C:\WINDOWS\PPR.$$$" as "C:\WINDOWS\WIN.INI"
|
|
print "OK"
|
|
locate 16,8:print"Operation abgeschlossen!"
|
|
delay 1
|
|
call RemoveWindow
|
|
color 15,0
|
|
locate 24,1:print:print
|
|
locate 24,1
|
|
print"Alle Pick-Eintr„ge von ";chr$(34);Title$;chr$(34);" wurden entfernt!"
|
|
print
|
|
end
|
|
|
|
CheckForParam:
|
|
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"1=" and tit$=Title$ then raus$=PickInfo$+"1="
|
|
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"2=" and tit$=Title$ then raus$=PickInfo$+"2="
|
|
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"3=" and tit$=Title$ then raus$=PickInfo$+"3="
|
|
if lcase$(left$(zei$,len(PickInfo$)+2))=PickInfo$+"4=" and tit$=Title$ then raus$=PickInfo$+"4="
|
|
return
|
|
|
|
ShowGraph:
|
|
locate 10,57:print using"### %";per%
|
|
locate 10,35:print"°°°°°°°°°°°°°°°°°°°°"
|
|
locate 10,35
|
|
for z=0 to per%/5
|
|
if tst=1 then print "²"; else tst=1
|
|
next z
|
|
return
|
|
|
|
BreakItUp:
|
|
locate 24,1:print:print
|
|
call MakeWindow(10,27,5,26,ColAttr%(14,1),5,4,2)
|
|
call TitleWindow(1,"[Information]")
|
|
color 12,1:locate 12,29:print"Programm abgebrochen !"
|
|
if command$="skip" or command$="SKIP" then locate 24,1:end
|
|
delay 1.75
|
|
call RemoveWindow
|
|
locate 24,1:end |