Primedice Scripts...

Hello everyone, just thought if you're on Primedice you should be acquainted with their API section. I will also throw in some links to the various scripts etc. The way API work for Primedice is through the console.

Chrome Console

So basically when you login to Primedice you pull up the console and enter in the script/API. You can either load a bot or faucet countdown timer. There are many scripts. Below you will find a very important link list. This link list contains all the information you need to get started. I have also singled out a few links for you to read first.

HUI Link List

Primedice API
Faucet Timer
Danksta's Bot

Cryptocurrency Mining and Cryptonight

So I've been gone forever and have once again neglected my blogging. Sometime you just lose yourself in other things. I've been researching bitcoin mining and other cryptocurrency mining.

Basically you can't mine bitcoin unless you have an asic miner. These are dedicated mining rigs that have several processors and run a torn down version of Linux. They can have a hash rate of 1.1gh/s to 1.4th/s. The lower hash rate miners can be setup in a cluster to achieve a higher hash rate. You can also do this with the higher hash rate machines and mine even more. Ultimately you could make money from asic machines, but good luck getting your hands on one. They're fairly difficult to find brand new. Butterfly labs doesn't look like they're shipping and basically all you're going to find on short notice is a used unit.

So recently I've been looking into other options for mining. It led me to alternate cryptocurrencies. You can easily mine these alt currencies by doing a quick search on google to find a list, or go to Wiki's List. There you can decide on what you want to mine and do the research! It's key! But anyway, this brings me to my next item. Its a little piece of software that you can use on pretty much any modern computer. This is Minergate, and no they didn't pay me to mention their site or software. In any case it's a nice way to ease yourself into mining. It can turn any computer into a miner with ease. You can network multiple computers together and mine. Although only a short list of currencies are available.

Minergate Main Interface

The current version of the software runs on all platforms and operating systems. This includes windows, mac and Linux. They have a GUI version and a command prompt version. The command prompt version uses less resources but doesn't have the rewards feature like the GUI version. In the GUI version of the software, there's a reward/achievements section. Here you can earn achievements and possibly win a reward. So overall it's worth checking out if you want to get into mining.
https://minergate.com

So yeah folks I'm back for good now so I'll be posting more content this week. Topics related to trading currency and getting a revenue network setup.

-Mass Update- Faucet Collector Release

Hello everyone, I was gone for a bit there. I was mainly out visiting friends, but I'm back now. Anyway I have finally not finished my faucet collector. Let me explain this a little bit. I decided to ditch this version for a new one I'm making that you'll be able to program your own faucets into and be able to set timers, etc.

So basically it's a stand-alone program that you can run that will list various BTC faucets that you can collect from. It has a timer for each faucet and will list how much you've collected from each and even keep a total of how much you've collected from all faucets. The total doesn't work yet but the faucets in the 5min section all work. I just wanted to put this out there if you want to make some quick BTC.

Heres the dropbox link:
https://www.dropbox.com/s/ny1cuo788uczgi4/faucet%20collectorfinal.rar?dl=0

So keep checkin in, cause this new programmable faucet timer will be worth the wait.

The making of a stand-alone faucet rotator and timing system...

So the other night I decided to make a faucet collection monitoring program. Kind of a mouth-full but very accurately  describes what the application does. On this version there are 9 faucet links, each has a timer and a BTC collection log. Here take a look...

Each timer has its own reset button and green indicator for when the faucet becomes active again. Browser faucet rotators can be sluggish and can slow you down. With this program I was able to make 0.0003 in 25 minutes. So I'd say it was worth the effort to make it.

My setup usually involves having all my collections done in chrome, you can do it with firefox as well. But anyway, I'll have my faucet box address checker pinned to one tab then have my application run in the bottom. That way once i collect from a faucet I can close the page and reset the timer and the program add the amount of satoushi collected. Neat, eh? So I'll be finishing it up tonight and probably uploading it tomorrow.

How the auto better works. Conclusion.

Okay so I kinda left you all hanging on the last post and didn't really explain anything. First of all sorry and second of all, I'll explain everything...

Lets bring up that code again...

It all is a bit messy and unorganized but the program is broken down into 3 functions. And the control on those functions all comes down to this piece of code:

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim increase = txtbx_increasepercentage.Text
        If increase > 200 Then
            Call above200()
        ElseIf increase > 100 And increase < 200 Then
            Call between100and200()
        ElseIf increase < 180 Then
            Call below100()
        End If
    End Sub

This is for the main calculate button. It can invoke one of these 3 functions: below100, between100and200 and above200. Each one of these functions executes an algorithm that will display the output into the list box.

Example of function above200;

Private Sub above200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim BillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            sumnew = sum * 10000
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sumnew * increasefinal
            sum = rolloutput / 10000
            sumnew = sum
            BillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & BillPlus)


            If n = rolls Then
                Exit Do
            End If
        Loop

    End Sub

Anyway there's how my program works, hope you enjoy.

How the auto-better works.

 Ok so I was going to write about this a little later, but I decided to do it today because I've already had a few people asking me about how I made the auto-better and how it works. So that's what I'm going to talk about today. I programmed it in visual basic, nothing really special. But in any-case lets take a look...

This is the main interface. 

Now there are 4 main entry text boxes, 3 buttons and 2 list boxes. The 3 top text boxes (basebet, % increase, # of rolls) are linked to the calculate button. Then the multiplier text box is linked to the "project max loss" button to the right. The calculate button prints the output of your rolls onto listbox1 and the "project max loss" button will give an estimate on number of losses to listbox2.  Sounds confusing at first but you'll understand a bit better in a minute.

Here's a quick look at the code...

Public Class Form1
    Private Sub above200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            sumnew = sum * 10000
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sumnew * increasefinal
            sum = rolloutput / 10000
            sumnew = sum
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)


            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub between100and200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            n += 1
            increasefinal = increase * 0.01
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub below100()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim increase = txtbx_increasepercentage.Text
        If increase > 200 Then
            Call above200()
        ElseIf increase > 100 And increase < 200 Then
            Call between100and200()
        ElseIf increase < 180 Then
            Call below100()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim multi = txtbx_multipler.Text
        Dim lossx As Single
        Dim lossresult As Single
        lossx = 9.5
        lossresult = (lossx * multi) + 4
        ListBox2.Items.Add("Max losses on x" & multi & " somewhere around " & lossresult & " losses....")
        Panel5.BackColor = Color.Green
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Panel5.BackColor = Color.Black
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        AboutBox1.Visible = True
    End Sub

To be continued....

New UPDATE and DOWNLOAD for Primedice Loss Calculator

New update for my auto-bet calculator. Can calculate any setting. And the design has been cleaned up a little. I have also included a readme file which you can look at to get started. Enjoy!

https://www.dropbox.com/s/97f12iu3m0m9os2/theheisztslosscalculator.rar?dl=0

Virustotal link: https://www.virustotal.com/en/url/97c5cf6a20794bb24b4bf066589e5442df6ce49243220c0be6698946e81d227e/analysis/1443717062/