APinis commented on a Page, Simple Soccer Game  -  Jan 25, 2007

Ok I changed something in the script! Problem was that wen i played I typed !goal it sometimes answered The ball is in!! and showed score! But sometimes it didnt because you missed and CPU got the point, but the bot didnt say anything! So I was a little confused wenn i typed !scores and saw that the score was 18:0 ( example ) So now I made it to show whenn you miss and CPU scores! I`m very proud of myself because I dont know anything ANYTHING about scripting :)))) gratz to me!
Sorry for bad english!

on :TEXT:!soccer:%soccerchan:{
if (%soccer != on) {
msg $chan $nick has started the soccer game.
set %soccer on
}
elseif (%soccer == on) {
msg $chan There is a game in progress $nick $+ .
}
}
on
:TEXT:!play:%soccerchan:{
if ((%soccer == on) && (%playing != on)) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan $nick kicks the soccer ball to %soccerisin
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
set %playing on
}
}
on :TEXT:!kick:%soccerchan:{
if ($nick == %soccerisin) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan $nick kicks the soccer ball to %soccerisin
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
}
elseif ($nick != %soccerisin) {
notice $nick You don\'t have the ball!! Sshh
}
}
on
:TEXT:!goal:%soccerchan:{
if ($nick == %soccerisin) {
if (%distance >= 40) {
msg $chan you missed CPU gets a point!
inc %cpu 1
msg $chan The scores are CPU: $int(%cpu) $+ , Players: $int(%players)
msg $chan $read(ballstopped.txt)
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan %soccerisin now has the ball.
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
}
elseif ((%distance <= 40) && (%distance >= 10)) {
set %rands $rand(1,10)
if (%rands == 10) {
msg $chan The ball is in!!
inc %players 1
msg $chan The scores are CPU: $int(%cpu) $+ , Players: $int(%players)
}
elseif (%rands != 4) {
msg $chan you missed CPU gets a point!
inc %cpu 1
msg $chan The scores are CPU: $int(%cpu) $+ , Players: $int(%players)
msg $chan $read(ballstopped.txt)
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan %soccerisin now has the ball.
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
}
}
elseif (%distance <= 10) {
set %rands $rand(1,5)
if (%rands == 5) {
msg $chan The ball is in!!!
inc %players 1
msg $chan The scores are CPU: $int(%cpu) $+ , Players: $int(%players)
}
elseif (%rands != 5) {
inc %cpu 1
msg $chan $read(ballstopped.txt)
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan %soccerisin now has the ball.
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
}
}
elseif (%distance <= 5) {
set %rands $rand(1,2)
if (%rands == 2) {
msg $chan The ball is in!!!
inc %players 1
msg $chan The scores are CPU: $int(%cpu) $+ , Players: $int(%players)
}
elseif (%rands != 2) {
inc %cpu 1
msg $chan $read(ballstopped.txt)
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
while (%soccerisin == $me) {
set %soccerisin $nick($chan,$rand(1,$nick($chan,0)))
}
msg $chan %soccerisin now has the ball.
set %distance $rand(1,100)
msg $chan The ball is now %distance $+ m from the goal.
}
}
}
}
on :TEXT:!scores:%soccerchan:{
if (%soccer == on) {
msg $chan The scores are: CPU: $int(%cpu) $+ , Players: $int(%players)
}
elseif (%soccer != on) {
msg $chan No game is in progress.
}
}
on
:TEXT:!steal:%soccerchan:{
if ((%soccerisin != $null) && (%soccerisin != $nick) && (%steal != on)) {
set %rand $rand(1,5)
set %steal on
timer9 1 30 { set %steal off }
if (%rand == 5) {
msg $chan The ball is stolen from %soccerisin by $nick $+ !!
set %soccerisin $nick
}
elseif (%rand != 5) {
msg $chan The attempt to steal from %soccerisin failed.
}
}
}
on :TEXT:!endgame:%soccerchan:{
if (%soccer == on) {
msg $chan Soccer is now over.
if (%cpu >= %players) {
msg $chan The winner was13 CPU, too bad, better luck next time.
}
elseif (%players >= %cpu) {
msg $chan The winner was13 Players, you won!!
msg $chan Congratulations!!
}
set %soccer off
set %soccer2 off
set %soccerisin .
set %cpu 0
set %players 0
set %playing off
}
}
on
:JOIN:%soccerchan:{
msg $nick Soccer is enabled in this channel, type !soccercommands to learn more.
}
on :TEXT:!soccercommands:%soccerchan:{
msg $nick Type !soccer to begin, !play to start the game, !kick to kick the ball once you get it;
msg $nick !scores shows the current scores
msg $nick !goal to try for a goal, once your in 40m of the goal.
msg $nick Everytime you try for a goal, and miss, the CPU team gets a point.
msg $nick !endgame ends the game.
msg $nick !steal lets you steal the ball from another player.
msg $nick Soccer is much more fun with more than one player ;)
if (%soccer == on) {
msg $nick There is a game on at the moment.
}
elseif (%soccer != on) {
msg $nick There is no game on at the moment.
}
msg $nick Thankyou for playing HamSoccer BETA v1
}
on
:PART:%soccerchan:{
if (%soccer == on) && ($nick($chan,0) == 1) {
msg $chan Soccer is now over.
if (%cpu >= %players) {
msg $chan The winner was 13 CPU, too bad, better luck next time.
}
elseif (%players >= %cpu) {
msg $chan The winner was 13 Players, you won!!
msg $chan Congratulations!!
}
set %soccer off
set %soccer2 off
set %soccerisin .
set %cpu 0
set %players 0
set %playing off
}
}

OMG IM SO HAPPY!!! :))))))))

 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.