[Home] [Downloads] [Search] [Help/forum]

Gammon Forum

See www.mushclient.com/spam for dealing with forum spam. Please read the MUSHclient FAQ!

[Folder]  Entire forum
-> [Folder]  MUSHclient
. -> [Folder]  VBscript
. . -> [Subject]  I don't get this...
Home  |  Users  |  Search  |  FAQ
Username:
Register forum user name
Password:
Forgotten password?

I don't get this...

It is now over 60 days since the last post. This thread is closed.     [Refresh] Refresh page


Posted by WRTIII   Canada  (76 posts)  [Biography] bio
Date Sat 11 Jan 2003 08:52 AM (UTC)
Message
What am I doing wrong?

world.setvariable "CODE", "000"
end if
Dim CODE, A, B, C
CODE = world.getvariable ("CODE")
If CODE < 10 then
B = 0
C = 0
end if
if CODE < 100 and CODE > 9 then
C = 0
end if
A = mid (CODE, 1, 1)
B = mid (CODE, 2, 1)
C = mid (CODE, 3, 1)
world.send "TURN 1 TO " & A
world.send "TURN 2 TO " & B
world.send "TURN 3 TO " & C
world.send "open safe"
C = C + 1
if C = 10 then
C = 0
B = B + 1
end if
if B = 10 then
B = 0
A = A + 1
end if
CODE = A & B & C
If CODE = 1000 Then
CODE = 000
end if
world.setvariable "CODE", CODE
End Sub

Sub crackit_on
World.EnableTimer "Crackit", TRUE
End Sub

Sub Crackit_off
World.EnableTimer "Crackit", FALSE
End Sub

I have a timer label: Crackit
script: Crackit
set to every 5 seconds

I want to be able to type CRACKITON and turn it on
and type CRACKITOFF to turn it off...

I dunno I always have problems doing this crap if I constantly am working on things I do fine after awhile but it seems when I don't do any scripting for afew motnhs and come back to do something I cannot get anything to work.
[Go to top] top

Posted by Simon   Sweden  (39 posts)  [Biography] bio
Date Reply #1 on Sat 11 Jan 2003 12:07 PM (UTC)
Message
well apparently you didn't paste the entire first sub, since you have an end if there without any if to start with, neither can we see any starting sub.

I'm not sure with vbscript etc but can you define (dim) variables in the middle of a function? donno try to move the dims to the top of the sub

- "Where do you live, Simon?"
- "I live in the sick and wounded, doc."
Session 9
[Go to top] top

Posted by WRTIII   Canada  (76 posts)  [Biography] bio
Date Reply #2 on Sat 11 Jan 2003 12:49 PM (UTC)
Message
oops well the only lines I missed at the top were.

Sub Crackit (Timername)
if Isempty(world.getvariable ("CODE")) then

But that sub works it's just the matter of turning the timer on and off that I can't get to work.
[Go to top] top

Posted by Rhinoa   United Kingdom  (37 posts)  [Biography] bio
Date Reply #3 on Sat 11 Jan 2003 12:49 PM (UTC)

Amended on Mon 09 Jun 2003 04:46 PM (UTC) by Rhinoa

Message
You'll need to make two aliases for that. One calling Crackit_on, the other calling Crackit_off.

Alias: CRACKITON
Ignore Case
Label: CRACKITON
Script: Crackit_on

Alias: CRACKITOFF
Ignore Case
Label: CRACKITOFF
Script: Crackit_off

Or, your could make a trigger that'd call the Crackit_off script when the safe is opened. ie.

Trigger: The safe opened
Label: CRACKITOFF
Script: Crackit_off

That way, you could leave it going and watch tv or something while it's cracking the safe, instead of sitting watching for it to open.

~Rhinoa~
[Go to top] top

Posted by WRTIII   Canada  (76 posts)  [Biography] bio
Date Reply #4 on Sat 11 Jan 2003 01:11 PM (UTC)
Message
Sub Crackit (Timername, name, safe)
if Isempty(world.getvariable ("CODE")) then
world.setvariable "CODE", "000"
end if
Dim CODE, A, B, C
CODE = world.getvariable ("CODE")
If CODE < 10 then
B = 0
C = 0
end if
if CODE < 100 and CODE > 9 then
C = 0
end if
A = mid (CODE, 1, 1)
B = mid (CODE, 2, 1)
C = mid (CODE, 3, 1)
world.send "TURN 1 TO " & A
world.send "TURN 2 TO " & B
world.send "TURN 3 TO " & C
world.send "open safe"
C = C + 1
if C = 10 then
C = 0
B = B + 1
end if
if B = 10 then
B = 0
A = A + 1
end if
CODE = A & B & C
If CODE = 1000 Then
CODE = 000
end if
world.setvariable "CODE", CODE
End Sub

