AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Scriptreleases > Time & Date Script v1.0 by Firefox
Normale Version: Time & Date Script v1.0 by Firefox
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Firefox

08.05.2006, 17:52 Uhr
Beschreibung:

Mit diesem Script spart ihr euch die lästigen Augenbewegungen zur Uhr in Windows rchts unten in der Taskleiste Laughing

Trigger:

!time = Sagt euch wie spät es ist
!date = Sagt euch welcher Tag heute ist
!time&date = Sagt euch welcher Tag es heute ist und wie spät es ist

Script:

Code:
'######################################
'## Time&Date Script v1.0 by Firefox ##
'######################################

'Chan angeben in dem das Script aktiv sein soll !
Const AktivChan = "#Phoenix"


'#######################################
'## Ab hier bitte nicht mehr ändern ! ##
'#######################################

Const Version = "v1.0"

Sub Init()
  Script "Time&Date Script " & Version & " by Firefox"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "0***7,1 Time&Date Script "&Version&" by Firefox loaded"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
If InStr(AktivChan,Chan) Then
  If LCase(Param(Line,1)) = "!date" Then
   SendLine "PRIVMSG " & Chan & " : 7Heute ist der 8" & Date & " 7!", 3
  ElseIf LCase(Param(Line,1)) = "!time" Then
   SendLine "PRIVMSG " & Chan & " : 7Es ist 8" & Time & " 7Uhr !", 3
  ElseIf LCase(Param(Line,1)) = "!time&date" Then
   SendLine "PRIVMSG " & Chan & " : 7Heute ist der 8" & Date & " 7und es ist 8" & Time & " 7Uhr !", 3
  End If
End If
End Sub

Christian

14.05.2006, 21:52 Uhr
Ich will mich ja nicht beschweren aber das kann ja jeder ^^

Erweiter das doch so das da steht Es ist Dienstag oder sowas . . .

Wäre interessanter . . . oder was der 11.08.2004 für ein tag ist freitag oder samstag

Firefox

02.06.2006, 16:20 Uhr
Danke für deinen Post Christian ! Hab mich an die Arbeit gemacht und das unmögliche, möglich gemacht Laughing

Code:
'######################################
'## Time&Date Script v1.2 by Firefox ##
'######################################

'Chan angeben in dem das Script aktiv sein soll !(Mehrere mit " " trennen | Für alle einfach so: ActiveChannels = "")
Const ActiveChannels = "#Phoenix"

'#######################################
'## Ab hier bitte nicht mehr ändern ! ##
'#######################################

Const Version = "v1.2"

Sub Init()
  Script "Time&Date Script " & Version & " by Firefox"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "0***7,1 Time&Date Script "&Version&" by Firefox loaded"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
If (Instr(" " + LCase(ActiveChannels) + " ", " " + LCase(Chan) + " ") > 0) or (ActiveChannels = "") Then
  Select Case LCase(Param(Line, 1))
   Case "!date"
    Select Case Weekday(Date)
     Case 1: Tag = "Sonntag"
     Case 2: Tag = "Montag"
     Case 3: Tag = "Dienstag"
     Case 4: Tag = "Mittwoch"
     Case 5: Tag = "Donnerstag"
     Case 6: Tag = "Freitag"
     Case 7: Tag = "Samstag"
    End Select
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Tag & " 7der 8 " & Date & " 7!", 3
   Case "!time"
    SendLine "PRIVMSG " & Chan & " : 7Es ist8 " & Time & " 7Uhr !", 3
   Case "!time&date"
    Select Case Weekday(Date)
     Case 1: Tag = "Sonntag"
     Case 2: Tag = "Montag"
     Case 3: Tag = "Dienstag"
     Case 4: Tag = "Mittwoch"
     Case 5: Tag = "Donnerstag"
     Case 6: Tag = "Freitag"
     Case 7: Tag = "Samstag"
    End Select
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Tag & " 7der8 " & Date & " 7und es ist8 " & Time & " 7Uhr !", 3
  End Select
End If
End Sub

Christian

02.06.2006, 16:42 Uhr
jo sieht doch direkt vielversprechender aus Smile

Aber es gibt ne tolle function Smile Weekdayname(Weekday(Date))

Code:
'######################################
'## Time&Date Script v1.2 by Firefox ##
'######################################

'Chan angeben in dem das Script aktiv sein soll !(Mehrere mit " " trennen | Für alle einfach so: ActiveChannels = "")
Const ActiveChannels = "#Phoenix"

'#######################################
'## Ab hier bitte nicht mehr ändern ! ##
'#######################################

Const Version = "v1.2"

Sub Init()
  Script "Time&Date Script " & Version & " by Firefox"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "0***7,1 Time&Date Script "&Version&" by Firefox loaded"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
If (Instr(" " + LCase(ActiveChannels) + " ", " " + LCase(Chan) + " ") > 0) or (ActiveChannels = "") Then
  Select Case LCase(Param(Line, 1))
   Case "!date"
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Weekdayname(Weekday(Date)) & " 7der 8 " & Date & " 7!", 3
   Case "!time"
    SendLine "PRIVMSG " & Chan & " : 7Es ist8 " & Time & " 7Uhr !", 3
   Case "!time&date"
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Weekdayname(Weekday(Date)) & " 7der8 " & Date & " 7und es ist8 " & Time & " 7Uhr !", 3
  End Select
End If
End Sub

