I don't have access to my PC right now, sorry. In about 1 hour I will post a screenie and the code.
And I have a question for Kerm:
Is there some sort of API or something for DCS7? What I need is a program which can enable the setting "Third party libraries" for my installer, so the user does not need to do this manually. Is that possible?
Edit:
Code: real(3,1,0,0
AxesOff:FnOff :PlotsOff
0->Xmin:1->DeltaX
~62->Ymin:1->DeltaY
real(7,0
real(5,1
Ans->[recursiven]
max([recursiven],30->theta
real(5,0,0
real(3,4,0,1
For(A,theta-30,theta
real(5,0,A
rand(2
End
rand(30
For(A,theta,theta-30,~1
real(5,0,A
5rand(2
End
ClrDraw
real(5,0,[recursiven]
Lbl M
real(3,5,0,1
0->[recursiven]:0->theta
For(A,0,6
real(12,2,8,15+A,50,15+A,1
End
// --- MENU ---
Repeat max(K={105,21
If [recursiven]!=theta
Then
If [recursiven]>theta
Then
For(A,0,6
A+7theta
real(12,2,8,15+Ans,50,15+Ans,1
real(12,2,8,22+Ans,50,22+Ans,1
End
End
If [recursiven]<theta
Then
For(A,0,6
A+7(6-theta
real(12,2,8,63-Ans,50,63-Ans,1
real(12,2,8,56-Ans,50,56-Ans,1
End
End
End
getKey
Repeat Ans
getKey->K
End
[recursiven]->theta
[recursiven]+(K=34 and [recursiven]!=6)-(K=25 and [recursiven]->[recursiven]
End
If [recursiven]=4
Goto S
If [recursiven]=5
Goto Q
// --- CREATE FILES --- (Well, ignore from here until the bottom - doesn't work anyways :D)
ClrDraw
"UTIIMPDAT->Str1
"DStr8
Asm(prgmCOPYPROG
If not(Ans
Then
"?->Str8
0->B
Else
expr(sub(Str8,1,1->B
sub(Str8,2,length(Str8)-1->Str8
End
DelVar AClrDraw
If B<5
Then
If [recursiven]!=3
Then
Text(~1,1,1,"Enter a name
Text(~1,9,1,"for the file:
{0,19->L6
3:prgmTIIMPGUI
Ans->Str3
If Ans="/
Goto M
If not(inString(Str8,Str3
Then
If not([recursiven]
Then
ClrDraw
StorePic 1
End
If [recursiven]=2
Then
Repeat theta
ClrDraw
Text(~1,1,1,"Choose picture
Text(~1,9,1,"File (0-255)
{0,19->L6
3:prgmTIIMPGUI
Ans->Str2
min(seq(inString("0123456789",sub(Ans,A,1)),A,1,length(Ans->theta
If Ans
(256>expr(Str2->theta
If not(theta
Then
"Enter a number[i]between 0 and 255!->Str1
4:prgmTIIMPGUI
End
End
real(3,expr(Str2),0,1
StorePic 1
End
"GPic1->Str1
"DStr1
Asm(prgmCOPYPROG
Str3+"<LAYER=BACKGROUND>"+Str1->Str2
"DStr2->Str1
"U"+Str3
Asm(prgmCOPYPROG
If not(Ans
Then
"The file could[i]not be created!->Str1
4:prgmTIIMPGUI
1->A
End
Else
"This name is[i]already taken!->Str1
4:prgmTIIMPGUI
1->A
End
If not(A
Then
sub("12345",B+1,1)+Str8+Str3+"/->Str8
"[i]UTIIMPDAT
Asm(prgmCOPYPROG
"-UTIIMPDAT
Asm(prgmCOPYPROG
"DStr8->Str1
"UTIIMPDAT
Asm(prgmCOPYPROG
End
End
Else
"You have too[i]many files!->Str1
4:prgmTIIMPGUI
1->A
End
If not(A
Then
ClrDraw
RecallPic 1
Pause
Else
Pause "ERROR
End
"SCREEN
"IMAGE
"FILE
If [recursiven]=6
Then
If Str8!="/
Then
Repeat not(inString(Str8+"?","/",A
A->C
inString(Str8+"?","/",A+1->A
B+1->B
Text(4+6B,5,sub(Str8,C,length(sub(Str8,1,A)-C
End
Pause "MENU
Else
"No files[i]were found!->Str1
4:prgmTIIMPGUI
End
End
If [recursiven]=9
Goto M
Pause Str1
Pause "SUCCESS
ClrDraw
{48,49,50,51,51,51,50,49,48,47,46,45,45,45,46,47->L2:{~33,~33,~34,~35,~36,~37,~38,~39,~39,~39,~38,~37,~36,~35,~34,~33->L3
For(G,2,4,2:Circle(48,~36,G,{[i]:End:Text(24,32,"Loading...
1->G
1:prgmTIIMPGUI
{48,~31,1,0,0->L1
1:prgmTIIMPGUI
|LTIIMP->L4
1:prgmTIIMPGUI
DeltaList(cumSum(L2->L2
1:prgmTIIMPGUI
1->M
1:prgmTIIMPGUI
ClrDraw
Text(~1,1,1,"EDITING MODE
RecallPic 1
While 1
Repeat Ans
getKey->K
End
If K=31
Then
"LayersBrush Tools File ->Str1
2.4:prgmTIIMPGUI
End
End