Sub crackit_on
World.EnableTimer "Crackit", TRUE
End Sub

Sub Crackit_off
World.EnableTimer "Crackit", FALSE
End Sub

That is the code I am using I have the alias's as you said
one labeled crackiton calling script crackit_on and crackitoff calling on sub crackit_off

it returns to me the error,

Wrong Number of Arguments for script subrountine "crackit_on" when processing alias "crackiton"
We expected your subroutine to have 3 arguments
[Go to top] top

Posted by Rhinoa   United Kingdom  (37 posts)  [Biography] bio
Date Reply #5 on Sat 11 Jan 2003 01:19 PM (UTC)
Message
Forgot to mention that in my last post. *smacks self*
It's giving you that error because there are no arguments for your crackit_on and crackit_off subs.

Sub crackit_on (aliasname, trig_line, arrWildCards)
World.EnableTimer "Crackit", TRUE
End Sub

Sub Crackit_off (aliasname, trig_line, arrWildCards)
World.EnableTimer "Crackit", FALSE
End Sub


That's how it should be. :)

~Rhinoa~
[Go to top] top

Posted by WRTIII   Canada  (76 posts)  [Biography] bio
Date Reply #6 on Sat 11 Jan 2003 01:30 PM (UTC)
Message
Awsome that works great, You don't per chance know off hand an easy way to deal out a card hand of a regular card deck do ya, actually I would want to use multiple decks in some instances if not I can work on figureing it out myself but it seems like it might be something that is commonly used enough that somewhere the script might be around already

I want to setup my character as a dealer for the card game let it ride hehe
[Go to top] top

Posted by WRTIII   Canada  (76 posts)  [Biography] bio
Date Reply #7 on Sat 11 Jan 2003 01:43 PM (UTC)
Message
Yea that's my next project hehe I remember doing it back in school with Visual Basic

figure it's just a matter of making 52 objects and having it randomly choose and display the a selected number of them, while retaining which of them it has used until you select to SHUFFLE (clear the list of used)

Hmm oh well it's something for me to play with at least heeh
[Go to top] top

Posted by Nick Gammon   Australia  (21,493 posts)  [Biography] bio   Forum Administrator
Date Reply #8 on Sat 11 Jan 2003 10:18 PM (UTC)

Amended on Sat 11 Jan 2003 10:20 PM (UTC) by Nick Gammon

Message
I think you would use an array of 52, and then randomly swap them.
eg.

dim cards (52)

cards (1) = "ace hearts"
cards (2) = "two hearts"
' and so on up to
cards (52) = "king spades"

Then to shuffle them make a loop that does something like this:

dim count, i, swap

for count = 1 to 52
i = rnd * 52 + 1 ' which one to swap with
swap = cards (count) ' get old one
cards (count) = cards (i) ' swap
cards (i) = swap ' put other one back
next

Basically you start with an unshuffled deck, and then go through each one and swap with another at random, thus shuffling them.

- Nick Gammon

www.gammon.com.au, www.mushclient.com
[Go to top] top

Posted by Flannel   USA  (1,230 posts)  [Biography] bio
Date Reply #9 on Fri 17 Jan 2003 09:32 PM (UTC)
Message
For the Cards, It would be easier to have your array be simple Numbers (1 to 52), Keep the size down, and then to deal, take the first number, and div by 13, take the ipart as the suit (0-3), and then the decimal, and multiply it by 13 to be the card value. This would also be easier to expand to multiple decks.
As for shuffling, you could either do the random thing, or split the deck into two groups, then splice them, simulating a real shuffle.

~Flannel

Messiah of Rose
Eternity's Trials.

Clones are people two.
[Go to top] top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.


6,188 views.

It is now over 60 days since the last post. This thread is closed.     [Refresh] Refresh page

Go to topic:           Search the forum


[Go to top] top

Quick links: MUSHclient. MUSHclient help. Forum shortcuts. Posting templates. Lua modules. Lua documentation.

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.

[Home]


Written by Nick Gammon - 5K   profile for Nick Gammon on Stack Exchange, a network of free, community-driven Q&A sites   Marriage equality

Comments to: Gammon Software support
[RH click to get RSS URL] Forum RSS feed ( https://gammon.com.au/rss/forum.xml )

[Best viewed with any browser - 2K]    [Hosted at FutureQuest]