Jump to content

wizard1970

Members
  • Posts

    34
  • Joined

  • Last visited

Everything posted by wizard1970

  1. not understand much of it, so i don't understand what you mean, sorry
  2. 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
  3. 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
  4. wizard1970

    Help

    \\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
  5. wizard1970

    Casino

    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) }
  6. wizard1970

    Timer

    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
  7. works great, thanks for the good work, congratulations thanks guys
  8. 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
  9. 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
  10. Thanks to all, works perfectly
  11. 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
  12. wizard1970

    Time

    There is a code to tell who enters in the room, how long the bot is online? thanks
  13. I do not want the script for war, wanted for a few nicks in my room, only this, but thank you for the attention
  14. wizard1970

    Help

    there is a script that put many nicks in the room? like 20 or 30 nicks thanks
  15. I search and search and nothing, perhaps i search for the wrong word
  16. wizard1970

    Help

    I want to give my points to a player in the game st5.0 !give nick 500 thanks
  17. wizard1970

    Game

    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.* }
  18. now it works thanks travis for you help
  19. well the timer it works fine but the message the end of the game not appears msg $1 Game Over
  20. Where i put this? :noidea:
  21. wizard1970

    Timer

    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 }
  22. no one can find the error? I do ! paper or !paper and answer is "already chosen" please thanks
  23. well maybe is something else, i tray but doesn't work
  24. 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 .timerjkp1 1 1 mstat *s1 
 ►► Jo Ken Po $& 
 rock, paper ou scissors .timerjkp2 1 3 mstat *s1 
 Win or Lose Points $& 
 Use! <element> to play!! .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 mstat *s1 end of Jo Ken Poâ–“â–’ 
 %jkp.myplay â–º tie %jkp.lose â–º -50 points %jkp.win â–º 100 Points .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.* }
  25. 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
×
×
  • Create New...