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