Firefox

02.06.2006, 16:57 Uhr
Laughing warum hast du das nicht vorher gesagt ? Laughing hab extra das Script geschrieben :twisted: Laughing Laughing Laughing Laughing

Christian

02.06.2006, 17:40 Uhr
Ich hab noch ne kleine änderung . . .

Zitat:(18:39:24) (@SI|Spiky) !time
(18:39:24) (@AnGelBots) Es ist 18:39:24 . . . 5 Stunden, 20 Minuten, 36 Sekunden bis 0 Uhr

Code:
'######################################
'## Time&Date Script v1.2 by Firefox ##
'######################################

'Chan angeben in dem das Script aktiv sein soll !(Mehrere mit " " trennen | Für alle einfach so: ActiveChannels = "")
Const ActiveChannels = "#angelbots"

'#######################################
'## Ab hier bitte nicht mehr ändern ! ##
'#######################################

Const Version = "v1.2"

Sub Init()
  Script "Time&Date Script " & Version & " by Firefox"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "0***7,1 Time&Date Script "&Version&" by Firefox loaded"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
If (Instr(" " + LCase(ActiveChannels) + " ", " " + LCase(Chan) + " ") > 0) or (ActiveChannels = "") Then
  Select Case LCase(Param(Line, 1))
   Case "!date"
     SendLine "PRIVMSG " & Chan & " :Heute ist " & Weekdayname(Weekday(Date)) & " der " & Day(Date) & ". wir haben " & Monthname(Month(Date)) & " " & Year(Date), 3
   Case "!time"
     vNow = Now
     vStart = DateDiff("s",vNow,Date + 1)
     vStunden = Int(vStart / 60 / 60)
     vStunden2 = vStunden * 60 * 60
     vStart = CCur(vStart - vStunden2)
     vMinuten = Int(vStart / 60)
     vMinuten2 = vMinuten * 60
     vStart = CCur(vStart - vMinuten2)
     vSekunden = Int(vStart)
    SendLine "PRIVMSG " & Chan & " : Es ist " & Time & " . . . " & vStunden & " Stunden, " & vMinuten & " Minuten, " & vSekunden & " Sekunden bis 0 Uhr", 3
   Case "!time&date"
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Weekdayname(Weekday(Date)) & " 7der8 " & Date & " 7und es ist8 " & Time & " 7Uhr !", 3
  End Select
End If
End Sub

Firefox

12.06.2006, 14:25 Uhr
auch noch ne kleine Änderung:

Code:
'######################################
'## Time&Date Script v1.3 by Firefox ##
'######################################

'Chan angeben in dem das Script aktiv sein soll !(Mehrere mit " " trennen | Für alle einfach so: ActiveChannels = "")
Const ActiveChannels = "#Phoenix"

'#######################################
'## Ab hier bitte nicht mehr ändern ! ##
'#######################################

Const Version = "v1.3"

Sub Init()
  Script "Time&Date Script " & Version & " by Firefox"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "0***7,1 Time&Date Script "&Version&" by Firefox loaded"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
If (Instr(" " + LCase(ActiveChannels) + " ", " " + LCase(Chan) + " ") > 0) or (ActiveChannels = "") Then
  Select Case LCase(Param(Line, 1))
   Case "!date"
     SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Weekdayname(Weekday(Date)) & " 7der8 " & Day(Date) & ". " & Monthname(Month(Date)) & " " & Year(Date) & " 7!", 3
   Case "!time"
     vNow = Now
     vStart = DateDiff("s",vNow,Date + 1)
     vStunden = Int(vStart / 60 / 60)
     vStunden2 = vStunden * 60 * 60
     vStart = CCur(vStart - vStunden2)
     vMinuten = Int(vStart / 60)
     vMinuten2 = vMinuten * 60
     vStart = CCur(vStart - vMinuten2)
     vSekunden = Int(vStart)
    SendLine "PRIVMSG " & Chan & " : 7Es ist8 " & Time & " 7Uhr ! Noch8 " & vStunden & " 7Stunden,8 " & vMinuten & " 7Minuten,8 " & vSekunden & " 7Sekunden bis der Tag vorbei ist...", 3
   Case "!time&date"
     vNow = Now
     vStart = DateDiff("s",vNow,Date + 1)
     vStunden = Int(vStart / 60 / 60)
     vStunden2 = vStunden * 60 * 60
     vStart = CCur(vStart - vStunden2)
     vMinuten = Int(vStart / 60)
     vMinuten2 = vMinuten * 60
     vStart = CCur(vStart - vMinuten2)
     vSekunden = Int(vStart)
    SendLine "PRIVMSG " & Chan & " : 7Heute ist8 " & Weekdayname(Weekday(Date)) & " 7der8 " & Day(Date) & ". " & Monthname(Month(Date)) & " " & Year(Date) & " 7und es ist8 " & Time & " 7Uhr ! Noch8 " & vStunden & " 7Stunden,8 " & vMinuten & " 7Minuten,8 " & vSekunden & " 7Sekunden bis der Tag vorbei ist...", 3
  End Select
End If
End Sub

K1773R

22.02.2007, 00:47 Uhr
geht super!
kann ich gut gebrauchen, denn die uhr von windows ist öde und nicht so doll wie das script hier :D
danke
AnGelBot-Portal² > Scripting > Scriptreleases > Time & Date Script v1.0 by Firefox
Referenz-URLs