wizard1970

September 28, 2009

not understand much of it, so i don't understand what you mean, sorry

September 27, 2009

but in the SCRIPT.INI i have like this:

qnormal= \\quention â–º %2 points â—„ â€© (co) nÂº %1 â–ºâ–º %3 ?

%2 points is the points

nÂº %1 number of the question and

%3 the question that will get them to the document called questions

how i put the code in here??

qnormal= \\quention â–º %2 points â—„ â€© (co) nÂº %1 â–ºâ–º %3 ?

the trivia is st5.0

September 26, 2009

no, is a small server, do not know what, just changed the interface and now the â€© doesn't work

there is some list or something where i can pick ? or a code etc...

thanks

September 26, 2009

\\Question ► 7 points ◄

nº 51 ►► What swimming stroke is named after an insect?

in the old interface â€© works well but the new interface â€© will not separate the lines

\\Question ► 14 points ◄   nº 56 ►► What swimming stroke is named after an insect?

Any idea to separate the lines?

Like this:

\\Question ► 7 points ◄ and a code to put other line below nº 56 ►► What swimming stroke is named after an insect?

this doesn't work â€©

thanks

April 11, 2009

How i put a time code in this game for 1 minute

thanks for any help

menu menubar {

=Hangman=

.Hangman ( $+ $group(#hangman) $+ )

..New Game:{ /resetguess }

..Set Word:{ set %originalword $$?="Set Your Word." | set %turnsleft %numberoftries | set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9) | echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ] }

..New Random Word:{ $resetguess }

..-

..Set Number Of Tries:{ set %numberoftries $$?="Number Of Turns?" | set %turnsleft %numberoftries }

..=SCORE IT=:{ $HangmanScore }

..-

..How To Play:{ /ctcpreply $chan TIME â€©-- How to play -- â€© 1) In order for the game to recognise your guess u must type â€© !hguess [your letter] â€©~ For example: "!hguess a" will tell the computer you are guessing the letter a }

..Game Status

...Enable:{ .enable #hangman | .disable #wisperguess | .disable #quietguess | .disable #numberguess | /msg $chan S eTahoma;0 Hangman Started - For a list of game commands, type !hcmds - To Play, type !hguess [your letter] | /echo 0,12 Hangman 0,4 Started !

}

...Disable:{ .disable #hangman | /msg $chan S eTahoma;0 Hangman Terminated - Game Over | /echo 0,12 Hangman 0,4 Ended ! }

..Current Settings

...Word Length $len(%originalword)

...Turns Left %turnsleft

...Total Words $lines(Games/Hangwords.txt)

}

#hangman on

on *:TEXT:*.hangman:#:{ msg $chan S Tahoma;0 $nick , Lets Play HANGMAN To Play, type .hg [your letter] EX: ".hg a" means you're guessing the letter: a (Y) For help type: .Hhelp and for other commands: .hcmds ~ Enjoy }

on *:TEXT:*.hcmds:#:{ msg $chan S eTahoma;0 [[ .setword, .newword, .percent, .sayword, .length, .numberofwords, .numberoftries, .Hhelp, .hg ]] }

on *:TEXT:*.setword*:*:{ set %originalword $2- | set %turnsleft %numberoftries | set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9) | echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ] }

on *:TEXT:*.newword:#:{ $resetguess }

on *:TEXT:*.percent:#:{ set %lettersleft4 $calc $len(%capitalguess) | set %percentguess $calc((%lettersleft2 / %lettersleft4) * 100)) | msg $chan [[ %percentguess ]] }

on *:TEXT:*.sayword:#:{ msg $chan [[ %originalword ]] }

on *:TEXT:*.length:#:{ msg $chan [[ $len(%originalword) ]] }

on *:TEXT:*.numberofwords:#:{ msg $chan [[ Total Words: $lines(Games/Hangwords.txt) ]] }

on *:TEXT:*.numberoftries*:#:{ set %numberoftries $2 | set %turnsleft %numberoftries }

on *:TEXT:*.Hhelp*:#:{ /ctcpreply $nick TIME â€©-- How to play -- â€©1)In order for the game to recognise your guess you must type â€©!hguess [your letter] â€©~ For example: "!hguess a" will tell the computer you are guessing the letter: a }

on *:TEXT:*.hscore:#:{ $HangmanScore }

alias HangmanScore {

set %n 1

/msg $chan [ Scoring HangMan ]]

goto chanscore

