CODICE
begin
// ...Digita il tuo CapitaleTotale
Window.Request user text input("Quanto Capitale hai in totale?", "Input")
Variable.Set("Capitale", "{Input}")
Variable.Evaluate (Text)("START....Hai un Capitale di {Input} £", "input")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", " ")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "{input}")
// ...Segnamo l´inizio
System.Get date and time("year", "month", "day", "hour", "minute", "second")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "--------------------------------------------------")
Variable.Evaluate (Text)("BEGIN...Session {hour}:{minute} - ({day}/{month}/{year})", "date")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "{date}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "--------------------------------------------------")
// ..Guadagno da raggiungere
Window.Request user text input("Quanto vuoi Guadagnare?", "Guadagno")
Variable.Evaluate (Text)("....Hai deciso di guadagnare {Guadagno} £....", "ziel")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "{ziel}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "_______________________________")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "-------")
Function.Execute("Place_Bet")
end
function("Place_Bet")
begin
// ..Conta Giri
Variable.Increment (Math)("Spin")
Variable.Evaluate (Text)("Tiro......[ {Spin} ]", "spin")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{spin}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "============")
// ..Place Bet
Variable.Increment (Math)("Bet_Comb")
Variable.Set("Step", "{Bet_Comb}")
Variable.Evaluate (Text)("Bet Step {Bet_Comb} sul Nero_Pari_+Zero_e32", "text")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{text}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "=============================")
Function.Execute("Fibonacci")
Variable.Set("Fibo_Comb", "{Fibo}")
Function.Execute("Spinn")
end
function
function("Spinn")
begin
Variable.Set random number("Caso", "0", "36")
// ..Window.Request user text input("CUP", "Caso")
Variable.Evaluate (Text)("Cade il......( {Caso} )", "caso")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{caso}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "===============")
Variable.Evaluate (Text)(",{Caso},", "Numbers")
Function.Execute("Check_Comb")
end
function
function("Check_Comb")
begin
Variable.Set("Cup", ",0,2,4,6,8,10,20,22,24,26,28,32,")
if Variable.Does not contain text("Cup", "{Numbers}")
begin
Variable.Evaluate (Math)("12*{Fibo_Comb}", "Perdita")
Variable.Subtract (Math)("Profit", "{Perdita}")
Variable.Evaluate (Text)("Step {Step} Perde {Perdita}", "perdita")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{perdita}")
Function.Execute("Check_Profit")
end
if Variable.Contains text("Cup", "{Numbers}")
begin
Variable.Evaluate (Math)("24*{Fibo_Comb}", "Vincita")
Variable.Add (Math)("Profit", "{Vincita}")
Variable.Evaluate (Text)("Step {Step} VINCE {Vincita}", "vincita")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{vincita}")
Variable.Set("Bet_Comb", "0")
Function.Execute("Check_Profit")
end
end
function
function("Check_Profit")
begin
Variable.Evaluate (Text)("........ Vai a .........{Profit}", "profit")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "_______________________________")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{profit}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "_______________________________")
if Variable.Is less than (Math)("Profit", "{Guadagno}")
begin
Function.Execute("Place_Bet")
end
if Variable.Is greater than (Math)("Profit", "{Guadagno}")
begin
Function.Execute("End_Session")
end
end
function
function("End_Session")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
// ...Segnamo la fine
System.Get date and time("year", "month", "day", "hour", "minute", "second")
Variable.Evaluate (Text)("ENDOF...Session {hour}:{minute} - ({day}/{month}/{year})", "date")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "{date}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "--------------------------------------------------")
Variable.Evaluate (Text)("...Hai un Totale di... {Totale}", "totale")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{totale}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "_______________________________")
System.Launch application("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "no")
Macro.Abort()
end
function
function("End_Loss")
begin
Variable.Evaluate (Math)("{Capitale} + {Profit}", "Loss")
System.Get date and time("year", "month", "day", "hour", "minute", "second")
Variable.Evaluate (Text)("ENDOF...Session {hour}:{minute} - ({day}/{month}/{year})", "date")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "yes", "{date}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "--------------------------------------------------")
Variable.Evaluate (Text)("...Hai Perso e ti rimangono... {Loss}", "loss")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "{loss}")
File.Write text("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "Yes", "_______________________________")
System.Launch application("C:\Users\blanc\OneDrive\Desktop\Multi.txt", "no")
Macro.Abort()
end
function
function("Fibonacci")
begin
if Variable.Is equal to("Step", "1")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "1.2")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.1")
end
if Variable.Is equal to("Step", "2")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "1.2")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.1")
end
if Variable.Is equal to("Step", "3")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "2.4")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.2")
end
if Variable.Is equal to("Step", "4")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "3.6")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.3")
end
if Variable.Is equal to("Step", "5")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "6")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.5")
end
if Variable.Is equal to("Step", "6")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "9.6")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "0.8")
end
if Variable.Is equal to("Step", "7")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "15.6")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "1.3")
end
if Variable.Is equal to("Step", "8")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "25.2")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "2.1")
end
if Variable.Is equal to("Step", "9")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "40.8")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "3.4")
end
if Variable.Is equal to("Step", "10")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "66")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "5.5")
end
if Variable.Is equal to("Step", "11")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "108")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "9")
end
if Variable.Is equal to("Step", "12")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "180")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "15")
end
if Variable.Is equal to("Step", "13")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "300")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "25")
end
if Variable.Is equal to("Step", "14")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "480")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "40")
end
if Variable.Is equal to("Step", "15")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "780")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "65")
end
if Variable.Is equal to("Step", "16")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "1260")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "105")
end
if Variable.Is equal to("Step", "17")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "2040")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "170")
end
if Variable.Is equal to("Step", "17")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "3300")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "275")
end
if Variable.Is equal to("Step", "19")
begin
Variable.Evaluate (Math)("{Profit} + {Capitale}", "Totale")
if Variable.Is less than (Math)("Totale", "5400")
begin
Function.Execute("End_Session")
end
Variable.Set("Fibo", "450")
end
if Variable.Is equal to("Step", "20")
begin
Function.Execute("End_Loss")
end
end
function