Well this is mt first actual Script lol...It's a rpg based on magic. Some of the idead in it are from other scripts but there has been so many rips that I do not know the real creator of em, if it's you send me a message and I'll add you to my thanks section.
Put it in your bots script editor (alt+r) In the remotes and in the bots mIRC type /auser 500 [yournick]
========================================
= Created by Justin Merwin =
= Justinmerwin18@yahoo.com =
= irc.lucidchat.net =
= Edit script In any way you want =
= Please do not rip =
========================================
on 1:text:`Register:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Register) == Yes) { Notice $nick You already Made a Account! | halt }
Notice $Nick 09,01Welcome to the ChaosRPG. To continue your registration plz identify your gender! Type `Gender Male or `Gender Female.
}
}
on 1:Text:`Gender*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Register) == Yes) { Notice $nick You already Made a Account! | halt }
if (Male == $2) {
writeini Chaos.ini $Nick Gender Male
Notice $Nick 09,01Now that you have identified yourself as a Male you can now choose your character! Type `Characters to see a list!
}
if (Female == $2) {
writeini Chaos.ini $Nick Gender Female
Notice $Nick09,01 09,01Now that you have identified yourself as a Female you can now choose your character! Type `Characters to see a list!
}
}
}
on 1:Text:`Characters:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Gender) == Male) { notice $Nick 01,15Characters: Merlin, Arthur, Kamakaze, Mythrol. Type `Choose (Character) to complete registration! }
if ($readini(Chaos.ini,$Nick,Gender) == Female) { notice $Nick 01,15Characters: Sieza, Merinlam . Type `Choose (Character) to complete registration! }
}
}
on 1:Text:`Choose*:#: {
if (%Power == On) {
if (Merlin == $2 || Arthur == $2 || Kamakaze == $2 || Mythrol == $2) {
Writeini Chaos.ini $Nick Character $2
Writeini Chaos.ini $Nick Rank Apprentice
Writeini Chaos.ini $Nick Hp 0
Writeini Chaos.ini $Nick MHp $Rand(100,200)
Writeini Chaos.ini $Nick ki 0
Writeini Chaos.ini $Nick Mmagic $Rand(50,150)
Writeini Chaos.ini $Nick ki2 0
Writeini Chaos.ini $Nick MMagic $Rand(50,150)
Writeini Chaos.ini $Nick Gold Coins $Rand(50,200)
Writeini Chaos.ini $Nick Intell 10
Writeini Chaos.ini $Nick Strength 10
Writeini Chaos.ini $Nick NAttacks punch kick
Writeini Chaos.ini $Nick Magicattacks None
Writeini Chaos.ini $Nick LvL 1
Writeini Chaos.ini $Nick Exp 0
Writeini Chaos.ini $Nick NExp 100
Writeini Chaos.ini $Nick Register Yes
Notice $Nick 09,01Registration is now complete! Type `Stats to see your stats and `Help if you need help!
Heal $Nick
}
if (Sieza == $2 || Merinlam == $2) {
Writeini Chaos.ini $Nick Character $2
Writeini Chaos.ini $Nick Rank Apprentice
Writeini Chaos.ini $Nick Hp 0
Writeini Chaos.ini $Nick MHp $Rand(100,150)
Writeini Chaos.ini $Nick ki 0
Writeini Chaos.ini $Nick Mmagic $Rand(50,120)
Writeini Chaos.ini $Nick Magic 0
Writeini Chaos.ini $Nick MMagic $Rand(50,120)
Writeini Chaos.ini $Nick Gold Coins $Rand(50,170)
Writeini Chaos.ini $Nick Intell 10
Writeini Chaos.ini $Nick Strength 10
Writeini Chaos.ini $Nick NAttacks punch kick
Writeini Chaos.ini $Nick Magicattacks Flame
Writeini Chaos.ini $Nick LvL 1
Writeini Chaos.ini $Nick Exp 0
Writeini Chaos.ini $Nick NExp 100
Writeini Chaos.ini $Nick Register Yes
Notice $Nick09,01 Registration is now complete! Type `Stats to see your stats and `Help if you need help!
Heal $Nick
}
}
}
on 1:Text:`Stats:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Register) != Yes) { Notice $nick 09,01You are not registered! Plz `Register | halt }
Notice $Nick 09,01Character: $readini(Chaos.ini,$Nick,Character) || Hp: $readini(Chaos.ini,$Nick,Hp) / $readini(Chaos.ini,$Nick,MHp) || ki: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,Mmagic) || Magic: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,MMagic) || Rank: $readini(Chaos.ini,$Nick,Rank) || Level: $readini(Chaos.ini,$Nick,LvL) || Exp: $readini(Chaos.ini,$Nick,Exp) || Exp To LvL Up: $readini(Chaos.ini,$Nick,NExp)
Notice $Nick 09,01Strength: $readini(Chaos.ini,$nick,Strength) || Intell: $readini(Chaos.ini,$nick,Intell)
}
}
on 1:Text:`Stats*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered! | halt }
Notice $Nick 09,01Character: $readini(Chaos.ini,$2,Character) || Hp: $readini(Chaos.ini,$2,Hp) / $readini(Chaos.ini,$2,MHp) || ki: $readini(Ninja.ini,$2,ki) / $readini(Chaos.ini,$2,Mmagic) || Magic: $readini(Chaos.ini,$2,Magic) / $readini(Chaos.ini,$2,MMagic) || Rank: $readini(Chaos.ini,$2,Rank) || Level: $readini(Chaos.ini,$2,LvL) || Exp: $readini(Chaos.ini,$2,Exp) || Exp To LvL Up: $readini(Chaos.ini,$2,NExp)
Notice $Nick 09,01Strength: $readini(Chaos.ini,$2,Strength) || Intell: $readini(Chaos.ini,$2,Intell)
}
}
on 1:Text:`Gold Coins:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
Notice $Nick 09,01Gold Coins: $readini(Chaos.ini,$nick,Gold Coins)
}
}
on 1:Text:`Gold Coins*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered | halt }
Notice $Nick $2 $+ 's 09,01Gold Coins: $readini(Chaos.ini,$2,Gold Coins)
}
}
on *:text:`Heal:#:{
if (%Power == On)
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Fighting) == Yes) { /notice $nick 09,01You are Fighting! | halt }
if ($timer(Heal $+ $nick).secs != $null) { /notice $nick 09,01You Are Already Healing | halt }
Notice $nick 09,01You will Heal In 10 Seconds!
Timerheal $+ $nick 1 10 /Heal $nick
}
}
on 1:Text:`ShowStats:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Register) != Yes) { Notice $nick 09,01You are not registered! Plz `Register | halt }
Msg $Chan 09,01Character: $readini(Chaos.ini,$Nick,Character) || Hp: $readini(Chaos.ini,$Nick,Hp) / $readini(Chaos.ini,$Nick,MHp) || ki: $readini(Chaos.ini,$Nick,ki) / $readini(Chaos.ini,$Nick,Mmagic) || Magic: $readini(Chaos.ini,$Nick,Magic) / $readini(Chaos.ini,$Nick,MMagic) || Rank: $readini(Chaos.ini,$Nick,Rank) || Level: $readini(Chaos.ini,$Nick,LvL) || Exp: $readini(Chaos.ini,$Nick,Exp) || Exp To LvL Up: $readini(Chaos.ini,$Nick,NExp)
Msg $Chan 09,01Strength: $readini(Chaos.ini,$nick,Strength) || Intell: $readini(Chaos.ini,$nick,Intell)
}
}
on 1:Text:`ShowStats*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 09,01is not registered! | halt }
Msg $Chan 09,01Character: $readini(Chaos.ini,$2,Character) || Hp: $readini(Chaos.ini,$2,Hp) / $readini(Chaos.ini,$2,MHp) || ki: $readini(Chaos.ini,$2,ki) / $readini(Chaos.ini,$2,Mmagic) || Magic: $readini(Chaos.ini,$2,Magic) / $readini(Chaos.ini,$2,MMagic) || Rank: $readini(Chaos.ini,$2,Rank) || Level: $readini(Chaos.ini,$2,LvL) || Exp: $readini(Chaos.ini,$2,Exp) || Exp To LvL Up: $readini(Chaos.ini,$2,NExp)
Msg $Chan 09,01Strength: $readini(Chaos.ini,$2,Strength) || Intell: $readini(Chaos.ini,$2,Intell)
}
}
on *:join:#:{
if (%Power == On) {
if ($readini(Chaos.ini,$Nick,Register) != Yes) && (%Chan == $Chan) { Notice $nick 09,01Welcome to %Chan $+ ! You Have Not Registered, Type `Register | halt }
if ($readini(Chaos.ini,$nick,Register) == Yes) && (%Chan == $Chan) { Notice $nick 09,0109,01Welcome to %Chan $+ ! You are Registered. Please Type `Help for Help! }
}
}
on *:nick:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
Set %batlist $remtok(%batlist,$nick,1,32)
Writeini -n Chaos.ini $Nick Fighting No
Writeini -n Chaos.ini $Nick Attacking No
Mode %Chan -v $nick
}
}
on *:part:#:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
Set %batlist $remtok(%batlist,$nick,1,32)
Writeini -n Chaos.ini $Nick Fighting No
Writeini -n Chaos.ini $Nick Attacking No
}
}
on *:Quit:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Halt }
Set %batlist $remtok(%batlist,$nick,1,32)
Writeini -n Chaos.ini $Nick Fighting No
Writeini -n Chaos.ini $Nick Attacking No
}
}
on 1:Text:`MagicAttacks:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
Notice $Nick Magicattacks: $readini(Chaos.ini,$nick,Magicattacks)
}
}
on 1:Text:`Items:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
Notice $nick kiPills: $readini(Chaos.ini,$nick,CPills) || MagicPills: $readini(Chaos.ini,$nick,MagicPills) || HealthPills: $readini(Chaos.ini,$nick,HPills)
}
}
on 1:Text:`Attacks:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $Nick You are not registered! | Halt }
Notice $Nick Attacks: $readini(Chaos.ini,$nick,NAttacks)
}
}
on *:text:`Enter:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick 09,01You are not registered! | halt }
if ($readini(Chaos.ini,$Nick,Hp) <= 0) { Notice $nick 09,01Please Heal | halt }
if ($readini(Chaos.ini,$nick,fighting) == yes) { Notice $nick 09,01You are Already Battling! | halt }
if ($timer(Heal $+ $nick).secs != $null) { /notice $nick 09,01You Are Healing | halt }
Writeini Chaos.ini $nick fighting yes
Set %batlist %batlist $nick
Msg # $Nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ ) 09,01Enters The Battle Field!
}
}
on *:text:`Leave:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You Are Not Fighting | halt }
if ($timer(Leave $+ $nick).secs != $null) { /notice $nick You Are Already Leaving | halt }
TimerLeave $+ $nick 1 10 /leave $nick
Msg # $Nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ ) 09,01 is Leaving The Battle Field in 10 Seconds!
}
}
on *:text:`Entered:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
Msg $Chan Entered: %Batlist
}
}
on 1:Text:`Lag:#: {
if (%Power == On) {
LagTest
Msg # Bot lag: $+($calc(($ticks - %ticks) / 1000),s)
}
}
alias lagtest {
set %ticks $ticks | .raw PING 123
}
on 1:Text:`Train*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($2 == Intell) {
Set %Useage $Calc($3 * 20)
if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough ki! | Halt }
if ($readini(Chaos.ini,$nick,Magic) <= %Useage) { Notice $Nick You do not have enough Magic! | Halt }
writeini Chaos.ini $Nick Intell $Calc($readini(Chaos.ini,$nick,Intell) + $3)
writeini Chaos.ini $Nick ki $Calc($readini(Chaos.ini,$nick,ki) - %Useage)
writeini Chaos.ini $Nick Magic $Calc($readini(Chaos.ini,$nick,Magic) - %Useage)
Msg # $nick 09,01Trained his $2 $3 Times!
}
if ($2 == Strength) {
Set %Useage $Calc($3 * 20)
if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough ki! | Halt }
if ($readini(Chaos.ini,$nick,ki) <= %Useage) { Notice $Nick You do not have enough Magic! | Halt }
writeini Chaos.ini $Nick Strength $Calc($readini(Chaos.ini,$nick,Strength) + $3)
writeini Chaos.ini $Nick ki $Calc($readini(Chaos.ini,$nick,ki) - %Useage)
writeini Chaos.ini $Nick Magic $Calc($readini(Chaos.ini,$nick,Magic) - %Useage)
Msg # $nick Trained his $2 $3 Times!
}
}
}
on 1:TEXT:`White flame*:*:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
if ($istok(%attacks,punch,32) == $true) {
set %base.power [ $readini Chaos.ini $Nick Strength ]
set %ExpGain $Rand(1,5000)
set %defense.power [ $readini Chaos.ini $2 Strength ]
set %attack.power [ $readini Chaos.ini $Nick Strength ]
set %Damage $calc( %base.power + (%attack.power - %defense.power))
if (%Damage < 500) { set %Damage 500 }
msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 shoots $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) a White flame dealling $bytes(%damage,b) damage! (Gained %ExpGain Exp)
writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
LvLCheck $Nick
DeadCheck $Nick $2
}
}
}
on 1:TEXT:`Insaneflare *:*:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
if ($istok(%attacks,punch,32) == $true) {
set %base.power [ $readini Chaos.ini $Nick Strength ]
set %ExpGain $Rand(1,5000)
set %defense.power [ $readini Chaos.ini $2 Strength ]
set %attack.power [ $readini Chaos.ini $Nick Strength ]
set %Damage $calc( %base.power + (%attack.power - %defense.power))
if (%Damage < 500) { set %Damage 500 }
msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 shoots $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) a Insaneflare dealling $bytes(%damage,b) damage! (Gained %ExpGain Exp)
writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
LvLCheck $Nick
DeadCheck $Nick $2
}
}
}
on 1:TEXT:`punch*:*:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Magic) <= 10) { Notice $nick You do not have enough Magic! | Halt }
if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
if ($istok(%attacks,punch,32) == $true) {
set %base.power [ $readini Chaos.ini $Nick Strength ]
set %ExpGain $Rand(1,500)
set %defense.power [ $readini Chaos.ini $2 Strength ]
set %attack.power [ $readini Chaos.ini $Nick Strength ]
set %Damage $calc( %base.power + (%attack.power - %defense.power))
if (%Damage < 1) { set %Damage 1 }
msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 punchs $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) in the back of the head doing $bytes(%damage,b) damage! (Gained %ExpGain Exp)
writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
LvLCheck $Nick
DeadCheck $Nick $2
}
}
}
on 1:TEXT:`kick*:*:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Sp) <= 10) { Notice $nick You do not have enough Sp! | Halt }
if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
if ($istok(%attacks,kick,32) == $true) {
set %base.power [ $readini Chaos.ini $Nick Strength ]
set %ExpGain $Rand(1,30)
set %defense.power [ $readini Chaos.ini $2 Strength ]
set %attack.power [ $readini Chaos.ini $Nick Strength ]
set %Damage $calc( %base.power + (%attack.power - %defense.power))
if (%Damage < 1) { set %Damage 1 }
msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 kicks $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ )4 in the head doing $bytes(%damage,b) damage! (Gained %ExpGain Exp)
writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
LvLCheck $Nick
DeadCheck $Nick $2
}
}
}
on 1:TEXT:`orange Flame*:*:{
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Sp) <= 10) { Notice $nick You do not have enough Sp! | Halt }
if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
if ($readini(Chaos.ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
if ($readini(Chaos.ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
if ($readini(Chaos.ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
Set %Attacks $readini(Chaos.ini,$nick,NAttacks)
if ($istok(%attacks,kick,32) == $true) {
set %base.power [ $readini Chaos.ini $Nick Strength ]
set %ExpGain $Rand(1,30)
set %defense.power [ $readini Chaos.ini $2 Strength ]
set %attack.power [ $readini Chaos.ini $Nick Strength ]
set %Damage $calc( %base.power + (%attack.power - %defense.power))
if (%Damage < 1) { set %Damage 1 }
msg $Chan $nick $+ ( $+ $readini(Chaos.ini,$nick,Character) $+ )4 Casts Orange Flame at $2 $+ ( $+ $readini(Chaos.ini,$2,Character) $+ )4 doing $bytes(%damage,b) damage! (Gained %ExpGain Exp)
writeini Chaos.ini $2 Hp $calc($readini(Chaos.ini,$2,Hp) - %Damage)
writeini Chaos.ini $nick Exp $calc($readini(Chaos.ini,$Nick,Exp) + %ExpGain)
writeini Chaos.ini $nick Magic $Calc($readini(Chaos.ini,$Nick,Magic) - 10)
LvLCheck $Nick $2
DeadCheck $Nick $2
}
}
}
on 500:Text:`Power*:#: {
if ($2 == On) {
Set %Power On
cs Topic %Chan 14||| 15ChaosRPG Status:12 Online 14|||
Msg # ChaosRPG has now been activated!
}
if ($2 == Off) {
Set %Power Off
cs Topic %Chan 14||| 15ChaosRPG Status:12 Offline 14|||
Msg # ChaosRPG is now Deactivated
}
}
on 500:Text:`AddAdmin*:#:{
if (%Power == On) {
Auser 400 $2
cs Sop # add $2
cs protect # $2
Msg # $2 has been added as an Admin of the ChaosRPG Bot!
}
}
on 500:Text:`RemAdmin*:#:{
if (%Power == On) {
Ruser $2
cs Sop # del $2
cs Deprotect # $2
Msg # $2 has been Removed of his Admin powers!
}
}
on 400:Text:`Set*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
Writeini Chaos.ini $2 $3 $4-
Msg # $2 $+ 's $3 was set to $4- by $nick $+ !
}
}
on 400:Text:`AddGold Coins*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
Writeini Chaos.ini $2 Gold Coins $Calc($readini(Chaos.ini,$2,Gold Coins) + $3)
Msg # $nick added $3 Gold Coins to $2 $+ 's Account!
}
}
on 400:Text:`RemGold Coins*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $nick $2 is not registered! | halt }
Writeini Chaos.ini $2 Gold Coins $Calc($readini(dbzi,$2,Gold Coins) - $3)
Msg # $nick Removed $3 Gold Coins $2 $+ 's Account!
}
}
on 200:Text:`Fenter*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }
Writeini Chaos.ini $2 Fighting Yes
Set %batlist %batlist $2
Msg # $2 was force entered by $Nick
}
}
on 200:Text:`Fleave*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }
writeini Chaos.ini $2 Fighting No
Set %batlist $remtok(%batlist,$2,1,32)
Msg # $2 was force out of battle by $Nick
}
}
on 200:Text:`Fheal*:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$2,Register) != Yes) { Notice $Nick $2 is not registered! | halt }
writeini Chaos.ini $2 Hp $readini(Chaos.ini,$2,MHp)
writeini Chaos.ini $2 Magic $readini(Chaos.ini,$2,MMagic)
writeini Chaos.ini $2 ki $readini(Chaos.ini,$2,Mmagic)
Msg # $2 was healed by $Nick
}
}
on *:text:`help:#: {
notice $Nick Help:battling:healling:Gold Coins:attacks:type `help <topic>
Notice $Nick to battle type `enter to leave type `leave
notice $nick to heal type `heal
notice $Nick to see ranks type `ranks
notice $Nick too look at Gold Coins type `Gold Coins
notice $Nick to look at attacks type `attacks
notice $Nick to look at ki attack type `Magicattacks.
notice $Nick to register type `register
notice $Nick `bags to see the bags entered
notice $Nick to shop for Magicattacks type `Mshop
notice $Nick if your a admin type `adminhelp admin's are sop's and up
}
on *:text:`adminhelp:#: {
notice $Nick`fenter to make people enter
notice $Nick `fleave to make people leave
notice $Nick `fheal to make people heal
}
on *:text:`Bots:#: {
notice $nick 4bags entered:EnemyMagician
}
on 1:Text:`Mshop:#: {
if (%Power == On) {
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Fighting) == Yes) { /notice $nick You are Fighting! | halt }
Notice $Nick Jutsus: Insaneflare(1000), White flame(1500), ki blast(1500). Type `Learn (ki name) to learn the kiattack, If you have the Gold Coins for them!
}
}
on 1:Text:`Learn*:#: {
if (%Power != On) { halt }
if ($readini(Chaos.ini,$nick,Register) != Yes) { Notice $nick You are not registered! | halt }
if ($readini(Chaos.ini,$nick,Fighting) == Yes) { notice $nick You are Fighting! | halt }
if (White flame == $2) {
if ($readini(Chaos.ini,$nick,FJ) == Yes) { Notice $Nick You already know Insaneflare | halt }
if ($readini(Chaos.ini,$nick,Gold Coins) <= 999) { Notice $Nick You do not have enough Gold Coins! | halt }
Var %Magicattacks $readini(Chaos.ini,$nick,Magicattacks)
Var %Magicattacks %Magicattacks White flame
writeini Chaos.ini $Nick Magicattacks %Magicattacks
writeini Chaos.ini $Nick FJ Yes
writeini Chaos.ini $Nick Gold Coins $Calc($readini(Chaos.ini,$nick,Gold Coins) - 1500)
Notice $Nick You have now learned White flame
}
if (Insaneflare == $2) {
if ($readini(Chaos.ini,$nick,FJ) == Yes) { Notice $Nick You already know Insaneflare | halt }
if ($readini(Chaos.ini,$nick,Gold Coins) <= 999) { Notice $Nick You do not have enough Gold Coins! | halt }
Var %Magicattacks $readini(Chaos.ini,$nick,Magicattacks)
Var %Magicattacks %Magicattacks Insaneflare
writeini Chaos.ini $Nick Magicattacks %Magicattacks
writeini Chaos.ini $Nick FJ Yes
writeini Chaos.ini $Nick Gold Coins $Calc($readini(Chaos.ini,$nick,Gold Coins) - 1000)
Notice $Nick You have now learned Insaneflare!
}
}
}
}
}
}
}
}
on *:text:`ranks:#: {
msg $chan 4ranks are Apprentice, spellcaster, Magician, Sage, SuperMage/^\
}
on *:text:`learn Insaneflare:#: {
msg $nick when Artemis_Fowl see you have got it he will add it
}
on *:text:`learn White flame:#: {
msg $Nick when Artemis_Fowl see you bought it he will add it
}
Aliases
Heal {
notice $1 You Have Fully Healed!
writeini Chaos.ini $1 Hp $readini(Chaos.ini,$1,MHp)
writeini Chaos.ini $1 Magic $readini(Chaos.ini,$1,MMagic)
writeini Chaos.ini $1 ki $readini(Chaos.ini,$1,Mmagic)
}
Leave {
if ($readini(Chaos.ini,$1,Fighting) != yes) { halt }
Writeini Chaos.ini $1 fighting no
Writeini Chaos.ini $1 attacking no
Set %batlist $remtok(%batlist,$1,1,32)
Msg %Chan $1 $+ ( $+ $readini(Chaos.ini,$1,Character) $+ ) Has Left The Battle Field!
}
LvLCheck {
set %Exp [ $readini Chaos.ini $1 Exp ]
set %NExp [ $readini Chaos.ini $1 NExp ]
set %Level [ $readini Chaos.ini $1 Lvl ]
If (%Exp >= %NExp) {
Msg %Chan $1 $+ ( $+ $readini(Chaos.ini,$1,Character) $+ ) Grew a Level!
if ($readini(Chaos.ini,$1,Gender) == Male) {
Set %Intell $Rand(1,4)
Set %Strength $Rand(1,4)
Set %MHp $Rand(10,20)
Set %MMagic $Rand(10,15)
Set %Mmagic $Rand(10,15)
writeini Chaos.ini $1 Lvl $calc($readini(Chaos.ini,$1,Lvl) + 1)
writeini Chaos.ini $1 MMagic $calc($readini(Chaos.ini,$1,MMagic) + %MMagic)
writeini Chaos.ini $1 Mmagic $calc($readini(Chaos.ini,$1,Mmagic) + %Mmagic)
writeini Chaos.ini $1 MHp $calc($readini(Chaos.ini,$1,MHp) + %MHp)
writeini Chaos.ini $1 NExp $calc($readini(Chaos.ini,$1,NExp) + 200)
writeini Chaos.ini $1 Strength $calc($readini(Chaos.ini,$1,Strength) + %Strength)
writeini Chaos.ini $1 Intell $calc($readini(Chaos.ini,$1,Intell) + %Intell)
Notice $1 You Gained %MHp Hp || %Mmagic ki || %MMagic ki || %Strength Strength || %Intell Intell ||
Heal $1
}
if ($readini(Chaos.ini,$1,Gender) == Female) {
Set %Intell $Rand(1,5)
Set %Strength $Rand(1,5)
Set %MHp $Rand(10,30)
Set %MMagic $Rand(10,25)
Set %Mmagic $Rand(10,25)
writeini Chaos.ini $1 Lvl $calc($readini(Chaos.ini,$1,Lvl) + 1)
writeini Chaos.ini $1 MMagic $calc($readini(Chaos.ini,$1,MMagic) + %MMagic)
writeini Chaos.ini $1 Mmagic $calc($readini(Chaos.ini,$1,Mmagic) + %Mmagic)
writeini Chaos.ini $1 MHp $calc($readini(Chaos.ini,$1,MHp) + %MHp)
writeini Chaos.ini $1 NExp $calc($readini(Chaos.ini,$1,NExp) + 200)
writeini Chaos.ini $1 Strength $calc($readini(Chaos.ini,$1,Strength) + %Strength)
writeini NChaos.ini $1 Intell $calc($readini(Chaos.ini,$1,Intell) + %Intell)
Notice $1 You Gained %MHp Hp || %Mmagic ki || %MMagic ki || %Strength Strength || %Intell Intell ||
Heal $1
RankCheck
}
}
}
DeadCheck {
if ($readini(Chaos.ini,$2,Hp) <= 0) {
if ($readini(Chaos.ini,$2,fighting) != yes) { halt }
timerattack $+ $2 off
set %Gold Coins $rand(30,40)
set %Exp $calc(%ExpGain % 2)
writeini Chaos.ini $1 Exp $calc($readini(Chaos.ini,$1,exp) + %Exp)
writeini Chaos.ini $1 wins $calc($readini(Chaos.ini,$1,wins) + 1)
writeini Chaos.ini $2 Losses $calc($readini(Chaos.ini,$2,Losses) + 1)
writeini Chaos.ini $1 Gold Coins $calc($readini(Chaos.ini,$1,Gold Coins) + %Gold Coins)
writeini Chaos.ini $2 fighting no
writeini Chaos.ini $2 Attacking no
set %batlist $remtok(%batlist,$2,1,32)
Msg $Chan $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) Defeated $2 $+ ( $+ $readini(Chaos.ini,$2,Character) $+ ) $+ ! $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) Gains %Gold Coins Gold Coins and %Exp Exp!
LvLCheck $1
RankCheck $1
OutLaw
Dragon
}
}
OutLaw {
if ($readini(Chaos.ini,OutLaw,fighting) != yes) {
Heal OutLaw
Writeini Chaos.ini OutLaw Fighting Yes
set %batlist %batList OutLaw
Msg $Chan OutLaw Enters The Battle Field!
}
}
Dragon {
if ($readini(Chaos.ini,Dragon,fighting) != yes) {
Heal Dragon
Writeini Chaos.ini Dragon Fighting Yes
set %batlist %batList Dragon
Msg $Chan Dragon Enters The Battle Field!
}
}
RankCheck {
if ($readini(Chaos.ini,$1,Rank) == Apprentice) {
if ($readini(Chaos.ini,$1,LvL) >= 100) {
Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a spellcaster rank Reach lvl 850 to be Magician!
Writeini Chaos.ini $1 Rank spellcaster
Writeini Chaos.ini $1 LvL 100
Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
Heal $1
}
if ($readini(Chaos.ini,$1,Rank) == spellcaster) {
if ($readini(Chaos.ini,$1,LvL) >= 500) {
Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a Mage rank reach lvl 1000 to be Magician!
Writeini Chaos.ini $1 Rank Mage
Writeini Chaos.ini $1 LvL 100
Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
Heal $1
}
if ($readini(Chaos.ini,$1,Rank) == Mage) {
if ($readini(Chaos.ini,$1,LvL) >= 850) {
Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a SuperAdroid rank reach lvl 1000 to be Magician!
Writeini Chaos.ini $1 Rank SuperMage
Writeini Chaos.ini $1 LvL 100
Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
Heal $1
}
if ($readini(Chaos.ini,$1,Rank) == SuperMage) {
if ($readini(Chaos.ini,$1,LvL) >= 1000) {
Msg $Chan Congrats $Nick $+ ( $+ $readini(Chaos.ini,$Nick,Character) $+ ) $+ , You are now a Magician!
Writeini Chaos.ini $1 Rank Magician
Writeini Chaos.ini $1 LvL 850
Writeini Chaos.ini $1 MHp $Calc($readini(Chaos.ini,$1,MHp) + 200)
Writeini Chaos.ini $1 MMagic $Calc($readini(Chaos.ini,$1,MMagic) + 200)
Writeini Chaos.ini $1 Mmagic $Calc($readini(Chaos.ini,$1,Mmagic) + 200)
Writeini Chaos.ini $1 Gold Coins $Calc($readini(Chaos.ini,$1,Gold Coins)+100)
Writeini Chaos.ini $1 Intell $Calc($readini(Chaos.ini,$1,Intell) + 100)
Writeini Chaos.ini $1 Strength $Calc($readini(Chaos.ini,$1,Strength) + 100)
Heal $1
}
}
}
}
========================================
= Created by Justin Merwin =
= Justinmerwin18@yahoo.com =
= irc.lucidchat.net =
= Edit script In any way you want =
= Please do not rip =
Saying that then asking/saying:
admit I ripped it....But please can somebody help me? I want to write a bot sript that runs as a RPG based off of http:/www.theninja-rpg.com/
Is really not gunna get you help here.`-.-
On those past dfew comments: Jub you area huge ripper, at least i am not claiming I created the script, and Darkkeeper, I\'ll add you to the thanks section, but it\'s not fully your script. Thsi specific one is one I edited a bit a nd fixed a few bugs, but thanks for the script...It helped me get better at scripting.
Goddamnit, this was already posted by Darkkeper! Ripping scripts from other people doesn\'t make you look cool, its not impressing anyone that you know how to code, especially because from what I\'ve seen here in my few weeks, they catch everything lol.. Just script for fun, to make keeping order in your channel easier. Not to impress people on the internet.