Kevs Labby
Kevs Labby.dgt — Xtreme, 2 KB (2856 bytes)
Contenuto del file
system "Kevs Labby" { ************************************* * System by Kev * * on PM * ************************************* Rx-ed by St0rm0r ------------------------------------- 00-c0mpatible ------------------------------------- Start with a series: [1] On a loss: add loss and spread evenly, ALWAYS go on the outside of the labby first. ------------------------------------- } method "main" begin // section 1: do this once while starting new session begin call "init" end // section 2: do the tracking // section 3: act on a loss if net < 0 begin call "get labby total" call "redistribute labby" end // section 4:act on a win if net > 0 begin call "get labby total 2" if record"labby"data count > 1 begin call "redistribute labby" end end call "get betting amount" //bet put 100% record"bet amount"data on red end // subroutines method "init" begin set list [1] record"labby"data end method "get betting amount" begin put 1 record"labby"data index put 100% record"labby"data record"bet amount"data if record"labby"data count > 1 begin put 1 record"labby"data index loop until record"labby"data index = record"labby"data count begin add 1 record"labby"data index end add 100% record"labby"data record"bet amount"data end end method "get labby total" begin put 0 record"labby lenght"data put 0 record"total"data put 1 record"labby"data index loop until record"labby"data index > record"labby"data count begin add 100% record"labby"data record"total"data add 1 record"labby lenght"data add 1 record"labby"data index end add 100% record"bet amount"data record"total"data add 1 record"labby lenght"data end method "get labby total 2" begin put 0 record"labby lenght"data put 0 record"total"data put 1 record"labby"data index loop until record"labby"data index > record"labby"data count begin add 100% record"labby"data record"total"data add 1 record"labby lenght"data add 1 record"labby"data index end subtract 100% record"bet amount"data record"total"data subtract 2 record"labby lenght"data if record"labby lenght"data < 1 begin clear record"labby"data set list [1] record"labby"data end end method "redistribute labby" begin clear record"labby"data loop until record"total"data = 0 begin add 1 record"labby"data add 1 record"labby"data index if record"labby"data index > record"labby lenght"data begin put 1 record"labby"data index end subtract 1 record"total"data end clear record"temp"data put 2 record"labby"data index loop until record"labby"data index > record"labby"data count begin put 100% record"labby"data record"temp"data add 1 record"temp"data index add 1 record"labby"data index end put 1 record"labby"data index put 100% record"labby"data record"temp"data duplicate record"temp" record"labby" end