rendered paste body[script]
n0=on *:TEXT:!*:#: {
n1= if ($1 == !duel) {
n2= if (%duelstatus == on) {
n3= /msg $chan There is a duel in progress, please wait untill it is over before starting another duel.
n4= }
n5= if (%duelstatus != on) {
n6= /set %duelstatus on
n7= /set %id1_stats unset
n8= /set %id2_stats unset
n9= /set %idduel1 $nick
n10= /set %idduel2 $2-
n11= /msg $chan $+ $nick challenges $2- to a duel!
n12= /msg $chan Both players, type in your attack, strength, defence, and hitpoints levels.
n13= /msg $chan they must add up and be less than or equal to 355.
n14= /msg $chan to do this type !setstats (attack) (strength) (defence) (hitpoints)
n15= }
n16= }
n17= if ($1 == !setstats) {
n18= if (($nick == %idduel1) || ($nick == %idduel2)) {
n19= if (($nick == %idduel1) && ( %id1_stats != set )) {
n20= /set %id1_total $calc( $2 + $3 + $4 + $5 )
n21= if ( %id1_total < 356 ) {
n22= if (( $2 < 100 ) && ( $3 < 100 ) && ( $4 < 100 ) && ( $5 < 100 )) {
n23= /set %id1_attack $2
n24= /set %id1_strength $3
n25= /set %id1_defence $4
n26= /set %id1_hitpoints $5
n27= /set %id1_stats set
n28= /set %id1_ddsspecs 4
n29= /set %id1_sharks 20
n30= /set %turn $rand(1,2)
n31= if (%turn == 1) {
n32= /set %idturn %idduel1
n33= }
n34= if (%turn == 2) {
n35= /set %idturn %idduel2
n36= }
n37= /msg $chan $+ %idduel1 $+ 's stats are: Attack: %id1_attack Strength: %id1_strength Defence: %id1_defence Hitpoints: %id1_hitpoints
n38= if ((%id1_stats == set) && (%id2_stats == set)) {
n39= /msg $chan The duel has begun! %idturn $+ 's turn first.
n40= /msg $chan You each get 20 sharks, 4 DDS special attacks/D mace special attacks.
n41= /msg $chan The options are, !whip, !dds, !mace, and !eat.
n42= /msg $chan Type !endduel anytime to end the duel.
n43= }
n44= }
n45= }
n46= }
n47= if (($nick == %idduel2) && ( %id2_stats != set )) {
n48= /set %id2_total $calc( $2 + $3 + $4 + $5 )
n49= if ( %id2_total < 356 ) {
n50= if (( $2 < 100 ) && ( $3 < 100 ) && ( $4 < 100 ) && ( $5 < 100 )) {
n51= /set %id2_attack $2
n52= /set %id2_strength $3
n53= /set %id2_defence $4
n54= /set %id2_hitpoints $5
n55= /set %id2_stats set
n56= /set %id2_ddsspecs 4
n57= /set %id2_sharks 20
n58= /msg $chan $+ %idduel2 $+ 's stats are: Attack: %id2_attack Strength: %id2_strength Defence: %id2_defence Hitpoints: %id2_hitpoints
n59= if ((%id1_stats == set) && (%id2_stats == set)) {
n60= /msg $chan The duel has begun! %idturn $+ 's turn first.
n61= /msg $chan You each get 20 sharks, 4 DDS special attacks/D mace special attacks.
n62= /msg $chan The options are, !whip, !dds, !mace, and !eat.
n63= /msg $chan Type !endduel anytime to end the duel.
n64= }
n65= }
n66= }
n67= }
n68= }
n69= }
n70= if ($1 == !whip) {
n71= if ($nick == %idturn) {
n72= if (%turn == 1) {
n73= /set %attkminusdef $calc( %id1_attack - %id2_defence + 100 )
n74= }
n75= if (%turn == 2) {
n76= /set %attkminusdef $calc( %id2_attack - %id1_defence + 100 )
n77= }
n78= /set %randhitnum $rand(0,200)
n79= if (%attkminusdef > %randhitnum) {
n80= /set %attkworks true
n81= }
n82= if (%attkminusdef <= %randhitnum) {
n83= /set %attkworks false
n84= }
n85= if (%attkworks == false) {
n86= if (%turn == 1) {
n87= /msg $chan $+ %idduel1 whips %idduel2 and hits: 0
n88= }
n89= if (%turn == 2) {
n90= /msg $chan $+ %idduel2 whips %idduel1 and hits: 0
n91= }
n92= }
n93= if (%attkworks == true) {
n94= if (%turn == 1) {
n95= /set %maxhit $floor($calc( %id1_strength * .42 ))
n96= /set %damagehit $rand(0,%maxhit)
n97= /set %id2_hitpoints $calc( %id2_hitpoints - %damagehit )
n98= /msg $chan $+ %idduel1 whips %idduel2 and hits: %damagehit
n99= if ( %id2_hitpoints < 1 ) {
n100= /msg $chan $+ %idduel1 wins with %id1_hitpoints hitpoints left.
n101= /set %win true
n102= }
n103= if ( %win != true ) {
n104= /msg $chan $+ %idduel2 has %id2_hitpoints hitpoints left.
n105= }
n106= }
n107= if (%turn == 2) {
n108= /set %maxhit $floor($calc( %id2_strength * .42 ))
n109= /set %damagehit $rand(0,%maxhit)
n110= /set %id1_hitpoints $calc( %id1_hitpoints - %damagehit )
n111= /msg $chan $+ %idduel2 whips %idduel1 and hits: %damagehit
n112= if ( %id1_hitpoints < 1 ) {
n113= /msg $chan $+ %idduel2 wins with %id2_hitpoints hitpoints left.
n114= /set %win true
n115= }
n116= if ( %win != true ) {
n117= /msg $chan $+ %idduel1 has %id1_hitpoints hitpoints left.
n118= }
n119= }
n120= }
n121= if ( %turn == 1 ) {
n122= /set %turn 2
n123= /set %idturn %idduel2
n124= }
n125= else {
n126= /set %turn 1
n127= /set %idturn %idduel1
n128= }
n129= }
n130= }
n131= if ($1 == !dds) {
n132= if ($nick == %idturn) {
n133= if (%turn == 1) {
n134= if ( %id1_ddsspecs < 1 ) { /set %id1_outofddsspecs true }
n135= /set %attkminusdef $calc( %id1_attack - %id2_defence + 100 )
n136= }
n137= if (%turn == 2) {
n138= if ( %id2_ddsspecs < 1 ) { /set %id2_outofddsspecs true }
n139= /set %attkminusdef $calc( %id2_attack - %id1_defence + 100 )
n140= }
n141= /set %randhitnum $rand(0,250)
n142= /set %randhitnum2 $rand(0,250)
n143= if ( %attkminusdef > %randhitnum ) {
n144= /set %attkworks1 true
n145= }
n146= if ( %attkminusdef > %randhitnum2 ) {
n147= /set %attkworks2 true
n148= }
n149= if ( %attkminusdef <= %randhitnum ) {
n150= /set %attkworks1 false
n151= }
n152= if ( %attkminusdef <= %randhitnum2 ) {
n153= /set %attkworks2 false
n154= }
n155= if (( %turn == 1 ) && ( %id1_outofddsspecs != true )) {
n156= /set %maxhit $floor($calc( %id1_strength * .365 ))
n157= /set %damagehit $rand(0,%maxhit)
n158= /set %damagehit2 $rand(0,%maxhit)
n159= if ( %attkworks1 == false ) { /set %damagehit 0 }
n160= if ( %attkworks2 == false ) { /set %damagehit2 0 }
n161= /set %id2_hitpoints $calc( %id2_hitpoints - %damagehit - %damagehit2 )
n162= /set %id1_ddsspecs $calc( %id1_ddsspecs - 1 )
n163= /msg $chan $+ %idduel1 DDS specs %idduel2 and hits: %damagehit $+ - $+ %damagehit2
n164= if ( %id2_hitpoints < 1 ) {
n165= /msg $chan $+ %idduel1 wins with %id1_hitpoints hitpoints left.
n166= /set %win true
n167= }
n168= if ( %win != true ) {
n169= /msg $chan $+ %idduel2 has %id2_hitpoints hitpoints left.
n170= }
n171= }
n172= if ((%turn == 2 ) && ( %id2_outofddsspecs != true )) {
n173= /set %maxhit $floor($calc( %id2_strength * .365 ))
n174= /set %damagehit $rand(0,%maxhit)
n175= /set %damagehit2 $rand(0,%maxhit)
n176= if ( %attkworks1 == false ) { /set %damagehit 0 }
n177= if ( %attkworks2 == false ) { /set %damagehit2 0 }
n178= /set %id1_hitpoints $calc( %id1_hitpoints - %damagehit - %damagehit2 )
n179= /set %id2_ddsspecs $calc( %id2_ddsspecs - 1 )
n180= /msg $chan $+ %idduel2 DDS specs %idduel1 and hits: %damagehit $+ - $+ %damagehit2
n181= if ( %id1_hitpoints < 1 ) {
n182= /msg $chan $+ %idduel2 wins with %id2_hitpoints hitpoints left.
n183= /set %win true
n184= }
n185= if ( %win != true) {
n186= /msg $chan $+ %idduel1 has %id1_hitpoints hitpoints left.
n187= }
n188= }
n189= if ( %turn == 1 ) {
n190= /set %turn 2
n191= /set %idturn %idduel2
n192= }
n193= else {
n194= /set %turn 1
n195= /set %idturn %idduel1
n196= }
n197= }
n198= }
n199= if ($1 == !mace) {
n200= if ($nick == %idturn) {
n201= if (%turn == 1) {
n202= if ( %id1_ddsspecs < 1 ) { /set %id1_outofddsspecs true }
n203= /set %attkminusdef $calc( %id1_attack - %id2_defence + 100 )
n204= }
n205= if (%turn == 2) {
n206= if ( %id2_ddsspecs < 1 ) { /set %id2_outofddsspecs true }
n207= /set %attkminusdef $calc( %id2_attack - %id1_defence + 100 )
n208= }
n209= /set %randhitnum $rand(0,250)
n210= if (%attkminusdef > %randhitnum) {
n211= /set %attkworks true
n212= }
n213= if (%attkminusdef <= %randhitnum) {
n214= /set %attkworks false
n215= }
n216= if (%attkworks == false) {
n217= if (%turn == 1) {
n218= /msg $chan $+ %idduel1 mace specs %idduel2 and hits: 0
n219= }
n220= if (%turn == 2) {
n221= /msg $chan $+ %idduel2 mace specs %idduel1 and hits: 0
n222= }
n223= }
n224= if (%attkworks == true) {
n225= if ((%turn == 1) && ( %id1_outofddsspecs != true )) {
n226= /set %maxhit $floor($calc( %id1_strength * .61 ))
n227= /set %damagehit $rand(0,%maxhit)
n228= /set %id2_hitpoints $calc( %id2_hitpoints - %damagehit )
n229= /set %id1_ddsspecs $calc( %id1_ddsspecs - 1 )
n230= /msg $chan $+ %idduel1 mace specs %idduel2 and hits: %damagehit
n231= if ( %id2_hitpoints < 1 ) {
n232= /msg $chan $+ %idduel1 wins with %id1_hitpoints hitpoints left.
n233= /set %win true
n234= }
n235= if ( %win != true ) {
n236= /msg $chan $+ %idduel2 has %id2_hitpoints hitpoints left.
n237= }
n238= }
n239= if ((%turn == 2) && ( %id2_outofddsspecs != true)) {
n240= /set %maxhit $floor($calc( %id2_strength * .61 ))
n241= /set %damagehit $rand(0,%maxhit)
n242= /set %id1_hitpoints $calc( %id1_hitpoints - %damagehit )
n243= /set %id2_ddsspecs $calc( %id2_ddsspecs - 1 )
n244= /msg $chan $+ %idduel2 mace specs %idduel1 and hits: %damagehit
n245= if ( %id1_hitpoints < 1 ) {
n246= /msg $chan $+ %idduel2 wins with %id2_hitpoints hitpoints left.
n247= /set %win true
n248= }
n249= if ( %win != true ) {
n250= /msg $chan $+ %idduel1 has %id1_hitpoints hitpoints left.
n251= }
n252= }
n253= }
n254= if ( %turn == 1 ) {
n255= /set %turn 2
n256= /set %idturn %idduel2
n257= }
n258= else {
n259= /set %turn 1
n260= /set %idturn %idduel1
n261= }
n262= }
n263= }
n264= if ($1 == !eat) {
n265= if ( $nick == %idturn ) {
n266= if ( %turn == 1 ) {
n267= /set %sharkseaten $rand(1,3)
n268= if ( %sharkseaten == 2) {
n269= /set %sharkseaten 1
n270= }
n271= if ( %sharkseaten == 3) {
n272= /set %sharkseaten 2
n273= }
n274= if ( %id1_sharks == 1) {
n275= /set %sharkseaten 1
n276= }
n277= if (( %sharkseaten == 1) && ( %id1_sharks > 0 )) {
n278= /set %id1_hitpoints $calc( %id1_hitpoints + 20 )
n279= /set %id1_sharks $calc( %id1_sharks - 1 )
n280= /msg $chan $+ %idduel1 eats a shark.
n281= }
n282= if ( %sharkseaten == 2) {
n283= /set %id1_hitpoints $calc( %id1_hitpoints + 40 )
n284= /set %id1_sharks $calc( %id1_sharks - 2 )
n285= /msg $chan $+ %idduel1 eats two sharks.
n286= }
n287= }
n288= if ( %turn == 2 ) {
n289= /set %sharkseaten $rand(1,3)
n290= if ( %sharkseaten == 2) {
n291= /set %sharkseaten 1
n292= }
n293= if ( %sharkseaten == 3) {
n294= /set %sharkseaten 2
n295= }
n296= if ( %id1_sharks == 1) {
n297= /set %sharkseaten 1
n298= }
n299= if (( %sharkseaten == 1) && ( %id2_sharks > 0 )) {
n300= /set %id2_hitpoints $calc( %id2_hitpoints + 20 )
n301= /set %id2_sharks $calc( %id2_sharks - 1 )
n302= /msg $chan $+ %idduel2 eats a shark.
n303= }
n304= if ( %sharkseaten == 2) {
n305= /set %id2_hitpoints $calc( %id2_hitpoints + 40 )
n306= /set %id2_sharks $calc( %id2_sharks - 2 )
n307= /msg $chan $+ %idduel2 eats two sharks.
n308= }
n309= }
n310= if ( %turn == 1 ) {
n311= /set %turn 2
n312= /set %idturn %idduel2
n313= }
n314= else {
n315= /set %turn 1
n316= /set %idturn %idduel1
n317= }
n318= }
n319= }
n320= if (($1 == !endduel) || ( %win == true )) {
n321= if (($nick == %idduel1) || ($nick == %idduel2) || ($nick == Compgeek1210)) {
n322= /unset %duelstatus
n323= /unset %id1_stats
n324= /unset %id2_stats
n325= /unset %idduel1
n326= /unset %idduel2
n327= /unset %id1_attack
n328= /unset %id1_strength
n329= /unset %id1_defence
n330= /unset %id1_hitpoints
n331= /unset %id1_stats
n332= /unset %id1_ddsspecs
n333= /unset %id1_sharks
n334= /unset %turn
n335= /unset %id1_total
n336= /unset %id2_attack
n337= /unset %id2_strength
n338= /unset %id2_defence
n339= /unset %id2_hitpoints
n340= /unset %id2_stats
n341= /unset %id2_ddsspecs
n342= /unset %id2_sharks
n343= /unset %id2_total
n344= /unset %attkminusdef
n345= /unset %randhitnum
n346= /unset %attkworks
n347= /unset %maxhit
n348= /unset %damagehit
n349= /unset %damagehit2
n350= /unset %win
n351= /unset %id1_outofddsspecs
n352= /unset %id2_outofddsspecs
n353= /unset %sharkseaten
n354= /unset %randhitnum2
n355= /unset %attkworks1
n356= /unset %attkworks2
n357= /unset %idturn
n358= /msg $chan Duel Ended
n359= }
n360= }
n361=}
n362=; Written by Compgeek1210