Author Topic: Bingo Script  (Read 4485 times)

DanielBak

  • Newbie
  • *
  • Posts: 10
Bingo Script
« on: April 25, 2007, 02:54:05 PM »
Well now im probably very demanding.

But im a darn scripting noooooob or lower indeed.

Does anyone have a script compatible with Icechat7 i have found some Mirc scripts but that dosnt work here.

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Bingo Script
« Reply #1 on: April 25, 2007, 03:24:30 PM »
As long as the script isnt too big, paste it here.
I might be able to make one, but if its too large, I am not gonna bother, unless I am "persuaded".
The IceChat God

DanielBak

  • Newbie
  • *
  • Posts: 10
Re: Bingo Script
« Reply #2 on: April 26, 2007, 01:25:52 PM »
Code: [Select]

on *:LOAD:{
/echo 
/echo 9,1«»0,1 Du har loadet #FrozenCup bingo script! 9,1«»
/echo 9,1«»0,1 Scriptet er lavet af Pzoco @ #FrozenCup 9,1«»
/echo 9,1«»0,1
/echo 9,1«»0,1 Admins: 9,1«»
/echo 9,1«»0,1 !bingo-on - f.eks. !bingo-on 15 En meter teflon 9,1«»
/echo 9,1«»0,1 !bingo-off 9,1«»
/echo 9,1«»0,1 !setpræmie - f.eks. !setpræmie En meter teflon 9,1«»
/echo 9,1«»0,1
/echo 9,1«»0,1 Puplic: 9,1«»
/echo 9,1«»0,1 !status 9,1«»
/echo 9,1«»0,1 !plade 9,1«»
/echo 9,1«»0,1 !vis-plade 9,1«»
/echo 9,1«»0,1 !prize 9,1«»
/echo 9,1«»0,1 !remove 9,1«»
}

on *:text:!plade:#:{
  if (%bingo == on) && (!%plade. [ $+ [ $address($nick,1) ] ]) && ($var(plade*).value < %players) {
    set %k 9,1«»0,1
    var %x = 1
    while (%x <= 8) {
      :one
      set %test $r(1,90)
      if (%test isin %plade. [ $+ [ $address($nick,1) ] ]) { goto one }
      set %plade. [ $+ [ $address($nick,1) ] ] %plade. [ $+ [ $address($nick,1) ] ] %test
      if (%x = 8) {
        msg $nick %color 9,1«»0,1 Dine tal er %plade. [ $+ [ $address($nick,1) 9,1«»  ] ]
        msg %chan %color 9,1«»0,1 $nick har fået en plade. $chr(91) $+ $var(plade.*).vlaue $+ / $+ %players $+ $chr(93) plads[er] tilbage. 9,1«»
        if ($var(plade.*).value == %players) {
          msg %chan %color 9,1«»0,1 Så er vi klar til at begynde %k Skriv !bingo til botten, hvis du har vundet :) 9,1«»
          mode # +m
          .timerbingo 0 5 bingogo
        }
      }
      inc %x
    }
  }
  else {
    if (%plade. [ $+ [ $address($nick,1) ] ]) && (%bingo == on) {
      msg $nick %color %k Du HAR en plade $nick $+ - Brug !vis-plade %k
    }
    else { msg $nick %color 9,1«»0,1 Bingo er enten FULD eller også er den OFF 9,1«»  (!status) }
  }
}

on *:text:!status:#:{ msg # %color 9,1«»0,1 Status: $var(plade*).value $+ / $+ %players er med på bingo. 9,1«» }


on *:text:!bingo-on *:#:{
  if ($nick isop #) {
    set %players $2
    set %præmie $3-
    if (!%præmie) { notice $nick %color 9,1«»0,1 Ingen præmie sat [ !setpræmie PRÆMIE ] 9,1«» }
    unset %bok
    unset %bokvin
    set %bingo on
    set %chan $chan
    msg %chan %color 9,1«»0,1 Bingo er 9ON0 9,1«»0,1 Præmien er %præmie 9,1«»0,1
    msg %chan %color 9,1«»0,1 Skriv !plade for at spille med :) 9,1«»0,1
  }
}

