5 alla distanza
Distanze_5.dgt — Xtreme, 3 KB (3147 bytes)
Contenuto del file
system "5 at distance" { description on www.laroulette.it sistema: 5 alla distanza } method "main" begin While Starting a New Session begin Put 2 Neighbor Count call "reset" end While on Each Spin begin add 1 record "spins" data Copy last number record "1st Last" Layout if record "spins" Data >1 begin if any number bet won each begin call "reset" end call "calculate distance" if flag "verify" False begin call "verify serie" end if flag "verify" True begin call "bet" end end copy record "1st Last" Layout record "2nd Last" layout end end method "calculate distance" begin Locate distance between record "1st Last" layout record "2nd Last" layout into record "distance" data put 100% record "distance" data record "temp" data subtract 1 record "temp" data Locate Number Right record "temp" data from record "2nd Last" layout to Record "check" layout if record "check" layout not= record "1st Last" layout begin put 37 record "asd" data subtract 100% record "distance" data record "asd" data put 100% record "asd" Data record "distance" Data if Record "distance" Data = 0 begin put 37 Record "distance" Data end end set max record "serie" data index add 1 record "serie" data index put 100% record "distance" data record "serie" data put 100% record "distance" Data record "master" Data index add 1 Record "master" Data end method "verify serie" begin duplicate record "master" record "master copy" put 1 record "master copy" Data index put 2 record "master" Data index set flag "verify" False loop until record "master" Data index > record "master" Data count begin if record "master" data = 2 begin set flag "verify" True end if record "master copy" Data = 1 and record "master" Data = 1 begin set flag "verify" True end if flag "verify" True begin put 100% Record "master copy" Data index record "betting distance" data set max Record "master" Data index end add 1 record "master" Data index add 1 record "master copy" Data index end end method "reset" begin set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] Record "master" data set flag "verify" False end method "bet" begin //subtract 1 record "betting distance" Data Locate Number right record "betting distance" data from record "1st Last" layout to Record "num" layout Copy Neighbors of Record "num" layout to record "neighbors" layout put 1 record "num" layout put 1 record "neighbors" layout list //add 1 record "betting distance" Data end