 |
on *:text:.register*:#: {
if ($readini(peter.ini,$nick,register) == yes) { notice $nick You have already registered.
Type .character to choose your character. For a list, type .character list }
else {
/set %notice.nick
$nick
charlist
/writeini -n peter.ini $nick register yes
}
}
on
*:text:.character *:#: {
if ($readini(peter.ini,$nick,character) != $null) /notice $nick You already have
a character created! type .stats to see your character's stats.
elseif (($2 == Peter) || ($2 == Stewie) || ($2 ==
Chris) || ($2 == Meg) || ($2 == Brian) || ($2 == Lois) || ($2 == god)) {
/notice $nick you have
chosen $2.
/writeini peter.ini $nick Character $2
if ($2 == Peter) {
/writeini peter.ini $nick hp 10
/writeini peter.ini $nick pp 12
/writeini peter.ini $nick speed 8
/writeini peter.ini $nick money 30
/writeini peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 2
/writeini peter.ini $nick def 1
/writeini peter.ini $nick sattack AnnoyingLaugh
/writeini peter.ini $nick spower You need
more experience points before you can get get your super power
/writeini peter.ini $nick
xp 0
}
if ($2 == Lois) {
/writeini peter.ini
$nick hp 9
/writeini peter.ini $nick pp 12
/writeini peter.ini
$nick speed 9
/writeini peter.ini $nick money 50
/writeini
peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 1
/writeini peter.ini $nick def 2
/writeini peter.ini $nick sattack Nag
/writeini peter.ini $nick spower You need more experience
points before you can get get your super power
/writeini peter.ini $nick xp 0
}
if ($2 == Stewie) {
/writeini peter.ini $nick hp 5
/writeini peter.ini $nick pp 10
/writeini peter.ini $nick speed 15
/writeini peter.ini $nick money 1
/writeini peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 1
/writeini peter.ini $nick def 0
/writeini peter.ini $nick sattack LaserGun
/writeini peter.ini $nick spower You need more experience points before you can get get your super power
/writeini peter.ini $nick xp 0
}
if ($2 == Chris) {
/writeini peter.ini $nick hp 10
/writeini peter.ini $nick pp 15
/writeini peter.ini $nick speed 5
/writeini peter.ini $nick money 10
/writeini peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 1
/writeini peter.ini $nick def 2
/writeini peter.ini $nick sattack ThrowFood
/writeini peter.ini $nick spower You need more
experience points before you can get get your super power
/writeini peter.ini $nick xp 0
}
if ($2 == brian) {
/writeini peter.ini $nick hp 15
/writeini peter.ini $nick pp 5
/writeini peter.ini $nick speed 10
/writeini peter.ini $nick money 5
/writeini peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 3
/writeini peter.ini $nick def 1
/writeini peter.ini $nick sattack CocktailThrow
/writeini peter.ini $nick spower You need more experience points before you can get get your super power
/writeini peter.ini $nick xp 0
}
if ($2 == meg) {
/writeini peter.ini $nick hp 10
/writeini peter.ini $nick pp 10
/writeini peter.ini $nick speed 10
/writeini peter.ini $nick money 30
/writeini peter.ini $nick status None
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 2
/writeini peter.ini $nick def 1
/writeini peter.ini $nick sattack Whine
/writeini peter.ini $nick spower You need more experience
points before you can get get your super power
/writeini peter.ini $nick xp 0
}
if ($2 == god) {
/writeini peter.ini $nick hp 30
/writeini peter.ini $nick pp 30
/writeini peter.ini $nick speed 30
/writeini peter.ini $nick money 300
/writeini peter.ini $nick status Almighty
/writeini peter.ini $nick cattack punch
/writeini peter.ini $nick str 10
/writeini peter.ini $nick def 10
/writeini peter.ini $nick sattack ThunderBoom
/writeini peter.ini $nick spower DivinePower
/writeini peter.ini $nick xp 100000
}
/notice $nick type .enter to enter the battlefield
}
elseif ($2 == list) {
/set %notice.nick $nick
/charlist
}
else {
/notice $nick Please
try again, you typed $1- which was incorrect.
}
}
on *:text:.stats*:#: {
if ($2 == $null) /notice
$nick Your stats: Character: $readini(peter.ini, $nick, Character) Health: $readini(peter.ini, $nick, hp) power: $readini(peter.ini,
$nick, pp) Speed: $readini(peter.ini, $nick, speed) Money: $readini(peter.ini, $nick, money) Current Status: $readini(peter.ini,
$nick, status) Strench: $readini(peter.ini, $nick, str) Defense: $readini(peter.ini, $nick, def) Primary Attack: $readini(peter.ini,
$nick, cattack) Special Attack: $readini(peter.ini, $nick, sattack) Experience Points: $readini(peter.ini, $nick, xp)
else /notice $nick $2's stats: Character: $readini(peter.ini, $2, Character) Health: $readini(peter.ini, $2, hp) power:
$readini(peter.ini, $2, pp) Speed: $readini(peter.ini, $2, speed) Money: $readini(peter.ini, $2, money) Current Status: $readini(peter.ini,
$2, status) Strench: $readini(peter.ini, $2, str) Defense: $readini(peter.ini, $2, def) Primary Attack: $readini(peter.ini,
$2, cattack) Special Attack: $readini(peter.ini, $2, sattack) Experience Points: $readini(peter.ini, $2, xp)
}
on *:TEXT:.help*:#:
{
if ($2 == $null) { /notice $nick Type .help <what you need help with> to access the help file you need.
If you want a list of possible help articles, type .help list. }
elseif ($2 == Peter) { /notice $nick Peter Griffin:
| /notice $nick HP: 12 | /notice $nick PP: 10 | /notice $nick Speed: 8 | /notice $nick Money: $ $+ 30.00 | /notice $nick Strength:
1 | /notice $nick Defense: 2 | /notice $nick Special Attack: AnnoyingLaugh }
elseif ($2 == Lois) { /notice $nick
Lois Griffin: | /notice $nick HP: 9 | /notice $nick PP: 12 | /notice $nick Speed: 9 | /notice $nick Money: $ $+ 50.00 | /notice
$nick Strength: 1 | /notice $nick Defense: 2 | /notice $nick Special Attack: Nag }
elseif ($2 == Stewie) { /notice
$nick Stewie Griffin: | /notice $nick HP: 5 | /notice $nick PP: 10 | /notice $nick Speed: 15 | /notice $nick Money: $ $+ 1.00
| /notice $nick Strength: 1 | /notice $nick Defense: 0 | /notice $nick Special Attack: LaserGun }
elseif ($2 ==
Meg) { /notice $nick Meg Griffin: | /notice $nick HP: 10 | /notice $nick PP: 10 | /notice $nick Speed: 10 | /notice $nick
Money: $ $+ 10.00 | /notice $nick Strength: 2 | /notice $nick Defense: 1 | /notice $nick Special Attack: Whine }
elseif ($2 == Brian) { /notice $nick Brian Griffin: | /notice $nick HP: 15 | /notice $nick PP: 5 | /notice $nick Speed: 10
| /notice $nick Money: $ $+ 5.00 | /notice $nick Strength: 1 | /notice $nick Defense: 1 | /notice $nick Special Attack:
CocktailThrow }
elseif ($2 == Chris) { /notice $nick Chris Griffin: | /notice $nick HP: 10 | /notice $nick PP: 15
| /notice $nick Speed: 5 | /notice $nick Money: $ $+ 10.00 | /notice $nick Strength: 1 | /notice $nick Defense: 3 | /notice
$nick Special Attack: ThrowFood }
elseif ($2 == stats) { /notice $nick .Stats allows you to see the stats of your,
or any other player. Just type .stats to see your stats, or .stats <nick> to see the stats of another player.
}
elseif ($2 == register) { /notice $nick Type !register to register, then follow the instructions displayed. }
elseif ($2 == list) { /notice $nick The help commands are as follows: Peter, Lois, Stewie, Meg, Brian, Chris, stats,
and register. | /notice $nick To access the help for these categories, type .help <category>. }
}
on *:text:.enter:#: {
/writeini peter.ini $nick entered yes
}
on *:text:.punch*:#: {
if ($readini(peter.ini, $nick, entered) == yes) {
if ($readini(peter.ini,
$2, entered) == yes) {
/set %tl $calc(25 - $readini(peter.ini,$nick,speed))
/set %num2 $2
/set %p.nick $nick
/set %p.chan $chan
/timer $+ $nick 1 %tl /punch one two
}
}
}
on *:text:.AnnoyingLaugh*:#: {
if ($readini(peter.ini, $nick, entered) == yes) {
if ($readini(peter.ini, $2, entered) == yes) {
if ($readini(peter.ini, $nick, sattack) == AnnoyingLaugh) && (peter.ini, $nick, hp) > 1) (peter.ini, $2, hp) ==
> 1) {
/set %tl $calc(20 - $readini(peter.ini,$nick,speed))
/set %num2 $2
/set %p.nick $nick
/set %p.chan $chan
/timer $+ $nick 1 %tl /AnnoyingLaugh one two
}
}
}
}
on *:text:.LaserGun*:#: {
if ($readini(peter.ini, $nick, entered) == yes) {
if ($readini(peter.ini,
$2, entered) == yes) {
if ($readini(peter.ini, $nick, sattack) == LaserGun) {
/set %tl $calc(20 - $readini(peter.ini,$nick,speed))
/set %num2 $2
/set %p.nick $nick
/set %p.chan $chan
/timer $+ $nick 1 %tl /lasergun one two
}
}
}
}
on
*:text:.ThrowFood*:#: {
if ($readini(peter.ini, $nick, entered) == yes) {
if ($readini(peter.ini,
$2, entered) == yes) {
if ($readini(peter.ini, $nick, sattack) == ThrowFood) &&
(peter.ini, $nick, hp) > 1) (peter.ini, $2, hp) == > 1) {
/set %tl $calc(20
- $readini(peter.ini,$nick,speed))
/set %num2 $2
/set %p.nick $nick
/set %p.chan $chan
/timer $+ $nick 1 %tl /throwfood one two
}
}
}
}
on
*:text:.Nag*:#: {
if ($readini(peter.ini, $nick, entered) == yes) {
if ($readini(peter.ini,
$2, entered) == yes) {
if ($readini(peter.ini, $nick, sattack) == ThrowFood) &&
(peter.ini, $nick, hp) > 1) (peter.ini, $2, hp) == > 1) {
/set %tl $calc(20
- $readini(peter.ini,$nick,speed))
/set %num2 $2
/set %p.nick $nick
/set %p.chan $chan
/timer $+ $nick 1 %tl /throwfood one two
}
}
}
}
alias
charlist {
/notice d Thank you for registering! Please select your character from the following List
/notice d Peter
/notice d Lois
/notice d Chris
/notice d Meg
/notice d Brian
/notice d Stewie
/notice d If you would like more information on a character, type .help character <characer's
name>
/notice d When you have chosen a character, type .character <Character's name>
}
alias punch
{
/set %dmg $calc($rand(1,4) + $readini(peter.ini,%p.nick,str)) - $readini(peter.ini,%num2,def))
/msg
%p.chan %p.nick just hit %num2 with a punch! This punch did %dmg damage.
/writeini peter.ini %num2 hp $calc($readini(peter.ini,%num2,hp)
- %dmg)
}
alias lasergun {
/set %dmg $calc($rand(1,2) + $readini(peter.ini,%p.nick,str)) - $readini(peter.ini,%num2,def))
/msg %p.chan %p.nick just shot %num2 with a Laser Gun! This bolt of energy did %dmg damage.
/writeini peter.ini
%num2 hp $calc($readini(peter.ini,%num2,hp) - %dmg)
}
alias ThrowFood {
/set %dmg $calc($rand(2,6) + $readini(peter.ini,%p.nick,str))
- $readini(peter.ini,%num2,def))
/msg %p.chan %p.nick just threw food at %num2 $+ ! Pepperoni hit %num2 for %dmg
damage.
/writeini peter.ini %num2 hp $calc($readini(peter.ini,%num2,hp) - %dmg)
}
alias AnnoyingLaugh {
/set %dmg $calc($rand(2,3) + $readini(peter.ini,%p.nick,str)) - $readini(peter.ini,%num2,def))
/msg %p.chan %p.nick
laughed annoyingly at %num2 $+ ! %p.nick dealt %dmg damage.
/writeini peter.ini %num2 hp $calc($readini(peter.ini,%num2,hp)
- %dmg)
}
alias Nag {
/set %dmg $calc($rand(2,3) + $readini(peter.ini,%p.nick,str) - $readini(peter.ini,%num2,def))
/msg %p.chan %p.nick at %num2 $+ , nagged at %num2 to take out the trash, dealing %dmg damage.
/writeini peter.ini
%num2 hp $calc($readini(peter.ini,%num2,hp) - %dmg)
}
alias notice {
/notice $19,1 [-] 1,3 $2- 9,1 [-]
}
|