:chanscore {

if ($readini(hangmanscores.ini,Scores,$nick($chan,%n)) != $null) {

/msg $chan [ $nick($chan,%n) $+ 's Score: $readini(hangmanscores.ini,Scores,$nick($chan,%n)) ]]

}

if (%n >= $nick($chan,0)) { goto end }

}

inc %n

goto chanscore

:end {

/msg $chan [ Scoring Complete ]

}

alias resetguess {

set %lettersguessed

set %turnsleft %numberoftries

set %originalword $read(Games\Hangwords.txt)

if (%originalword isin %wordsused) { /resetguess }

%wordsused = %wordsused + %originalword

if ($len(%wordsused) >= 50) { /unset -q %wordsused }

set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9)

echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ]

msg $chan [[ New Word Set ]-[ Length: $len(%originalword) ]

}

alias strip {

set %lettersleft $remove(%capitalguess3,_, )

set %lettersleft2 $len(%lettersleft)

set %lettersleft3 $calc($len(%capitalguess) - %lettersleft2)

}

alias percent {

set %lettersleft4 $len(%capitalguess)

set %percentguess $calc((%lettersleft2 / %lettersleft4) * 100))

}

on *:TEXT:*!hg*:#: {

if ($2- == %originalword) { { %scoring = $readini(hangmanscores.ini,Scores,$nick) | set %scoring2 $calc(%scoring + 1) | writeini hangmanscores.ini Scores $nick %scoring2 | set %nickscore $readini(hangmanscores.ini,Scores,$nick) } /msg $chan S Tahoma;0 [[ $nick got it ]-[ %originalword ]-[ $nick 's Score: %nickscore ]] | /resetguess | halt } else goto onlyone

:onlyone

if ($len($2-) >= 2) { msg $chan S Papyrus;0 [[ $nick only one letter at a time please ]] | halt } else goto notinit

:notinit

if ($2 == $null) { halt } else goto letters

:letters {

if (a isin $2) || if (a isin %originalword) { set %capitalguess $replace(%capitalguess, !, a) }

if (b isin $2) || if (b isin %originalword) { set %capitalguess $replace(%capitalguess, @, }

if (c isin $2) || if (c isin %originalword) { set %capitalguess $replace(%capitalguess, ?, c) }

if (d isin $2) || if (d isin %originalword) { set %capitalguess $replace(%capitalguess, $, d) }

if (e isin $2) || if (e isin %originalword) { set %capitalguess $replace(%capitalguess, %, e) }

if (f isin $2) || if (f isin %originalword) { set %capitalguess $replace(%capitalguess, ^, f) }

if (g isin $2) || if (g isin %originalword) { set %capitalguess $replace(%capitalguess, &, g) }

if (h isin $2) || if (h isin %originalword) { set %capitalguess $replace(%capitalguess, *, h) }

if (i isin $2) || if (i isin %originalword) { set %capitalguess $replace(%capitalguess, /, i) }

if (j isin $2) || if (j isin %originalword) { set %capitalguess $replace(%capitalguess, \, j) }

if (k isin $2) || if (k isin %originalword) { set %capitalguess $replace(%capitalguess, -, k) }

if (l isin $2) || if (l isin %originalword) { set %capitalguess $replace(%capitalguess, =, l) }

if (m isin $2) || if (m isin %originalword) { set %capitalguess $replace(%capitalguess, [, m) }

if (n isin $2) || if (n isin %originalword) { set %capitalguess $replace(%capitalguess, ], n) }

if (o isin $2) || if (o isin %originalword) { set %capitalguess $replace(%capitalguess,;, o) }

if (p isin $2) || if (p isin %originalword) { set %capitalguess $replace(%capitalguess, >, p) }

if (q isin $2) || if (q isin %originalword) { set %capitalguess $replace(%capitalguess, <, q) }

if (r isin $2) || if (r isin %originalword) { set %capitalguess $replace(%capitalguess, 1, r) }

if (s isin $2) || if (s isin %originalword) { set %capitalguess $replace(%capitalguess, 2, s) }

if (t isin $2) || if (t isin %originalword) { set %capitalguess $replace(%capitalguess, 3, t) }

if (u isin $2) || if (u isin %originalword) { set %capitalguess $replace(%capitalguess, 4, u) }

if (v isin $2) || if (v isin %originalword) { set %capitalguess $replace(%capitalguess, 5, v) }

if (w isin $2) || if (w isin %originalword) { set %capitalguess $replace(%capitalguess, 6, w) }

if (x isin $2) || if (x isin %originalword) { set %capitalguess $replace(%capitalguess, 7, x) }

if (y isin $2) || if (y isin %originalword) { set %capitalguess $replace(%capitalguess, 8, y) }

if (z isin $2) || if (z isin %originalword) { set %capitalguess $replace(%capitalguess, 9, z) }

set %capitalguess3 $replace(%capitalguess, !, _, @, _, ?, _, $, _, %, _, ^, _, &, _, *, _, /, _, \, _, -, _, =, _, [, _, ], _,;, _, >, _, <, _, 1, _, 2, _, 3, _, 4, _, 5, _, 6, _, 7, _, 8, _, 9, _)

if (%capitalguess3 == %originalword) { { %scoring = $readini(hangmanscores.ini,Scores,$nick) | set %scoring2 $calc(%scoring + 1) | writeini hangmanscores.ini Scores $nick %scoring2 | set %nickscore $readini(hangmanscores.ini,Scores,$nick) } msg $chan S Tahoma;0 [[ $nick got it ]-[ %originalword ]-[ $nick 's Score: %nickscore ]] | resetguess | halt }

if ($2 isin %lettersguessed) { msg $chan S Tahoma;0 [[ Letters Already Used: %lettersguessed ]] | halt }

set %lettersguessed %lettersguessed $2

$strip

$percent

if (%turnsleft == 0) { msg $chan S Tahoma;0 [[Ooops, Looks like you ran out of guesses]-[ Your dude just got hanged ]-[The word was: %originalword $+ ] | resetguess | halt }

if ($2 isin %originalword) { msg $chan S Papyrus;0 [[ %capitalguess3 ]-[ $upper( $2 ) is in it ]-[ Letters Left: %lettersleft3 ]-[ Tries Left: %turnsleft ]] | halt } else

set %turnsleft $calc(%turnsleft - 1)

msg $chan S Papyrus;0 [[ %capitalguess3 ]-[ Letters Left: %lettersleft3 ]-[ Tries Left: %turnsleft ]-[ $2 ]]

}

#hangman end

on *:TEXT:*.addhang*:#: {

if ($2) { write GAMES\hangwords.txt $2- | msg $nick TIME Tnx, your word has been added to hangman (Y) }

October 6, 2008

Hello, it is possible put timer in this code?

on *:join:#:{

mode # +v $nick

}

I want to put a timer whith 5 seconds, the nick enter in the room and wait 5 seconds

October 5, 2008

works great, thanks for the good work, congratulations

thanks guys

October 4, 2008

and this?

I want to put only owners doing this command

on 5:text:*:#: {

tokenize 32 $strip($1-)

if ($1 == !mute) {

if ($address($2,2)) mode $chan +bb ~q: $+ $v1 ~n: $+ $v1

else msg $chan No address found for $2 $+ .

mode $chan -aohv $2 $2 $2 $2

msg $chan $2 Just Muted You For Reason: $iif($3,$3-,Blatent Retardation.)

}

on 5:text:*:#:{

tokenize 32 $strip($1-)

if ($1 == !unmute) {

if ($address($2,2)) mode $chan -bb ~q: $+ $v1 ~n: $+ $v11

else msg $chan No address found for $2 $+ .

mode $chan +v $2

msg $chan You have been unmuted... That was your only warning.. Do not annoy me again or you will be banned.

}

is possible?

thanks

October 4, 2008

I have a script and when I try to enter the room, gives this error

/dll: unable to open 'C:\DOCUME~1\....\MYDOCU~1\Os' (line 221, conn.mrc)

and the lines are:

Line 221 --> dll %m SetMircVersion $version

dll %m MarkDialog %d

dll %m SetControlMDX %d 2 ListView report grid flatsb nosortheader > $bc.ff(views.mdx)

did -i %d 2 1 headerdims 120 34 35 160

did -i %d 2 1 headertext sala $chr(9) usr $chr(9) cat $chr(9) tópico

did -i %d 2 1 seticon normal 0, $+ $bc.ff(bc.ico)

slist

Anybody know what this is?

thanks

October 4, 2008

Thanks to all, works perfectly

October 4, 2008

well, i have a script, and i want that script tell how long is in the room

"Hello (nick) my name is....and im online ......."

something like that

October 4, 2008

There is a code to tell who enters in the room, how long the bot is online?

thanks

September 28, 2008

I do not want the script for war, wanted for a few nicks in my room, only this, but thank you for the attention

September 27, 2008

there is a script that put many nicks in the room? like 20 or 30 nicks

thanks

September 11, 2008

I search and search and nothing, perhaps i search for the wrong word

September 11, 2008

I want to give my points to a player in the game st5.0

!give nick 500

thanks

August 4, 2008

i try to make this game like this, but obviously doesn't work

someone could help and try to find where the error is?

thank you

menu channel { 
  Jo-Ken-Po Game - $iif($timer(jkp0),On,Off): $iif($timer(jkp0),.timerjkp0 off,.timerjkp0 0 850 .signal JoKenPo) 
} 
On *:signal:JoKenPo: { 
  if ($timer(jkp7)) return 
  unset %jkp.* 
  var %mao = $rand(1,99)
  var %s = $rand(1,100)
  if (%mao > 0 && %mao <= 70) { set jkpbet $rand(50,1000) }
  else { set jkpbet $rand(50,1000) } 
  set jkptotal 0
  if (%mao > 0 && %mao <= 33) { set jkp.win rock | set jkp.lose paper | set myplay scissors }
  elseif (%mao > 33 && %mao <= 66) { set jkp.win paper | set jkp.lose scissors | set myplay rock }
  else { set jkp.win scissors | set jkp.lose rock | set myplay paper }
  .enable #jkpinput 
  .timerjkp1 1 1 mstat *s1 â€©  Jo-Ken-Po Game $& 
    â€© choose between !paper !rock or !scissors 
  .timerjkp2 1 3 mstat *s1 â€© Win or lose points $& 
    â€©â— Use !paper !rock or !scissors
  .timerjkp3 1 13 mstat *s1 you have 20 seconds 
  .timerjkp4 1 23 mstat *s1 you have 10 seconds
  .timerjkp5 1 28 mstat *s1 you have 5 seconds  
  .timerjkp7 1 33 jkpstop 
} 
#jkpinput off
on *:text: *:#:{ 
  if (rock isin $1 || scissors isin $1 || paper isin $1) {
    if ($2) {
      if ($2 isnum) {
        if ($2 > 0 && $2 <= $thget(jkpbet)) {
          if ($2 <= $stx_points($nick)) {
            set jkptotal $calc($get(jkptotal) + 1)
            set JTemp.jkp. $+ $get(jkptotal) $nick
            if ($1 isin $get(jkp.win)) {
              set2 jkp win
              set2 jbet $2
            }
            elseif ($1 isin $get(jkp.lose)) {
              set2 jkp lose
              set2 jbet $calc((-1) * $2) 
            }
            else {
              set2 jkp tie
              set2 jbet 0 
            }
            mstat *s1 $nick - chose $1 and bet $2 points! 
          }
          else { .mtime $nick , sorry, but can not bet more than you have! }        
        }
        else { .mtime $nick you can bet between 1 and $thget(jkpbet) $+ ! }
    }
  else { .mtime $nick Hey, $nick , you already bet }
}
#jkpinput end

alias jkpstop { 
  .disable #jkpinput 
  mstat *s1 time to bet is finish, I choose $get(myplay) â€© nice job to who won! - nice try, its a tie! - better next time for those who lost  
  %ij = 1
  .timerst_next 1 $sts(delay_wrong) st question 
  set jtemp.cng $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1))
  setvar $get($eval(JTemp.jkp. $+ %ij,1)) Score $calc($realvar($get($eval(JTemp.jkp. $+ %ij,1)), Score) + $get(jtemp.cng))
  set $eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1) $calc($get($eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) + $get(temp.cng))
  if ($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) == 0) {  
    .mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) its a tie!;)
  }
  else {
    .mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) > 0,Win $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)), loses $calc($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) * -1)) ponto $+ $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) != 1,s) $+ ! Points: $stx_points($nick)($get($eval(JTemp.jkp. $+ %ij,1)))
  }
  inc %ij
  }
}
unset %jkp.* 
}

