Dutch (Boter kaas en eieren XXL)

By berend on Jan 27, 2011

Made this when i was bored.
It is in Dutch. but not much work to translate it into english :>

As you see 'Boter kaas en eieren

$bke <-- the game wil start with you and one other player.
$speel <-- Play the X or O somewhere on the board.

on *:text:*:#: {
  if ($1 == $ $+ bke) {
    msg $chan $nick Heeft boter kaas en eieren gestart met $2 $+ . $2 is X en $nick is o.
    var %c 0
    var %t 15
    while (%c < %t) {
      inc %c
      set %b [ $+ [ %c ] ] .
    }
    set %speler1 $nick 
    set %speler2 $2 
    set %beurt $2
    goto bord
  }
  if ($1 == $ $+ speel) {
    if (%b [ $+ [ $2 ] ] == x || %b [ $+ [ $2 ] ] == o) { HALT }
    if ($nick == %speler2 && %beurt == $nick) {
      set %beurt %speler1
      set %b [ $+ [ $2 ] ] x
      goto Bord
    }
    if ($nick == %speler1 && %beurt == $nick) {
      set %beurt %speler2
      set %b [ $+ [ $2 ] ] o
      goto Bord
    }
  }
  else { halt }
  :Bord
  msg $chan 7 $+ %b1 12\ 7 $+ %b2 12\ 7 $+ %b3 12\ 7 $+ %b4 12\ 7 $+ %b5 
  msg $chan 12-----------------
  msg $chan 7 $+ %b6 12\ 7 $+ %b7 12\ 7 $+ %b8 12\ 7 $+ %b9 12\ 7 $+ %b10
  msg $chan 12-----------------
  msg $chan 7 $+ %b11 12\ 7 $+ %b12 12\ 7 $+ %b13 12\ 7 $+ %b14 12\ 7 $+ %b15 
}

Like Page Follow Author

Comments

berend - Mar 05, 2014

You win, or you lose :P thats the score

3 Responses

Vegito - Mar 11, 2014

It doesn't notice the player who did win?
And it also doesn't reset when games finished.
And its not really turn based one player can keep spamming $speel N.

berend - Apr 04, 2014

I don't know if you can read mSL but I can clearly see a turn variable there. Also it resets itself perfectly. And for the last I did not really bother, since you can see yourself who wins imo.

Vegito - Apr 05, 2014

Player can keep spamming the screen by typing $speel N even if its not his/her turn.

Vegito - Feb 12, 2014

Hoe wordt de score bepaalt?

Respond

berend - Feb 08, 2011

I already translated it, Tic Tac Toe:

but i have it online on my pc, and i'm now at school, so i will post it this evening.

Respond

irchainscriptz - Feb 04, 2011

if thats what I understood!!

Respond

irchainscriptz - Feb 04, 2011

on *:text:*:#: {
  if ($1 == $ $+ bke) {
    msg $chan $nick start with Butter, Cheese and eggs $2 $+ . $2 is X en $nick is o.
    var %c 0
    var %t 15
    while (%c < %t) {
      inc %c
      set %b [ $+ [ %c ] ] .
    }
    set %player1 $nick 
    set %player2 $2 
    set %turn $2
    goto board
  }
  if ($1 == $ $+ play) {
    if (%b [ $+ [ $2 ] ] == x || %b [ $+ [ $2 ] ] == o) { HALT }
    if ($nick == %player2 && %turn == $nick) {
      set %turn %player1
      set %b [ $+ [ $2 ] ] x
      goto Bord
    }
    if ($nick == %player1 && %turn == $nick) {
      set %turn %player2
      set %b [ $+ [ $2 ] ] o
      goto Board
    }
  }
  else { halt }
  :Bord
  msg $chan 7 $+ %b1 12\ 7 $+ %b2 12\ 7 $+ %b3 12\ 7 $+ %b4 12\ 7 $+ %b5 
  msg $chan 12-----------------
  msg $chan 7 $+ %b6 12\ 7 $+ %b7 12\ 7 $+ %b8 12\ 7 $+ %b9 12\ 7 $+ %b10
  msg $chan 12-----------------
  msg $chan 7 $+ %b11 12\ 7 $+ %b12 12\ 7 $+ %b13 12\ 7 $+ %b14 12\ 7 $+ %b15 
}

Respond

Jazsmina - Feb 04, 2011

Ik bedoel dat dit script best wel nutteloos is lol.

Respond

berend - Feb 04, 2011

Hoe bedoel je als nergens? :>

Respond

Jazsmina - Jan 30, 2011

Lol dit kan je zo goed als nergens gebruiken :/

Respond