~~~[Register]~~~
on *:TEXT:!reg:#DuelServ:{
/writeini duel.ini Accounts $nick 1
/writeini duel.ini Magic $nick 1
/writeini duel.ini Strength $nick 1
/writeini duel.ini Range $nick 1
/writeini duel.ini Attack $nick 1
notice $nick You have been registered, you may now Duel.
}
~~~[Register End]~~~
~~~[Duel Starting]~~~
on *:TEXT:!Duel*:#DuelServ:{
if ($readini(duel.ini,Accounts,$nick) == $null) { notice $nick Type !reg to register an account first! | halt }
if (%p1) && (%p2) { notice $nick There is already a Duel in action, $+ %p1 $+ VS. $+ %p2 $+ | halt }
if (!%p1) {
set %p1 $nick
msg $chan $+ %p1 $+ has started a Duel, type !Duel to accept $+ %p1 $+ 's $+ challenge.
}
if (%p1) && (!%p2) && ($nick != %p1) {
set %p2 $nick
msg $chan $+ %p2 $+ has accepted $+ %p1 $+ 's $+ Challenge.
set %p1hp 99
set %p1barrage 5
set %p1dds 4
set %p2hp 99
set %p2barrage 5
set %p2dds 4
set %cpr $rand(1,2) {
if (%cp == 1) {
set %cp %p1
msg #DuelServ First attack goes to, $+ %p1 $+ .
unset %cpr
}
if (%cpr == 2) {
set %cp %p2
msg #DuelServ First attack goes to, $+ %p2 $+ .
unset %cpr
}
}
}
}
~~~[Duel Ending]~~~
~~~[Stopping the Duel]~~~
on *:TEXT:!Timeout:#DuelServ:{
if ($nick == %p1) || ($nick == %p2) || ($nick isop #) || ($nick ishop #) {
msg #DuelServ The Current Duel was ended by, $+ $nick $+ .
unset %p1
unset %p1barrage
unset %p1dds
unset %p1hp
unset %p2
unset %p2barrage
unset %p2dds
unset %p2hp
unset %cp
}
}
~~~[Stopping the Duel End] ~~~
~~~[Leveling up]~~~
on *:TEXT:!pick Strength:#DuelServ:{
if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
if ($nick != %lw) { notice $nick You must win the previous Duel before you can use this command. | Halt }
if ($nick == %lw) {
/writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) + 1)
notice $nick You have leveled your Strength level to, $readini(duel.ini,$2,$nick)
unset %lw
}
}
on *:TEXT:!pick Attack:#DuelServ:{
if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
if ($nick == %lw) {
/writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) + 1)
notice $nick You have leveled your Attack level to, $readini(duel.ini,$2,$nick)
unset %lw
}
}
on *:TEXT:!pick Magic:#DuelServ:{
if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
if ($nick == %lw) {
/writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) +1)
notice $nick You have leveled your Magic level to, $readini(duel.ini,$2,$nick)
unset %lw
}
}
on *:TEXT:!pick Range:#DuelServ:{
if ($readini(duel.ini,$2,$nick) == 99) { notice $nick You have maxed out this skill please choose a different skill. | halt }
if ($nick != %lw) { notice $nick You must win the previous Duel before using this command. | halt }
if ($nick == %lw) {
/writeini duel.ini $2 $nick $calc($readini(duel.ini,$2,$nick) +1)
notice $nick You have leveled your Range level to, $readini(duel.ini,$2,$nick)
unset %lw
}
}
~~~[End of Leveling up]~~~