Positional System
Positional_System.dgt — Xtreme, 6 KB (6231 bytes)
Contenuto del file
system "Positional_System" { This system is similiar to the one developed by Jack Kennedy. System is based on the fact that you play 4 positions either clockwise or counter clockwise to the number which last hit and the same color. If we choose to bet from counter clockwise and 17 black hits, we to play 4 positions counter clockwise which would be Black number of 2,4,15,26. If we choose to bet from clockwise and 25 red hits, we to play 4 positions clockwise which would be Red numbers of 34,27,36,30. This system uses a Flat bet of 1 unit on each number. } method "main" begin //initialize some stuff when a NEW session starts while starting a new session begin clear record "Last spin" layout; put 1 on record "Wheel position" data; put 1 on record "Progression" data; put 0 on record "Total spin count" data; set flag "Ready to bet" to false; //put all data input onto one form. group begin display "Positional System"; //ask for which direction? input dropdown "Direction to place bets from? 1:=Clockwise 2:=Counter clockwise" to record "Direction" data; input dropdown "Table type 1:=Single Zero 2:=Double Zero" to record "table index" data; end if record "table index" data = 1 then begin load single wheel; end else begin load double wheel; end exit; //exit here and wait for the next spin end if Any Inside Bet has won each time begin set flag "Ready to bet" to false;//we WON so, get a new last number put 0 on record "Total spin count" data; put 1 on record "Progression" data; end if flag "Ready to bet" is false begin //get the last number that came up copy last number to record "Last spin" layout; set flag "Ready to bet" to true; //get 4 numbers to bet from wheel if record "Direction" data = 2 then begin call "Get numbers counter clockwise"; end else begin call "Get numbers clockwise"; end end if flag "Ready to bet" to true begin //if no hits after 20 spins, increase progression bet if record "Total spin count" data > 20 spins begin add 1 to record "Progression" data; if record "Progression" data > 27 or record "Total spin count" data > 57 spins begin put 27 on record "Progression" data;//set maximum of 27 end end call "Place bets"; add 1 to record "Total spin count" data; end end //loop routine to place bets that are located in data record "Numbers to bet" method "Place bets" begin put 1 on record "Numbers to bet" layout index; Loop Until record "Numbers to bet" layout index > 4 begin put 100% of record "Progression" data to record "Numbers to bet" layout; add 1 to record "Numbers to bet" layout index; end end {loop routine to move counter clockwise around the wheel and store each other number (same color) to a data record called "Numbers to bet". These numbers will be used later to place bets. } method "Get numbers counter clockwise" begin put 7 on record "Position Max" data; put 1 on record "Numbers to bet" layout index; put 1 on record "Wheel position" data; Loop Until record "Wheel position" data > record "Position Max" data begin Locate Number Left of Record "Wheel position" data from the Record "Last spin" Layout to Record "Numbers to bet" Layout; //Adjust position if around the 0 to get the correct color. if record "Numbers to bet" layout = Number 0 or record "Numbers to bet" layout = Number 26 begin if record "Position Max" data not = 8 begin put 8 on record "Position Max" data; add 1 to record "Wheel position" data; Locate Number Left of Record "Wheel position" data from the Record "Last spin" Layout to Record "Numbers to bet" Layout; end end add 2 to record "Wheel position" data; add 1 to record "Numbers to bet" layout index;//move pointer end end {loop routine to move clockwise around the wheel and store each other number (same color) to a data record called "Numbers to bet". These numbers will be used later to place bets. } method "Get numbers clockwise" begin put 7 on record "Position Max" data; put 1 on record "Numbers to bet" layout index; put 1 on record "Wheel position" data; Loop Until record "Wheel position" data > record "Position Max" data begin Locate Number Right of Record "Wheel position" data from the Record "Last spin" Layout to Record "Numbers to bet" Layout; //Adjust position if around the 0 to get the correct color. if record "Numbers to bet" layout = Number 0 or record "Numbers to bet" layout = Number 32 begin if record "Position Max" data not = 8 begin put 8 on record "Position Max" data; add 1 to record "Wheel position" data; Locate Number Right of Record "Wheel position" data from the Record "Last spin" Layout to Record "Numbers to bet" Layout; end end add 2 to record "Wheel position" data; add 1 to record "Numbers to bet" layout index;//move pointer end end