Configurable 8ball
Platform: mIRC
Published Mar 23, 2008
Updated Mar 23, 2008
A simple configurable 8ball that I put together. Simple and easy to use.
;Configurable 8ball
;Made by BlueThen on March 23, 2008.
;To install, copy and paste this script into your Remotes (Alt+R)
;To use, type /8ballconfig or right click a channel or status and click 8ball Config.
menu channel,status {
8ball Config: 8ballconfig
}
alias 8ballconfig {
dialog -m 8ball 8ball
}
on *:dialog:8ball:init:*: {
if %8ball.e == 1 state %8ball.e | did -c 8ball 21
if %8ball.e == 0 did -u 8ball 21
if %8ball.c != $null did -ra 8ball 2 %8ball.c
if %8ball.1 != $null did -ra 8ball 3 %8ball.1
if %8ball.2 != $null did -ra 8ball 6 %8ball.2
if %8ball.3 != $null did -ra 8ball 8 %8ball.3
if %8ball.4 != $null did -ra 8ball 10 %8ball.4
if %8ball.5 != $null did -ra 8ball 12 %8ball.5
if %8ball.6 != $null did -ra 8ball 14 %8ball.6
if %8ball.7 != $null did -ra 8ball 16 %8ball.7
if %8ball.8 != $null did -ra 8ball 18 %8ball.8
}
dialog 8ball {
title "8Ball Config"
size -1 -1 252 401
option pixels notheme
text "8Ball Command:", 1, 14 53 100 17
edit "!8ball", 2, 138 51 100 20, disable autohs
edit "Yes.", 3, 138 113 100 20, disable autohs
text "Answer1:", 4, 14 115 100 17
text "Answer2:", 5, 14 146 100 17
edit "No.", 6, 138 144 100 20, disable autohs
text "Answer3:", 7, 14 177 100 17
edit "I'm unsure.", 8, 138 175 100 20, disable autohs
text "Answer4:", 9, 14 208 100 17
edit "Maybe.", 10, 138 206 100 20, disable autohs
text "Answer5:", 11, 14 239 100 17
edit "Definately not.", 12, 138 237 100 20, disable autohs
text "Answer6", 13, 14 270 100 17
edit "Definately.", 14, 138 268 100 20, disable autohs
text "Answer7:", 15, 14 301 100 17
edit "I cannot answer.", 16, 138 299 100 20, disable autohs
text "Answer8:", 17, 14 332 100 17
edit "Who knows?", 18, 138 330 100 20, disable autohs
button "Done", 19, 173 363 65 25, ok
button "Cancel", 20, 14 363 65 25, cancel
check "Enabled", 21, 98 27 56 17
text "8Ball reply:", 22, 14 84 100 17
edit "[8ball] My answer is:", 23, 138 82 100 20, disable autohs
text "Made by:", 24, 14 5 45 14
button "BlueThen", 25, 173 3 65 18
}
on *:dialog:8ball:sclick:25: run http:\\bluethen.com\
on *:dialog:8ball:sclick:19: {
%8ball.e = $did(21).state
%8ball.r = $did(23)
%8ball.c = $did(2)
%8ball.1 = $did(3)
%8ball.2 = $did(6)
%8ball.3 = $did(8)
%8ball.4 = $did(10)
%8ball.5 = $did(12)
%8ball.6 = $did(14)
%8ball.7 = $did(16)
%8ball.8 = $did(18)
}
on *:text:*:#: {
if ($1 == %8ball.c) {
if (%8ball.e == 1) {
%r = $rand(1,8)
if %r == 1 msg $chan %8ball.r %8ball.1
if %r == 2 msg $chan %8ball.r %8ball.2
if %r == 3 msg $chan %8ball.r %8ball.3
if %r == 4 msg $chan %8ball.r %8ball.4
if %r == 5 msg $chan %8ball.r %8ball.5
if %r == 6 msg $chan %8ball.r %8ball.6
if %r == 7 msg $chan %8ball.r %8ball.7
if %r == 8 msg $chan %8ball.r %8ball.8
}
}
}
on *:dialog:8ball:sclick:21: {
state $did(21).state
}
alias state {
if ($1 == 1) {
did -e 8ball 2
did -e 8ball 3
did -e 8ball 6
did -e 8ball 8
did -e 8ball 10
did -e 8ball 12
did -e 8ball 14
did -e 8ball 16
did -e 8ball 18
did -e 8ball 23
}
else {
did -b 8ball 2
did -b 8ball 3
did -b 8ball 6
did -b 8ball 8
did -b 8ball 10
did -b 8ball 12
did -b 8ball 14
did -b 8ball 16
did -b 8ball 18
did -b 8ball 23
}
}
