Zegar bb, prosty programik

[1macio1]

dodajcie go do spisu , bo programik naprawde dobry

[HaruTube]

Przydatny program, bo znów zacząłem grać w NT

Lajk

[KlauS.]

Lajk, przydaje się

[Dopsik :*]

Link nie działa ;/

[mgpzm]

Wrzuć na inny hosting pls ;/

[Lobod]

Siema Koaczorka dawno nie widziałem a więc daję kod do wersju która nie taguje przed godziną bez BB:

 

Local $hot[5]
Local $x[2]
Local $czas
Local $kanaly
Local $tada=0
;~
;~ Pobieranie danych z pliku
;~
$hot[1]=IniRead("cnf.ini", "zegarbb", "fun1", "cos")
If $hot[1]="cos" Then
$hot[1]=InputBox("Niepelne dane", "Wprowadz klawisz dla opcji wyjscia")
IniWrite("cnf.ini", "zegarbb", "fun1", $hot[1])
EndIf
$hot[2]=IniRead("cnf.ini", "zegarbb", "fun2", "cos")
If $hot[2]="cos" Then
$hot[2]=InputBox("Niepelne dane", "Wprowadz klawisz dla opcji zmiany widoku")
IniWrite("cnf.ini", "zegarbb", "fun2", $hot[2])
EndIf
$hot[3]=IniRead("cnf.ini", "zegarbb", "fun3", "cos")
If $hot[3]="cos" Then
$hot[3]=InputBox("Niepelne dane", "Wprowadz klawisz dla opcji edycji miejsca wyswietlania")
IniWrite("cnf.ini", "zegarbb", "fun3", $hot[3])
EndIf
$hot[4]=IniRead("cnf.ini", "zegarbb", "fun4", "cos")
If $hot[4]="cos" Then
$hot[4]=InputBox("Niepelne dane", "Wprowadz klawisz dla opcji pauzy")
IniWrite("cnf.ini", "zegarbb", "fun4", $hot[4])
EndIf
$x[0]=IniRead("cnf.ini", "zegarbb", "x", 0)
$x[1]=IniRead("cnf.ini", "zegarbb", "y", 0)
;~
;~ Hotkey'e
;~
HotKeySet ($hot[1], 'wyjscie')
HotKeySet ($hot[3], "edit")
Func wyjscie() ;~ Wyjscie ze skryptu
Exit
EndFunc
Func edit() ;~ Zapisywanie pozycji zeagra
$x=MouseGetPos()
IniWrite("cnf.ini", "zegarbb", "x", $x[0])
IniWrite("cnf.ini", "zegarbb", "y", $x[1])
EndFunc
Func autoinf() ;~ Automatyczne przypomnienie ze za 10 i 3 min jest bb
If @MIN='50' And $tada=0 and @HOUR= not '20' and @HOUR= not '00' and @HOUR= not '02' and @HOUR= not '04' and @HOUR= not '06' and @HOUR= not '08' and @HOUR= not '12' Then
$tada=1
SoundSetWaveVolume(100)
SoundPlay(@WindowsDir & "\media\tada.wav", 0)
ToolTip("BB ZA 10 MINUT!")
Sleep(11000)
EndIf
If @MIN='51' Or @MIN='58' Then $tada=0
If @MIN='57' And $tada=0 and @HOUR= not '20' and @HOUR= not '00' and @HOUR= not '02' and @HOUR= not '04' and @HOUR= not '06' and @HOUR= not '08' and @HOUR= not '12' Then
$tada=1
SoundSetWaveVolume(100)
SoundPlay(@WindowsDir & "\media\tada.wav", 0)
ToolTip("BB ZA 3 MINUTY!")
Sleep(10000)
EndIf
EndFunc
Func pause() ;~ pauzowanie skryptu
HotKeySet($hot[4], "rozszerzony")
While 1
Sleep(999)
autoinf()
WEnd
EndFunc
Func rozszerzony() ;~ Widok rozszerzony
HotKeySet($hot[2], "podstawowy")
HotKeySet ($hot[4], "pause")
while 1
czas()
autoinf()
ToolTip("Błyskawiczna Bitwa za:"&@LF&$czas&" minut"&@LF&$kanaly, $x[0], $x[1], @HOUR&" : "&@MIN&" : "&@SEC, 1)
Sleep(999)
WEnd
EndFunc
Func podstawowy() ;~ Widok podstawowy
HotKeySet($hot[2], "rozszerzony")
HotKeySet ($hot[4], "pause")
while 1
ToolTip(@HOUR&" : "&@MIN&" : "&@SEC)
Sleep(999)
autoinf()
WEnd
EndFunc
Func czas() ;~ Oblicza za ile jest bb i pokazuje na jakim kanale
If @HOUR='10' Or @HOUR='14' Or @HOUR='18' Or @HOUR='22' Then
$kanaly="na kanale 1"
ElseIf @HOUR='00' Or @HOUR='01' Or @HOUR='04' Or @HOUR='05' Or @HOUR='08' Or @HOUR='09' Or @HOUR='12' Or @HOUR='13' Or @HOUR='16' Or @HOUR='17' Or @HOUR='20' Or @HOUR='21' Then
$kanaly="na kanałach 2 i 4"
ElseIf @HOUR='02' Or @HOUR='03' Or @HOUR='06' Or @HOUR='07' Or @HOUR='11' Or @HOUR='15' Or @HOUR='19' Or @HOUR='23' Then
$kanaly="na kanałach 3 i 5"
EndIf
If @HOUR='00' Or @HOUR='02' Or @HOUR='04' Or @HOUR='06' Or @HOUR='08' Or @HOUR='12' Or @HOUR='16' Or @HOUR='20' Then
$czas=120-@MIN
Else
$czas=60-@MIN
EndIf
EndFunc
rozszerzony()

 

 

