;##########################################
; spuzzy2@hotmail.com
;##########################################

alias getinfo { return 3 $+ $readini(Players\ $+ $1 $+ .ini,$1,$2) $+ 10 }
alias getinfo2 { return $readini(Players\ $+ $1 $+ .ini,$1,$2) }
alias getinfo3 { return $readini(PlayerLogs\ $+ $1 $+ .ini,$1,$2) }
alias getinfo4 { return $readini(GangLogs\ $+ $1 $+ .ini,$1,$2) }
alias getstat { return $readini(players\ $+ $1 $+ .ini,$1,STAT) }

alias WAR_HACK {
  writeini players\ $+ $1 $+ .ini $1 STAT HACK
  msg = $+ $1  $space
  msg = $+ $1 7Hacking!
  msg = $+ $1  $space
  msg = $+ $1 10You have3 $cash($getinfo2($1,CASH)) 10in your wallet
  msg = $+ $1 10Successful Hacks gain you3 5% 10 of your victim's bank account
  msg = $+ $1 10Unsuccessful Hacks lose you3 10% 10 of your bank account
  msg = $+ $1  $space
  %player.hack = $getinfo2($1,HACK)
  if %player.hack == $NULL {
    msg = $+ $1 10You currently do not have any hackers. Hackers can protect your bank and attempt to hack other players banks!
    msg = $+ $1  $space
    msg = $+ $1 [B] : 10Employ a Hacker3 $ $+ 50 000
    msg = $+ $1  $space
    msg = $+ $1 10[3X10] : Go back
    msg = $+ $1  $space
  }
  check_hinv $1
  if %player.hack == YES {
    %player.hacknum = $getinfo2($1,HACKNUM)

    msg = $+ $1 10You have3 %player.hacknum 10Hackers protecting your bank and available to hack for you!
    msg = $+ $1  $space
    msg = $+ $1 10You have3 $getinfo2($1,ENERGY) 10energy
    msg = $+ $1 10You have3 $calc(5 - $getinfo2($1,HACKATTACKS)) 10 hacks left for the day
    msg = $+ $1 10Hacks made on you today:3 $getinfo2($1,HACKSDEF)
    msg = $+ $1  $space
    if $getinfo2($1,MENU) == 0 { halt }

    msg = $+ $1 [B] : 10Employ another Hacker3  ( $+ $cash($calc($getinfo2($1,HACKNUM) * 50000)) cash)
    msg = $+ $1 [HACK <name>] : 10Attempt to hack another player's bank - Cost is3 3 Energy
    msg = $+ $1 [BC] : 10Buy haxor Items
    msg = $+ $1  $space
    msg = $+ $1 10Hack Attack:3 + $+ $getinfo($1,HACKATT)
    msg = $+ $1 10Hack Defense:3 + $+ $getinfo($1,HACKDEF)
    msg = $+ $1  $space
    msg = $+ $1 10Attack Items:3 %hinv
    msg = $+ $1 10Defense Items:3 %hdef
    msg = $+ $1 10Special Items:3 %hspe
    msg = $+ $1  $space
    msg = $+ $1 10[3X10] : Go back
    msg = $+ $1  $space
  }
}
alias WAR_BUY_FIRST_HACKER {
  %player.lev = $getinfo2($1,LEVEL)
  if %player.lev < 10 { msg = $+ $1 10The hackers laugh at you. Try becoming more important to employ them... level 10 | halt }
  %player.cash = $getinfo2($1,CASH)
  if %player.cash < 50000 {
    msg = $+ $1 10You cannot afford it! You need3 50 000 10cash to buy a hacker.
    halt
  }
  if %player.cash >= 50000 {
    %player.cash = $calc( %player.cash - 50000)
    writeini Players\ $+ $1 $+ .ini $1 HACKNUM 1
    writeini Players\ $+ $1 $+ .ini $1 HACK YES
    writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
    msg = $+ $1 3You have bought a Hacker!
    ADD_LOG $1 You have bought your first Hacker!
    WAR_HACK $1
    halt
  }
}
alias WAR_BUY_ANOTHER_HACKER {
  %player.cash = $getinfo2($1,CASH)
  %next.hack = $calc($getinfo2($1,HACKNUM) * 5000000)
  if %player.cash < %next.hack {
    msg = $+ $1 10You cannot afford it! You need3 $cash(%next.hack) 10cash to buy another hacker.
    halt
  }
  if %player.cash >= %next.hack {
    %player.cash = $calc( %player.cash - %next.hack )
    writeini Players\ $+ $1 $+ .ini $1 HACKNUM $calc($getinfo2($1,HACKNUM) + 1000)
    writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
    msg = $+ $1 3You have bought another Hacker
    ADD_LOG $1 You have bought another Hacker
    WAR_HACK $1
    halt
  }
}
alias WAR_HACK_BANK {
  if $1 == $2 { msg = $+ $1 smartass... | halt }
  if $exists(Players\ $+ $2 $+ .ini) == $FALSE {
    msg = $+ $1 10That player does not exist!
    halt
  }
  if $exists(Players\ $+ $2 $+ .ini) == $TRUE {
    %victim.gang = $getinfo2($2,GANGNAME)
    %victim.level = $getinfo2($2,LEVEL)
    %attacker.level = $calc($getinfo2($1,LEVEL) - 21)
    if $getinfo2($1,GANG) == YES {
      %attacker.gang = $getinfo2($1,GANGNAME)
      if %attacker.gang == %victim.gang { msg = $+ $1 10You cannot hack someone that's in the same gang as you! | halt }
    }
    if %victim.level <= %attacker.level { msg = $+ $1 3You cannot hack someone more than 20 levels lower than you! | halt }
    %player.def = $getinfo2($2,HACKSDEF)
    if %player.def == 5 { msg = $+ $1 10This person has been hacked 5 times today already! Try someone else | halt }
    %player.eng = $getinfo2($1,ENERGY)
    if %player.eng == 0 { msg = $+ $1 10You have no energy left! | halt }
    if %player.eng < 3 { msg = $+ $1 10You do not have enough energy to attempt a hack! | halt }
    %player.hat = $getinfo2($1,HACKATTACKS)
    if %player.hat == 5 { msg = $+ $1 10You may only attempt to hack someone 5 times a day | halt }
    %player.eng = $calc( %player.eng - 3)
    writeini Players\ $+ $1 $+ .ini $1 ENERGY %player.eng
    inc %player.hat 1
    writeini players\ $+ $1 $+ .ini $1 HACKATTACKS %player.hat
    unset %att.HP
    unset %def.HP
    %att.HP = $calc(($getinfo2($1,HACKNUM)*100) + $getinfo2($1,HACKATT))
    if %att.HP == 0 { msg = $+ $1 You do not have any hackers to attempt a hack! | halt }
    %def.HP = $calc(($getinfo2($2,HACKNUM)*100) + $getinfo2($2,HACKDEF))
    inc %player.def 1
    writeini players\ $+ $2 $+ .ini $2 HACKSDEF %player.def
    if %att.HP < %def.HP {
      msg = $+ $1 10You call your hackers and attempt to hack3 $2 $+ !
      %player.bank = $getinfo2($1,BANK)
      ADD_LOG $1 You failed to hack $2 $+ ! %player.cash.scored stolen from your bank in retaliation!
      ADD_LOG $2 $1 tried to hack you and failed $+ ! %player.cash.scored cash stolen by opposing hackers!
      if %player.bank <= 0 { msg = $+ $1 10You failed to hack 3 $2 10but lost nothing | halt }
      %player.cash.scored = $round($calc( %player.bank * 0.1),0)
      %player.cash.left = $calc( %player.bank - %player.cash.scored )
      if %player.bank > 0 {
        writeini Players\ $+ $1 $+ .ini $1 BANK %player.cash.left
        writeini Players\ $+ $2 $+ .ini $2 BANK $calc($getinfo2($2,BANK) + %player.cash.scored )
        msg = $+ $1 10You lose3 $cash(%player.cash.scored) 10cash from your bank from a failed hack attempt!
        if $chat($2).status == active {
          msg = $+ $2 -
          msg = $+ $2 -
          msg = $+ $2 3 $+ $1 10has just hacked you and failed. Your hackers hack3 $cash(%player.cash.scored) 10in retaliation!
          msg = $+ $2 -
          msg = $+ $2 -
        }
        halt
      }
    }
    if %att.HP >= %def.HP {
      msg = $+ $1 10You call your hackers and attempt to hack3 $2 $+ !
      %player.bank = $getinfo2($2,BANK)
      if %player.bank <= 0 { msg = $+ $1 10You hack 3 $2 $+ 's 10bank but get nothing | halt }
      %player.cash.scored = $round($calc( %player.bank * 0.05),0)
      %player.cash.left = $calc( %player.bank - %player.cash.scored )
    }
    if %player.bank > 0 {
      writeini Players\ $+ $2 $+ .ini $2 BANK %player.cash.left
      writeini Players\ $+ $1 $+ .ini $1 BANK $calc($getinfo2($1,BANK) + %player.cash.scored )
      msg = $+ $1 10You steal3 $cash(%player.cash.scored) 10cash from3 $2 $+ 's 10bank!
      if $chat($2).status == active {
        msg = $+ $2 -
        msg = $+ $2 -
        msg = $+ $2 3 $+ $1 10has just hacked you and stolen3 $cash(%player.cash.scored) 10from your bank!
        msg = $+ $2 -
        msg = $+ $2 -
        if %victim.level < 10 { msg = $+ $2 3Get to level 10 to buy hackers to protect yourself! }
      }
      ADD_LOG $1 You hacked $2 $+ ! %player.cash.scored stolen from their bank!
      ADD_LOG $2 $1 hacked you $+ ! %player.cash.scored cash stolen from your bank!
      halt
    }
  }
}
alias Check_Hinv {
  unset %hinv
  unset %hdef
  unset %hspe
  if 01 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3K-Log10] }
  if 02 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3Spyware10] }
  if 03 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3Synflood10] }
  if 04 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3NMap10] }
  if 05 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3MBHTTP10] }
  if 06 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3Unix-SHell10] }
  if 07 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3Knark10] }
  if 08 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3DNS-Spoof10] }
  if 09 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3Pack-Sniff10] }
  if 10 isin $getinfo2($1,HACKITEMS) { %hinv = %hinv $+ 10[3DOSNet10] }
  if 11 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3INT-Dummies10] }
  if 12 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Anti-Virus10] }
  if 13 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Zone-Alarm10] }
  if 14 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3LinuxBox10] }
  if 15 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Null-Route10] }
  if 16 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Snort10] }
  if 17 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3DMZ10] }
  if 18 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Cisco10] }
  if 19 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3OpenBSD10] }
  if 20 isin $getinfo2($1,HACKITEMS) { %hdef = %hdef $+ 10[3Gibson10] }
  if 21 isin $getinfo2($1,HACKITEMS) { %hspe = %hspe $+ 10[3Mitnick10] }
}

