MegaRPG Base Code v3.0

By LucSatise on Jul 23, 2008

Add this to a seperate script file:

EDIT: I was told the FairyDust and Magic Attacks wouldn't hit NPC's so try this. if this doesn't work then i dono cos it works fine on mine.

on *:LOAD:{
  if (!%MainChannel) { cF2 }
}
alias cF2 {
  set %MainChannel $$?="Enter Main Channel Including #"
  set %Password $$?="Enter nickname PASSWORD"
}
on *:CONNECT:{
  join %MainChannel
  ns identify %Password
  join %LogChan
}

on *:TEXT:*:?:{
  window -c $nick
}

on *:JOIN:%MainChannel:{
  if ($istok(%NPC.Names,$nick,32)) { mode %MainChannel +b $Nick | kick %MainChannel $Nick $Left You are on an NPC Name! $Right | halt }
  notice $nick $Left Welcome to 15MegaRPG14. $Right
  if ($readini(Players.ini,$nick,Registered) == Yes) { notice $nick $Left You are Already Registered. Please Login: /msg $me `Login <password> $Right }
  else { notice $nick $Left You are Not registered. Please type: 15/msg $me `Register14 to Play $Right }
}

alias left { return 4,1[-14 }
alias right { return 4-] }
on *:NICK:{
  if ($newnick ison %MainChannel) {
    if ($istok(%NPC.Names,$newnick,32)) { mode %MainChannel +b $newNick | kick %MainChannel $newnick $Left NPC Nick Detected $Right }
  }
  if ($readini(Players.ini,$nick,LoggedIn) == Yes) { writeini Players.ini $nick LoggedIn No | leavearena $nick | mode %MainChannel -hv $newnick $newnick | msg %MainChannel $left 15 $+ $nick $+ 14(15 $+ $readini(Players.ini,$nick,Character_Name) $+ 14) has Logged out. $Right }
}
on *:TEXT:`Register*:?:{
  if ($readini(Players.ini,$nick,Registered) == Yes) { notice $nick $Left You are Already Registered $Right | halt }
  if (!$2) || (!$3) { 
    notice $Nick $Left Syntax: 15/msg $me `Register <CharacterName> <Password>14. Once This is Complete i Will provide You with More Instructions. $Right
  }
  if ([ isin $nick) || (] isin $nick) { notice $nick $Left You cannot Register with 15[14 or 15]14 in your Name $Right | halt }
  if ($2) && ($3) {
    writeini Players.ini $Nick Registered Yes
    writeini Players.ini $nick Character_Name $2
    writeini Players.ini $Nick Password $3
    writeini Players.ini $Nick Class -
    writeini Players.ini $Nick HP -
    writeini Players.ini $Nick MHP -
    Writeini Players.ini $Nick SP -
    writeini Players.ini $Nick MSP -
    writeini Players.ini $Nick Attack -
    writeini Players.ini $Nick Defence -
    writeini Players.ini $nick Level 1
    writeini Players.ini $nick EXP 0
    writeini Players.ini $nick NextEXP 300
    writeini Players.ini $nick LoggedIn No
    writeini Admins.ini Admin $nick No
    notice $Nick $Left You are Now Registered. Please Login:15 /msg $Me `Login <Password>14 $Right
  }
}
on *:TEXT:`Login*:?:{
  if ($nick !ison %MainChannel) { notice $nick $Left You must be in15 %MainChannel 14to Play $Right }
  if ($readini(Players.ini,$nick,Registered) != Yes) { notice $nick $Left You are not Registered. Please type 15/msg $Me `Register14 $Right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == Yes) { notice $Nick $Left You are already Logged In $right | mode %MainChannel +v $nick | halt }
  if ($readini(Players.ini,$nick,Password) != $2) { notice $nick $left Incorrect Password. $right | halt }
  LoginNick $nick
}
alias LoginNick {
  writeini Players.ini $1 LoggedIn Yes
  mode %MainChannel +v $1
  msg %MainChannel $Left $+ 15 $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) Has Logged In $Right
  classCheck $1
  checkModules $1
  if ($readini(Admins.ini,Admin,$1) == Yes) { invite $1 %LogChan }
}
on *:QUIT:{
  if ($readini(Players.ini,$nick,LoggedIn) == Yes) { writeini Players.ini $nick LoggedIn No }
}

on *:PART:%MainChannel:{
  if ($readini(Players.ini,$nick,LoggedIn) == Yes) { writeini Players.ini $nick LoggedIn No }
}
alias ClassCheck {
  if ($readini(Players.ini,$1,Class) == -) { 
    notice $1 $Left You Must Set a Class. To Do this Type 15`Class <Class>14 In15 %MainChannel $Left
    notice $1 $Left To see Class List type `ClassList $Right
  }
}
on *:TEXT:`Class*:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) != -) { notice $nick $left You already have a Class. You are a15 $readini(Players.ini,$nick,Class) $right | halt }
  if ($1 == `ClassList) {  
    notice $nick $Left Classes as are as Follows: $Right
    notice $Nick $Left 4Vampire 8Fairy 14Ninja 3Magician $right
    notice $Nick $left Type 15`Class <class with no colors>14 to select $right
  }
  if ($1 == `Class) {
    if ($2 == Vampire) {
      writeini Players.ini $Nick Class Vampire
      writeini Players.ini $Nick MHP $rand(50,100)
      writeini Players.ini $Nick MSP $rand(50,100)
      writeini Players.ini $Nick Attack $rand(20,50)
      writeini Players.ini $Nick Defence $rand(20,50)
      writeini Players.ini $Nick Level 1
      setAttacks $nick
    }
    if ($2 == Fairy) {
      writeini Players.ini $Nick Class Fairy
      writeini Players.ini $Nick MHP $rand(50,100)
      writeini Players.ini $Nick MSP $rand(50,100)
      writeini Players.ini $Nick Attack $rand(20,50)
      writeini Players.ini $Nick Defence $rand(20,50)
      writeini Players.ini $Nick Level 1
      setAttacks $nick
    }
    if ($2 == Ninja) {
      writeini Players.ini $Nick Class Ninja
      writeini Players.ini $Nick MHP $rand(50,100)
      writeini Players.ini $Nick MSP $rand(50,100)
      writeini Players.ini $Nick Attack $rand(20,50)
      writeini Players.ini $Nick Defence $rand(20,50)
      writeini Players.ini $Nick Level 1
      setAttacks $Nick
    }
    if ($2 == Magician) {
      writeini Players.ini $Nick Class Magician
      writeini Players.ini $Nick MHP $rand(50,100)
      writeini Players.ini $Nick MSP $rand(50,100)
      writeini Players.ini $Nick Attack $rand(20,50)
      writeini Players.ini $Nick Defence $rand(20,50)
      writeini Players.ini $Nick Level 1 
      setAttacks $Nick
    }
  }
}
alias SetAttacks {
  if ($readini(Players.ini,$1,Class) == Vampire) {
    writeini Attacks.ini $1 Attacks Bite
    writeini Attacks.ini $1 Bite Yes
    writeini Attacks.ini $1 FairyDust No
    writeini Attacks.ini $1 Magic No
    writeini Attacks.ini $1 Kill No
  }
  if ($readini(Players.ini,$1,Class) == Fairy) {
    writeini Attacks.ini $1 Attacks FairyDust
    writeini Attacks.ini $1 Bite No
    writeini Attacks.ini $1 FairyDust Yes
    writeini Attacks.ini $1 Magic No
    writeini Attacks.ini $1 Kill No
  }
  if ($readini(Players.ini,$1,Class) == Ninja) {
    writeini Attacks.ini $1 Attacks Kill
    writeini Attacks.ini $1 Bite No
    writeini Attacks.ini $1 FairyDust No
    writeini Attacks.ini $1 Magic No
    writeini Attacks.ini $1 Kill Yes
  }
  if ($readini(Players.ini,$1,Class) == Magician) {
    writeini Attacks.ini $1 Attacks Magic
    writeini Attacks.ini $1 Bite Yes
    writeini Attacks.ini $1 FairyDust No
    writeini Attacks.ini $1 Magic Yes
    writeini Attacks.ini $1 Kill No
  }
  notice $1 $left Class Set. Type 15`Attacks14 to View your Attacks and 15`Stats14 to see your stats $right
  heal $1
}
alias heal {
  writeini Players.ini $1 HP $readini(Players.ini,$1,MHP)
  writeini Players.ini $1 SP $readini(Players.ini,$1,MSP)
  notice $1 $Left You are Fully Healed $Right
}
alias checkModules {
  UpdateModule.Ranks $1
  Module.Money $1
}
on *:TEXT:`Attacks:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  notice $nick $Left Your Attacks are: $readini(Attacks.ini,$nick,Attacks) $Right
  notice $Nick $Left to Use an Attack type `<attackname> <target> While in Arena. $Right
}
on *:TEXT:`Heal:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) == Yes) { notice $Nick $Left You Must Leave the Arena First $Right | halt }
  timerHeal $+ $Nick 1 10 heal $Nick
  notice $Nick $Left you will be Healed in 10 Seconds $Right
}
on *:TEXT:`DelAccount:?:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  remini Players.ini $Nick
  remini Attacks.ini $Nick
  remini Admins.ini $nick
  remini Bank.ini $Nick
  notice $Nick $Left Account Deleted $Right
  mode %MainChannel -v $Nick
  msg %MainChannel $Left $Nick Has deleted their Account $Right
}
on *:TEXT:`Stats*:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if (!$2) {
    notice $Nick $Left HP:15 $readini(Players.ini,$Nick,HP) $+ 14/15 $+ $readini(Players.ini,$Nick,MHP) 14|| SP:15 $readini(Players.ini,$Nick,SP) $+ 14/15 $+ $readini(Players.ini,$Nick,MSP) 14|| Character Name:15 $readini(Players.ini,$Nick,Character_Name) $Right
    notice $Nick $Left Attack:15 $readini(Players.ini,$Nick,Attack) 14 || Defence:15 $readini(Players.ini,$Nick,Defence) 14|| Class:15 $readini(Players.ini,$Nick,Class) $Right
    notice $Nick $Left Level:15 $readini(Players.ini,$Nick,Level) 14|| Experience:15 $Readini(Players.ini,$Nick,EXP) 14 || Next Level At:15 $readini(Players.ini,$Nick,NextEXP) 14|| EXP To Go:15 $calc($readini(Players.ini,$Nick,NextEXP) - $readini(Players.ini,$Nick,EXP)) 14|| Rank:15 $readini(Players.ini,$nick,Rank) $Right
    notice $nick $Left Bot Admin: 15 $readini(Admins.ini,Admin,$nick) $right
  }
  if ($2) { 
    notice $Nick $Left HP:15 $readini(Players.ini,$2,HP) $+ 14/15 $+ $readini(Players.ini,$2,MHP) 14|| SP:15 $readini(Players.ini,$2,SP) $+ 14/15 $+ $readini(Players.ini,$2,MSP) 14|| Character Name:15 $readini(Players.ini,$2,Character_Name) $Right
    notice $Nick $Left Attack:15 $readini(Players.ini,$2,Attack) 14 || Defence:15 $readini(Players.ini,$2,Defence) 14|| Class:15 $readini(Players.ini,$2,Class) $Right
    notice $Nick $Left Level:15 $readini(Players.ini,$2,Level) 14|| Experience:15 $Readini(Players.ini,$2,EXP) 14 || Next Level At:15 $readini(Players.ini,$2,NextEXP) 14|| EXP To Go:15 $calc($readini(Players.ini,$2,NextEXP) - $readini(Players.ini,$2,EXP)) 14|| Rank:15 $readini(Players.ini,$2,Rank) $Right
    notice $nick $Left Bot Admin: 15 $readini(Admins.ini,Admin,$2) $right
  }
}
on *:TEXT:`ShowStats*:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if (!$2) {
    msg %MainChannel $Left HP:15 $readini(Players.ini,$Nick,HP) $+ 14/15 $+ $readini(Players.ini,$Nick,MHP) 14|| SP:15 $readini(Players.ini,$Nick,SP) $+ 14/15 $+ $readini(Players.ini,$Nick,MSP) 14|| Character Name:15 $readini(Players.ini,$Nick,Character_Name) $Right
    msg %MainChannel $Left Attack:15 $readini(Players.ini,$Nick,Attack) 14 || Defence:15 $readini(Players.ini,$Nick,Defence) 14|| Class:15 $readini(Players.ini,$Nick,Class) $Right
    msg %MainChannel $Left Level:15 $readini(Players.ini,$Nick,Level) 14|| Experience:15 $Readini(Players.ini,$Nick,EXP) 14 || Next Level At:15 $readini(Players.ini,$Nick,NextEXP) 14|| EXP To Go:15 $calc($readini(Players.ini,$Nick,NextEXP) - $readini(Players.ini,$Nick,EXP)) 14|| Rank:15 $readini(Players.ini,$nick,Rank) $Right
    msg %MainChannel $Left Bot Admin: 15 $readini(Admins.ini,Admin,$nick) $right
  }
  if ($2) { 
    msg %MainChannel $Left HP:15 $readini(Players.ini,$2,HP) $+ 14/15 $+ $readini(Players.ini,$2,MHP) 14|| SP:15 $readini(Players.ini,$2,SP) $+ 14/15 $+ $readini(Players.ini,$2,MSP) 14|| Character Name:15 $readini(Players.ini,$2,Character_Name) $Right
    msg %MainChannel $Left Attack:15 $readini(Players.ini,$2,Attack) 14 || Defence:15 $readini(Players.ini,$2,Defence) 14|| Class:15 $readini(Players.ini,$2,Class) $Right
    msg %MainChannel $Left Level:15 $readini(Players.ini,$2,Level) 14|| Experience:15 $Readini(Players.ini,$2,EXP) 14 || Next Level At:15 $readini(Players.ini,$2,NextEXP) 14|| EXP To Go:15 $calc($readini(Players.ini,$2,NextEXP) - $readini(Players.ini,$2,EXP)) 14|| Rank:15 $readini(Players.ini,$2,Rank) $Right
    msg %MainChannel $Left Bot Admin: 15 $readini(Admins.ini,Admin,$2) $right
  }
}
on *:TEXT:`Enter:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) == Yes) { notice $Nick $Left You are Already Fighting $Right | halt }
  if ($readini(Players.ini,$nick,HP) <= 0) { notice $nick $left please `heal first $right | halt }
  writeini Players.ini $Nick Fighting Yes
  mode %MainChannel +h $Nick
  msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) has entered the Battle Arena $Right
  if ($readini(Admins.ini,Admin,$nick) != Yes) { set %BattleArena $addtok(%BattleArena,$nick,32) }
  if ($readini(Admins.ini,Admin,$nick) == Yes) { set %BattleArena $Addtok(%BattleArena,12 $+ $nick $+ 15,32) }
}
on *:TEXT:`Leave:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) == No) { notice $Nick $Left You are not Currently Fighting $Right | halt }
  timerleave $+ $Nick 1 20 LeaveArena $Nick
  msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) is leaving the Arena in 20seconds $Right
}
alias LeaveArena {
  writeini Players.ini $1 Fighting No
  mode %MainChannel -h $1
  msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has left the Battle Arena $Right
  if ($readini(Admins.ini,Admin,$1) == No) { set %BattleArena $remtok(%BattleArena,$1,32) }
  if ($readini(Admins.ini,Admin,$1) == Yes) { set %BattleArena $remtok(%BattleArena,12 $+ $1 $+ 15,32) }
}
on *:Text:`Entered:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  msg %MainChannel $Left The Following are in the Arena:15 %BattleArena $right
  msg %MainChannel $Left Key: 15Players 4NPC's 12Admins $right
}
on *:TEXT:`Bite *:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) != Yes) { notice $Nick $Left You are not Currently Fighting $Right | halt }
  if ($readini(Attacks.ini,$Nick,Bite) == No) { Notice $nick $Left You cannot use this Attack! | halt }
  if ($readini(Players.ini,$nick,SP) < 10) { notice $Nick $Left You do Not have Enough SP $Right | halt }
  if (!$istok($strip(%BattleArena),$2,32)) { notice $nick $Left $2 is not Fighting. Try `entered $Right | halt }
  if ($2 == $Nick) { notice $Nick $Left You can't attack yourself $Nick $+ ! $Right | halt }
  if ($istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14 with 15Bite $Right }
  if (!$istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15Bite $Right }
  timerAttack $+ $Nick 1 15 Bite $nick $2
}
alias Bite {
  set %EXPGained $rand(1,15)
  if (!$istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(Players.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has Just Attacked15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15Bite14 for15 %Damage 14HP of Damage $Right
    notice $1 $Left You gained15 %EXPGained 14Experience for That Hit! $Right
    writeini Players.ini $2 HP $calc($readini(Players.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    DeathCheck $2 $1
  }
  if ($istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(NPC.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) Attacked15 $2 14with 15Bite for15 %Damage 14Damage $Right   
    notice $1 $left You Ganed15 %EXPGained 14Experience for that Hit. $right
    writeini NPC.ini $2 HP $calc($readini(NPC.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    NPCDeathCheck $2 $1
  }
}
alias LevelCheck {
  if ($readini(Players.ini,$1,EXP) >= $readini(Players.ini,$1,NextEXP)) {
    writeini Players.ini $1 Level $calc($readini(Players.ini,$1,Level) + 1)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) - $readini(Players.ini,$1,NextEXP))
    writeini Players.ini $1 NextEXP $calc($readini(Players.ini,$1,Level) * 300)
    writeini Players.ini $1 Attack $calc($readini(Players.ini,$1,Attack) + $rand(30,100))
    writeini Players.ini $1 Defence $calc($readini(Players.ini,$1,Defence) + $rand(30,100))
    writeini Players.ini $1 MHP $calc($readini(Players.ini,$1,MHP) + $rand(10,50))
    writeini Players.ini $1 MSP $calc($readini(Players.ini,$1,MSP) + $rand(10,50))
    notice $1 $Left You Have Gained a Level $Right
    heal $1
    rankcheck $1
  }
}
alias DeathCheck {
  if ($readini(Players.ini,$1,HP) <= 0) {
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has been killed by15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) $right
    mode %MainChannel -h $1
    set %BattleArena $remtok(%BattleArena,$1,32)
    set %EXPGained $rand(1,$calc($readini(Players.ini,$1,Level) * 75))
    notice $2 $Left You have Gained15 %EXPGained 14Experience for your Kill $Right
    writeini Players.ini $2 EXP $calc($readini(Players.ini,$2,EXP) + %EXPGained)
    levelcheck $2
    writeini Players.ini $1 Fighting No
    timerattack $+ $1 off
    DeathMoney $2 $1
  }
}
on *:TEXT:`Kill *:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) != Yes) { notice $Nick $Left You are not Currently Fighting $Right | halt }
  if ($readini(Attacks.ini,$Nick,Kill) == No) { Notice $nick $Left You cannot use this Attack! | halt }
  if ($readini(Players.ini,$nick,SP) < 10) { notice $Nick $Left You do Not have Enough SP $Right | halt }
  if (!$istok($strip(%BattleArena),$2,32)) { notice $nick $Left $2 is not Fighting. Try `entered $Right | halt }
  if ($2 == $Nick) { notice $Nick $Left You can't attack yourself $Nick $+ ! $Right | halt }
  if ($istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14 with 15Kill $Right }
  if (!$istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15Kill $Right }
  timerAttack $+ $Nick 1 15 Kill $nick $2
}
alias Kill {
  set %EXPGained $rand(1,15)
  if (!$istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(Players.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has Just Attacked15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15Kill14 for15 %Damage 14HP of Damage $Right
    notice $1 $Left You gained15 %EXPGained 14Experience for That Hit! $Right
    writeini Players.ini $2 HP $calc($readini(Players.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    DeathCheck $2 $1
  }
  if ($istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(NPC.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) Attacked15 $2 $+ 14with 15Kill for15 %Damage 14Damage $Right
    notice $1 $left You Ganed15 %EXPGained 14Experience for that Hit. $right
    writeini NPC.ini $2 HP $calc($readini(NPC.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    NPCDeathCheck $2 $1
  }
}
on *:TEXT:`Magic *:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) != Yes) { notice $Nick $Left You are not Currently Fighting $Right | halt }
  if ($readini(Players.ini,$nick,SP) < 10) { notice $Nick $Left You do Not have Enough SP $Right | halt }
  if ($readini(Attacks.ini,$Nick,Magic) == No) { Notice $nick $Left You cannot use this Attack! | halt }
  if (!$istok($strip(%BattleArena),$2,32)) { notice $nick $Left $2 is not Fighting. Try `entered $Right | halt }
  if ($2 == $Nick) { notice $Nick $Left You can't attack yourself $Nick $+ ! $Right | halt }
  if ($istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(NPC.ini,$2,Name) $+ 14) with 15Magic $Right }
  if (!$istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) 14with 15Magic $Right }
  timerAttack $+ $Nick 1 15 Magic $nick $2
}
alias Magic {
  set %EXPGained $rand(1,15)
  if (!$istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(Players.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has Just Attacked15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15Magic14 for15 %Damage 14HP of Damage $Right
    notice $1 $Left You gained15 %EXPGained 14Experience for That Hit! $Right
    writeini Players.ini $2 HP $calc($readini(Players.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    DeathCheck $2 $1
  }
  if ($istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(NPC.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) Attacked15 $2 $+ 14(15 $+ $readini(NPC.ini,$2,Name) $+ 14) with 15Magic 14for15 %Damage 14Damage $Right  
    notice $1 $left You Ganed15 %EXPGained 14Experience for that Hit. $right
    writeini NPC.ini $2 HP $calc($readini(NPC.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    NPCDeathCheck $2 $1
  }
}
on *:TEXT:`FairyDust *:%MainChannel:{
  if (!$readini(Players.ini,$nick,Registered)) { notice $Nick $left You need to Register. $right | halt }
  if ($readini(Players.ini,$nick,LoggedIn) == No) { notice $nick $Left You must login first. $right | halt }
  if ($readini(Players.ini,$nick,Class) == -) { notice $nick $left You have to select a class first. Type `ClassList to see classes $right | halt }
  if ($readini(Players.ini,$nick,Fighting) != Yes) { notice $Nick $Left You are not Currently Fighting $Right | halt }
  if ($readini(Attacks.ini,$Nick,FairyDust) == No) { Notice $nick $Left You cannot use this Attack! | halt }
  if ($readini(Players.ini,$nick,SP) < 10) { notice $Nick $Left You do Not have Enough SP $Right | halt }
  if (!$istok($strip(%BattleArena),$2,32)) { notice $nick $Left $2 is not Fighting. Try `entered $Right | halt }
  if ($2 == $Nick) { notice $Nick $Left You can't attack yourself $Nick $+ ! $Right | halt }
  if ($istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(NPC.ini,$2,Name) $+ 14) with 15FairyDust $Right }
  if (!$istok(%NPC.Names,$2,32)) { msg %MainChannel $Left 15 $+ $Nick $+ 14(15 $+ $readini(Players.ini,$Nick,Character_Name) $+ 14) Is about to Attack15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15FairyDust $Right }
  timerAttack $+ $Nick 1 15 FairyDust $nick $2
}
alias FairyDust {
  set %EXPGained $rand(1,15)
  if (!$istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(Players.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) has Just Attacked15 $2 $+ 14(15 $+ $readini(Players.ini,$2,Character_Name) $+ 14) with 15FairyDust14 for15 %Damage 14HP of Damage $Right
    notice $1 $Left You gained15 %EXPGained 14Experience for That Hit! $Right
    writeini Players.ini $2 HP $calc($readini(Players.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    DeathCheck $2 $1
  }
  if ($istok(%NPC.Names,$2,32)) {
    set %Damage $rand(1,$calc(($readini(Players.ini,$1,Attack) - $readini(NPC.ini,$2,Defence)) * 2 ))
    if (%Damage < 1) || (%Damage == $Null) { set %Damage 1 }
    msg %MainChannel $Left 15 $+ $1 $+ 14(15 $+ $readini(Players.ini,$1,Character_Name) $+ 14) Attacked15 $2 $+ 14(15 $+ $readini(NPC.ini,$2,Name) $+ 14) with 15FairyDust for15 %Damage 14Damage $Right  
    notice $1 $left You Gained15 %EXPGained 14Experience for that Hit. $right
    writeini NPC.ini $2 HP $calc($readini(NPC.ini,$2,HP) - %damage)
    writeini Players.ini $1 SP $calc($readini(Players.ini,$1,SP) - 10)
    writeini Players.ini $1 EXP $Calc($readini(Players.ini,$1,EXP) + %EXPGained)
    LevelCheck $1
    NPCDeathCheck $2 $1
  }
}

LucSatise

Like Page Follow Author

Comments

Sign in to comment.
LucSatise   -  Sep 12, 2009

atm im on a few. my new rpg is goin to be mutli-network.

try irc.etherealdeity.net im Riale

 Respond  
Ghost-writer   -  Jul 30, 2009

what server are you on?

 Respond  
LucSatise   -  Jul 07, 2009

I am no longer supporting this RPG. I am currently writing a code which should (hopefully) make a more customizeable rpg (ie change name, ranks, attacks etc) with just using some extra ini files. When done i will prob host on mirc.net or somethin

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.