MegaRPG Base Code v3.0

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.5
Scores Submitted	2
Date Added	Jul 23, 2008
Last Updated	Aug 16, 2008
Tags	base mega rpg

Introduction

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.

Code:

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
}

Grab the Code

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
  }
}

Comments

(31) RSS

Go to Bottom

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 23, 2008 8:45 am

Is this done? i mean with the other 2 modules is it a complete game ready to be tested?

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 23, 2008 4:52 pm

This part of the code alone is a complete game but has been adapted to work with the 2 modules. So yes it is done. I will keep posting more modules and the next one is the Money/Bank/Lottery One.

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 23, 2008 5:42 pm

Sounds good i ll wait till you\'ve posted the complete(all modules) game.`-.-´

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 24, 2008 4:36 am

Could be waiting a while since i keep getting new ideas lol

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 24, 2008 4:39 am

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 25, 2008 3:19 pm

Update: Found a Bug in the Base Attacks for attacking NPC\'s. Now Fixed

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 25, 2008 11:04 pm

Nice rpg, keep it up LucSatise. I suggest adding shops, money, and missions. That would be awesome! 7/10

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 2:42 am

And exp to go doesn\'t set at a positive number, once it hits 0 it goes negative.

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 12:15 pm

What you mean? it works perfect on mine. Once it hits 0 the person should automatically level up. If not go into Bot window and type /levelcheck <Name>

Also:

I have Almost Finished Money/Lottery/Bank i just tweaking it now =]

Options Available:
- Name the Money what you Want
- Now Uses a Moniter Channel for Admins so they Can Keep Track of Who is using Bank/Lottery (includes how much deposit etc)
- Adding the First Set of Admin Commands to be used in LogChan Only!

When this module is loaded it will automatically ask for logchan and money name

Example of this Module is on:

Code:

/server -m irc.scrollrack.com -j #MegaRPG

Must have a registered nick to PM bot for register else bot iwll not recieve PM\'s

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 12:51 pm

There you Go Guys Money Module is out and This code updated with it.

EL i know your good with stuff so if u have any ideas can u give me them please?

Next: Help Module (I realise it is needed BADLY lol)

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 1:05 pm

Yeah i \'ll take a look as it is now and let ya know i was just on /server -m irc.scrollrack.com -j #MegaRPG rofl but that twat devin is there and i dont feel like arguing with toddlers today ;p

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 1:17 pm

u Nemesis? Who is Devin? (Renji[a]) is Away as is DarkAngel.

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 1:44 pm

Yes im Nemesis and yeah its Fagangel ROFL

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 1:57 pm

lolk. well angel is away just now (i think) but if he/she starts anything i\'l just ban him/her

Comments: 1,210

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 2:02 pm

Rofl im not worried about that kiddie he gets ownD every time lil faery;p

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 2:08 pm

Quote:

What you mean? it works perfect on mine. Once it hits 0 the person should automatically level up. If not go into Bot window and type /levelcheck <Name>

On mine, I reached 0 exp and it went to a negative exp needed....Thanks for the help though x.x

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 2:12 pm

Quote:

On mine, I reached 0 exp and it went to a negative exp needed....Thanks for the help though x.x

Did it fix it?

Eugenio

Comments: 918

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 3:28 pm

You need to use $strip.
without it makes the code almost half complete.

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 3:33 pm

No, it raise my level for each exp I got because it was in the negative x.x

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 4:50 pm

hmm when u type /levelcheck <Name> it shuld like keep levelling untill ur xp is +

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 26, 2008 5:13 pm

It possibly does....I would raher not wait while i raise 500+ levels.....

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 27, 2008 12:11 pm

go on a private server on ur box (ie run unreal, connect via 127.0.0.1 and do the command while bot is opered)

This shuld do it at like 20x the speed

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 30, 2008 6:04 am

updates: bug found when using `magic or `fairydust to attack npc\'s it said they weren\'t fighting for some reason.

Wizjany

Comments: 11

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 30, 2008 2:57 pm

thanks for the fix =p

ChunkieMonkey

Comments: 139

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Jul 30, 2008 3:26 pm

Quote:

go on a private server on ur box (ie run unreal, connect via 127.0.0.1 and do the command while bot is opered)

I do, on irc.bitsjointirc.net I an an IRCop..I oper the bot when I run it

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 2, 2008 9:14 am

yeh im hosting my version on mine and Darkkeepers network (my server tho) which is up pretty much 24/7 in #MegaRPG (/server megaproductions.cjb.net)

Opering the bot stops excess flood kills when u have loads of ppl playing lol. Im also hosting a game-bot that currently has uno and trivia on the same server so im having Fun.

Everyones welcome to play and as im the coder u usually get a glimpse of additions before i release them (usually i keep them between 1-3 days before hawkee release to bug check) and you cna also check your stats for mine online (Dono about releasing tht one uet ^_^) and when people in channel changes you can goto http://megarpg.cjb.net/players/online.html to see who is in.

My Account: http://megarpg.cjb.net/players/Rayth.html (must have caps for some strange reason)

Rovien

Comments: 2

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 4, 2008 1:45 am

When i use it mage classes seem unable to attack npc\'s they\'re just ignored and their SP drops far below zero, is this.. part of the class?

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 4, 2008 8:43 am

When did you last update the code? ive already fixed that magicians and fairy\'s couldn\'t use there single attacks to hit. If your SP is below zero it shuldn\'t allow you to attack either.

Nuk3d

Comments: 5

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 11, 2008 11:00 am

like i said in the npc snippet..

i looked at mine and it had a extra line for magic
if ($readini(Players.ini,$2,Fighting) != Yes) { notice $nick $Left $2 is not Fighting. Try !entered $Right | halt }

LucSatise

Comments: 119

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 11, 2008 12:56 pm

i replied in the NPC Snippet. You have to replace ur base code =] Most modules require a base code update. (certain ones also require other module updates such has the NPC updated the Ranks)

Nuk3d

Comments: 5

mIRC Snippet: MegaRPG Base Code v3.0
Posted on Aug 12, 2008 12:13 am

ok..

but, the line is still in the code on this page, and since its above the one that uses %battlearena, itll read the ini and stop.

MegaRPG Base Code v3.0

Introduction

Grab the Code

Comments

LucSatise

My Snippet Tags

Contact

Friends (3)

Sponsors

		/server mega.authoritygamer.com -j #authoritygamer
Last seen: Sep 03, 2008 Profile Friends (3) Snippets (26) Images (1) Comments Received (140) Comments Submitted (119) Forum Posts (143)