Mentos3
#0
hej folkens, jeg er ved at udbygge mit samurize config lidt,
og er også næsten færdig med det.
så faldt jeg over "kaptajnens skældsordsliste" som er en masse skældsord:e
jeg ville så lave et script der gjorde at den automatisk trak et nyt ord fre hvert
30sekund(ca)...
indtil viderer har jeg fået lavet en der hedder:
------------------------------------------------
Function Skældsordsliste
Skældsordsliste = "Din Bølle!"
End Function
------------------------------------------------
det er kodet i VBScript format, hvis det er af nogen betydning...
men det er jo kun et ord, og den kan jo ikke skifte noget der...
er der mon nogen som kan give mig et praj i den rigtigeretning..? ?:(
Mentos/The Freshmaker ;)
og er også næsten færdig med det.
så faldt jeg over "kaptajnens skældsordsliste" som er en masse skældsord:e
jeg ville så lave et script der gjorde at den automatisk trak et nyt ord fre hvert
30sekund(ca)...
indtil viderer har jeg fået lavet en der hedder:
------------------------------------------------
Function Skældsordsliste
Skældsordsliste = "Din Bølle!"
End Function
------------------------------------------------
det er kodet i VBScript format, hvis det er af nogen betydning...
men det er jo kun et ord, og den kan jo ikke skifte noget der...
er der mon nogen som kan give mig et praj i den rigtigeretning..? ?:(
Mentos/The Freshmaker ;)
#1
Jeg ville nok lave noget med et array, en tælle variabel og en random på den tællevariabel...
Hvis det ellers giver mening?
Function get_rnd_wrd()
Dim liste, count
liste(0) = "lalala"
liste(1) = "lalalala"
liste(2) = "lalalalala"
RANDOMIZE
count = Int(2*rnd)
get_rnd_wrd = liste(count)
End Function
Utestet script, så der er nok lige et par ting der ikke virker...
Hvis det ellers giver mening?
Function get_rnd_wrd()
Dim liste, count
liste(0) = "lalala"
liste(1) = "lalalala"
liste(2) = "lalalalala"
RANDOMIZE
count = Int(2*rnd)
get_rnd_wrd = liste(count)
End Function
Utestet script, så der er nok lige et par ting der ikke virker...
#2
nu har jeg prøvet mig lidt frem med det du skrev, men jeg kan´ikke rigtig få noget til at virke.... :(
og det skal nok siges at jeg er rimelig ny inden for script kodning... jeg har en smule erfaring inden for HTML, men det hjælper mig jo ikke rigtig her...
så du bliver nok nød til at skære det lidt mere ud for mig... :i
og det skal nok siges at jeg er rimelig ny inden for script kodning... jeg har en smule erfaring inden for HTML, men det hjælper mig jo ikke rigtig her...
så du bliver nok nød til at skære det lidt mere ud for mig... :i
#3
Function get_rnd_wrd()
Dim count
'opret variabel til at finde den tråd der skal udskrives
Dim liste(2)
'opret det array som skal indeholde trådende
'tallet angiver hvor mange forskellige tråde der kan være (1+tallet = antal tråde)
'liste (data)
liste(0) = "(0)lalala"
liste(1) = "(1)lalalala"
liste(2) = "(2)lalalalala"
'initialiser random generator
RANDOMIZE
'læg en tilfældig værdi mellem 0 og [tal der ganges med rnd]-1 (i dette tilfælde mellem 0 og 2)
count = Int(3*rnd) 'tallet her angiver det totalte antal af forskellige ting der kan vælges imellem.
'lad funktionen returnere den tilfældige streng
get_rnd_wrd = liste(count)
End Function
Dim count
'opret variabel til at finde den tråd der skal udskrives
Dim liste(2)
'opret det array som skal indeholde trådende
'tallet angiver hvor mange forskellige tråde der kan være (1+tallet = antal tråde)
'liste (data)
liste(0) = "(0)lalala"
liste(1) = "(1)lalalala"
liste(2) = "(2)lalalalala"
'initialiser random generator
RANDOMIZE
'læg en tilfældig værdi mellem 0 og [tal der ganges med rnd]-1 (i dette tilfælde mellem 0 og 2)
count = Int(3*rnd) 'tallet her angiver det totalte antal af forskellige ting der kan vælges imellem.
'lad funktionen returnere den tilfældige streng
get_rnd_wrd = liste(count)
End Function
#4
skulle måske lige sige at det script der kun kan generere en tilfældig tråd og ikke finde ud af at gøre det hver 30-sekund...