Truth or dare

By Epic on May 01, 2011

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

Comments

Sign in to comment.
Epic   -  Jun 21, 2011

@h20 you only really need to do the /write for the first time, other then that, you can do /run text.txt and do it like that, alot quicker and can add in alot at once if you find a good site :p

 Respond  
xbox_gamer1   -  Jun 20, 2011

@H2O
for

$read(text.txt)

yes you do haft to write a file in notepad
if the scripte does not work use the code up there

 Respond  
H2O   -  Jun 20, 2011

can someone please explane $read(text.txt) do i have to put /write dare.txt Dare Here in each line of the txt or what? im trying to get this to work on my network

 Respond  
Epic   -  May 02, 2011

Thanks lol, like i said it was something out of boredom to do, but i never thought of using napas idea, Thanks i might incorporate those methods into future posts :)

and to xbox, like in description i mentioned there wasnt because of pure simplicity/boredon, but thanks for the post :)

 Respond  
napa182   -  May 01, 2011

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)) 
    }
  }
}
 Respond  
xbox_gamer1   -  May 01, 2011

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) $+ !!
  }
}
 Respond  
napa182   -  May 01, 2011

um if you are going to use regex in ur on text trigger then why not use only one on text event...Also why so many triggers ie: !@. kinda pointless if they all do the same thing.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.