Starter Battle Bot - Battle System

By Romeo on Apr 05, 2006

Put it in Remotes - This is the Btatle system comes with some Attacks

on *:text:`Enter:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($readini($nick $+ .ini,$Nick,Hp) <= 0) { Notice $nick Please Heal | halt }
  if ($readini($nick $+ .ini,$nick,fighting) == yes) { Notice $nick You are Already Battling! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { /notice $nick You Are Healing | halt }
  Writeini $nick $+ .ini $nick fighting yes
  Set %batlist %batlist $nick
  Msg %ChanSet $Name($nick) 3Enters The Battle Field!
}
on *:text:`Leave:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($readini($nick $+ .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 15 /leave $nick
  Msg %ChanSet $Name($nick) 3is Leaving The Battle Field in 15 Seconds!
}
on *:text:*`Inn:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($readini($nick $+ .ini,$nick,fighting) == Yes) { /notice $nick You are Fighting! | halt }
  if ($timer(Heal $+ $nick).secs != $null) { /notice $nick You Are Already Healing | halt }
  Notice $nick You will Heal In 30 Seconds!
  Timerheal $+ $nick 1 30 /Heal $nick
}
on 1:TEXT:`Atl:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) != yes) { Notice $nick You Are Not Attacking! | halt }
  if ($timer(Attack $+ $nick).secs = $null) && ($readini($nick $+ .ini,$nick,Attacking) == yes) { notice $nick A Glitch was Found, It has Been Fixed! | Writeini $nick $+ .ini $nick Attacking No | Halt }
  Notice $nick Attack Time Left:7 $duration($timer(Attack $+ $nick).secs))
}
on 1:TEXT:`Punch*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
  if ($readini($2 $+ .ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  Set %Attacks $readini($nick $+ .ini,$nick,move1) $readini($nick $+ .ini,$nick,move2) $readini($nick $+ .ini,$nick,WeaponMove) $readini($nick $+ .ini,$nick,SpecialMove)
  if ($istok(%attacks,Punch,32) == $true) {
    writeini $nick $+ .ini $nick Attacking Yes
    timerattack $+ $nick 1 15 /Punch $nick $2
    Msg %ChanSet $Name($nick) 12Dashes Towards $Name($2) $+ 12!
  }
}
on 1:TEXT:`DragonFist*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
  if ($readini($2 $+ .ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  Set %Attacks $readini($nick $+ .ini,$nick,move1) $readini($nick $+ .ini,$nick,move2) $readini($nick $+ .ini,$nick,WeaponMove) $readini($nick $+ .ini,$nick,SpecialMove)
  if ($istok(%attacks,DragonFist,32) == $true) {
    if ($readini($nick $+ .ini,$nick,Stamina) < 6) { Notice $nick You dont have enough Stamina! | halt }
    writeini $nick $+ .ini $nick Stamina $calc($readini($nick $+ .ini,$Nick,Stamina) - 6)
    writeini $nick $+ .ini $nick Attacking Yes
    timerattack $+ $nick 1 25 /DragonFist $nick $2
    Msg %ChanSet $Name($nick) 12Clenches Fist & Dashes Towards $Name($2) $+ 12!
  }
}
on 1:TEXT:`HeavyFist*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
  if ($readini($2 $+ .ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  Set %Attacks $readini($nick $+ .ini,$nick,move1) $readini($nick $+ .ini,$nick,move2) $readini($nick $+ .ini,$nick,WeaponMove) $readini($nick $+ .ini,$nick,SpecialMove)
  if ($istok(%attacks,HeavyFist,32) == $true) {
    if ($readini($nick $+ .ini,$nick,Stamina) < 6) { Notice $nick You dont have enough Stamina! | halt }
    writeini $nick $+ .ini $nick Stamina $calc($readini($nick $+ .ini,$Nick,Stamina) - 6)
    writeini $nick $+ .ini $nick Attacking Yes
    timerattack $+ $nick 1 25 /HeavyFist $nick $2
    Msg %ChanSet $Name($nick) 12Clenches Fist & Dashes Towards $Name($2) $+ 12!
  }
}
on 1:TEXT:`Slash*:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
  if ($nick == $2) { Notice $nick Don't Attack Yourself! | halt }
  if ($readini($nick $+ .ini,$nick,fighting) != yes) { Notice $nick You are not Fighting! | halt }
  if ($readini($2 $+ .ini,$2,fighting) != yes) { Notice $nick $2 is not Fighting! | halt }
  if ($readini($nick $+ .ini,$nick,Attacking) == yes) { Notice $nick You are Attacking! | halt }
  Set %Attacks $readini($nick $+ .ini,$nick,move1) $readini($nick $+ .ini,$nick,move2) $readini($nick $+ .ini,$nick,WeaponMove) $readini($nick $+ .ini,$nick,SpecialMove)
  if ($istok(%attacks,Slash,32) == $true) {
    writeini $nick $+ .ini $nick Attacking Yes
    timerattack $+ $nick 1 20 /Slash $nick $2
    Msg %ChanSet $Name($nick) 12Dashes Towards $Name($2) $+ 12!
  }
}

Btw Create an Ini File Called Punch+Bag.Ini and like put the following in it:

[Punch+Bag]
Name=Punch+Bag
Type=Defensive
Money=0
Aura=15
BAura=1
Attack=0
MAttack=0
Defense=7
MDefense=7
Hp=200
MHp=200
Stamina=0
MStamina=0
Fighting=No
Level=5
Exp=0
ExpNeeded=1000000000000
motto=Touch My BAG!
attacking=no
wins=0
losses=0

[Register]
Name=Yes
Type=Yes
Complete=Yes

[pass]
Pass=YouWillNeverKnowMyPasswordBecuzIpwnz
Logged=No

Comments

Sign in to comment.
EightBall   -  Jul 27, 2007

Never Mind It Out

 Respond  
EightBall   -  Jul 21, 2007

Anyone Know Hot To Make Something That Shows Who\'s Fighting?

 Respond  
Mindhead_mas   -  Dec 25, 2006

u cant LEAVE a battle :-( neither the hits work... im in battle for over 2 hours -.-

 Respond  
Romeo   -  Apr 08, 2006

Well, First, I would have more Posts up -

And Second Its more Organized

 Respond  
CaRe_Taker   -  Apr 07, 2006

ahh why not make this one Snippet ?
lol
instead of all of them you put up ?

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