Another 8ball script...

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Feb 22, 2008
Last Updated	Feb 22, 2008
Tags	8ball

Introduction

Well another 8ball script, although with this one you can add answers to it. And you can activate or deactivate it.

Please note in the alias 8ball you need to edit this line:

Code:

if ($1 == file) { return X:XXXstorage.mrc }

wit your own directory where the file must stand it can be anywhere you want. (The whole sys rests on that point)

commands:
!8ball [question]
!8create [to make yourself owner the first time]
!8edit [to set options, and add answers]

Grab the Code

alias 8ball {
  if ($1 == file) { return X:\XXX\storage.mrc }
  if ($1 == edit) { 
    if $readini(storage.mrc, owner, address) != $address($nick,2)) { return false }
    if $readini(storage.mrc, owner, address) == $address($nick,2)) { return true }
  }
}

on *:TEXT:!8ball *:#: {
  if ($readini($8ball(file), 8ball.settings, activated) != on) { .notice $nick Game not active | halt }
  var %norm $readini($8ball(file), 8ball.settings, norm)
  $iif(%norm == notice, .msg $chan $read(answers.mrc), .notice $nick $read(answers.mrc))
}

on *:TEXT:!8edit *:#: {
  if ($readini($8ball(edit) != true) { .notice $nick No access | halt }
  if ($2 == $null) {
    var %t $ini($8ball(file),8ball.settings,0)
    var %i 0
    .notice $nick Setting - Parameter
    while (%i < %t) {
      inc %i 1
      var %host $ini($8ball(file),8ball.settings,%i)
      .notice $nick  $+ %host $+ : $readini($8ball(file),8ball.settings,%host)
    }
  }
  if ($2 == norm) {
    if ($3 == notice) { writeini $8ball(file) 8ball.settings norm notice | Norm: $readini($8ball(file), 8ball.settings, norm) | halt }
    if ($3 == message) { writeini $8ball(file) 8ball.settings norm message | Norm: $readini($8ball(file), 8ball.settings, norm) | halt } 
    .notice $nick Invalid parameter.
    halt
  }
  if ($2 == activate) {
    writeini $8ball(file) 8ball.settings activated on 
    .notice $nick Game activated.
    halt
  }
  if ($2 == deactivate) {
    writeini $8ball(file) 8ball.settings activated off 
    .notice $nick Game Deactivated.
    halt
  } 
  if ($2 == answer) {
    if ($3 == $null) { .notice $nick Please put in a answer... | halt }
    write answers.mrc $3-
    notice $nick The answer has been added. ( $+ $3- $+ )
    halt
  }
}

on *:TEXT:!8create:#: {
  if ($readini($8ball(file), 8ball.settings, owner) != $null) { .notice $nick Create command already done. | halt }
  .notice $nick Will now write standard ini settings.
  writeini $8ball(file) 8ball.settings norm notice
  writeini $8ball(file) 8ball.settings activated on
  writeini $8ball(file) 8ball.settings owner $nick

writeini $8ball(file) owner address $address($nick,2)

write answers.mrc Yes
  write answers.mrc no
  .notice $nick Done.
}

Comments

(0) RSS

Go to Bottom

Another 8ball script...

Introduction

Grab the Code

Comments

Patrick91

My Snippet Tags

Contact

Sponsors


Last seen: Feb 22, 2008 Profile Snippets (2) Forum Posts (1)