API tools faq
paste
1x33x7

radio-stream script

1x33x7
Jan 17th, 2013
130
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 40.60 KB | None | 0 0
raw download clone embed print report
  1. '+-------------------------------------+
  2. '¦ Radio-Stream-Script 1.2 © by sts
  3. '¦
  4. '¦ Don`t change the author!
  5. '¦
  6. '¦ Website : www.angelbot.dyndns.org
  7. '¦-------------------------------------+
  8. '¦ PartyLine Setup ------------[x]
  9. '¦ Anlegung einer INI-Datei ---[x]
  10. '¦ Channeleinstellungen ------ [x]
  11. '¦-------------------------------------+
  12. '##############Einstellungen##################
  13. Const INI = "radio.ini"
  14. Const DebugIt = False
  15.  
  16. '###############Don't Change!!################
  17. Const Version = "Radio-Stream-Script 1.2 © by sts"
  18. Const ScriptName = "Radio-Stream-Script 1.2 © by sts"
  19.  
  20. Dim LastNews, Recieved, tmp_Listener, tmp_Song, tmp_Peak
  21.  
  22. Sub Init()
  23. Script "7 " & ScriptName
  24. Hook "Commands"
  25. Hook "Nick"
  26. Hook "Chan_Msg"
  27. AddCommand "radio", Cl_Mas, "+m", "2*** .radio##14Zeigt das " & ScriptName & " Setup"
  28. SpreadFlagMessage 0, "+m", "7 " & ScriptName & " loaded"
  29. GetNews
  30. aTime = ReadINIString("Advertisment", "Time", "300", INI)
  31. TimedCommand "Advertisment", aTime
  32. End Sub
  33.  
  34.  
  35. Sub Commands(vSock, RegUser, Flags, Line)
  36. If LCase(Param(Line, 1)) = ".radio" Then
  37. GrabUser vSock, "" & ScriptName & " Setup", "Setup"
  38. SetSockTag vSock, "MainMenu"
  39. Setup vSock, RegUser, Flags, ""
  40. End If
  41. End Sub
  42.  
  43. Sub Setup(vSock, RegUser, Flags, Line)
  44.  
  45. If Param(Line, 1) = "0" Then
  46. TU vsock, "10*** Saving settings..."
  47. ReleaseUser vSock
  48. Exit Sub
  49. End If
  50.  
  51. Select Case LCase(Param(GetSockTag(vSock), 1))
  52. Case "mainmenu"
  53. TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||______________________________4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
  54. TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
  55. TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||______________________________4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
  56. TU vSock, " "
  57. TU vSock, "Willkommen im Setup vom " & Version & "!"
  58. TU vSock, "Du befindest dich im Hauptmenü."
  59. TU vSock, " "
  60. TU vSock, " - 1 um ins Channelsetup zu gelangen"
  61. TU vSock, " - 2 um ins Streamsetup zu gelangen"
  62. TU vSock, " - 3 um ins Topicsetup zu gelangen"
  63. TU vSock, " - 4 um ins Layoutsetup zu gelangen"
  64. TU vSock, " "
  65. TU vSock, " - 0 um zurück auf die Partyline zu kommen."
  66. SetSockTag vSock, "MainMenuOption"
  67. Case "mainmenuoption"
  68. Select Case LCase(Param(Line, 1))
  69. Case "1"
  70. SetSockTag vSock, "channel"
  71. Setup vSock, RegUser, Flags, ""
  72. Case "2"
  73. SetSockTag vSock, "stream"
  74. Setup vSock, RegUser, Flags, ""
  75. Case "3"
  76. SetSockTag vSock, "topic"
  77. Setup vSock, RegUser, Flags, ""
  78. Case "4"
  79. SetSockTag vSock, "layout"
  80. Setup vSock, RegUser, Flags, ""
  81. Case Else
  82. TU vSock, "5*** Ungültiger Befehl"
  83. End Select
  84.  
  85. Case "channel"
  86. TU vSock, " "
  87. TU vSock, "Willkommen im Setup vom " & Version & "!"
  88. TU vSock, "Du befindest dich im Channelsetup."
  89. TU vSock, " "
  90. TU vSock, "Um zurück ins Hauptmenü zu gelangen gebe 1 ein "
  91. TU vSock, " "
  92. TU vSock, "0,1Aktuelle Einstellungen:"
  93. SetSockTag vSock, "ChannelMenuOption"
  94. Main = ReadINIString("Channels", "Main", "", INI)
  95. Intern = ReadINIString("Channels", "Intern", "", INI)
  96. Ausgabe = ReadINIString("Channels", "Ausgabe", "", INI)
  97.  
  98.  
  99. Dummy = Split(Main, " ")
  100. For i = LBound(Dummy) To UBound(Dummy)
  101. TU vSock, "14 - MainChannel/s: " & Dummy(i)
  102. Next
  103.  
  104. TU vSock, "14 - Interner Channel: " & Intern
  105.  
  106.  
  107. Dummy = Split(Ausgabe, " ")
  108. For i = LBound(Dummy) To UBound(Dummy)
  109. TU vSock, "14 - AusgabeChannel/s: " & Dummy(i)
  110. Next
  111.  
  112. TU vSock, " "
  113. TU vSock, "0,1Einstellungen - InternChannels:"
  114. TU vSock, " - chan intern set <#channel> um den internen Channel zusetzten."
  115. TU vSock, " "
  116. TU vSock, "0,1Einstellungen - MainChannels:"
  117. TU vSock, " - chan add main <#channel> um einen MainChannel der Liste hinzuzufügen"
  118. TU vSock, " - chan del main <#channel> um einen MainChannel aus Liste zu löschen"
  119. TU vSock, " "
  120. TU vSock, "0,1Einstellungen - AusgabeChannels:"
  121. TU vSock, " - chan add ausgabe <#channel> um einen AusgabeChannel der Liste hinzuzufügen"
  122. TU vSock, " - chan del ausgabe <#channel> um einen AusgabeChannel aus Liste zu löschen"
  123. Case "channelmenuoption"
  124. Select Case LCase(Param(Line, 1))
  125. Case "chan"
  126. Select Case LCase(Param(Line, 2))
  127. Case "add"
  128. Select Case LCase(Param(Line, 3))
  129. Case "main"
  130. Channels = ReadINIString("Channels", "Main", "", INI)
  131. Channels = Trim3(Channels & " " & Param(Line, 4))
  132. WriteINIString "Channels", "Main", Channels, INI
  133. TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als MainChannel hinzugefügt"
  134. SetSockTag vSock, "channel"
  135. Setup vSock, RegUser, Flags, ""
  136. Case "ausgabe"
  137. Channels = ReadINIString("Channels", "Ausgabe", "", INI)
  138. Channels = Trim3(Channels & " " & Param(Line, 4))
  139. WriteINIString "Channels", "Ausgabe", Channels, INI
  140. TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als AusgabeChannel hinzugefügt"
  141. SetSockTag vSock, "channel"
  142. Setup vSock, RegUser, Flags, ""
  143. Case Else
  144. TU vSock, "5*** Syntax: chan add <main | ausgabe | trigger> <#channel>"
  145. End Select
  146. Case "del"
  147. Select Case LCase(Param(Line, 3))
  148. Case "main"
  149. Channels = ReadINIString("Channels", "Main", "", INI)
  150. Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 4)), ""))
  151. WriteINIString "Channels", "Main", Channels, INI
  152. TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als MainChannel entfernt"
  153. SetSockTag vSock, "channel"
  154. Setup vSock, RegUser, Flags, ""
  155. Case "ausgabe"
  156. Channels = ReadINIString("Channels", "Ausgabe", "", INI)
  157. Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 4)), ""))
  158. WriteINIString "Channels", "Ausgabe", Channels, INI
  159. TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als AusgabeChannel entfernt"
  160. SetSockTag vSock, "channel"
  161. Setup vSock, RegUser, Flags, ""
  162. Case Else
  163. TU vSock, "5*** Ungültiger Befehl"
  164. End Select
  165. Case "intern"
  166. If LCase(Param(Line,3)) = "set" Then
  167. WriteINIString "Channels", "Intern", GetRest(Line,4), INI
  168. TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als interner Channel gesetzt"
  169. Else
  170. TU vSock, "5*** Syntax: chan set intern <#channel>"
  171. End If
  172. End Select
  173. Case "1"
  174. SetSockTag vSock, "MainMenu"
  175. Setup vSock, RegUser, Flags, ""
  176. Case Else
  177. TU vSock, "5*** Ungültiger Befehl"
  178. End Select
  179. Case "stream"
  180. TU vSock, " "
  181. TU vSock, "Willkommen im Setup vom " & Version & "!"
  182. TU vSock, "Du befindest dich im Streamsetup."
  183. TU vSock, " "
  184. TU vSock, "Um zurück ins Hauptmenü zu gelangen gebe 1 ein "
  185. TU vSock, " "
  186. TU vSock, "0,1Aktuelle Einstellungen:"
  187. TU vSock, " "
  188. TU vSock, "Homepage: " & ReadINIString("Stream", "Homepage", "[Keine gesetzt]", INI)
  189. TU vSock, "Stream-Name: " & ReadINIString("Stream", "Name", "[Keinen gesetzt]", INI)
  190. TU vSock, "Listen.pls: " & ReadINIString("Stream", "Listen", "[Keine gesetzt]", INI)
  191. TU vSock, "Streaminformationpage: " & ReadINIString("Stream", "Server", "[Keine gesetzt]", INI)
  192. TU vSock, "Streamport: " & ReadINIString("Stream", "Port", "[Keinen gesetzt]", INI)
  193. TU vSock, " "
  194. TU vSock, "Songanzeige: " & ReadINIString("Setting", "Song", "[On]", INI)
  195. TU vSock, "0,1Einstellungen - Streamdaten:"
  196. TU vSock, " - set name um den Namen Deines Radios anzugeben"
  197. TU vSock, " - set page um die Homepage zu deinem Radio anzugeben (komplette Adresse)"
  198. TU vSock, " - set server um Server/Host zu den Streaminformationen anzugeben (ohne http://)"
  199. TU vSock, " - set port um den Port anzugeben"
  200. TU vSock, " - set listen um die Adresse zur Listen.pls anzugeben (komplette Adresse) anzugeben"
  201. TU vSock, " - set informationpage um Informationspage anzugeben. (Streaminformationen: [nicht die komplette Adresse. z.B. index.html])"
  202. TU vSock, " - set playlist um einen Link zur Playlist anzugeben"
  203. TU vSock, " "
  204. TU vSock, "0,1Einstellungen - Songanzeige"
  205. TU vSock, "- song on damit der aktuelle Song in die Main/Ausgabechannels gepostet wird."
  206. TU vSock, "- song off damit der Song nicht gepostet wird."
  207.  
  208. SetSockTag vSock, "StreamMenuOption"
  209. Case "streammenuoption"
  210. Select Case LCase(Param(Line, 1))
  211. Case "set"
  212. Select Case LCase(Param(Line, 2))
  213. Case "name"
  214. WriteINIString "Stream", "Name", GetRest(Line,3), INI
  215. TU vSock, "3*** Radioname zu " & GetRest(Line,3) & " geändert"
  216. Case "page"
  217. WriteINIString "Stream", "HomePage", GetRest(Line,3), INI
  218. TU vSock, "3*** Homepage des Radios zu " & GetRest(Line,3) & " geändert "
  219. Case "port"
  220. WriteINIString "Stream", "Port", GetRest(Line,3) , INI
  221. TU vSock, "3*** Port geändert zu " & GetRest(Line,3)
  222. Case "listen"
  223. WriteINIString "Stream", "Listen", GetRest(Line,3) , INI
  224. TU vSock, "3*** Listen.pls geändert zu " & GetRest(Line,3)
  225. Case "server"
  226. WriteINIString "Stream", "Server", GetRest(Line,3) , INI
  227. TU vSock, "3*** Serveradresse geändert zu " & GetRest(Line,3)
  228. Case "informationpage"
  229. WriteINIString "Stream", "Page", GetRest(Line,3) , INI
  230. TU vSock, "3*** Informationspage geändert zu " & GetRest(Line,3)
  231. Case "playlist"
  232. If Param(Line,3) = "" Then
  233. WriteINIString "Stream", "Playlist", "[Keine Playlist angegeben]" , INI
  234. Else
  235. WriteINIString "Stream", "Playlist", GetRest(Line,3) , INI
  236. End If
  237. TU vSock, "3*** PlaylistLink geändert zu " & GetRest(Line,3)
  238. Case Else
  239. TU vSock, "5*** Ungültiger Befehl"
  240. End Select
  241. Case "song"
  242. Select Case LCase(Param(Line, 2))
  243. Case "on"
  244. WriteINIString "Setting", "Song", "on", INI
  245. TU vSock, "3*** Songanzeige: ON"
  246. Case "off"
  247. WriteINIString "Setting", "Song", "on", INI
  248. TU vSock, "3*** Songanzeige: OFF"
  249. Case Else
  250. TU vSock, "5*** Ungültiger Befehl"
  251. End Select
  252. Case "1"
  253. SetSockTag vSock, "MainMenu"
  254. Setup vSock, RegUser, Flags, ""
  255. Case Else
  256. TU vSock, "5*** Ungültiger Befehl"
  257. End Select
  258. Case "topic"
  259. TU vSock, " "
  260. TU vSock, "Willkommen im Setup vom " & Version & "!"
  261. TU vSock, "Du befindest dich im Topicsetup."
  262. TU vSock, " "
  263. TU vSock, "Um zurück ins Hauptmenü zu gelangen gebe 1 ein "
  264. TU vSock, " "
  265. TU vSock, "0,1Aktuelle Einstellungen:"
  266. TU vSock, " "
  267. TU vSock, "Topic Online: " & ReadINIString("Topic", "Online", "[Kein gesetzt]", INI)
  268. TU vSock, "Topic Offline: " & ReadINIString("Topic", "Offline", "[Kein gesetzt]", INI)
  269. TU vSock, " "
  270. TU vSock, " "
  271. TU vSock, "0,1Einstellungen - Topic:"
  272. TU vSock, "- topic online setzt das Topic in den MainChannels wenn das Radio Online ist"
  273. TU vSock, "- topic offline setzt das Topic in den MainChannels wenn das Radio Offline ist"
  274. TU vSock, "- news <on/off> aktiviert oder deaktivert die News im Topic."
  275. TU vSock, "- news set setzt die News für das Topic"
  276. TU vSock, " "
  277. TU vSock, "Verfügbare Variablen: "
  278. TU vSock, " "
  279. TU vSock, "##DJ## --> Für den aktuell gesetzten DJ "
  280. TU vSock, "##SENDUNG## --> Für die aktuell gesetzte Sendung"
  281. TU vSock, "##STREAM## --> Für die Listen.pls zum Radio"
  282. TU vSock, "##HOMEPAGE## --> Für die Homepage des Radios"
  283. TU vSock, "##NEWS## --> Für aktuelle News"
  284.  
  285. SetSockTag vSock, "TopicMenuOption"
  286. Case "topicmenuoption"
  287. Select Case LCase(Param(Line, 1))
  288. Case "topic"
  289. Select Case LCase(Param(Line, 2))
  290. Case "online"
  291. Status = ReadINIString("Topic", "Status", "on", INI)
  292. If Status = "off" Then
  293. If InStr(1, GetRest(Line,3), "##NEWS##") > 0 Then
  294. TU vSock, "5*** Du verwendest die Variable ##NEWS##, aber du hast News im Topic nicht aktiviert. Bitte ändere ggf. die Einstellung oder entferne die Variable."
  295. Else
  296. WriteINIString "Topic", "Online", GetRest(Line,3), INI
  297. TU vSock, "3*** Das OnlineTopic wurde geändert zu: " & GetRest(Line,3)
  298. End If
  299. Else
  300. WriteINIString "Topic", "Online", GetRest(Line,3), INI
  301. TU vSock, "3*** Das OnlineTopic wurde geändert zu: " & GetRest(Line,3)
  302. End If
  303. Case "offline"
  304. Status = ReadINIString("Topic", "Status", "on", INI)
  305. If Status = "off" Then
  306. If InStr(1, GetRest(Line,3), "##NEWS##") > 0 Then
  307. TU vSock, "5*** Du verwendest die Variable ##NEWS##, aber du hast News im Topic nicht aktiviert. Bitte ändere ggf. die Einstellung oder entferne die Variable."
  308. Else
  309. WriteINIString "Topic", "Offline", GetRest(Line,3), INI
  310. TU vSock, "3*** Das OfflineTopic wurde geändert zu: " & GetRest(Line,3)
  311. End If
  312. Else
  313. WriteINIString "Topic", "Offline", GetRest(Line,3), INI
  314. TU vSock, "3*** Das OfflineTopic wurde geändert zu: " & GetRest(Line,3)
  315. End If
  316. Case "show"
  317. If LCase(Param(Line,3)) = "online" Then
  318. TU vSock, "3*** OnlineTopic: " & ReadINIString("Topic", "Online", "[Keins gesetzt]", INI)
  319. ElseIf LCase(Param(Line,3)) = "offline" Then
  320. TU vSock, "3*** OfflineTopic: " & ReadINIString("Topic", "Offline", "[Keins gesetzt]", INI)
  321. End If
  322. End Select
  323. Case "news"
  324. Select Case LCase(Param(Line, 2))
  325. Case "on"
  326. WriteINIString "Topic", "Status", "on", INI
  327. TU vSock, "3*** Topicnews wurde aktiviert"
  328. Case "off"
  329. WriteINIString "Topic", "Status", "off", INI
  330. TU vSock, "3*** Topicnews wurde deaktiviert"
  331. Case "set"
  332. If LCase(Param(Line,3)) = "news" Then
  333. WriteINIString "Topic", "News", GetRest(Line,4), INI
  334. TU vSock, "3*** Topicnews wgeändert zu: " & GetRest(Line,4)
  335. Else
  336. TU vSock, "5*** Ungültiger Befehl"
  337. End If
  338. Case Else
  339. TU vSock, "5*** Ungültiger Befehl"
  340. End Select
  341. Case "1"
  342. SetSockTag vSock, "MainMenu"
  343. Setup vSock, RegUser, Flags, ""
  344. Case Else
  345. TU vSock, "5*** Ungültiger Befehl"
  346. End Select
  347. Case "layout"
  348. TU vSock, " "
  349. TU vSock, "Willkommen im Setup vom " & Version & "!"
  350. TU vSock, "Du befindest dich im Advertisment- & Layoutsetup."
  351. TU vSock, " "
  352. TU vSock, "Um zurück ins Hauptmenü zu gelangen gebe 1 ein "
  353. TU vSock, " "
  354. TU vSock, "0,1Aktuelle Einstellungen:"
  355. TU vSock, " "
  356. TU vSock, "0,1Advertisment:"
  357. TU vSock, "Online Message: " & ReadINIString("Advertisement", "Online", "[Keine gesetzt]", INI)
  358. TU vSock, "Offline Message: " & ReadINIString("Advertisement", "Offline", "[Keine gesetzt]", INI)
  359. TU vSock, "WerveTime: " & ReadINIString("Advertisement", "Time", "[Keine gesetzt]", INI)
  360. TU vSock, "WerbeStatus: " & ReadINIString("Advertisement", "Status", "on", INI)
  361. TU vSock, " "
  362. TU vSock, " "
  363. TU vSock, "0,1Einstellungen - Advertisement"
  364. TU vSock, " - werbung online setzt die Werbung wärdend das Radion Online ist."
  365. TU vSock, " - werbung offline setzt Werbung wärend das Radio Offline ist"
  366. TU vSock, " - werbung time setzt den Zeitinterval für die Werbung (in s)"
  367. TU vSock, " - werbung <on/off> aktiviert oder deaktiviert die Werbung."
  368. TU vSock, " "
  369. TU vSock, " "
  370. TU vSock, "0,1Einstellungen - !Streamcommand:"
  371. TU vSock, " - stream lines setzt die Anzahl der Zeilen."
  372. TU vSock, " - stream line1 setzt die erste Zeile des Streamcommands"
  373. TU vSock, " - stream line2 setzt die zweite Zeile des Streamcommands"
  374. TU vSock, " - stream line3 setzt die dritte Zeile des Streamcommands"
  375. TU vSock, " - stream line4 setzt die vierte Zeile des Streamcommands"
  376. TU vSock, " - stream line5 setzt die fünfte Zeile des Streamcommands"
  377. TU vSock, " "
  378. TU vSock, "Verfügbare Variablen: "
  379. TU vSock, " "
  380. TU vSock, "##DJ## --> Für den aktuell gesetzten DJ "
  381. TU vSock, "##SENDUNG## --> Für die aktuell gesetzte Sendung"
  382. TU vSock, "##STREAM## --> Für die Listen.pls zum Radio"
  383. TU vSock, "##HOMEPAGE## --> Für die Homepage des Radios"
  384. TU vSock, "##SONG## --> Für den aktuellen Song"
  385. TU vSock, "##LISTENER## --> Für die aktuelle Listener"
  386. TU vSock, "##PEAK## --> Für den aktuellen Peak"
  387. TU vSock, "##NEWS## --> Für aktuelle News"
  388. SetSockTag vSock, "LayoutMenuOption"
  389. Case "layoutmenuoption"
  390. Select Case LCase(Param(Line, 1))
  391. Case "werbung"
  392. Select Case LCase(Param(Line, 2))
  393. Case "online"
  394. WriteINIString "Advertisement", "Online", GetRest(Line,3), INI
  395. TU vSock, "3*** Der Werbetext im Onlinestatus wurde geändert zu: " & GetRest(Line,3)
  396. Case "offline"
  397. WriteINIString "Advertisement", "Offline", GetRest(Line,3), INI
  398. TU vSock, "3*** Der Werbetext im Offlinestatus wurde geändert zu: " & GetRest(Line,3)
  399. Case "time"
  400. WriteINIString "Advertisement", "Time", GetRest(Line,3), INI
  401. TU vSock, "3*** Das Zeitinterval für die Werbung wurde auf " & Getrest(Line,3) & " gesetzt"
  402. Case "on"
  403. TU vSock, "3*** Die Werbung wurde aktiviert"
  404. WriteINIString "Advertisement", "Status", "on", INI
  405. Case "off"
  406. TU vSock, "3*** Die Werbung wurde deaktiviert"
  407. WriteINIString "Advertisement", "Status", "off", INI
  408. Case Else
  409. TU vSock, "5*** Ungültiger Befehl"
  410. End Select
  411. Case "stream"
  412. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  413.  
  414. Select Case LCase(Param(Line, 2))
  415. Case "lines"
  416. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  417. If Param(Line,3) > 5 Then
  418. TU vSock, "5*** Es sind maximal 5 Zeilen möglich"
  419. Else
  420. WriteINIString "Stream_cmd", "Lines", Param(Line,3), INI
  421. TU vSock, "3*** Zeilenanzahl geändert zu: " & GetRest(Line,3)
  422. End If
  423. Case "line1"
  424. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  425. If Lines = 1 Or Lines > 1 Then
  426. WriteINIString "Stream_cmd", "Line1", GetRest(Line,3), INI
  427. TU vSock, "3*** Zeile 1 geändert zu: " & GetRest(Line,3)
  428. ElseIf Lines < 1 Then
  429. TU vSock, "5***Zeilenanzahl auf " & Lines & " eingestellt. Bitte ändere ggf. die Einstellung."
  430. End If
  431. Case "line2"
  432. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  433. If Lines = 2 Or Lines > 2 Then
  434. WriteINIString "Stream_cmd", "Line2", GetRest(Line,3), INI
  435. TU vSock, "3*** Zeile 2 geändert zu: " & GetRest(Line,3)
  436. ElseIf Lines < 2 Then
  437. TU vSock, "5***Zeilenanzahl auf " & Lines & " eingestellt. Bitte ändere ggf. die Einstellung."
  438. End If
  439. Case "line3"
  440. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  441. If Lines = 3 Or Lines > 3 Then
  442. WriteINIString "Stream_cmd", "Line3", GetRest(Line,3), INI
  443. TU vSock, "3*** Zeile 3 geändert zu: " & GetRest(Line,3)
  444. ElseIf Lines < 3 Then
  445. TU vSock, "5***Zeilenanzahl auf " & Lines & " eingestellt. Bitte ändere ggf. die Einstellung."
  446. End If
  447. Case "line4"
  448. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  449. If Lines = 4 Or Lines > 4 Then
  450. WriteINIString "Stream_cmd", "Line4", GetRest(Line,3), INI
  451. TU vSock, "3*** Zeile 4 geändert zu: " & GetRest(Line,3)
  452. ElseIf Lines < 4 Then
  453. TU vSock, "5***Zeilenanzahl auf " & Lines & " eingestellt. Bitte ändere ggf. die Einstellung."
  454. End If
  455. Case "line5"
  456. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  457. If Lines = 5 Then
  458. WriteINIString "Stream_cmd", "Line5", GetRest(Line,3), INI
  459. TU vSock, "3*** Zeile 5 geändert zu: " & GetRest(Line,3)
  460. ElseIf Lines < 5 Then
  461. TU vSock, "5***Zeilenanzahl auf " & Lines & " eingestellt. Bitte ändere ggf. die Einstellung."
  462. End If
  463. End Select
  464. Case "1"
  465. SetSockTag vSock, "MainMenu"
  466. Setup vSock, RegUser, Flags, ""
  467. Case Else
  468. TU vSock, "5*** Ungültiger Befehl"
  469. End Select
  470. End Select
  471. End Sub
  472.  
  473. Sub Nick(Chan, OldNick, NewNick, RegUser, Flags, Count)
  474. all = ReadINIString("Channels", "Main", "", INI) & " " & ReadINIString("Channels", "Ausgabe", "", INI) & " " & ReadINIString("Channels", "Intern", "", INI)
  475. Status = ReadINIString("Setting", "Status", "0", INI)
  476. DJ = ReadINIString("Setting", "DJ", "", INI)
  477. If Status = 0 Then Exit Sub
  478. If LCase(DJ) = LCase(OldNick) Then
  479. Intern = ReadINIString("Channels", "Intern", "", INI)
  480. Sendline "PrivMsg " & Intern & " : 15Your Dj is now known as:3 [" & NewNick & "]",3
  481. End If
  482. End SUb
  483.  
  484.  
  485.  
  486. Sub Chan_Msg(Chan, Nick, RegUser, Line)
  487.  
  488. Intern = ReadINIString("Channels", "Intern", "", INI)
  489. If LCase(Chan) = LCase(Intern) Then
  490. Intern = ReadINIString("Channels", "Intern", "", INI)
  491. If LCase(Param(Line, 1)) = "!set" Then
  492. If LCase(Param(Line,2)) = "dj" Then
  493. If Param(Line, 3) = "" Then
  494. WriteINIString "Setting", "DJ", Nick, INI
  495. Sendline "PrivMsg " & Chan & " : 3New DJ! 15Now live on the Turntables: 3 [" & ReadINIString( "Setting", "DJ", "Keiner", INI) & "]", 3
  496. Else
  497. WriteINIString "Setting", "DJ", Param(Line,3), INI
  498. If Not Nick = Param(Line, 3) Then
  499. Sendline "Notice " & Nick & " : Dein Nick stimmt nicht mit dem DJ-Nick überein. Beachte das dich nun keine Wünsche oder Grüße erreichen.",3
  500. End If
  501. End If
  502. ElseIf LCase(Param(Line,2)) = "sendung" Then
  503. If Param(Line,2) = "" Then
  504. Sendline "Notice " & Nick & " : Bitte eine Namen der Sendung angeben",3
  505. Else
  506. WriteINIString "Setting", "Sendung", GetRest(Line,3), INI
  507. Sendline "PrivMsg " & Chan & " : Neue Sendung gewählt: [" & ReadINIString("Setting", "Sendung", "Keine", INI) & "]",3
  508. End If
  509. End If
  510.  
  511. aTopic = ReadINIString("Topic", "Online", "", INI)
  512. cTopic = ReadINIString("Topic", "Offline", "", INI)
  513.  
  514. ElseIf LCase(Param(Line,1)) = "!online" Then
  515. WriteINIString "Setting", "Status", 1, INI
  516. Sendline "PrivMsg " & Chan & " : 15 Stream is going online !",3
  517. NewTopic aTopic, 1
  518. GetNews
  519. ElseIf LCase(Param(Line,1)) = "!offline" Then
  520. WriteINIString "Setting", "Status", 0, INI
  521. GetNews
  522. NewTopic cTopic, 2
  523. Sendline "PrivMsg " & Chan & " : 15Stream is going offline !",3
  524. ElseIf LCase(Param(Line,1)) = "!stream" Then
  525. Dim Lines
  526. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  527.  
  528. For i = 1 to Lines
  529. Sendline "PrivMsg " & Chan & " : " & ReadINIString("Stream_cmd", "Line" & i, "", INI),3
  530. Next
  531. End If
  532.  
  533. If LCase(Param(Line,1)) = "!countdown" Then
  534. If Not Param(Line,2) = "" Then
  535. If InStr(1, Param(Line,2), ":") > 0 Then
  536. If Status = False Then
  537. aTime = Split(Param(Line,2), ":")
  538. Min = aTime(0)
  539. Sec = aTime(1)
  540. Gesamt = Min * 60 + Sec
  541. SendLine "PrivMsg " & Chan & " : Start Countdown: " & Param(Line,2) & " Min (" & Gesamt & "s)",3
  542. RemainingSec = Gesamt
  543. Status = True
  544. Countdown
  545. Else
  546. Sendline "Notice " & Nick & " : Der Countdown ist bereits aktiv. Um den Status zu überprüfen gebe '!countdown_end' ein",3
  547. End If
  548. Else
  549. Sendline "Notice " & Nick & " : Bitte benutze folgendes Zeitformat <Minute:Sekunden> (Bsp. 3:45, 10:03)",3
  550. End If
  551. End If
  552. End If
  553.  
  554. If LCase(Param(Line,1)) = "!countdown_end" Then
  555. Status = False
  556. Sendline "PrivMsg " & aChan & " : Countdown wurde vorzeitig beendet",3
  557. Countdown
  558. End If
  559.  
  560. If LCase(Param(Line,1)) = "!countdown_status" Then
  561. If Status = True Then
  562. Text = RemainingSec / 60
  563. nTime = Split(Text, ",")
  564. Mins = nTime(0)
  565. Sec = "0," & nTime(1)
  566. Sec = Sec * 60
  567. Sendline "Notice " & Nick & " : Noch " & Mins & " Minute(n) und " & Round(Sec, 0) & " Sekunden",3
  568. Else
  569. Sendline "Notice " & Nick & " : Der Countdown ist zurzeit nicht aktiv.",3
  570. End If
  571. End If
  572. End If
  573.  
  574.  
  575. all = ReadINIString("Channels", "Main", "", INI) & " " & ReadINIString("Channels", "Ausgabe", "", INI) & " " & ReadINIString("Channels", "Intern", "", INI)
  576. If InStr(1, LCase(all), LCase(Chan)) > 0 Then
  577. Status = ReadINIString("Setting", "Status", "0", INI)
  578. If Status = 1 Then
  579. Select Case LCase(Param(Line,1))
  580. Case "!wunsch"
  581. Sendline "PrivMsg " & DJ & " : Wunsch von [" & Nick & "] mit [" & GetRest(Line,2) & "]",3
  582. Case "!gruss"
  583. Sendline "PrivMsg " & DJ & " : Neuer Gruß: [" & GetRest(Line,2) & "]",3
  584. Case "!gruß"
  585. Sendline "PrivMsg " & DJ & " : Neuer Gruß: [" & GetRest(Line,2) & "]",3
  586. Case "!dj"
  587. Sendline "Notice " & Nick & " : Aktueller DJ: " & ReadINIString("Setting", "DJ", "Kein DJ gesetzt]", INI),3
  588. Case "!sendung"
  589. Sendline "Notice " & Nick & " : Aktuelle Sendung: " & ReadINIString("Setting", "Sendung", "[Keine gesetzt]", INI),3
  590. Case "!homepage"
  591. Sendline "Notice " & Nick & " : Unser Homepage: " & ReadINIString("Stream", "HomePage", "[Keine gesetzt]", INI),3
  592. Case "!hp"
  593. Sendline "Notice " & Nick & " : Unser Homepage: " & ReadINIString("Stream", "HomePage", "[Keine gesetzt]", INI),3
  594. Case "!listen"
  595. Sendline "Notice " & Nick & " : Unsere Listen.pls: " & ReadINIString("Stream", "Listen", "[Keine Listen.pls gesetzt]", INI),3
  596. Case "!listen.pls"
  597. Sendline "Notice " & Nick & " : Unsere Listen.pls: " & ReadINIString("Stream", "Listen", "[Keine Listen.pls gesetzt]", INI),3
  598. Case "!peak"
  599. Sendline "Notice " & Nick & " : Peak: " & tmp_Peak,3
  600. Case "!listener"
  601. Sendline "PrivMsg " & Chan & " : " & tmp_Listener,3
  602. Case "!song"
  603. Sendline "Notice " & Nick & " : Aktueller Song: " & tmp_Song,3
  604. Case "!playlist"
  605. Sendline "PrivMsg " & Chan & " : Unsere Playlist findest du unter " & ReadINIString("Stream", "Playlist", "[Keine Playlist angegeben]", INI),3
  606. Case "!stream"
  607. Lines = ReadINIString("Stream_cmd", "Lines", "1", INI)
  608. For i = 1 to Lines
  609. Sendline "PrivMsg " & Chan & " : " & ReplaceVars(ReadINIString("Stream_cmd", "Line" & i, "", INI)),3
  610. Next
  611. End Select
  612. Else
  613. Select Case LCase(Param(Line,1))
  614. Case "!wunsch"
  615. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  616. Case "!playlist"
  617. Sendline "PrivMsg " & Chan & " : Unsere Playlist findest du unter " & ReadINIString("Stream", "Playlist", "[Keine Playlist angegeben]", INI),3
  618. Case "!gruss"
  619. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  620. Case "!dj"
  621. Sendline "Notice " & Nick & " : Radio ist zur Zeit offline",3
  622. Case "!sendung"
  623. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  624. Case "!homepage"
  625. Sendline "Notice " & Nick & " : Unser Homepage: " & ReadINIString("Stream", "HomePage", "[Keine gesetzt]", INI),3
  626. Case "!hp"
  627. Sendline "Notice " & Nick & " : Unser Homepage: " & ReadINIString("Stream", "HomePage", "[Keine gesetzt]", INI),3
  628. Case "!listen"
  629. Sendline "Notice " & Nick & " : Unsere Listen.pls: " & ReadINIString("Stream", "Listen", "[Keine Listen.pls gesetzt]", INI),3
  630. Case "!listen.pls"
  631. Sendline "Notice " & Nick & " : Unsere Listen.pls: " & ReadINIString("Stream", "Listen", "[Keine Listen.pls gesetzt]", INI),3
  632. Case "!peak"
  633. Sendline "Notice " & Nick & " : Peak: " & tmp_Peak,3
  634. Case "!listener"
  635. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  636. Case "!song"
  637. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  638. Case "!stream"
  639. Sendline "PrivMsg " & DJ & " : Radio ist zur Zeit offline",3
  640. End Select
  641. End If
  642. End If
  643. End Sub
  644.  
  645.  
  646. Sub GetNews()
  647. Host = ReadINIString("Stream", "Server", "", INI)
  648. Port = ReadINIString("Stream", "Port", "", INI)
  649. vSock = SockConnect(Host, Port, "SockEvent")
  650. If vSock = 0 Then
  651. SpreadFlagMessage 0, "+m", "5*** StreamScript: Couldn't create socket"
  652. TimedCommand "GetNews", 30
  653. End If
  654. End Sub
  655.  
  656. Sub SockEvent(vSock, SEvent, SData)
  657. Dim Header2
  658.  
  659. Select Case SEvent
  660. Case SE_ConnectFailed
  661. SpreadFlagMessage 0, "+m", "5*** ShoutCast: Connection to " & StreamHost & " failed"
  662. TimedCommand "GetNews", 30
  663. Case SE_Connected
  664. SockWrite vSock, "GET /" & ReadINIString("Stream", "Page", "", INI) & " HTTP/1.0" & vbCrLf & _
  665. "Accept: text/html" & vbCrLf & _
  666. "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; AnGeL-Bot)" & vbCrLf & vbCrLf
  667. Case SE_Read
  668. Recieved = Recieved & SData
  669. Case SE_Closed
  670. If ReadINIString("Setting", "Status", "0", INI) = 0 Then Exit Sub
  671.  
  672. If Not InStr(1, Recieved, "Server is currently down") > 0 Then
  673.  
  674. Recieved = Replace(Recieved, vbCrLf, vbNullString)
  675. Dummy = "Server is currently up"
  676. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  677.  
  678. Dummy = "<font class=default>Stream Status:"
  679. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  680. Dummy = "<font class=default>"
  681. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  682. tmp_Listener = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "</b>") - 1 ))
  683. If DebugIt Then SpreadFlagMessage 0, "+m", "Listener:9 " & tmp_Listener
  684.  
  685. Dummy = "<font class=default>"
  686. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  687. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  688. tmp_Peak = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "</b>") - 1 ))
  689. If DebugIt Then SpreadFlagMessage 0, "+m", "Peak:9 " & tmp_Peak
  690.  
  691. Dummy = "<font class=default>Current Song:"
  692. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  693. Dummy = "<font class=default>"
  694. Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  695. tmp_Song = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "</b>") - 1 ))
  696. If DebugIt Then SpreadFlagMessage 0, "+m", "Song:9 " & tmp_Song
  697. If aktuell < Int(Stream_Peak) Then
  698. If DebugIt Then SpreadFlagMessage 0, "+m", "Peak: Write in INI-Datei"
  699. WriteINIString "Peak", "Peak", Stream_Peak, INIFile
  700. End If
  701.  
  702. Dummy = tmp_Song
  703. If Dummy <> LastNews Then
  704. LastNews = Dummy
  705. If ReadINIString("Setting", "Song", "on", INI) = "on" Then
  706. If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " & Dummy & " :" & "PRIVMSG " & Dummy & " :" & LastNews
  707. If ReadINIString("Setting", "Status", "0", INI) = 0 Then Exit Sub
  708. Channels = ReadINIString("Channels", "Main", "", INI) & " " & ReadINIString("Channels", "Ausgabe", "", INI)
  709. Dummy = Split(Channels, " ")
  710. For i = LBound(Dummy) To UBound(Dummy)
  711. Sendline "PrivMsg " & Dummy(i) & " : 14[3PLAYiNG14] »» 15" & tmp_Song,3
  712. Next
  713. End If
  714. End If
  715. Else
  716. SpreadFlagMessage 0, "+m", "5*** HTML-Page is not Complete and Radio is Offline!"
  717. End If
  718. Recieved = vbNullString
  719.  
  720. TimedCommand "GetNews", 30
  721. End Select
  722. End Sub
  723.  
  724. Sub Advertisment()
  725. Status = ReadINIString("Setting", "Status", "0", INI)
  726. aStatus = ReadINIString("Advertisement", "Status", "on", INI)
  727. If aStatus = "on" Then
  728. If Status = 1 Then
  729. Message = ReadINIString("Advertisement", "Online", "[Keine OnlineWerbung gesetzt]", INI)
  730. Channels = ReadINIString("Channels", "Main", "", INI) & " " & ReadINIString("Channels", "Ausgabe", "", INI)
  731. Dummy = Split(Channels, " ")
  732. For i = LBound(Dummy) To UBound(Dummy)
  733. Sendline "PrivMsg " & Dummy(i) & " : " & ReplaceVars(Message),3
  734. Next
  735. ElseIf Status = 0 Then
  736. Message = ReadINIString("Advertisement", "Offline", "[Keine OfflineWerbung gesetzt]", INI)
  737. Channels = ReadINIString("Channels", "Main", "", INI) & " " & ReadINIString("Channels", "Ausgabe", "", INI)
  738. Dummy = Split(Channels, " ")
  739. For i = LBound(Dummy) To UBound(Dummy)
  740. Sendline "PrivMsg " & Dummy(i) & " : " & ReplaceVars(Message),3
  741. Next
  742. End If
  743.  
  744. aTime = ReadINIString("Advertisement", "Time", "300", INI)
  745. TimedCommand "Advertisment", aTime
  746. ElseIf aStatus = "off" Then
  747. aTime = ReadINIString("Advertisement", "Time", "300", INI)
  748. TimedCommand "Advertisment", aTime
  749. End If
  750. End Sub
  751.  
  752. Sub Countdown()
  753. If Status = True Then
  754. sSec = RemainingSec
  755.  
  756. If sSec <= 2701 And sSec > 1801 Then
  757. Interval = "2700 1800"
  758.  
  759. If InStr(1, Interval, sSec) > 0 Then
  760. nTime = sSec / 60
  761. Sendline "PrivMsg " & aChan & " : Noch " & nTime & " Minuten",3
  762. End If
  763. ElseIf sSec < 901 And sSec > 119 Then
  764. Interval = "900 600 300 240 180 120"
  765.  
  766. If InStr(1, Interval, sSec) > 0 Then
  767. nTime = sSec / 60
  768. Sendline "PrivMsg " & aChan & " : Noch " & nTime & " Minuten",3
  769. End If
  770. ElseIf sSec < 106 And sSec > 74 Then
  771. Interval = "105 90 75"
  772.  
  773. If InStr(1, Interval, sSec) > 0 Then
  774. NewTime sSec
  775. End If
  776. ElseIf sSec < 61 And sSec > 6 Then
  777. Interval = "60 45 30 20 15 10"
  778.  
  779. If InStr(1, Interval, sSec) > 0 Then
  780. Sendline "PrivMsg " & aChan & " : Noch " & sSec & " Sekunden",3
  781. End If
  782. ElseIf sSec < 6 And sSec > 0 Then
  783. Interval = "5 4 3 2 1"
  784.  
  785. If InStr(1, Interval, sSec) > 0 Then
  786. Sendline "PrivMsg " & aChan & " : Noch " & sSec & " Sekunde(n)",3
  787. End If
  788. ElseIf sSec = 0 Then
  789. Sendline "PrivMsg " & aChan & " : Countdown end... go.. go.. go..",3
  790. Status = False
  791. Exit Sub
  792. End If
  793.  
  794. RemainingSec = RemainingSec - 1
  795. If DebugIt Then SpreadFlagMessage 0, "+m", "[" & Time & ":] " & RemainingSec
  796. TimedCommand "Countdown", 1
  797. ElseIf Status = False Then
  798. Exit Sub
  799. End If
  800. End Sub
  801.  
  802. Function NewTopic(Text, Topic)
  803. aTopic = ReadINIString("Topic", "Online", "", INI)
  804. cTopic = ReadINIString("Topic", "Offline", "", INI)
  805. If Topic = 1 Then
  806. Main = ReadINIString("Channels", "Main", "", INI)
  807. Dummy = Split(Main, " ")
  808. For i = LBound(Dummy) To UBound(Dummy)
  809. Sendline "Topic " & Dummy(i) & " : " & ReplaceVars(aTopic),3
  810. Next
  811. ElseIf Topic = 2 Then
  812. Main = ReadINIString("Channels", "Main", "", INI)
  813. Dummy = Split(Main, " ")
  814. For i = LBound(Dummy) To UBound(Dummy)
  815. Sendline "Topic " & Dummy(i) & " : " & ReplaceVars(cTopic),3
  816. Next
  817. End If
  818. End Function
  819.  
  820. Function ReplaceVars(Text)
  821. If InStr(1, LCase(Text), LCase("##DJ##")) > 0 Then
  822. Text = Replace(Text, "##DJ##", ReadINIString("Setting", "DJ", "", INI))
  823. End If
  824. If InStr(1, LCase(Text), LCase("##SENDUNG##")) > 0 Then
  825. Text = Replace(Text, "##SENDUNG##", ReadINIString("Setting", "Sendung", "", INI))
  826. End If
  827. If InStr(1, LCase(Text), LCase("##STREAM##")) > 0 Then
  828. Text = Replace(Text, "##STREAM##", ReadINIString("Stream", "Listen", "", INI))
  829. End If
  830. If InStr(1, LCase(Text), LCase("##HOMEPAGE##")) > 0 Then
  831. Text = Replace(Text, "##HOMEPAGE##", ReadINIString("Stream", "HomePage", "", INI))
  832. End If
  833. If InStr(1, LCase(Text), LCase("##NAME##")) > 0 Then
  834. Text = Replace(Text, "##NAME##", ReadINIString("Stream", "Name", "", INI))
  835. End If
  836. If InStr(1, LCase(Text), LCase("##SONG##")) > 0 Then
  837. Text = Replace(Text, "##SONG##", tmp_Song)
  838. End If
  839. If InStr(1, LCase(Text), LCase("##LISTENER##")) > 0 Then
  840. Text = Replace(Text, "##LISTENER##", tmp_Listener)
  841. End If
  842. If InStr(1, LCase(Text), LCase("##PEAK##")) > 0 Then
  843. Text = Replace(Text, "##PEAK##", tmp_Peak)
  844. End If
  845.  
  846. Status = ReadINIString("Topic", "Status", "on", INI)
  847. If Status = "on" Then
  848. If InStr(1, LCase(Text), LCase("##NEWS##")) > 0 Then
  849. Text = Replace(Text, "##NEWS##", ReadINIString("Topic", "News", "", INI))
  850. End If
  851. End If
  852.  
  853. ReplaceVars = Text
  854. End Function
  855.  
  856. Function ReplaceHTMLCode(Text)
  857. Text = Replace(Text, "<b>", "")
  858. Text = Replace(Text, "</b>", "")
  859. Text = Replace(Text, "<td>", "")
  860. Text = Replace(Text, "</td>", "")
  861. Text = Replace(Text, "<front>", "")
  862. Text = Replace(Text, "</front>", "")
  863. Text = Replace(Text, "<B>", "")
  864. Text = Replace(Text, "</B>", "")
  865. ReplaceHTMLCode = Text
  866. End Function
  867.  
  868. Function Trim3(Text)
  869. Trim3 = Replace(Replace(Trim(Text), " ", " "), " ", " ")
  870. End Function
  871.  
  872. Function NewTime(Text)
  873. Text = Text / 60
  874. nTime = Split(Text, ",")
  875. Mins = nTime(0)
  876. Sec = "0," & nTime(1)
  877. Sec = Sec * 60
  878. Text = Mins & " Minute und " & Round(Sec, 0) & " Sekunden"
  879. If DebugIt Then SpreadFlagMessage 0, "+m", Text
  880. Sendline "PrivMsg " & aChan & " : Noch " & Text,3
  881. End Function
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!