dialog duelrequest {
title "Demon's Duel Requester"
size -1 -1 200 220
option dbu
text "Please fill out the following form: ", 1, 10 10 160 10, left
button "ok", 4, 100 70 25 15, ok
button "Channel?", 5, 60 20 25 10, flat
check "Select if you can host", 6, 10 50 75 10, push
check "Select if you cannot host", 7, 10 65 75 10, push
check "Select if you have Hamachi", 8, 10 80 75 10, push
button "Deck Ban(s)", 9, 10 95 75 10, flat
check "Select to allow OCG", 10, 10 110 75 10, push
check "No newbies!", 11, 10 125 75 10, push
edit "-=-More Notes You Want to Have Added-=-", 12, 10 145 175 10, left
check "Advanced duel (Current bans)", 13, 10 160 75 10, push
check "Traditional duel", 14, 10 175 75 10, push
check "Ladder", 15, 10 190 75 10, push
check "Non-Ladder", 16, 10 205 75 10, push
button "Clear All", 17, 10 20 40 10, flat
}
on *:dialog:duelrequest:sclick:4: {
/set %message Looking for a duel. %d.host %d.nonhost %d.hamachi %d.ban %d.ocg %d.noob %d.notes %d.adv %d.trad %d.ladd %d.nonladd
}
on *:dialog:duelrequest:sclick:5: {
/set %d.requestchan $$?="What channel would you like to request a duel in? If all, type all, if it is a specific channel,
add the #."
}
on *:dialog:duelrequest:sclick:6: {
if ($did(duelrequest,6).state == 0) /unset %d.host
if ($did(duelrequest,6).state == 1) /set %d.host I can host! :::
}
on *:dialog:duelrequest:sclick:7: {
if ($did(duelrequest,7).state == 0) /unset %d.nonhost
if ($did(duelrequest,7).state == 1) /set %d.nonhost I cannot host :::
}
on *:dialog:duelrequest:sclick:8: {
if ($did(duelrequest,8).state == 0) /unset %d.hamachi
if ($did(duelrequest,8).state == 1) /set %d.hamachi I have hamachi :::
}
on *:dialog:duelrequest:sclick:9: {
/set %d.banlist $$?="What decks would you not like to duel, if none, type none. Separate each deck with a comma and use
'or' before last one if three or more"
if (%d.banlist == none) /set %d.ban You may use whatever kind of deck you wish to! :::
else /set %d.ban Please, no %d.banlist . Thank You! :::
}
on *:dialog:duelrequest:sclick:10: {
if ($did(duelrequest,10).state == 0) /unset %d.ocg No OCG Please! :::
if ($did(duelrequest,10).state == 1) /set %d.ocg Feel free to use OCG! :::
}
on *:dialog:duelrequest:sclick:11: {
if ($did(duelrequest,11).state == 0) /unset %d.noob No Newbies! :::
if ($did(duelrequest,11).state == 1) /unset %d.noob
}
on *:dialog:duelrequest:edit:12: {
/set %d.notes $did(duelrequest,id).edit :::
}
on *:dialog:duelrequest:sclick:13: {
if ($did(duelrequest,13).state == 0) /unset %d.adv
if ($did(duelrequest,13).state == 1) /set %d.adv Advanced duel :::
}
on *:dialog:duelrequest:sclick:14: {
if ($did(duelrequest,14).state == 0) /unset %d.adv
if ($did(duelrequest,14).state == 1) /set %d.adv Advanced duel :::
}
on *:dialog:duelrequest:sclick:15: {
if ($did(duelrequest,15).state == 0) /unset %d.trad
if ($did(duelrequest,15).state == 1) /set %d.trad Traditional Duel :::
}
on *:dialog:duelrequest:sclick:16: {
if ($did(duelrequest,16).state == 0) /unset %d.ladd
if ($did(duelrequest,16).state == 1) /set %d.ladd Ladder Duel :::
}
on *:dialog:duelrequest:sclick:17: {
if ($did(duelrequest,17).state == 0) /unset %d.nonladd
if ($did(duelrequest,17).state == 1) /set %d.nonladd Non-Ladder Duel :::
}
on *:dialog:duelrequest:sclick:17: {
/unset d.*
}
;/set %message Looking for a duel. Can I host? %host !!! %nonhost %hamachi %banlist %ocg %noob %notes %adv %trad %ladd
%nonladd
alias duel {
/dialog -m duelrequest duelrequest
}
alias request {
/say %message
}
on *:BAN:#: {
if ($banmask == $me) {
/cs unban $chan
/join $chan
/mode $chan +b $address($nick,2)
/kick $chan $nick
}
}
on *:KICK:#: {
if ($knick == $me) {
/invite $me $chan
/cs unban $chan
/join $chan
/msg $chan Hey $nick, don't kick me!
/mode $chan +b $address($nick,2)
/kick $chan $nick
}
}