alias WAR_HACK_ADD {
  writeini players\ $+ $nick $+ .ini $nick STAT HACKITEMS
  msg = $+ $1  $space
  msg = $+ $1 7Hack Attack Items
  msg = $+ $1  $space
  msg = $+ $1 10You have3 $cash($getinfo2($1,CASH)) 10in your wallet
  msg = $+ $1  $space
  msg = $+ $1 [1] : 10Keystroke Logger3 (+25 HaxAtt)10 25 000 Cash
  msg = $+ $1 [2] : 10Spyware, Trojan & Virus Kit3 (+50 HaxAtt)10 50 000 Cash Rqmt: Lvl 20+
  msg = $+ $1 [3] : 10Synflooder3 (+75 HaxAtt)10 75 000 Cash Rqmt: Lvl 30+
  msg = $+ $1 [4] : 10NMap Port Scanner3 (+100 HaxAtt)10 100 000 Cash Rqmt: Lvl 40+
  msg = $+ $1 [5] : 10MBHTTP Brute Force password crack application3 (+125 HaxAtt)10 125 000 Cash Rqmt: Lvl 50+
  msg = $+ $1 [6] : 10Unix Shell Account3 (+150 HaxAtt)10 150 000 Cash Rqmt: Lvl 60+
  msg = $+ $1 [7] : 10Knark RootKit3 (+200 HaxAtt)10 250 000 Cash Rqmt: Lvl 70+
  msg = $+ $1 [8] : 10Dns Spoofing3 (+250 HaxAtt)10 500 000 Cash Rqmt: Lvl 80+
  msg = $+ $1 [9] : 10Ethereal Packet Sniffer3 (+500 HaxAtt)10 1 000 000 Cash Rqmt: Lvl 90+
  msg = $+ $1 [10] : 10DOSnet.c DDOS Script + Bandwidth3 (+1000 HaxAtt)10 5 000 000 Cash Rqmt: Lvl 100+
  msg = $+ $1  $space
  msg = $+ $1 7Hack Defense Items
  msg = $+ $1  $space
  msg = $+ $1 [11] : 10Internet Security for dummies - Pocket Guide3 (+25 HaxDef)10 25 000 Cash
  msg = $+ $1 [12] : 10Anti-Virus3 (+50 HaxDef)10 50 000 Cash Rqmt: Lvl 20+
  msg = $+ $1 [13] : 10Zone Alarm Windows Firewall3 (+75 HaxDef)10 75 000 Cash Rqmt: Lvl 30+
  msg = $+ $1 [14] : 10LinuxBox3 (+100 HaxDef)10 100 000 Cash Rqmt: Lvl 40+
  msg = $+ $1 [15] : 10Null Routing3 (+150 HaxDef)10 150 000 Cash Rqmt: Lvl 50+
  msg = $+ $1 [16] : 10Snort Intrusion Detection3 (+200 HaxDef)10 250 000 Cash Rqmt: Lvl 60+
  msg = $+ $1 [17] : 10DMZ3 (+250 HaxDef)10 500 000 Cash Rqmt: Lvl 70+
  msg = $+ $1 [18] : 10Cisco Hardware Firewall3 (+500 HaxDef)10 1 000 000 Cash Rqmt: Lvl 80+
  msg = $+ $1 [19] : 10OpenBSD with IPChains3 (+1000 HaxDef)10 5 000 000 Cash Rqmt: Lvl 90+
  msg = $+ $1 [20] : 10Gibson Server3 (+2500 HaxDef)10 10 000 000 Cash Rqmt: Lvl 100+
  msg = $+ $1  $space
  msg = $+ $1 7Special
  msg = $+ $1  $space
  msg = $+ $1 [21] : 10The Art of Deception & Intrusion Books by Kevin Mitnick3 (+2500 HaxAtt + 2500 HaxDef)10 25 000 000 Cash Rqmt: Lvl 150+
  msg = $+ $1  $space
  msg = $+ $1 10Enter the number you want to buy. 10[3X10] to go back
}
alias BUY_HACK {
  %player.lev = $getinfo2($1,LEVEL)
  if %player.lev < 10 { msg = $+ $1 10You cant buy hack items until you are at least level 10! | halt }
  if $2 == 1 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 25000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 01 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 01 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 25000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 25)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Keystroke Logger to help your hackers
      halt
    }  
  }
  if $2 == 2 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 50000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 02 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 02 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 50000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 50)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Spyware, Trojan & Virus Kit to help your hackers
      halt
    }  
  }
  if $2 == 3 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 75000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 03 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 03 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 75000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 75)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Synflooder to help your hackers
      halt
    }  
  }
  if $2 == 4 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 100000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 04 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 04 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 100000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 100)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought an NMap Port Scanner to help your hackers
      halt
    }  
  }
  if $2 == 5 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 125000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 05 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 05 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 125000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 125)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a MBHTTP Brute Force password crack application to help your hackers
      halt
    }  
  }
  if $2 == 6 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 150000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 06 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 06 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 150000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 150)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Unix Shell Account to help your hackers
      halt
    }  
  }
  if $2 == 7 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 250000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 07 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 07 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 250000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 200)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Knark RootKit to help your hackers
      halt
    }  
  }
  if $2 == 8 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 500000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 08 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 08 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 500000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 250)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Dns Spoofing to help your hackers
      halt
    }  
  }
  if $2 == 9 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 1000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 09 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 09 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 1000000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 500)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought an Ethereal Packet Sniffer to help your hackers
      halt
    }  
  }
  if $2 == 10 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 5000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 10 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 10 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 5000000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 1000)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a DOSnet.c DDOS Script + Bandwidth to help your hackers
      halt
    }  
  }
  if $2 == 11 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 25000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 11 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 11 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 25000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 25)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought an Internet Security for dummies - Pocket Guide to help your hackers
      halt
    }  
  }
  if $2 == 12 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 50000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 12 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 12 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 50000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 50)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought an anti-virus to help your hackers
      halt
    }  
  }
  if $2 == 13 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 75000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 13 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 13 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 75000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 75)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Zone Alarm Windows Firewall to help your hackers
      halt
    }  
  }
  if $2 == 14 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 100000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 14 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 14 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 100000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 100)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a LinuxBox to help your hackers
      halt
    }  
  }
  if $2 == 15 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 150000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 15 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 15 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 150000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 150)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought Null Routing to help your hackers
      halt
    }  
  }
  if $2 == 16 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 250000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 16 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 16 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 250000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 200)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Snort Intrusion Detection to help your hackers
      halt
    }  
  }
  if $2 == 17 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 500000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 17 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 17 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 500000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 250)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a DMZ to help your hackers
      halt
    }  
  }
  if $2 == 18 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 1000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 18 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 18 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 1000000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 500)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought Cisco Hardware Firewall to help your hackers
      halt
    }  
  }
  if $2 == 19 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 5000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 19 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 19 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 5000000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 1000)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought OpenBSD with IPChains to help your hackers
      halt
    }  
  }
  if $2 == 20 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 10000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 20 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 20 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 10000000)
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 2500)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought a Gibson Server to help your hackers
      halt
    }  
  }
  if $2 == 21 {
    %player.cash = $getinfo2($1,CASH)
    if %player.cash < 25000000 { msg = $+ $1 You cannot afford that! | halt }
    else {
      %get.list = $getinfo2($1,HACKITEMS)
      if 21 isin %get.list { msg = $+ $1 You already have that item! | halt }
      else { %get.list = %get.list 21 | writeini Players\ $+ $1 $+ .ini $1 HACKITEMS %get.list }

      %player.cash = $calc( %player.cash - 25000000)
      %player.ext = $getinfo2($1,HACKATT)
      %player.ext = $calc( %player.ext + 2500)
      writeini Players\ $+ $1 $+ .ini $1 HACKATT %player.ext
      %player.ext = $getinfo2($1,HACKDEF)
      %player.ext = $calc( %player.ext + 2500)
      writeini Players\ $+ $1 $+ .ini $1 HACKDEF %player.ext
      writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
      msg = $+ $1 You have bought The Art of Deception & Intrusion Books by Kevin Mitnick to help your hackers
      halt
    }  
  }
}