PruneBot - For RSCAngel

PruneBot V1.0 has just been released, and auths are for sale for $7.50 each... I'm going to be handing out 10 test auths today. Post on this topic if your interested in testing the bot. Pm me if your interested in buying an auth.

The link for the bot will be sent to you via PM after you post here...

 

hey i dnt mind testing it.

 

ill test it =P

 

Ill Test It

 

I'll test.

Edit: Somehow I got the download but when trying to login I receive an Auth Error .

 

k0tter are you the same imk0tter from irc.tnt.cx and ICY with pr4y and ub0r and them back in the good ole days?

 

lol, ofc I am

 

Ill Test

 

nice i remember testing a irc fighting game you were making years ago

ill test your bot if you would like

 

Hey Hope You Don't Mind But I Edited Your ModScanner And PMListener To Make It More Like Your There To Me

 

still have the code for that game ;P

Code:

                                                                     
                                                                     
                                                                     
                                             
set %connecteddcc $chat(0)
on 1:text:!mafia*:*: {
  dcc chat $nick
  set %i 1              
  while ($chat(0) >= %i) {  
    msg = $+ $chat(%i)   4,1[  $+ $nick $+   4] 0: is trying to connect... 
    inc %i 1              
  }

}
on 1:chat:*: {
  if ([ % $+ [ $address($nick,2) $+ [ banned ] ] ] == 1) { 
    msg = $+ $nick  4,1  B  0anned by ip!
    close -c $nick
    set %i 1
    while ($chat(0) >= %i) {
      $iif($chat(%i) == $nick,echo -s $nick,msg = $+ $chat(%i))   4,1[ 4  $+ $nick $+  ] 0 is banned and tried to join!
      inc %i 1
    }
  }

  else {
    if ($left($1,1) == !) {
      if ($1 == !list) {
        set %r 1
        msg = $+ $nick  0,15[ 4People currently connected 0]        
        while ($chat(0) >= %r) {
          msg = $+ $nick  0,15[ 4 $+ $chat(%r) $+  0]
          inc %r 1
        }
      }
      elseif ($1 == !help) {
        msg = $+ $nick %help
      }
      elseif ($1 == !register) {    
        if (Mod isin $2) { msg = $+ $nick  4,1  Y  0ou can not register a name with 'Mod' in it. | halt } 
        set %useraddress $address($nick,2)
        set %newchar $2
        set %newpass $3
        if ($readini(mafiausers.ini, n, %newchar, Name) == $null && $3 != $null) {
          writeini -n mafiausers.ini %newchar Theivxp 0
          writeini -n mafiausers.ini %newchar Money 100        
          writeini -n mafiausers.ini %newchar Fightxp 0
          writeini -n mafiausers.ini %newchar MaxHealth 30
          writeini -n mafiausers.ini %newchar CurrentHealth 30        
          writeini -n mafiausers.ini %newchar Weapon 0
          writeini -n mafiausers.ini %newchar Armour 0
          writeini -n mafiausers.ini %newchar Password $md5(%newpass)
          writeini -n mafiausers.ini %newchar Name %newchar
          writeini -n mafiausers.ini %newchar Theivlevel 1
          writeini -n mafiausers.ini %newchar Fightlevel 1
          msg = $+ $nick  4,1  Y  0ou have successfully registered %newchar $+ !
          msg = $+ $nick  4,1  Y  0our password is %newpass $+ ... Don't lose or forget it!
          halt
        }
        else {
          msg = $+ $nick  4,1  Y  0ou are already registered or you entered invalid paramiters. 
          halt
        }
      }
      elseif ($1 == !login) {
        if ([ % $+ [ $2 $+ [ banned ] ] ] == 1) { msg = $+ $nick  4,1  Y  0ou are currently banned. Please e-mail [email protected] for your ban appeal. | halt }
        if ($readini(mafiausers.ini, n, $2, Name) == $2 && $2 != $null) {
          if ($readini(mafiausers.ini, n, $2, Password) == $md5($3) && $3 != $null) {
            if ([ % $+ [ $nick $+ [ currentauth ] ] ] == $null || [ % $+ [ $nick $+ [ currentauth ] ] ] == 0) {
              set [ % $+ [ $nick $+ [ currentchar ] ] ] $2
              set [ % $+ [ $nick $+ [ currentauth ] ] ] 1
              msg = $+ $nick  4,1  L  0ogin successful [[ $+ $2 $+ ]]      
              set %i 1              
              while ($chat(0) >= %i) {  
                msg = $+ $chat(%i)   4,1[  $+ $2 $+   4] 0: has logged in... 
                inc %i 1              
              }
              halt   
            }
          }          
          else {
            msg = $+ $nick  4,1  I  0nvalid password.
            halt
          }
        }
        else {
          msg = $+ $nick  4,1  U  0ser $2 not registered. Please use the !register command.
          halt
        }    

      }
      elseif ($1 == !logout) {
        set [ % $+ [ $nick $+ [ currentauth ] ] ] 0
        msg = $+ $nick  4,1  L  0ogout successful. [[ $+ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ ]]        
        set %i 1  
        while ($chat(0) >= %i) {
          msg = $+ $chat(%i)   4,1[  $+ [ % $+ [ $nick $+ [ currentchar ] ] ] $+   4] 0: has logged out... 
          inc %i 1
        }
        set [ % $+ [ $nick $+ [ currentchar ] ] ] $null         
        halt
      }


      elseif ($1 == !sleep) {
        if ($2 == $null) {
          if ([ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ typeit ] ] ] == 1) { msg = $+ $nick  4,1  Y  0o 0,1ur sle 0,1e 0,1p wo 0,1rd i 0,1s     0,1        0,1 4,1     0,1 0 $+ [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword2 ] ] ]  $+      $+ . Type ! 0sle 0ep <sleepword> to wake up. | halt }
          if ([ % $+ [ $nick $+ [ currentauth ] ] ] == 0 || [ % $+ [ $nick $+ [ currentauth ] ] ] == $null) { msg = $+ $nick  4,1  Y  0ou have to login...  If you are not registerd use the !register command. | halt }
          set [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ typeit ] ] ] 1
          set %sleepword1 $rand(a,z)
          set %sleepword2 $rand(a,z)
          set %sleepword3 $rand(a,z)
          set %sleepword4 $rand(a,z)
          set %sleepword5 $rand(a,z)
          set %sleepword6 $rand(a,z)
          set %sleepword7 $rand(a,z)
          set %sleepword %sleepword1 $+                  $+ %sleepword2 $+      $+ %sleepword3 $+                  $+ %sleepword4 $+          $+ %sleepword5 $+ %sleepword6 $+              $+ %sleepword7
          set %sleepword8 %sleepword1 $+ %sleepword2 $+ %sleepword3 $+ %sleepword4 $+ %sleepword5 $+ %sleepword6 $+ %sleepword7        
          set [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword ] ] ] %sleepword8
          set [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword2 ] ] ] %sleepword      
          msg = $+ $nick  4,1  Y  0o 0,1ur sle 0,1e 0,1p wo 0,1rd i 0,1s     0,1        0,1 4,1     0,1 0 $+ %sleepword $+                  $+ . Type ! 0sle 0ep <sleepword> to wake up.
        }
        elseif ($2 != $null) {
          if ($2 != [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword ] ] ]) { msg = $+ $nick  4,1  I  0ncorrect sleepword. Please try again | halt }
          elseif ($2 == [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword ] ] ]) {
            set [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ typeit ] ] ] 0
            set [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] 0
            unset [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ sleepword ] ] ]        
            msg = $+ $nick  4,1  Y  0our fatigue is now 0.
          }
        }
      }
      elseif ($1 == !places) {
        msg = $+ $nick %places
      }


      elseif ($1 == !rob) {
        if ($2 == $null) { msg = $+ $nick  4,1  Y  0ou have to enter a place... If you do not know the places type !places | halt }  
        if ([ % $+ [ $nick $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  Y  0ou have to login... please use !register if you don't have an account. | halt } 
        if ([ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] >= 100) { msg = $+ $nick  4,1  Y  0our fatigue is over 100... use the !sleep command to sleep | halt }  
        theivlevel
        if ($2 == 711) {
          set %711chance $rand(0,6)
          set %711money $rand(25,100)
          set %711xp $rand(5,15)
          set %currxp1 $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivxp)
          set %currcash $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Money)

          if (%711chance == 2 || %711chance == 5) {
            inc %currxp1 %711xp
            inc %currcash %711money
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Theivxp %currxp1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Money %currcash
            theivlevel        
            inc [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] $rand(0.5,1.5)
            msg = $+ $nick  4,1  Y  0ou have successfully robbed the 7-11 of %711money and gained %711xp experiance!! Your fatigue is now [[ $+ [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] $+ ]]
            halt
          }
          elseif (%711chance == 0) {
            set %losemoney $rand(2,30)
            dec %currcash %losemoney
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Money %currcash
            msg = $+ $nick  4,1  Y  0ou got spotted and lost %losemoney dollars in the process of escape...
            halt
          }
          else {
            msg = $+ $nick  4,1  Y  0ou have failed to steal any cash...
            halt
          }
        }
        elseif ($2 == bank) {
          if ($readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivlevel) !isnum 30-20000000) { msg = $+ $nick  4,1  Y  0ou require level 30 to theiv this place. | halt }
          set %bankmoney $rand(100,250)
          set %bankxp $rand(13,24)
          set %currtheivlevel $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivlevel)    
          set %currxp1 $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivxp)
          set %currcash $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Money)
          set %bankchance $iif(%currtheivlevel >= 50, $rand(0,4), $rand(0,7))

          if (%bankchance == 2 || %bankchance == 5) {
            inc %currxp1 %bankxp
            inc %currcash %bankmoney
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Theivxp %currxp1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Money %currcash
            theivlevel        
            inc [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] $rand(0.5,1.5)
            msg = $+ $nick  4,1  Y  0ou have successfully robbed the bank of %bankmoney and gained %bankxp experiance!! Your fatigue is now [[ $+ [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] $+ ]]
            halt
          }
          elseif (%bankchance == 6 || %bankchance == 7) {
            set %losemoney $rand(200,350)
            dec %currcash %losemoney
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Money %currcash
            msg = $+ $nick  4,1  Y  0ou got spotted and lost %losemoney dollars in the process of escape...
            halt
          }
          else {
            msg = $+ $nick  4,1  Y  0ou have failed to steal any cash...
            halt
          }    
          halt    
        }
        halt    
      }
      elseif ($1 == !train) {
        set %combat.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightlevel)
        if ([ % $+ [ $nick $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  Y  0ou have to login... please use !register if you don't have an account. | halt } 
        if ([ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] >= 100) { msg = $+ $nick  4,1  Y  0our fatigue is over 100... use the !sleep command to sleep | halt }  


        if (%combat.level isnum 1-10) {
          set %monster.name Chicken
          set %monster.damadge 5
          set %monster.exp $rand(8,17)
          train_start    
          check_death
          level_check

        }
        elseif (%combat.level isnum 11-20) {
          set %monster.name Cow
          set %monster.damadge 8
          set %monster.exp $rand(14,25)        
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 21-30) {
          set %monster.name Ghost
          set %monster.damadge 10
          set %monster.exp $rand(23,38)        
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 31-40) {
          set %monster.name Hob Gobblin
          set %monster.damadge 14  
          set %monster.exp $rand(34,45)        
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 41-60) {
          set %monster.name Giant
          set %monster.damadge 16  
          set %monster.exp $rand(45,60)        
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 61-80) {
          set %monster.name Lesser Demon
          set %monster.damadge 120
          set %monster.exp $rand(57,70)
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 81-100) {
          set %monster.name Red Dragon
          set %monster.damadge 752 
          set %monster.exp $rand(74,92)        
          train_start    
          check_death      
          level_check

        }
        elseif (%combat.level isnum 101-9999) {
          set %monster.name King Black Dragon
          set %monster.damadge 2000
          set %monster.exp $rand(80,115) 
          train_start    
          check_death      
          level_check

        }
      }


      elseif ($1 == !eat) {
        if ([ % $+ [ $nick $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  Y  0ou have to login... please use !register if you don't have an account. | halt } 
        if ([ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] >= 100) { msg = $+ $nick  4,1  Y  0our fatigue is over 100... use the !sleep command to sleep | halt }  
        set %current.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentHealth) 
        set %max.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], MaxHealth) 
        set %food.type $rand(1,4)  
        set %current.healthh %current.health

        if (%current.health < %max.health) {
          if (%food.type == 1) {
            inc %current.health 3
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health
            msg = $+ $nick  4,1  Y  0ou eat a piece of meat, it heals [3] health! [ %current.health ]
          }
          elseif (%food.type == 2) {
            inc %current.health 6
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health   
            msg = $+ $nick  4,1  Y  0ou eat a Salmon, it heals [6] health! [ %current.health ]

          }
          elseif (%food.type == 3) {
            inc %current.health 12
            writeini -n fighting.ini $nick CurrentHealth %current.health         
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health          
            msg = $+ $nick  4,1  Y  0ou eat a Lobby, it heals [12] health! [ %current.health ]

          }
          elseif (%food.type == 4) {
            inc %current.health 13
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health        
            msg = $+ $nick  4,1  Y  0ou eat a Swordfish, it heals [13] health! [ %current.health ]
          }
        }

        elseif (%current.health >= %max.health) {
          writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %max.health

          msg = $+ $nick  4,1  Y  0ou already have full health!
        } 
      }

      elseif ($1 == !attack) {
        set %combat.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightlevel)
        set %target.combat $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Fightlevel)   
        set %combat.wild $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentWild)
        set %target.wild $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], CurrentWild)
        set %target.health $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], CurrentHealth)
        set %max.hit $calc(($readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightlevel) / 5) + ($readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapon) - $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Armour)))
        set %target.max $calc(($readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Fightlevel) / 5) + ($readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Weapon) - $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armour)))
        set %armor.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armour)
        set %weapon.levelgained $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapon)
        set %target.weap.level $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Weapon)
        set %target.armor.level $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Armour) 
        set %target.health.max $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], MaxHealth)
        if ([ % $+ [ $nick $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  Y  0ou have to login... please use !register if you don't have an account. | halt } 
        if ([ % $+ [ $2 $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  T  0arget has to log on. | halt } 
        if (%combat.level >= %target.combat) {
          set %level.difference $calc(%combat.level - %target.level)
        }
        elseif (%combat.level < %target.combat) {
          set %level.difference $calc(%target.level - %combat.level)
        }
        if (%level.difference isnum 0- $+ %combat.wild && %combat.wild == %target.wild) {
          var %hit.1 = $rand(0,%max.hit)
          var %hit.2 = $rand(0,%max.hit)
          var %hit.3 = $rand(0,%max.hit)
          var %taken.1 = $rand(0,%target.max)
          var %taken.2 = $rand(0,%target.max)
          var %taken.3 = $rand(0,%target.max)
          if (%hit.1 >= %target.health) {
            msg = $+ $nick  11,4 %hit.1   1ONE HIT!
            msg = $+ $2  11,4 %hit.1   1ONE HIT!

            msg = $+ $2  4,1  O  0hh dear, you're dead!
            inc %weapon.levelgained $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Weapon))
            inc %armor.level $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Armour)
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour %armor.level
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon %weapon.level          
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentHealth %target.health.max
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentWild 0

          }
          elseif (%taken.1 >= %current.health) {
            msg = $+ $nick  11,4 $+ %hit.1 $+ , 9 %taken.1  1 ONE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]
            msg = $+ $2  11,4 $+ %hit.1 $+ , 9 %taken.1  1 ONE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]

            msg = $+ $nick  4,1  O  0hh dear, you're dead!
            inc %target.weap.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapon)
            inc %target.armor.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armor)
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour %target.armor.level
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon %target.weap.level         
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentWild 0
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %health.max

          }
          elseif ($calc(%hit.1 + %hit.2) >= %target.health) {
            msg = $+ $nick  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2  TWO HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]
            msg = $+ $2  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2  TWO HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]

            msg = $+ $2  1,4 Ohh dear, you're dead!
            dec %current.health %taken.1
            inc %weapon.levelgained $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Weapon))
            inc %armor.level $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Armour)
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour %armor.level
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon %weapon.level          
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentHealth %target.health.max
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentWild 0
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ]  CurrentHealth %current.health
          }
          elseif ($calc(%taken.1 + %taken.2) >= %current.health) {
            msg = $+ $nick  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.9  2 %taken.2   1 TWO HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]
            msg = $+ $2  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2  9 %taken.2   1 TWO HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]

            msg = $+ $nick  1,4 Ohh dear, you're dead!
            dec %target.health $calc(%hit.1 + %hit.2)
            inc %target.weap.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapon)
            inc %target.armor.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armor)

            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour %target.armor.level
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon %target.weap.level         
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentWild 0
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %health.max
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ]  CurrentHealth %target.health
          }
          elseif ($calc(%hit.1 + %hit.2 + %hit.3) >= %target.health) {
            msg = $+ $nick  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2 $+ ,  9 %taken.2 $+ , 11 %hit.3   1 THREE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]
            msg = $+ $2  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2 $+ ,  9 %taken.2 $+ , 11 %hit.3   1 THREE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]

            msg = $+ $2  1,4 Ohh dear, you're dead!
            dec %current.health $calc(%taken.1 + %taken.2)
            inc %weapon.levelgained $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Weapon))
            inc %armor.level $readini(mafiausers.ini, n, [ % $+ [ $2 $+ [ currentchar ] ] ], Armour)
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour %armor.level
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon %weapon.level          
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentHealth %target.health.max
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] CurrentWild 0
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ]  CurrentHealth %current.health
          }  
          elseif ($calc(%taken.1 + %taken.2 + %taken.3) >= %current.health) {
            msg = $+ $nick  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2 $+ ,  9 %taken.2 $+ , 11 %hit.3 $+ , 9 %taken.3   1 THREE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [ $+ %current.health $+ ]
            msg = $+ $2  11,4 %hit.1 $+ , 9 %taken.1 $+ , 11 %hit.2 $+ ,  9 %taken.2 $+ , 11 %hit.3 $+ , 9 %taken.3   1 THREE HIT! $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [ $+ %current.health $+ ]

            msg = $+ $nick  1,4 Ohh dear, you're dead!
            dec %target.health $calc(%hit.1 + %hit.2 + %hit.3)
            inc %target.weap.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapon)
            inc %target.armor.level $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armor)

            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Armour %target.armor.level
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ] Weapon %target.weap.level         
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentWild 0
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour 1
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %health.max
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ]  CurrentHealth %target.health
          } 
          else {
            msg = $+ $nick  1,4 %hit.1 $+ , 2 %taken.1 $+ , 1 %hit.2 $+ ,  2 %taken.2 $+ , %hit.3 $+ , %taken.3 $+  1 $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]
            msg = $+ $2  1,4 %hit.1 $+ , 2 %taken.1 $+ , 1 %hit.2 $+ ,  2 %taken.2 $+ , %hit.3 $+ , %taken.3 $+  1 $2 $+ 's Hp [[ $+ %target.health $+ ]] $nick $+ 's hp [[ $+ %current.health $+ ]]

            dec %target.health $calc(%hit.1 + %hit.2 + %hit.3)
            dec %current.health $calc(%taken.1 + %taken.2 + %taken.3)
            writeini -n fighting.ini $nick CurrentHealth %current.health
            writeini -n mafiausers.ini [ % $+ [ $2 $+ [ currentchar ] ] ]  CurrentHealth %target.health  
            writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ]  CurrentHealth %current.health        
          }
        }
        else { 
          msg = $+ $nick You are not close enough to attack that person.
        }
      }

      elseif ($1 == !wild) {
        if ([ % $+ [ $nick $+ [ currentauth ] ] ] != 1) { msg = $+ $nick  4,1  Y  0ou have to login... please use !register if you don't have an account. | halt }       
        if ($2 isnum 1-200) {
          writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ]  CurrentWild $2
          msg = $+ $nick  4,1  Y  0ou are now in level $2 Wilderness
        }
        else {
          writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ]  CurrentWild 0
          msg = $+ $nick  4,1  Y  0ou are now out of the wilderness
        }
      }




      elseif ($1 == !stats) {
        if ($2 == $null) { 
          if ([ % $+ [ $nick $+ [ currentauth ] ] ] == 1) {       
            set %armour $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Armour)
            set %weapons $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Weapons)
            set %theivingxp $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivxp)
            set %fightingxp $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightxp)
            set %fightlevel $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightlevel)
            set %theivlevel $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivlevel)
            set %currenthealth $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentHealth)
            set %maxhealth $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], MaxHealth)
            set %cash $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Money)
            set %totalexp $calc(%fightingxp + %theivingxp)


            msg = $+ $nick  4,1 [  $+ [ % $+ [ $nick $+ [ currentchar ] ] ] $+  ] 0:  4 T  0heiving  4 L  0evel: $iif(%theivlevel != $null, %theivlevel, 0) -  4 F  0ighting  4 L  0evel: $iif(%fightlevel != $null, %fightlevel, 0) -  4 M  0oney: $iif(%cash != $null, %cash, 0) -  4 T  0otal  4 E  0xperiance: $iif(%totalexp != $null, %totalexp, 0) -  4 H  0ealth: %currenthealth $+ / $+ %maxhealth 
          }
        }
        elseif ($2 != $null) {
          if ($2 == $readini(mafiausers.ini, n,  $2, Name) && $readini(mafiausers.ini, n,  $2, Name) != $null && $2 != $null) {
            set %armour $readini(mafiausers.ini, n, $2, Armour)
            set %weapons $readini(mafiausers.ini, n, $2, Weapons)
            set %theivingxp $readini(mafiausers.ini, n, $2, Theivxp)
            set %fightingxp $readini(mafiausers.ini, n, $2, Fightxp)
            set %fightlevel $readini(mafiausers.ini, n, $2, Fightlevel)
            set %theivlevel $readini(mafiausers.ini, n, $2, Theivlevel)
            set %cash $readini(mafiausers.ini, n, $2, Money)
            set %totalexp $calc(%fightingxp + %theivingxp)
            set %currenthealth $readini(mafiausers.ini, n, $2, CurrentHealth)
            set %maxhealth $readini(mafiausers.ini, n, $2, MaxHealth)

            msg = $+ $nick  4,1 [  $+ $2 $+  ] 0:  4 T  0heiving  4 L  0evel: $iif(%theivlevel != $null, %theivlevel, 0) -  4 F  0ighting  4 L  0evel: $iif(%fightlevel != $null, %fightlevel, 0) -  4 M  0oney: $iif(%cash != $null, %cash, 0) -  4 T  0otal  4 E  0xperiance: $iif(%totalexp != $null, %totalexp, 0) -  4 H  0ealth: %currenthealth $+ / $+ %maxhealth


          }
          else {
            msg = $+ $nick  4,1  C  0urrent user does not exist.
          }
        }
        else {
          msg = $+ $nick  4,1  Y  0ou have to login.. If you are not an existing user, please use the !register command.
        }
      }


























      halt
    } 
    elseif ($left($1,1) == .) {
      set %mnick $remove($1,$chr(46))     
      if ($chat(%mnick) != %mnick) { msg = $+ $nick  4,1  C  0urrent user is not connected... | halt }    
      msg = $+ $nick  0,15[ 4 $+ To - %mnick $+  0] 1: $2-
      msg = $+ %mnick  0,15[ 4 $+ From - $nick $+  0] 1: $2-
      halt
    }    
    elseif ($left($1,1) == @) {
      if (Mod !isin [ % $+ [ $nick $+ [ currentchar ] ] ] || [ % $+ [ $nick $+ [ currentchar ] ] ] == $null) { msg = $+ $nick  4,1  Y  0ou have to log into your mod account to access these commands. | halt } 
      if (Mod isin [ % $+ [ $nick $+ [ currentchar ] ] ]) {






        if ($1 == @ban) {
          if ($readini(mafiausers.ini, n, $2, Name) == $2) {
            set [ % $+ [ $2 $+ [ banned ] ] ] 1
            msg = $+ $nick  4,1  U  0ser $2 Now banned.
            halt
          }
          else { 
            msg = $+ $nick  4,1  C  0urrent user is not registered...
            halt
          }
        }

        elseif ($1 == @change) {
          if ($readini(mafiausers.ini, n, $2, Name) == $2) {
            writeini -n mafiausers.ini $2 $3 $4
            msg = $+ $nick  4,1  C  0hanged $3 to $4 on $2 $+ ...
          }
        }

        elseif ($1 == @unban) {
          if ($readini(mafiausers.ini, n, $2, Name) == $2) {
            if ([ % $+ [ $2 $+ [ banned ] ] ] != 1) { msg = $+ $nick  4,1  C 0urrent user is not banned. | halt }      
            set [ % $+ [ $2 $+ [ banned ] ] ] 0
            msg = $+ $nick  4,1  U  0ser $2 Now unbanned.
            halt
          }
          else { 
            msg = $+ $nick  4,1  C  0urrent user is not registered...
            halt
          }
        }


        elseif ($1 == @statlist) {
          msg = $+ $nick  4,1  S  0tat variables: [Theiving exp: Theivxp] [Theiving level: Theivlevel] [Fighting exp: Fightxp] [Fighting level: Fightlevel] [Weapon level: Weapon] [Armor level: Armour] [Current health: Currenthealth] [Total health: Maxhealth] [Money: Money]
        }

        elseif ($1 == @help) {
          msg = $+ $nick %modhelp
        }

      }
      halt
    } 
    elseif ($1 == ACTION) {
      set %i 1
      while ($chat(0) >= %i) {
        $iif($chat(%i) == $nick,echo -s $nick,msg = $+ $chat(%i))  6,15* $nick $2-
        inc %i 1
      }
      halt
    }

    set %i 1
    while ($chat(0) >= %i) {
      if ($chat(%i) == $nick) {
        echo -s  0,15[ 4 $+ $nick $+  0] 1: $1-
      }
      else {
        msg = $+ $chat(%i)  0,15[ 4 $+ $nick $+  0] 1: $1-  
      }   
      inc %i 1
    }
  }
}