on *:text:!bingo-off:#:{
  if ($nick isop #) && (%bingo == on) {
    unset %bok
    unset %plade.*
    unset %bokvin
    msg %chan %color 9,1«»0,1 Bingo er 4,1OFF0 9,1«»0,1 Script by #FrozenCup 9,1«»0,1
    mode # -m
    .timerbingo off
    set %bingo off
  }
}

alias bingogo1 {
  :bingok
  set %test $r(1,90)
  if (%test isin %bok) { goto bingok }
  set %bok %bok %test
  msg %chan %test
}

alias bingogo {
  :bingok
  set %test $r(1,90)
  if (%test isin %bok) { goto bingok }
  set %bok %bok %test
  msg %chan %test
}

on @*:text:!setcolor*:#:{ set %color $($+($chr(3),$2)) $3- | notice $nick %color TEST }

on *:text:!prize:#:{ msg # %color %præmie }

on *:text:!setpræmie*:#:{ if ($nick isop $chan) { set %præmie $2- } }

on *:text:!vis-plade:?:{ msg $nick %color 9,1«»0,1 Dine tal er %plade. [ $+ [ $address($nick,1) 9,1«»0,1  ] ] }

on *:text:!bingo:?:{
  unset %bokvin
  .timerbingo off
  var %x = 1
  while (%x <= $numtok(%bok,32)) {
    if ($istok(%plade. [ $+ [ $address($nick,1) ] ],$gettok(%bok,%x,32),32) == $true) { set %bokvin %bokvin $gettok(%bok,%x,32) | set %bingo on }
    if ($numtok(%bokvin,32) == 8) { msg %chan %color 9,1«»0,1 BINGO! Den heldige vinder er $nick med tal %bokvin $+ . BINBGO 9,1«»0,1  | .timerbingo off | mode # -m }
    elseif (%x == $numtok(%bok,32)) && ($numtok(%bokvin,32) != 8) { unset %bokvin | msg $nick %color 9,1«»0,1 Nej $nick $+ , du har ikke Bingo. 9,1«»0,1 Spam forsøg giver perm. ban. 9,1«»0,1 | .timerbingo 0 5 bingogo
    }
    inc %x
  }
}

on *:text:!remove:#:{ unset %plade. [ $+ [ $address($nick,1) ] ] | msg %chan %color 9,1«»0,1 $var(plade.*).value $+ / $+ %players er med på bingo. %k  $+ $calc(%players - $var(plade.*).value)  plads[er] tilbage %k } }
on *:part:#:{ if (%plade. [ $+ [ $address($nick,1) ] ]) { unset %plade. [ $+ [ $address($nick,1) ] ] | msg %chan %color 9,1«»0,1 $var(plade.*).value $+ / $+ %players er med på bingo. 9,1«»0,1  $+ $calc(%players - $var(plade.*).value)  plads[er] tilbage 9,1«»0,1 } }
on *:quit:{ if (%plade. [ $+ [ $address($nick,1) ] ]) { unset %plade. [ $+ [ $address($nick,1) ] ] | msg %chan %color 9,1«»0,1 $var(plade.*).value $+ / $+ %players er med på bingo. 9,1«»0,1  $+ $calc(%players - $var(plade.*).value)  plads[er] tilbage 9,1«»0,1 } }

« Last Edit: April 26, 2007, 02:35:32 PM by Snerf »

Snerf

  • Administrator
  • Hero Member
  • *****
  • Posts: 1968
    • IceChat IRC Client
Re: Bingo Script
« Reply #3 on: April 26, 2007, 02:35:09 PM »
Ok, that is a big script.
And it is in a different language, which doesnt make it that easy to understand the messages.

The IceChat God