MAJ Aventura2_newmaps.bide
This commit is contained in:
Drak
parent
1cd11c35d8
commit
4f89b229b9
|
|
@ -28,8 +28,8 @@ Do
|
|||
If A < 1 :Then
|
||||
11 -> U : Dsz I : Break
|
||||
IfEnd
|
||||
If 1 = StrCmp("A﹣", StrMid(Str 2, A + 11(B - 1), 1 :Then
|
||||
A -> U
|
||||
If 1 = StrCmp("A﹣", StrMid(Str 2, A + 11(B - 1), 1
|
||||
Then A -> U
|
||||
B -> V
|
||||
IfEnd
|
||||
IfEnd
|
||||
|
|
@ -60,7 +60,10 @@ Do
|
|||
Break
|
||||
IfEnd
|
||||
IfEnd
|
||||
W = 77 And StrCmp(StrMid(Str 2, U + 11V, 1), "Z-") = 1 And StrCmp(StrMid(Str 2, U + 11V, 1), "e-") = -1 => Prog "DI"
|
||||
If W = 77 And StrCmp(StrMid(Str 2, U + 11V, 1), "Z-") = 1 And StrCmp(StrMid(Str 2, U + 11V, 1), "e-") = -1
|
||||
Then Prog "DI"
|
||||
A => Prog "CO"
|
||||
IfEnd
|
||||
'W = 48 => Prog "MENU"'
|
||||
If W = 78 : Then Prog "MO"
|
||||
Break
|
||||
|
|
@ -220,20 +223,36 @@ LpWhile D
|
|||
0 -> D
|
||||
1 -> L~M
|
||||
0 -> P
|
||||
For 7 -> A To 9
|
||||
For 7 -> B To 9
|
||||
1 -> List 5[7
|
||||
Next
|
||||
"A..._..." -> List 5[0
|
||||
"B..._..." -> List 6[0
|
||||
{4.04, 5.04, 6.03, 15.03, 16.04, 17.04, 17.14, 12.19, 9.19, 4.14, 4.04, 9, 16.12, 9, 13.12, 9, 20.08, 18.06, 20.04, 22.06, 24.05, 19.1, 22.06, 33.1, 32.11, 33.13, 36.14, 36.22, 26.12, 22.09, 9 -> List 4
|
||||
If D = 0 : Then {.1, 5.03, 2.08, 10.08, 12.15, 20.2, 5.18 -> List 7
|
||||
"Dander_675|05" -> Str 5
|
||||
"000001103123" -> Str 8
|
||||
IfEnd
|
||||
If D = 1 : Then {18.08, 20.06, 18.04, 16.06, 14.05, 19.1, 16.06, 4.1, 5.11, 4.13, 1.14, 1.22, 11.12, 15.09} -> List 7
|
||||
"Epee hantee_ABC|11" -> Str 5
|
||||
"001002" -> Str 8
|
||||
|
||||
|
||||
If Not A
|
||||
Then If D = 0
|
||||
Then {.1, 5.03, 2.08, 10.08, 12.15, 20.2, 5.18 -> List 7
|
||||
"Dander_675|05" -> Str 5
|
||||
"000001103123" -> Str 8
|
||||
IfEnd
|
||||
If D = 1
|
||||
Then {18.08, 20.06, 18.04, 16.06, 14.05, 19.1, 16.06, 4.1, 5.11, 4.13, 1.14, 1.22, 11.12, 15.09} -> List 7
|
||||
"Epee hantee_ABC|11" -> Str 5
|
||||
"001002" -> Str 8
|
||||
IfEnd
|
||||
Else O -> D
|
||||
If D
|
||||
Then {.1, 5.03, 2.08, 10.08, 12.15, 20.2, 5.18 -> List 7
|
||||
"CCC|20" -> Str 5
|
||||
"001002003004" -> Str 8
|
||||
IfEnd
|
||||
Str 4 + "_" + Str 5 -> Str 5
|
||||
IfEnd
|
||||
|
||||
|
||||
|
||||
D + .1RanInt#(1, 4 -> List 6[1
|
||||
StrLeft(Str 5, StrSrc(Str 5, "_") - 1) + " " + StrMid("RgeBluVrtNeu", 30Frac List 6[1] - 2, 3) -> Str 4
|
||||
For 1 -> A To 3
|
||||
|
|
@ -293,13 +312,19 @@ Prog "VI"
|
|||
#Program name: DI
|
||||
#Password: <no password>
|
||||
'Programme de dialogue'
|
||||
For 2 -> A To 63 Step 2
|
||||
|
||||
|
||||
"Tu aimes les haricots ? J'aime les abricots. wheee !»11" -> Str 5
|
||||
"" -> Str 4
|
||||
1<=List 5[13 => "Tu m'as dit que tu aimais les haricots. Aimes-tu les abricots ?|{Cool !»12}[Pfffff...]" -> Str 5
|
||||
2<=List 5[13 => "Je vois. Tu avances considerablement dans ta quete, " + Str 1 + ". Feliciations !»13" -> Str 5
|
||||
3<=List 5[13 => "Bon allez, casse-toi." -> Str 5
|
||||
|
||||
StrSrc(Str 5, "»") != 0
|
||||
For 2 -> A To 16+37Ans Step 2
|
||||
SketchThick F-Line 2, A, 113, A
|
||||
A = 16 => 52 -> A
|
||||
Next
|
||||
"J'aimeθlesθornithorynques.et saut de ligne !anti-θconstitutionnellement.θLol...θTu aimes les haricots ?J'aime les abricots. Arbre. Arbol. Bol. Riz. C'est quand la pause pipi ?" -> Str 5
|
||||
"" -> Str 4
|
||||
|
||||
|
||||
Do
|
||||
For 0 -> A To 2
|
||||
|
|
@ -309,8 +334,8 @@ Do
|
|||
0 -> B
|
||||
Str 4 + ": " + Str 5 -> Str 5
|
||||
For 0 -> C To 1
|
||||
For 1 -> X To 3
|
||||
StrSrc(StrMid(Str 5, D, 26), StrMid("|θ", X, 1)) -> B
|
||||
For 1 -> X To 4
|
||||
StrSrc(StrMid(Str 5, D, 26), StrMid("|»θ", X, 1)) -> B
|
||||
B => Break
|
||||
Next
|
||||
Not B => 0 -> X
|
||||
|
|
@ -325,30 +350,62 @@ Do
|
|||
Text 50 + 6C, 3, StrMid(Str 5, D, A)
|
||||
Next
|
||||
D + A -> D
|
||||
If X = 2
|
||||
Then Exp(StrMid( Str 5, D,1)) -> A
|
||||
Exp(StrMid( Str 5, D+1,1)) -> B
|
||||
Int (MOD(List 5[13], A)/(A-1
|
||||
B > Ans => List 5[13] - Ans(A-1) + B(A-1 -> List 5[13
|
||||
D+2->D
|
||||
IfEnd
|
||||
If X = 1
|
||||
Then Text 56,15,"Non Oui"
|
||||
Then Text 56,45,"Non Oui"
|
||||
While 1
|
||||
Text 56, 8 + 20X, "->"
|
||||
Text 56, 38 + 30X, "->"
|
||||
Text 56, 38 + 30 Not X, " "
|
||||
Do
|
||||
GetKey -> W
|
||||
LpWhile Not W
|
||||
W = 27 Or W = 38 => Not X -> X
|
||||
W = 77 => Break
|
||||
WhileEnd
|
||||
|
||||
|
||||
Isz X
|
||||
StrRight(Str 5, StrLen(Str 5) - D) -> Str 5
|
||||
StrSrc( Str 5, StrMid("[{", X, 1)) + 1
|
||||
StrMid( Str 5, Ans, StrSrc( Str 5, StrMid("]}", X, 1)) - Ans) + "" + StrMid( Str 5, StrSrc( Str 5, "]")+1) -> Str 5
|
||||
0 -> D
|
||||
2->X
|
||||
IfEnd
|
||||
X = 2 => Break
|
||||
X = 4 => Break
|
||||
Next
|
||||
Dsz D
|
||||
While Not GetKey
|
||||
WhileEnd
|
||||
Do
|
||||
GetKey -> W
|
||||
If W = 78
|
||||
Then ClrText
|
||||
"Agresser ?"
|
||||
" Non Oui"
|
||||
0 -> A
|
||||
While 1
|
||||
Locate 2+8A,2, "->"
|
||||
Locate 2+8(Not A), 2, " "
|
||||
While GetKey
|
||||
WhileEnd
|
||||
Do
|
||||
GetKey
|
||||
LpWhile Not Ans
|
||||
Ans = 77 => Break
|
||||
Ans = 27 Or Ans = 38 => Not A -> A
|
||||
WhileEnd
|
||||
A => Return
|
||||
IfEnd
|
||||
LpWhile Not W
|
||||
If StrLen(Str 5) <= D
|
||||
Then Break
|
||||
Else
|
||||
StrRight(Str 5, StrLen(Str 5) - D) -> Str 5
|
||||
IfEnd
|
||||
LpWhile 1
|
||||
0->A
|
||||
|
||||
#End of part
|
||||
#Program name: DIALOLD
|
||||
|
|
@ -912,7 +969,7 @@ Do
|
|||
{1.4, 3, 2, 6, 6, 6, 1, 1, 1, .5, .5, .5, 0 -> List 5
|
||||
'"Votre nom"? -> Str 1
|
||||
"Drak" -> Str 1
|
||||
StrJoin(StrLeft(Str 1, 1), StrLwr(StrRight(Str 1, StrLen(Str 1) - 1))) -> Str 1
|
||||
StrUpr(StrLeft(Str 1, 1)) + StrLwr(StrMid(Str 1, 2)) -> Str 1
|
||||
'Rajouter le code pour choix du skin'
|
||||
0 ->
|
||||
Break
|
||||
|
|
|
|||
Loading…
Reference in New Issue