forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Keeping a user interested...

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Miscellaneous
View previous topic :: View next topic  
Author Message
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508
PostPosted: Sun Sep 22, 2002 10:18 pm    Post subject: Keeping a user interested... Reply with quote
For long operations, you might consider making your program keep the user somewhat interested...this might make them interested (not sure if this is compatible with VDS 3.x)

Code:
  DIALOG CREATE," ",-1,0,115,24,NOMIN
  DIALOG ADD,TEXT,TEXT1,6,6,20,13,%%random
  DIALOG SHOW
  repeat
  wait .2
  %%random = @random(33,212)
%%random = @chr(%%random)
%%random2 = @random(33,212)
%%random2 = @chr(%%random2)
%%random = %%random%%random2
dialog set,text1,%%random
until @event()

_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
Skit3000
Admin Team


Joined: 11 May 2002
Posts: 2166
Location: The Netherlands
PostPosted: Wed Sep 25, 2002 1:34 pm    Post subject: Reply with quote
Hey FreezingFire,

Your code can be a lot shorter!

Code:

  dialog CREATE," ",-1,0,115,24,NOMIN
  dialog ADD,TEXT,TEXT1,6,6,20,13
  dialog SHOW

repeat
  wait "0,2"
  dialog set,text1,@chr(@random(33,212))@chr(@random(33,212))
until @event()
Back to top
View user's profile Send private message
Dr. Dread
Professional Member
Professional Member


Joined: 03 Aug 2001
Posts: 1065
Location: Copenhagen, Denmark
PostPosted: Wed Sep 25, 2002 3:11 pm    Post subject: Reply with quote
Or ...

Code:
  option decimalsep,.
  dialog CREATE," ",-1,0,115,24,NOMIN
  dialog ADD,TEXT,TEXT1,6,6,100,20,,
  dialog SHOW
  %%range = "                              Processing your request"
  %%inc = 0
  repeat
  %%inc = @succ(%%inc)
    wait .1
    dialog set,text1,@substr(%%range,%%inc,@len(%%range))
  if @equal(%%inc,@len(%%range))
    %%inc = 0
  end
  until @event()


Greetz
Dr. Dread
_________________
~~ Alcohol and calculus don't mix... Don't drink and derive! ~~

String.DLL * advanced string processing
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Miscellaneous All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group