Starter Battle Bot - Register

By Romeo on Apr 05, 2006

Since Hawkee wont up the Starter Bot i sent them, so now its a Snipptet ;/

In Variables put %ChanSet YOUR-CHANNEL-NAME Example %ChanSet #Fux

Put This Code in Remotes, This is the Registeration Part.

This code was made for People who are new to BATTLE BOTS scripting and needle something to look at :D

on 1:text:`Register:#: {
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) { Notice $nick You already Made a Account! | halt }
  Notice $nick What Is Your Characters Name? 4Help: `Name ChrName
}
on *:text:*`Name *:*:{
  if ($readini($nick $+ .ini,Register,Complete) == Yes) { Notice $nick You already Made a Account! | halt }
  if ($readini($nick $+ .ini,Register,Name) == Yes) { Notice $nick You already Made a Name! | halt }
  if ($chan != %ChanSet) { halt }
  if (Fuck isin $2-) { Notice $nick 4Please Reword It | halt }
  if (/ isin $2-) { Notice $nick Please Reword it! | halt }
  writeini $nick $+ .ini $nick Name $2-
  writeini $nick $+ .ini Register Name Yes
  Notice $nick What Type Of Character Do You Want? 3Types: Offensive Or Defensive 4Help: `Type Offensive Or Defensive
}
on 1:TEXT:`Type *:*:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) { Notice $nick You already Made a Account! | halt }
  if ($readini($nick $+ .ini,Register,Name) != Yes) { /notice $nick Please Choose a Name `Name (Name) | halt }
  if ($readini($nick $+ .ini,Register,Type) == Yes) { /notice $nick You Already Chose Your Type! | halt }
  if ($2 == Offensive) {
    Writeini $nick $+ .ini Register Type Yes
    Writeini $nick $+ .ini $nick Type $2
    Writeini $nick $+ .ini $nick Money 50
    Writeini $nick $+ .ini $nick Aura 1
    Writeini $nick $+ .ini $nick BAura 4
    Writeini $nick $+ .ini $nick Defense $Rand(5,10)
    Writeini $nick $+ .ini $nick Attack $Rand(10,15)
    Writeini $nick $+ .ini $nick MHp $Rand(90,110)
    Writeini $nick $+ .ini $nick MStamina 7
    writeini $nick $+ .ini $nick Level 1
    writeini $nick $+ .ini $nick Exp 0
    writeini $nick $+ .ini $nick ExpNeeded 10
    writeini $nick $+ .ini $nick Move1 Punch
    writeini $nick $+ .ini $nick Move2 None
    writeini $nick $+ .ini $nick WeaponMove None
    writeini $nick $+ .ini $nick SpecialMove DragonFist
    Notice $Nick For Your Account Safety, PM $Me With `Password APass
  }
  if ($2 == Defensive) {
    Writeini $nick $+ .ini Register Type Yes
    Writeini $nick $+ .ini $nick Type $2
    Writeini $nick $+ .ini $nick Money 50
    Writeini $nick $+ .ini $nick Aura 1
    Writeini $nick $+ .ini $nick BAura 4
    Writeini $nick $+ .ini $nick Defense $Rand(10,15)
    Writeini $nick $+ .ini $nick Attack $Rand(5,10)
    Writeini $nick $+ .ini $nick MHp $Rand(100,120)
    Writeini $nick $+ .ini $nick MStamina 5
    writeini $nick $+ .ini $nick Level 1
    writeini $nick $+ .ini $nick Exp 0
    writeini $nick $+ .ini $nick ExpNeeded 10
    writeini $nick $+ .ini $nick Move1 Punch
    writeini $nick $+ .ini $nick Move2 None
    writeini $nick $+ .ini $nick WeaponMove None
    writeini $nick $+ .ini $nick SpecialMove HeavyFist
    Notice $Nick For Your Account Safety, PM $Me With `Password APass
  }
}
on *:text:*`Password *:?:{
  if ($readini($nick $+ .ini,Register,Name) != Yes) { Notice $nick Please Choose a Name `Name (Name) | halt }
  if ($readini($nick $+ .ini,Register,Type) != Yes) { Notice $nick Please Choose a Type `Type (Type) | halt }
  if (/ isin $2) { Notice $nick Please Reword it! | halt }
  if ($ isin $2) { Notice $nick Please Reword it! | halt }
  if ($readini($nick $+ .ini,Pass,Pass) == $null) {
    if ($2 == $Null) { Notice $nick Please Type `Password (Password) | halt }
    Writeini $nick $+ .ini Pass Pass $2
    Writeini $nick $+ .ini Register Complete Yes
    Mode %Chanset +v $nick 
    Notice $nick 8Your Password is9 $2 
    Notice $nick Your Registration is Complete Type 9`Help8 To get Help! 13Enjoy!
    writeini $nick $+ .ini Pass Logged Yes
    Heal $Nick
    Halt
  }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Please Log in, By PMing $Me with `Login PassYouMade | halt }
  if ($2 == $Null) { Notice $nick Please Type `Password (Password) | halt }
  Writeini $nick $+ .ini Pass Pass $2
  Mode %Chanset +v $nick 
  Notice $nick 8You Changed Your Password too9 $2
  writeini $nick $+ .ini Pass Logged Yes
}
on *:text:*`Login *:?:{
  if ($2 == $readini($nick $+ .ini,Pass,Pass)) {
    Writeini $nick $+ .ini Pass Logged Yes
    Notice $nick You have logged in!
    Mode %Chanset +v $nick 
    Halt
  }
}
on *:text:*`LogOut:*: {
  writeini $nick $+ .ini Pass Logged No
  notice $nick You have now logged out!
  Mode %Chanset -v $nick
  Halt
}
on *:join:#:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && (%ChanSet == $Chan) { Notice $nick Welcome to %ChanSet $+ ! You Have Not Registered, Type `Register | halt }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) && (%ChanSet == $Chan) { Notice $nick Welcome to %ChanSet $+ ! You are Registered Please Type `Help for Help! }
  if ($readini($nick $+ .ini,Register,Complete) == Yes) {
    if ($readini($nick $+ .ini,Pass,Logged) != Yes) { halt }
    writeini -n $nick $+ .ini Pass Logged No
  }
}
on *:nick:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { halt }
  writeini -n $nick $+ .ini Pass Logged No
  Mode %Chanset -v $nick
}
on *:part:#:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { halt }
  writeini -n $nick $+ .ini Pass Logged No
}
on *:Quit:{
  if ($readini($nick $+ .ini,Register,Complete) != Yes) && ($readini($nick $+ .ini,Register,Name) == Yes) { Remove -b $Nick $+ .ini }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { halt }
  if ($readini($nick $+ .ini,Pass,Logged) != Yes) { halt }
  writeini -n $nick $+ .ini Pass Logged No
}
alias Name {
  set %Aura $readini($1 $+ .ini,$1,Aura)
  set %BAura $readini($1 $+ .ini,$1,BAura)
  return  $+ %Aura $+ , $+ %BAura $+ $readini($1 $+ .ini,$1,Name) $+ 
}
on *:text:`Stats:#: {
  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 }
  Notice $Nick Chr: $Name($Nick) 15-10 Hp $+ / $+ Max Hp:14 $Stat($nick,Hp) $+ / $+ $Stat($nick,MHP) 15-10 Stamina $+ / $+ Max Stamina:14 $Stat($nick,Stamina) $+ / $+ $Stat($nick,MStamina) 15-10 Attack:14 $Stat($nick,Attack) 15-10 Defense:14 $Stat($nick,Defense)
}
on 1:text:`Help:#:{
  Notice $nick 3Help Topics:14 Register - Battle - Healing - Shop 3Type `Help (Topic)
}
on 1:text:`Help*:#: {
  If ($2 == Register) { notice $nick Type `Register | halt }
  If ($2 == Battle) { notice $nick Type `Moves Too see Your Moves `AttackName Person Too Attack! To Enter Battle field and Leave: `Enter & `Leave | halt }
  If ($2 == Healing) { notice $nick To Heal Type `Inn | halt }
  If ($2 == Shop) { notice $nick Type `Shop to see what Items are available. Type `Money To see how much money you have. To buy the command is `Buy (Item) | halt }
  If ($2 == Items) { notice $nick Type `Items to see what You Have. Type `Use Potion To use Potion! Type `Equip Sword to equip it and `Unequip Sword To remove it | halt }
}
on 1:text:`Moves:#:{
  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 }
  Unset %Moves
  if ($readini($nick $+ .ini,$nick,Move1) != None) { Set %Moves %Moves $readini($nick $+ .ini,$nick,Move1) }
  if ($readini($nick $+ .ini,$nick,Move2) != None) { Set %Moves %Moves $readini($nick $+ .ini,$nick,Move2) }
  Notice $nick 10Attacks You Know:15 %Moves 10Weapon Move:15 $readini($nick $+ .ini,$nick,WeaponMove)  10Special Move:15 $readini($nick $+ .ini,$nick,SpecialMove)
  Unset %Moves
}
on 1:text:`Money:#:{
  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 }
  Notice $nick Money:7 $Stat($nick,Money)
}
on 1:text:`Items:#:{
  if ($chan != %ChanSet) { halt }
  if ($readini($nick $+ .ini,Register,Complete) != Yes) { /notice $nick Please Register! `Register | halt }
  if ($readini($nick $+ .ini,Password,LoggedIn) != Yes) { /notice $nick Login! | halt }
  Unset %Items
  Unset %Weapon
  if ($readini($nick $+ .ini,Items,Potion) >= 1) { //set %Items %Items $Item($nick,Potion) }
  if ($readini($nick $+ .ini,Weapon,Sword) == Yes) { //set %Weapon %Weapon Sword }
  if ($readini($nick $+ .ini,Weapon,Sword) == Equipped) { //set %Weapon %Weapon Sword(Equipped) }
  Notice $nick 3Items:15 %Items 3Weapons:15 %Weapon
  Unset %Items
  Unset %Weapon
}
alias Item {
  return $2 $+ ( $+ $readini($1 $+ .ini,Items,$2) $+ )
}
alias Stat {
  return $readini($1 $+ .ini,$1,$2)
}

Comments

Sign in to comment.
Main_Dude   -  May 31, 2007

Ummm... Whenever I try to register, and get to the name part it gives me:
MAIN.INI Unknown command

What is that?

 Respond  
Darkkeeper   -  Apr 01, 2007

very usfull, needs error checkign but its not half bad

 Respond  
Mindhead_mas   -  Dec 25, 2006

u cant leave a battle either -.-

 Respond  
Ace99   -  Nov 11, 2006

Austen, to answer your question, the != should be = No

 Respond  
Marshtomp   -  Nov 11, 2006

uhm... != means doesn\'t equal.. so it really means if that persons file DOESN\'T have a name do that command. technically if you don\'t have a name, get one.

 Respond  
Captain_BakaMan   -  Jun 21, 2006

k.. now how do i set the Channel thing..? do i make a thing like \"On :Text:!set { set %chanset #Chan}\".. or what not..?

 Respond  
Romeo   -  Apr 08, 2006

slim: involves zipping and what not...

ZabuzaMomochi is correct, Its Personal Message i also like to call it Private Message, its used for privacy for the password input.

 Respond  
ZabuzaMomochi   -  Apr 08, 2006

PMing means querying o-o; ((PM = Personal Message)) thought that was obvious :O

 Respond  
xtr   -  Apr 06, 2006

rofl ?

\" PMing \" ??????? wtf

 Respond  
vampslim   -  Apr 05, 2006

Romeo. How about just making it an Addon?

 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.