8ball

By Mono on Aug 29, 2007

I'm New Here This is my very First Script so Tell me if you like it..

on *:TEXT:!8ball*:#:{
  /set %8ball $rand(1,6) 
  if (%8ball == 1) .msg $chan 7,1No 
  if (%8ball == 2) .msg $chan 7,1Yes 
  if (%8ball == 3) .msg $chan 8,1Maybe 
  if (%8ball == 4) .msg $chan 8,1Lol No 
  if (%8ball == 5) .msg $chan 8,1Are You Retarted Or Something 
  if (%8ball == 6) /msg $chan 8,1Are You Serious..?
}                

Comments

Sign in to comment.
Akishoot   -  Sep 05, 2007

Mono - As I showed WIRED, there is a wonderful program called mScriptBox 1.20 :3 It has tips on just about all there is to mIRC Scripts. It can be found here: ( http://www.mirc.net/projects.php?go=1102015506&get_desc=1 ) I found this a bit ago and have been using it. :) Hopefully you\'ll reconsider quitting. :)

 Respond  
Mono   -  Sep 05, 2007

I\'m New here so im not good \"ok\" thats why im quiting

 Respond  
napa182   -  Sep 05, 2007

you cant think for Ur self?

 Respond  
Mono   -  Sep 05, 2007

:((((((((((((((((( IM QUITING I CANT MAKE A SCRIPT WITHOUT USING OTHERS D:

 Respond  
guest598594   -  Sep 04, 2007

probably...

 Respond  
napa182   -  Sep 04, 2007

i think he may have took bit\'s from other scripts to make this one

 Respond  
Scakk   -  Sep 04, 2007

Question. Since you ripped your other two snippets Mono did you rip this one as well?

 Respond  
guest598594   -  Sep 04, 2007

ok thanks

 Respond  
napa182   -  Sep 04, 2007

it\'s a temp variable that unsets after each uses

 Respond  
guest598594   -  Sep 04, 2007

wat does that do

 Respond  
napa182   -  Sep 04, 2007

yeah you could do it that way but i would change one thing i would change the set %8ball to var %8ball

 Respond  
guest598594   -  Sep 04, 2007
on *:TEXT:!8ball*:#:{
  set %8ball No|Yes|Maybe|Lol No|Are You Retarded Or Something?|Are you serious...?
  msg $chan 7,1 $gettok(%8ball,$r(1,6),124)
}        

instead of writin to a txt it just picks a random token from the variable :P

 Respond  
Mono   -  Aug 30, 2007

Thank Everyone And Ok Napa

 Respond  
guest598594   -  Aug 30, 2007

well i think what you did is fine for your first snippet, great job!

 Respond  
napa182   -  Aug 30, 2007

Oh heres another way to do it so it loads the txt file when you load the script and you still can add more answers to the txt file by right clicking in the channel. Just to give you an idea on diff ways.

on *:text:!8ball *:%8ballchan: {
  if (%8ball == on) {
    describe %8ballchan Shake\'s Up The 8ball!! 
    .timer 1 1 msg %8ballchan $read(8Ballmessages.txt)
  }
}
on *:load:{
  write 8Ballmessages.txt 7,1No 
  write 8Ballmessages.txt 7,1Yes
  write 8Ballmessages.txt 8,1Maybe 
  write 8Ballmessages.txt 8,1Lol No
  write 8Ballmessages.txt 8,1Are You Retarted Or Something
  write 8Ballmessages.txt 8,1Are You Serious..?
}
menu channel {
  .8Ball
  ..Set Chan:{ set %8ballchan $?\"Enter Channel\" | echo -a Channel Is Set To %8ballchan }
  ..Add Msg:{ write 8Ballmessages.txt $?\"Enter New 8Ball Message\" | echo -a 8Ball Message Has been set }
  ..ON:{ set %8Ball on | echo -a 8Ball Is ON }
  ..OFF:{ unset %8Ball | echo -a 8Ball Is OFF } 
}
 Respond  
Godzilla   -  Aug 29, 2007

Mono, you didn\'t notice what napa182 said, no need of / before /set %8ball $rand(1,6)

 Respond  
Godzilla   -  Aug 29, 2007

Its a nice snippet if your a scripting noob, and oh yeah events have to ended with 2 brackets for example:
.
.
.
if (%8ball == 5) .msg $chan 8,1Are You Retarted Or Something
if (%8ball == 6) /msg $chan 8,1Are You Serious..?
}
}

 Respond  
warrock   -  Aug 29, 2007

It\'s ok for your first script just start looking at others and learning from then and you can learn how to make more complex scripts and more complex games than your 8ball one

 Respond  
napa182   -  Aug 29, 2007

hey Champ hows it going? well i try to help the best i can. I just wanted to show them a diff way of doing this script.

 Respond  
warrock   -  Aug 29, 2007

Lol napa182 you re-write a lot of ppl\'s scripts and help them...btw this is Champ from irc.dejatoons.net

 Respond  
napa182   -  Aug 29, 2007

nice for Ur first scritp but you dont need to use the / and you can also do it this way put the answers in a text file and you can also add more messages to it in the channel menu. Just a thought... But well done on Ur first script.

on *:text:!8ball *:%8ballchan: {
  if (%8ball == on) {
    describe %8ballchan Shake\'s Up The 8ball!! 12\"11,1What Will Be The Answer?12\"
    .timer 1 2 msg %8ballchan $read(8Ballmessages.txt)
  }
}
menu channel {
  .8Ball
  ..Set Chan:{ set %8ballchan $?\"Enter Channel\" | echo -a Channel Is Set To %8ballchan }
  ..Add Msg:{ write 8Ballmessages.txt $?\"Enter New 8Ball Message\" | echo -a 8Ball Message Has been set }
  ..ON:{ set %8Ball on | echo -a 8Ball Is ON }
  ..OFF:{ unset %8Ball | echo -a 8Ball Is OFF } 
}
 Respond  
Mono   -  Aug 29, 2007

I Like It Lol.

 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.