alias dccsay {
  set %r 1
  while ($chat(0) >= %r) {  
    msg = $+ $chat(%r)  0,15[ 4 $+ $me $+  0] 1: $1- 
    inc %r 1
  }
}


raw PRIVMSG:* DCC CHAT*: {
  echo -s $nick
  echo -s $1  
  echo -s $2
  echo -s $3
  echo -s $4
  echo -s $5
  echo -s $6
  echo -s $7
}
on 1:open:=: {
  msg = $+ $nick   4,1[  M  0afia  4 O  0nline  4] [  T  0ype /dcc chat $me to start game.  4] [  T  0ype !help in dcc window for a list of commands. CURRENTLY UNDER CONSTRUCTION  4]   
  set %k 1
  while ($chat(0) >= %k) {
    msg = $+ $chat(%k)   4,1[  $+ $nick $+   4] 0: has connected...
    inc %k 1
  }
}

on 1:close:=: {    
  set %k 1
  while ($chat(0) >= %k) {
    msg = $+ $chat(%k)   4,1[  $+ $nick $+   4] 0: Has just left...
    if ([ % $+ [ $nick $+ [ currentauth ] ] ] == 1) {    
      msg = $+ $chat(%k)   4,1[  $+ [ % $+ [ $nick $+ [ currentchar ] ] ] $+   4] 0: has logged out...     
    }   
    inc %k 1
  }
  set [ % $+ [ $nick $+ [ currentauth ] ] ] 0  
  set [ % $+ [ $nick $+ [ currentchar ] ] ] $null
}
alias theivlevel {
  set %txp $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Theivxp)
  set %theivlevel 0
  set %oldtheivlevel $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], TheivLevel)
  set %loopbreak 1
  while (%txp >= [ % [ $+ [ xpforlvl $+ [ %theivlevel ] ] ] ]) {
    inc %theivlevel
    inc %loopbreak
    if (%loopbreak >= 102) { echo -a Infinite loop | halt }
  }
  writeini -n mafiausers.ini  [ % $+ [ $nick $+ [ currentchar ] ] ] TheivLevel %theivlevel 
  if (%oldtheivlevel != %theivlevel) {
    msg = $+ $nick  4,1  Y  0ou have gained a theiving level! [[ $+  %theivlevel $+ ]]
  }
}
alias level_check {
  set %fxp $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightxp)
  set %fightlevel 0
  set %oldfightlevel $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], FightLevel)
  set %loopbreak 1
  while (%fxp >= [ % [ $+ [ xpforlvl $+ [ %fightlevel ] ] ] ]) {
    inc %fightlevel
    inc %loopbreak
    if (%loopbreak >= 500) { echo -a Infinite loop | halt }
  }
  writeini -n mafiausers.ini  [ % $+ [ $nick $+ [ currentchar ] ] ] FightLevel %Fightlevel 
  if (%oldfightlevel != %fightlevel) {
    set %current.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentHealth) 
    set %max.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], MaxHealth) 
    inc %max.health 8
    inc %current.health 8
    writeini -n mafiausers.ini  [ % $+ [ $nick $+ [ currentchar ] ] ] MaxHealth %max.health 
    writeini -n mafiausers.ini  [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health 
    msg = $+ $nick  4,1  Y  0ou have gained a fighting level! [[ $+  %Fightlevel $+ ]]
  }
}
alias train_start {
  set %current.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentHealth) 
  set %max.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], MaxHealth) 
  set %current.exp $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], Fightxp)
  set %see.enemy $rand(0,2)
  set %damadge.taken $rand(0, %monster.damadge)
  if (%see.enemy == 1) {  
    inc [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ] 3
    dec %current.health %damadge.taken
    inc %current.exp %monster.exp
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %current.health
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Fightxp %current.exp

    msg = $+ $nick  4,1  Y  0ou kill a %monster.name $+ . [Fatigue: [ % $+ [ [ % $+ [ $nick $+ [ currentchar ] ] ] $+ [ fatigue ] ] ]  ] [Health: %current.health / %max.health  ]

  }
  else {
    msg = $+ $nick  4,1  T  0here is nothing to attack
  }
}
alias check_death {
  set %current.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], CurrentHealth) 
  set %max.health $readini(mafiausers.ini, n, [ % $+ [ $nick $+ [ currentchar ] ] ], MaxHealth) 
  if (%current.health <= 0) {
    msg = $+ $nick  4,1  O  0hh dear, your dead!      
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Weapon 0
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] Armour 0
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentHealth %max.health
    writeini -n mafiausers.ini [ % $+ [ $nick $+ [ currentchar ] ] ] CurrentWild 0    

  }
}

Come to irc.moparscape.org #mopar - alot of oldschool niggas hang out there

 

I cant believe you still have that lol and ill be on irc when i get out of work

 

Ill test it

 

ill test that shit lmao hook it up

 

sublime is my rsca name if im not to late

 

I'd like to test it out, please?

 

ill test it for you

 

Ill test it

 

looks nice gotta try

 

w00t??????????