Podkreślam że program nie jest mój ja go tylko poprawiłem.

[macieksp123]

Dzięki tobie zawsze wiem kiedy jest BB i mnie to nie ominie LEĆI LIKE

[RicomenPL]

Wrzuc na innego hosta bo ten nie działa

[mgpzm]

Czy ktoś kto to pobrał mógłby wrzucić na inny hosting?

[RicomenPL]

Czy wogule kroś zagląda na ten temat? Bo nie zmieniacie hosta. Zmiencie PLS

[Aslani]

Wygląda na to że nikt tego programiku nie ma dysku już dlatego nie ma reuploadu. Jak będę miał czas to zrobię taki sam zegar jak autor tego tematu zrobił.

[Quenders]

Można prosić o nowego hosta?

[Bartek609]

A działa to tylko na Polskiej wersji NosTale czy na Niemieckiej też? (Bo ja gram na niemieckim NosTale i tam na inne godziny jest BB)

:huh:

[superczopekXD]

Jak chcę włączyć stronę to mi się wyświetla automatycznie cba.pl i obrazek .jpg. Co mam w tej sytuacji zrobić?? 8S

[marceli17]

Jak to kałsko słonia sie pobiera?

[kacpern20]

niedziała niemoge pobrac jakies cba.pl sie pojawia niepobierac

[KlauS.]

Re-upload:

 

http://hostuje.net/file.php?id=be15973de2f83aaf7a200920e75979b3

 

lub:

 

Klik!

[Kaczor008]

Nowe godziny, nowy kod, nowe wszystko, POWINNO działać.

[Nieogarnieta]

jak zmienić ustawienia? da się wogole ? 

[Press.]

jak zmienić ustawienia? da się wogole ? 

Możesz zmienić tylko skrót klawiszowy do odpalania, a poza tym godziny są już dawno nieaktualne.

[Kaczor008]

jak zmienić ustawienia? da się wogole ? 

Zalezy od wersji, w 1.0 trzeba usunac plik ZegarBB_cnf.ini i uruchomic ponownie program, powinno pojawic sie okno z zapytaniem o rozne klawisze czy serwer (na avalonie bb jest na ch1, gdy na enigmie i finesi na ch2). Jesli nadal nie ogarniasz to PW

 

Możesz zmienić tylko skrót klawiszowy do odpalania, a poza tym godziny są już dawno nieaktualne.

Tak, byly nieaktualne, dlatego zrobilem glupsza wersje