August 1, 2008

now it works

thanks travis for you help

July 31, 2008

well the timer it works fine but the message the end of the game not appears

msg $1 Game Over

July 31, 2008

Where i put this? :noidea:

July 31, 2008

how i put a timer is this game, lets say.....1 minute

i want put a timer like this

""msg $chan $nick has started a cookie guessing game! guess by saying !cg NUMBER, you have 1 minute""

thanks

on *:TEXT:!cguess*:#:{

if (%numberzz == $null) goto this

if (%numberzz != $null) goto that

:this

msg $chan $nick has started a cookie guessing game! guess by saying !cg NUMBER.

set %numberzz $rand(0,100)

echo 3 -a %numberzz

.notice Sephiroth1n6 the answer is %numberzz

halt

:that

.notice $nick a game is in progress. please wait until the game is over, or you could just type !stopcookie

halt

}

on *:TEXT:!stopcookie*:#:{

if (%numberz != $null) goto not

if (%numberz == $null) goto yup

:not

msg $chan Cookie Guessing Stopped By $nick $+ . The Answer Was %numberz $+ .

unset %numberzz

halt

:yup

.notice $nick There Is Currently No Game In Progress.

halt

}

on *:TEXT:!cg *:#:{

if ($2 > %numberzz) goto greater

if ($2 < %numberzz) goto lesser

