Uh i got bored so i made a easy truth or dare script using $read(text.txt) or truth and dare
Just need to Actually make the text files, /write truth.txt Truth question here - /write dare.txt Dare Here
Since it was made out of boredom, its repetitive and no anti flood was added, but il make 1 if requested?
Need to make the txts for it to work im guessing,
;For the truth type .truth person
on $*:TEXT:/^[!@.]Truth/Si:#:{
if ($2- !ison $chan) { notice $nick Please Specify a Person | halt }
msg # $2- $+ , Is it True That $read(Truth.txt) $+ ?
}
;Dare type .dare person
on $*:TEXT:/^[!@.]Dare/Si:#:{
if ($2- !ison $chan) { notice $nick Please Specify a Person | halt }
msg # $2- $+ , I Dare you to $read(Dare.txt) $+ !!
}
;REMEMBER YOU NEED TO MAKE YOUR OWN TRUTH/DARES :p
here is a fast edit to one text event this is only an example nothing more...
on $*:TEXT:/^@(Truth|Dare)?\s?(\S+)/Si:#:{
if (!%td) { inc -u4 %td
if ($regml(2) !ison #) { .notice $nick Please Specify a Person }
else {
msg # $regml(2) $+ , $iif($regml(1) = Truth,Is it True That,I Dare you to) $read($+($regml(1),.txt))
}
}
}
you may want to add a flood too that
on $*:TEXT:/^[!@.]Truth/Si:#:{
if (!%tru) {
inc -u4 %tru
if ($2- !ison $chan) { notice $nick Please Specify a Person | halt }
msg # $2- $+ , Is it True That $read(Truth.txt) $+ ?
}
}
and then do the same thing for dare
on $*:TEXT:/^[!@.]Dare/Si:#:{
if (!%dar) {
inc -u4 %dar
if ($2- !ison $chan) { notice $nick Please Specify a Person | halt }
msg # $2- $+ , I Dare you to $read(Dare.txt) $+ !!
}
}