rendered paste bodymenu * {
0's and X's:/dialog -md oxstart oxstart
}
dialog oxstart {
title "0's and X's "
size -1 -1 180 90
option dbu
check "Heads", 1, 52 17 29 10
check "Tails", 2, 24 17 24 10
check "Start", 3, 98 17 26 10
check "Second", 4, 124 17 31 10
button "Flip the coin!", 5, 94 35 65 31, ok cancel
box "Which side?", 6, 17 8 67 23
box "First or second?", 7, 93 8 67 23
box "", 8, 6 1 165 71
text "Made by Oliver", 9, 91 75 40 8
button "Close", 10, 46 73 37 12, cancel
box "0 or X?", 11, 17 37 67 23
check "0", 12, 24 46 16 10
check "X", 13, 52 46 16 10
}
on *:dialog:oxstart:sclick:5,1,2,3,4:{
if ($did == 5) {
if ($did($dname,12).state == 1) {
set %icon 0
set %iconcomp X
}
else {
set %icon X
set %iconcomp 0
}
if ($did($dname,1).state == 1) {
set %side heads
}
else {
set %side tails
}
if ($did($dname,3).state == 1) {
set %start start
}
else {
set %start second
}
/dialog -md winlosetoss winlosetoss
set %rand $rand(1,2)
if (%rand == 1) {
set %answer win
}
else {
set %answer lose
if (%icon == 0) {
set %icon X
set %iconcomp 0
}
else {
set %icon 0
set %iconcomp X
}
if (%side == heads) {
set %side tails
}
else {
set %side heads
}
if (%start == start) {
set %start second
}
else {
set %start start
}
}
}
elseif ($did == 1) { /did -u oxstart 2 }
elseif ($did == 2) { /did -u oxstart 1 }
elseif ($did == 3) { /did -u oxstart 4 }
elseif ($did == 4) { /did -u oxstart 3 }
}
on *:dialog:oxstart:sclick:12:{
/did -u oxstart 13
}
on *:dialog:oxstart:sclick:13:{
/did -u oxstart 12
}
dialog winlosetoss {
title "0's and X's"
size -1 -1 120 68
option dbu
text "", 1, 26 11 67 8
text "", 2, 48 28 0 8
box "", 3, 5 2 110 53
text "Made by Oliver", 4, 43 57 38 8
button "Start", 5, 21 38 38 13, ok cancel
button "Close", 6, 62 38 38 13, cancel
}
on *:dialog:winlosetoss:init:*:{
if (%answer == win) {
set %turn me
/did -ar winlosetoss 1 You have WON the toss!
}
else {
set %turn comp
/did -ar winlosetoss 1 You have LOST the toss :(
}
}
on *:dialog:winlosetoss:sclick:5:{
/dialog -md oxmain oxmain
}
dialog oxmain {
title "0's and X's"
size -1 -1 189 200
option dbu
box "", 10, 6 4 176 172
edit "", 11, 60 182 70 10
text "Made by Oliver", 12, 135 183 40 8
button "Close", 9, 14 181 37 12, cancel
icon 13, 16 14 46 46
icon 1, 70 14 46 46
icon 2, 124 14 46 46
icon 3, 16 67 46 46
icon 4, 70 67 46 46
icon 5, 124 67 46 46
icon 6, 16 121 46 46
icon 7, 70 121 46 46
icon 8, 124 121 46 46
box "", 14, 66 10 2 160
box "", 15, 120 10 2 160
box "", 16, 13 60 162 5
box "", 17, 13 114 162 5
}
on *:dialog:oxmain:init:*:{
/did -m oxmain 11
/did -g oxmain 13,1,2,3,4,5,6,7,8 "C:\Program Files\mIRC\0's and X's\blank.bmp"
if (%turn == me) {
/write -c squares.txt
/did -ar oxmain 11 Your Turn!
write squares.txt 1
write squares.txt 2
write squares.txt 3
write squares.txt 4
write squares.txt 5
write squares.txt 6
write squares.txt 7
write squares.txt 8
write squares.txt 9
}
elseif (%turn == comp) {
/did -ar oxmain 11 Computer's Turn
/write -c squares.txt
write squares.txt 1
write squares.txt 2
write squares.txt 3
write squares.txt 4
write squares.txt 5
write squares.txt 6
write squares.txt 7
write squares.txt 8
write squares.txt 9
set %rand2 $rand(1, $+ $lines(squares.txt))
if ($read(squares.txt,%rand2)) && (%rand2 isnum) {
if (%rand2 == 1) { /did -g oxmain 13 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 2) { /did -g oxmain 1 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 3) { /did -g oxmain 2 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 4) { /did -g oxmain 3 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 5) { /did -g oxmain 4 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 6) { /did -g oxmain 5 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 7) { /did -g oxmain 6 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 8) { /did -g oxmain 7 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
elseif (%rand2 == 9) { /did -g oxmain 8 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" }
set %turn me
/write -ds $+ %rand2 squares.txt
/did -ar oxmain 11 Your Turn!
/write -dl $+ $calc($lines(squares.txt) + 1) squares.txt
}
else {
/comp
}
}
}
alias comp {
set %temp $lines(squares.txt)
/did -ar oxmain 11 Computer's Turn
set %rand2 $rand(1,%temp)
if ($read(squares.txt,%rand2)) && (%rand2 isnum) {
if (%rand2 == 1) { /did -g oxmain 13 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 13 computer }
elseif (%rand2 == 2) { /did -g oxmain 1 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 1 computer }
elseif (%rand2 == 3) { /did -g oxmain 2 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 2 computer }
elseif (%rand2 == 4) { /did -g oxmain 3 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 3 computer }
elseif (%rand2 == 5) { /did -g oxmain 4 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 4 computer }
elseif (%rand2 == 6) { /did -g oxmain 5 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 5 computer }
elseif (%rand2 == 7) { /did -g oxmain 6 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 6 computer }
elseif (%rand2 == 8) { /did -g oxmain 7 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 7 computer }
elseif (%rand2 == 9) { /did -g oxmain 8 "C:\Program Files\mIRC\0's and X's\ $+ %iconcomp $+ .bmp" | /wincheck 8 computer }
set %turn me
/did -ar oxmain 11 Your Turn!
/write -ds $+ %rand2 squares.txt
/write -dl $+ $calc($lines(squares.txt) + 1) squares.txt
}
else {
/comp
}
}
alias wincheck {
if ($2 == computer) {
set %checkicon %iconcomp
set %resultperson computer
}
else {
set %checkicon %icon
set %resultperson me
}
if ($1 == 13) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,1)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,3)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 1) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,7)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 2) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,1)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,5)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 3) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,5)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 4) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,3)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,5)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 5) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,3)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 6) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,3)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,7)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 7) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,8)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
elseif ($1 == 8) {
if (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,5)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,2)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,7)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,6)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
elseif (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,4)) && (*C:\Program Files\mIRC\0's and X's\ $+ %checkicon $+ .bmp* iswm $did(oxmain,13)) {
set %result win
/dialog -md youwinlose youwinlose
.timer 1 3 /dialog -x oxmain oxmain
}
}
}
on *:dialog:oxmain:sclick:13,1,2,3,4,5,6,7,8:{
if (%turn == me) {
if ($did(oxmain,$did) == 0 C:\Program Files\mIRC\0's and X's\blank.bmp) {
/did -g oxmain $did "C:\Program Files\mIRC\0's and X's\ $+ %icon $+ .bmp"
if ($did == 13) { /write -ds $+ 1 squares.txt /wincheck 13 me }
elseif ($did == 1) { /write -ds $+ 2 squares.txt | /wincheck 1 me }
elseif ($did == 2) { /write -ds $+ 3 squares.txt | /wincheck 2 me }
elseif ($did == 3) { /write -ds $+ 4 squares.txt | /wincheck 3 me }
elseif ($did == 4) { /write -ds $+ 5 squares.txt | /wincheck 4 me }
elseif ($did == 5) { /write -ds $+ 6 squares.txt | /wincheck 5 me }
elseif ($did == 6) { /write -ds $+ 7 squares.txt | /wincheck 6 me }
elseif ($did == 7) { /write -ds $+ 8 squares.txt | /wincheck 7 me }
elseif ($did == 8) { /write -ds $+ 9 squares.txt | /wincheck 8 me }
set %turn comp
/write -dl $+ $lines(squares.txt) squares.txt
.timer 1 1 /comp
/did -ar oxmain 11 Computer's Turn
}
}
}
dialog youwinlose {
title "0's and X's"
size -1 -1 113 60
option dbu
text "", 1, 16 13 82 8
button "New Game!", 2, 16 29 37 12, ok cancel
button "Close", 3, 61 29 37 12, cancel
box "", 4, 7 5 100 42
text "Made by Oliver", 5, 39 49 38 8
}
on *:dialog:youwinlose:init:*:{
if (%resultperson == me) {
/did -ar youwinlose 1 Congratualtions you've WON!!
}
else {
/did -ar youwinlose 1 Oh dear you lost :(
}
}
on *:dialog:youwinlose:sclick:2:{
/dialog -ms oxstart oxstart
}