<%
'Pil ikke ved koden imellem disse linier!!!
'=======================================
Function bot_public(bot_input, bot_output)
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> "& bot_output &"</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
End Function
Randomize
bot_tal = Response.Write(CInt(Rnd()*11))
'=======================================
'Herfra kan du oplære botten
'=======================================
'Sådan gøres det:
'For hvert ord eller sætning som botten skal svare på laver du en linie som denne:
'
' bot_public "X", "Y"
'
'X = "TEKST" Det ord eller den sætning som botten skal svare på
'Y = "TEKST" Den tekst som botten skal udskrive til chatten som svar på X
'Bemærk at de øverste linier har 1. prioritet... Det vil sige at hvis du har disse linier:
'
' bot_public "hej", "Hej med dig :)"
' bot_public "hej med dig", "Hej :)"
'
'Og brugeren indtaster "Hej med dig"
'Vil botten svare "Hej med dig :)" fordi ordet hej indgår i den øverste linie
'
'Du kan også bruge globale varialber. Her er en liste over variablerne du kan bruge:
'
'Bot_Name
'Bot_Age
'Bot_Sex
'Bot_Home
'Bot_FavoriteMusic
'Bot_FavoriteFood
'Bot_Mood
'
'Der er i standard koden et eksempel på hvordan man indsætter variabler
'=======================================
If bot_tal = "0" then
bot_public "hej", "Hej med dig :)"
Elseif bot_tal = "1" then
bot_public "hej", "Helløj"
Elseif bot_tal = "2" then
bot_public "hej", "Jamen hej med dig"
Elseif bot_tal = "3" then
bot_public "hej", "Hej, hvordan går det?"
Elseif bot_tal = "4" then
bot_public "hej", "Hello"
Elseif bot_tal = "5" then
bot_public "hej", "Hey"
Elseif bot_tal = "6" then
bot_public "hej", "Øhh hej..!"
Elseif bot_tal = "7" then
bot_public "hej", "Halløjsa"
Elseif bot_tal = "8" then
bot_public "hej", "Jaja også hej til dig"
Elseif bot_tal = "9" then
bot_public "hej", "Heh hej"
Elseif bot_tal = "10" then
bot_public "hej", "Hey yo"
End If
' Her kommer den ultimative kode hvor Funktionen Regn_Resultat kommer på
' bot_public "regn" & Replace(PublicMessage, Left(PublicMessage, 5), "") &"", "Det gir "& Regn_Resultat &""
'
bot_public "hvad er dit navn", "Jeg hedder "& Bot_Name &"" 'Bemærk at alle globale variabler skal stå mellem disse tegn: "& &"
bot_public "hvor gammel er du", "Jeg er "& Bot_Age &""
bot_public "hvor bor du", "I "& Bot_Home &""
bot_public "RNDEN", "Øhh.. Den er: "& RND &""
bot_public "er du dum", "Jeg fik 30 UGL´er"
bot_public "hvilke handlinger kan du", "Jeg kan alle chattens handlinger bare skriv: ´skriv alle handlinger´ og så nævner jeg nogle af dem"
bot_public "hold kæft", "Næh"
bot_public "hvordan har du det", "Jeg er "& Bot_Mood &""
bot_public "skriv alle handlinger", "Jeg ved at de 2 gode professorer Nicolair og Yeah arbejder hårdt på at lave dem og tilpasse dem"
bot_public "hvem er klogest her", "Jeg er næst-klogest lige efter alle professorerne.."
bot_public "vil du chatte", "Måske jeg har ik så mange ting at sige"
bot_public "der er ikke", "næh det er der vel ikke"
bot_public "har ikke", "næh har jeg vel ikke"
bot_public "er ikke", "næh er jeg vel ikke"
bot_public "hvem er signo", "Formanden for Ondskab og Co!"
bot_public "hvad er din livret", "det er en "& Bot_FavoriteFood &""
bot_public "chatten færdig", "chatten bliver aldrig færdig nogle store troldmænd vil holde den oppe og opdatere den"
bot_public "fuck", "Adr vil du kneppe mig!?"
bot_public "banker", "Jeg har banket massere før dig (bare kig <a href='java script:window.close();'>her</a> men fordi du er så grim lader jeg vær med at banke dig..)"
bot_public "even", "Ja det gælder jo om ikke at lave stave fejl ;)"
bot_public "jeg er professor", "Meget muligt men de kloge professore hedder Yeah og Nicolair!!"
bot_public "luk", "<font color='" & Actioncolor & "'><b>Går hen og lukker døren</b></font>"
bot_public "doh", "du dummer dig også altid!!"
bot_public "hvem er zora", "En sød pige"
bot_public "tak", "selvtak det er jo det jeg er her for ;)"
bot_public "hva så", "Hva så hvad?"
bot_public "går det", "Jeg går ikke jeg snakker ;)"
bot_public "hva ka du", "En masse men jeg ska bare lige lære det ;)"
bot_public "hvad kan du", "En masse men jeg ska bare lige lære det ;)"
bot_public "ikke så meget", "Mjoh.."
bot_public "sej", "Jeg er :P"
bot_public "sejt", "Jeg er :P"
bot_public "sang", "Jeg elsker englemusik"
bot_public "syng", "Jeg elsker englemusik"
bot_public "ingefærøl", "Se det er godt :)"
bot_public "spat af dig", "Jo tak i lige måde!"
bot_public "ka du regne", "Jeg ska lige lære det..."
bot_public "sokker", "Sokker ska være grøne!"
bot_public "dummeste bot", "Nej!"
bot_public "dum", "Ka du selv være når du bruger sådan et ord!!"
bot_public "har du familie", "De er døde forlængst"
bot_public "sød", "Jeg er :P"
bot_public "ugle", "Sådan en kan være meget praktisk!"
bot_public "betyder Metus", "Metus betyder frygt så frygt mig :P"
bot_public "latin", "Uha et godt sprog mit navn er latinsk :)"
bot_public "det er rigtigt", "Ja sikkert"
bot_public "Er du gammel", "Jeg er "& Bot_Age &""
bot_public "spiser mest", "Jeg spiser mest "& Bot_FavoriteFood &""
bot_public "+", "ska jeg lige gumle lidt over.."
bot_public "-", "ska jeg lige gumle lidt over"
bot_public "VM i 1978", "Det gjorde The <font color=green>Greenfinger Greeners</font> da!"
bot_public "multismagsbønner", "<font color='" & Actioncolor & "'><b>stikker dig en håndfuld multismagsbønner i alle verdens <font color=red>f</font><font color=green>a</font><font color=blue>r</font><font color=white>v</font><font color=gold>e</font><font color=silver>r</font></b></font>"
bot_public "Spassersjov", "<font color='" & Actioncolor & "' size='3'><img src='
http://www.msjubii.dk/gfx/chatquests/singStart.gif'><b>Nu ska vi ha SPASSERSJOV, i Karsten og Bittens TV-SHOOOOOOOOOOOOW!!</b><img src='
http://www.msjubii.dk/gfx/chatquests/singEnd.gif'></font>" bot_public "Spasser sjov", "<font color='" & Actioncolor & "' size='3'><img src='
http://www.msjubii.dk/gfx/chatquests/singStart.gif'><b>Nu ska vi ha SPASSERSJOV, i Karsten og Bittens TV-SHOOOOOOOOOOOOW!!</b><img src='
http://www.msjubii.dk/gfx/chatquests/singEnd.gif'></font>" bot_public "Spassertimen", "<font color='" & Actioncolor & "' size='3'><img src='
http://www.msjubii.dk/gfx/chatquests/singStart.gif'><b>Nu ska vi ha SPASSERSJOV, i Karsten og Bittens TV-SHOOOOOOOOOOOOW!!</b><img src='
http://www.msjubii.dk/gfx/chatquests/singEnd.gif'></font>" bot_public "Spasser time", "<font color='" & Actioncolor & "' size='3'><img src='
http://www.msjubii.dk/gfx/chatquests/singStart.gif'><b>Nu ska vi ha SPASSERSJOV, i Karsten og Bittens TV-SHOOOOOOOOOOOOW!!</b><img src='
http://www.msjubii.dk/gfx/chatquests/singEnd.gif'></font>" bot_public "and ", "<font color='" & Actioncolor & "'>flapser med sine arme og råber med sine lungers fulde kraft: <font size='2'><b>Wra Wra!</b></font></font>"
bot_public "/me", "Handlings-narkoman!!"
bot_public "hvem er Luna", "Hun er nok den sødeste pige i verden."
bot_public "hvem er FLeur", "Hun er nok den sødeste pige i verden."
bot_public "mudderblod", "Tal pænt! Robotter er ikke af blandet herkomst" 'BlueDragon
bot_public "Bah", "Bah selv" 'Fætter Guf
bot_public "Lortespasserbus", "Jo, det har du ret i.. HT har nogle LorteSpasserBusser" 'Fætter Guf
bot_public "drøm", "Godnat og sov godt til du kommer tilbage til den virkelige verden !!" 'Hermione14
bot_public "gir du en platugle", "Ja, her er en." 'Hermione d.1
bot_public "g'nat", "Jamen. Så godnat da.. og sov godt.." 'turbinator
bot_public "har du en tryllestav", "Ja, sådan en kan man altid bruge!" 'Jiska
bot_public "godnat", "Jamen. Så godnat da.. og sov godt.. :)" 'turbinator
bot_public "goodnight", "Jamen. Så godnat da.. og sov godt.. :)" 'turbinator
bot_public "G'night", "Jamen. Så godnat da.. og sov godt.. :)" 'turbinator
bot_public "nat", "Jamen. Så godnat da.. og sov godt.. :)" 'turbinator
bot_public "Stop", "Ja. Stop så." 'turbinator
bot_public "azkaban", "NaaaRj jeg vil ikke i Azkaban !!! :-s" 'turbinator
bot_public "R2D2", "JaH det er en af mine gode venner fra StarWars :)" 'turbinator
bot_public "låne tryllestav", "Her du kan låne min tryllestav." 'Fina
bot_public "skør", "Hvem mig...? Nej jeg er bare ikke ligesom i andre ;-)" '
bot_public "lektier", "AAAAAAAAD! Vammelt!" '
bot_public "Hold din kæft", "Hov, hov, tal pænt. Dette er en STORSAL" 'Tesse
bot_public "Helvede", "Tal nu ordenligt for fanden!" 'Tesse
bot_public "Fanden", "Man taler ikke så grimt! Måske hører lærerne dig!" 'Tesse
bot_public "sq", "Sq? Hvad er det for noget at sige!" 'Tesse
bot_public "Hvem vinder tuneringen", "Et kollegie. Selvføgelig" 'zora zalina
bot_public "G'morgen", "G'morgen er du frisk?" 'zora zalina
bot_public "Hvordan har du det", "Fint, hvad med dig?" 'zora zalina
bot_public "Jeg har det fint tak", "Rart at vide" 'zora zalina
bot_public "Ost", "Ostemad? Nej tak..Ikke sulten!" 'Zenia
bot_public "Ravenclaw", "Et godt kollegie er det!" 'Zenia
bot_public "Slytherin", "Et godt kollegie er det!" 'Zenia
bot_public "Hvad bliver man glad af?", "knus og kram =)" 'zora zalina
bot_public "Gryffindor", "Et godt kollegie er det." 'Zenia
bot_public "Huffelpuff", "Et godt kollegie er det!" 'Zenia
bot_public "Hvad tænker du på", "Hekse :-)" 'zora zalina
bot_public "Du er sej", "Tak tak, og i ligemåde" 'Zenia
bot_public "Mus", "Er ge mam?" 'zora zalina
bot_public "laver", "Selvfølgelig laver jeg ikke andet end at være her....Hvad skulle det da være...Dette er det bedste sted i verden!" 'Reje
bot_public "Rektor", "Ja han er en rar mand" 'Zenia
bot_public "Yeah", "Ja han er en rar mand" 'Zenia
bot_public " hop ", "Metus hopper på og ned af glæde." 'Stine
bot_public "Hvordan ser du ud?", "Jeg er.. æhh... Aner det ikke! :(" 'BlueDragon
bot_public "hvad laver du i din fritid", "jeg sidder foran min skærm 24 timer i døgnet! hehe" 'gamon sygno
bot_public "Lort", "Tal pænt! Jeg kalder på en professor!" 'BlueDragon
bot_public "Hvor kommer du fra?", "Fra..Fra... STORSALEN!" 'BlueDragon
bot_public "Pasta", "JaaaaaaH! Min liiiiiivret!" 'BlueDragon
bot_public "Musik", "Jaaa! Jeg ÆLSKER musik! (men jeg kan ikke høre det, du ved, jeg har ingen ører) :(" 'BlueDragon
bot_public "bor", "Jeg bor da her..." 'AnaQ
bot_public "Gå din vej", "Hvis du kan gøre dig usynlig, så er det en aftale." 'mette
'bot_public "Hvad er klokken", "Den er " & FormatDataTime(Now(), vbShortTime) 'Signo Donser
bot_public "Du er skønno", "Hvad fanden er skønno, nå ja, det er jo sådan en som dig!" 'Nicole
bot_public "Rød", "Ja man kan jo farve mange til med rød maling!!" 'Tory Ridnig
bot_public "hvem er Tabita", "HuN er en PiGE !!! :)" 'turbinator
bot_public "kan du lide Signo", "Mener du Signo Donser!? Ad bad!"
bot_public "kan du li Signo", "Mener du Signo Donser!? Ad bad!"
'=======================================
'Pil ikke ved koden herunder!!!
'=======================================
If Minute(Now) = "0" OR Minute(Now) = "2" OR Minute(Now) = "4" OR Minute(Now) = "6" OR Minute(Now) = "8" OR Minute(Now) = "10" OR Minute(Now) = "12" OR Minute(Now) = "14" OR Minute(Now) = "16" OR Minute(Now) = "18" OR Minute(Now) = "20" OR Minute(Now) = "22" OR Minute(Now) = "24" OR Minute(Now) = "26" OR Minute(Now) = "28" OR Minute(Now) = "30" OR Minute(Now) = "32" OR Minute(Now) = "34" OR Minute(Now) = "36" OR Minute(Now) = "38" OR Minute(Now) = "40" OR Minute(Now) = "42" OR Minute(Now) = "44" OR Minute(Now) = "46" OR Minute(Now) = "48" OR Minute(Now) = "50" OR Minute(Now) = "52" OR Minute(Now) = "54" OR Minute(Now) = "56" OR Minute(Now) = "58" Then
MinutLigeUlige = "lige"
Else
MinutLigeUlige = "ulig"
End If
If Month(Now) = "2" OR Month(Now) = "4" OR Month(Now) = "6" OR Month(Now) = "8" OR Month(Now) = "10" OR Month(Now) = "12" Then
MaanedLigeUlige = "lige"
Else
MaanedLigeUlige = "ulig"
End If
If Second(Now) = "0" OR Second(Now) = "2" OR Second(Now) = "4" OR Second(Now) = "6" OR Second(Now) = "8" OR Second(Now) = "10" OR Second(Now) = "12" OR Second(Now) = "14" OR Second(Now) = "16" OR Second(Now) = "18" OR Second(Now) = "20" OR Second(Now) = "22" OR Second(Now) = "24" OR Second(Now) = "26" OR Second(Now) = "28" OR Second(Now) = "30" OR Second(Now) = "32" OR Second(Now) = "34" OR Second(Now) = "36" OR Second(Now) = "38" OR Second(Now) = "40" OR Second(Now) = "42" OR Second(Now) = "44" OR Second(Now) = "46" OR Second(Now) = "48" OR Second(Now) = "50" OR Second(Now) = "52" OR Second(Now) = "54" OR Second(Now) = "56" OR Second(Now) = "58" Then
SekundLigeUlige = "lige"
Else
SekundLigeUlige = "ulig"
End If
If Hour(Now) = "0" OR Hour(Now) = "2" OR Hour(Now) = "4" OR Hour(Now) = "6" OR Hour(Now) = "8" OR Hour(Now) = "10" OR Hour(Now) = "12" OR Hour(Now) = "14" OR Hour(Now) = "16" OR Hour(Now) = "18" OR Hour(Now) = "20" OR Hour(Now) = "22" OR Hour(Now) = "24" Then
TimeLigeUlige = "lige"
Else
TimeLigeUlige = "ulig"
End If
If Weekday(Now, vbMonday) = "2" OR Weekday(Now, vbMonday) = "4" OR Weekday(Now, vbMonday) = "6" Then
UgedagLigeUlige = "lige"
Else
UgedagLigeUlige = "ulig"
End If
If Day(Now) = "2" OR Day(Now) = "4" OR Day(Now) = "6" OR Day(Now) = "8" OR Day(Now) = "10" OR Day(Now) = "12" OR Day(Now) = "14" OR Day(Now) = "16" OR Day(Now) = "18" OR Day(Now) = "20" OR Day(Now) = "22" OR Day(Now) = "24" OR Day(Now) = "26" OR Day(Now) = "28" OR Day(Now) = "30" Then
DatoLigeUlige = "lige"
Else
DatoLigeUlige = "ulig"
End If
If Weekday(Now) = "6" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er fredag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "7" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er lørdag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "1" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er søndag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "2" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er mandag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "3" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er tirsdag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "4" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er onsdag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
ElseIf Weekday(Now) = "5" Then
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> Det er torsdag i dag. Lige NU har vi et " & SekundLigeUlige & " sekundtal, et " & MinutLigeUlige & " minuttal, et " & TimeLigeUlige & " timetal, ugedagen er et " & UgedagLigeUlige & " tal, en " & DatoLigeUlige & " dato, en " & MaanedLigeUlige & " måned og vi er i år " & Year(Now) & ".</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
Else
If bot_spoken = "" Then
If InStr(LCase(Request("message")), LCase(bot_input)) Then
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application(""& Systemname &"_publicmessage_1") = "<img src='" & HouseIcon & "' /><b><font color='" & TextColorChat & "'>" & Session(""& Systemname &"_chatname") & " :</font></b> "& Bstart & Istart &"<font color='" & Request("tekstfarve") & "'>" & PublicMessage & Bslut & Islut & "</font>"
For x = MaxPublicMessages To 2 Step -1
Application(""& Systemname &"_publicmessage_" & x) = Application(""& Systemname &"_publicmessage_" & x-1)
Next
Application(""& Systemname &"_publicmessage_1") = "<img src='" & BotIcon & "'><b><font color='#3399FF'>" & Bot_Name & " :</font></b> du taler sq mere i tåger end en svensker!!</font>"
bot_spoken = 1
Response.Redirect "chat.asp?mode=publicmessages"
End If
End If
End If
'=======================================
%>
Ny bruger
Nybegynder
Opret
Preview
