Lightbearer By Wesker

[Wesker]

Its just a simple timer to check the basins, some might think its stupid and not useful.

But hey its free..


http://www.sendspace.com/file/khzaa3


i cant attach files for some odd reason

Public Class Form1
    Public Function GetTime(Time As Integer) As String

        Dim Hrs As Integer  'number of hours   '
        Dim Min As Integer  'number of Minutes '
        Dim Sec As Integer  'number of Sec     '

        'Seconds'
        Sec = Time Mod 60

        'Minutes'
        Min = ((Time - Sec) / 60) Mod 60

        'Hours'
        Hrs = ((Time - (Sec + (Min * 60))) / 3600) Mod 60

        Return Format(Hrs, "00") & ":" & Format(Min, "00") & ":" & Format(Sec, "00")
    End Function

    Dim Timer As Integer = 7200
    Dim Timer01 As Integer = 7200
    Dim Timer02 As Integer = 7200
    Dim Timer03 As Integer = 7200
    Dim Timer04 As Integer = 7200
    Dim Timer05 As Integer = 7200
    Dim Timer06 As Integer = 7200
    Dim Timer07 As Integer = 7200
    Dim Timer08 As Integer = 7200
    Dim Timer09 As Integer = 7200

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label11.Text = GetTime(Timer)
        Timer = Timer - 1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer = 7200
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Label12.Text = GetTime(Timer01)
        Timer01 = Timer01 - 1
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Timer01 = 7200
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Timer3.Start()
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Label13.Text = GetTime(Timer02)
        Timer02 = Timer02 - 1
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Timer02 = 7200
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Timer4.Start()
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Label14.Text = GetTime(Timer03)
        Timer03 = Timer03 - 1
    End Sub


    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Timer03 = 7200
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Timer5.Start()
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Label15.Text = GetTime(Timer04)
        Timer04 = Timer04 - 1
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Timer04 = 7200
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Timer6.Start()
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Label16.Text = GetTime(Timer05)
        Timer05 = Timer05 - 1
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Timer05 = 7200
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Timer7.Start()
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Label17.Text = GetTime(Timer06)
        Timer06 = Timer06 - 1
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Timer06 = 7200
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        Timer8.Start()
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Label18.Text = GetTime(Timer07)
        Timer07 = Timer07 - 1
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Timer07 = 7200
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Timer9.Start()
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Label19.Text = GetTime(Timer08)
        Timer08 = Timer08 - 1
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Timer08 = 7200
    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Timer10.Start()
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Label20.Text = GetTime(Timer09)
        Timer09 = Timer09 - 1
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Timer09 = 7200
    End Sub
End Class

Nothing fishi going on.
You can code it yourself's

Wesker's Programs dont have anything in the background.
You can use a Decompiler its not encoded.

I dont want to download anything, everything is a hack you want my 15k in bank.

kkkkkkkkk online timers : http://www.online-stopwatch.com/countdown-timer/ (Its not tibia-related.)

[Nabb]

How exactly does it work?

[Blequi]

what about screenshots? what is it proposed to solve?

[Wesker]

its just a few timers, you click start the count down begins when you click reset the countdown starts at 2 hrs and so on

its just an easier way to check the timers, instead of camping them all day long.
manual method, it doesn't inject in tibia.

Completly Safe.

[Wesker]

event done, unitera won again.