if ($2 == %numberzz) goto equal

if (%numberzz == $null) goto whom

else goto what

:greater

msg $chan $nick $+ , That Answer Was Wrong! But Keep Guessing. Try a Lower Number!

halt

:lesser

msg $chan $nick $+ , That Answer Was Wrong! But Keep Guessing. Try a Higher Number!

halt

:equal

msg $chan $nick Guessed The Correct Number of cookies, %numberzz and gets to eat them all!!!

unset %numberzz

halt

:what

halt

:whom .notice $nick there is currently no game in progress. Type !cguess to start a game.

halt

}

July 29, 2008

no one can find the error?

I do ! paper or !paper and answer is "already chosen"

please

thanks

July 26, 2008

well maybe is something else, i tray but doesn't work

July 25, 2008

someone knows how to put the command in this game? the command is !paper !rock or scissors, i think that is here on *:text:! *:#:{

but how?

;_______________________________________________________________________________

_____

;::::::::::::::::::: Jo-Ken-Po

;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

¯¯¯¯¯

alias -l st_jo_ken_pon {

if ($timer(jkp7)) return

unset %jkp.*

%jkp.max = 3

set %jkp.jkpal $r(1,3)

if (%jkp.jkpal == 1) { set %jkp.myplay scissors | set %jkp.lose paper | set %jkp.win rock }

if (%jkp.jkpal == 2) { set %jkp.myplay rock | set %jkp.lose scissors | set %jkp.win Paper }

if (%jkp.jkpal == 3) { set %jkp.myplay paper | set %jkp.lose rock | set %jkp.win scissors }

var %i = 1

while (%i <= %jkp.max) { %jkp.vrij = $addtok(%jkp.vrij,%i,32) | inc %i }

.enable #jkpinput

.timerjkp3 1 13 mstat *s1 you have 20 seconds to play

.timerjkp4 1 23 mstat *s1 you have 10 seconds to play

.timerjkp5 1 28 mstat *s1 you have 15 seconds to play

.timerjkp7 1 33 jkpstop

}

#jkpinput off

on *:text:! *:#:{

if (%jkp. [ $+ [ $nick ] ]) mtime $nick you have chose %jkp. [ $+ [ $nick ] ] before !

else {

if (!$istok(%jkp.vrij,$2,32)) mtime $nick has been chose $2 .

else {

%jkp.vrij = $remtok(%jkp.vrij,$2,32)

%jkp. [ $+ [ $nick ] ] = $2

mtime $nick you chose $2 !

if ($2 == %jkp.myplay) %jkp.tie = $nick

if ($2 == %jkp.lose) %jkp.lose = $nick

if ($2 == %jkp.win) %jkp.win = $nick

}

else mtime $nick $nick You have to choose.

}

#jkpinput end

alias jkpstop {

.disable #jkpinput

.timerst_next 1 $sts(delay_wrong) st question

if (%jkp.win) {

stx_addpoints %jkp.win 100

mtime %jkp.win $stm %jkp.win You get 100 points in Jo Ken Po

}

if (%jkp.lose) {

stx_addpoints %jkp.lose -50

mtime %jkp.perde $stm %jkp.loose you looses 50 points in Jo Ken Po

}

if (%jkp.tie) {

stx_addpoints %jkp.tie 0

mtime %jkp.tie $stm %jkp.tie its a tie with Jo Ken Po

}

unset %jkp.*

}

July 22, 2008

the code above is working, the only thing is when i do paper 50 ou rock 10 nothing happens, i think that something is missing in command to choose that I want to play

Sign In

wizard1970

Posts

Joined

Last visited

Content Type

Profiles

Forums

Events

Posts posted by wizard1970

Help

Help

Help

Help

Casino

Timer

Problem

Problem

Problem

Time

Time

Time

Help

Help

Help

Help

Game

Timer

Timer

Timer

Timer

Somebody Help Me Please?

Somebody Help Me Please?

Somebody Help Me Please?

Somebody Help Me Please?

Browse

Activity