Mac Professional Member
Joined: 08 Jul 2000 Posts: 1585 Location: Oklahoma USA
|
Posted: Thu Jun 06, 2002 9:32 am Post subject: Number Game (number predictions)... |
|
|
OK, I'm not getting psychic here (hopefully not psychotic either)...
I found this code on the net and converted it to VDS (with a few
modifications and bug eliminations). Let me know if ya find any
bugs. Have fun...
______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Code: |
OPTION SCALE, 96
OPTION DECIMALSEP, "."
TITLE By Mac
DIALOG CREATE,Number Prediction Game,-1,0,600,330
DIALOG ADD,TEXT,T1,8,5,,,"Name"
DIALOG ADD,EDIT,Name,5,36,150,20
DIALOG ADD,TEXT,T2,8,198,,,"Date of Birth (month day year)"
DIALOG ADD,EDIT,Month,5,342,25,20
DIALOG ADD,EDIT,Day,5,368,25,20
DIALOG ADD,EDIT,Year,5,394,40,20
DIALOG ADD,BUTTON,OK,5,445,150,20,"Show Number Predictions"
DIALOG ADD,LIST,L1,30,5,590,120
DIALOG ADD,TEXT,E1txt,155,5,,,"Prediction based on Lucky Number"
DIALOG ADD,EDIT,E1,170,5,290,150,,,MULTI,WRAP,SCROLL,READONLY
DIALOG ADD,TEXT,E2txt,155,305,,,"Prediction based on Characteristic Number"
DIALOG ADD,EDIT,E2,170,305,290,150,,,MULTI,WRAP,SCROLL,READONLY
DIALOG SHOW
rem -- Add horizontal scroll to list --
%z = @sendmsg(@winexists(~L1),$0194,2000,0)
LIST CREATE, 1
GOSUB LoadData
%%alpha = "abcdefghijklmnopqrstuvwxyz "
%%value = "123456789123456789123456780"
:EVLOOP
WAIT EVENT
goto @event()
:OKBUTTON
if @not(@dlgtext(Name))@not(@dlgtext(Month))@not(@dlgtext(Day))@not(@dlgtext(Year))
INFO You must fill in NAME and DATE OF BIRTH fields...@tab()
goto EVLOOP
end
LIST CLEAR, L1
%s = ""
%%name = @trim(@dlgtext(Name))
%%month = @trim(@dlgtext(Month))
%%day = @trim(@dlgtext(Day))
%%year = @trim(@dlgtext(Year))
if @not(@numeric(%%month))@not(@numeric(%%day))@not(@numeric(%%year))@greater(@len(%%month), 2)@greater(@len(%%day), 2)@not(@equal(@len(%%year), 4))
INFO Invalid date. Use MM DD YYYY format...@tab()
goto EVLOOP
end
DIALOG CLEAR, Name
DIALOG CLEAR, Month
DIALOG CLEAR, Day
DIALOG CLEAR, Year
LIST ADD, L1, Name: %%name Birth Date: %%month-%%day-%%year
GOSUB GetLuckyNumber
GOSUB GetCharNumber
LIST ADD, L1, Your lucky days are @item(1, @sum(%%luckynum,10))
LIST ADD, L1, Your lucky periods are @item(1, @sum(%%luckynum,20))
LIST ADD, L1, Your lucky colors are @item(1, @sum(%%luckynum,30))
LIST ADD, L1, Your lucky jewels are @item(1, @sum(%%luckynum,40))
goto EVLOOP
:CLOSE
EXIT
rem --------- GOSUB ---------
:GetLuckyNumber
%%luckynum = @sum(@mod(@sum(%%day, 8), 9), 1)
LIST ADD, L1, Your lucky number is %%luckynum.
DIALOG SET, E1, @item(1, %%luckynum)
exit
:GetCharNumber
%%charnum = 0
%x = 1
REPEAT
if @greater(@pos(@substr(%%name, %x), %%alpha), 0)
%p = @pos(@substr(%%name, %x), %%alpha)
%v = @substr(%%value, %p)
%%charnum = @sum(%%charnum, %v)
else
INFO Invalid name entry...@tab()
%x = @len(%%name)
end
%x = @succ(%x)
UNTIL @greater(%x, @len(%%name))
if @greater(%%charnum, 26)
REPEAT
%%charnum = @div(%%charnum, 2)
UNTIL @equal(26, %%charnum)@greater(26, %%charnum)
end
LIST ADD, L1, Your characteristic number is %%charnum.
DIALOG SET, E2, @item(1, @sum(%%charnum,50))
exit
:LoadData
LIST LOADTEXT, 1,
"-- Lucky Number Predictions --
"A person born under the birth number of 1, or any of its series, has the underlying principles of being in his or her work creative, inventive, strongly individual, definite in his or her views, and in consequence more or less obstinate and determined in all they as individuals undertake, more especially if they happen to be born between 21st July and 28th August or from 21st March to 28th April. Number 1 people are ambitious; they dislike restraint, they always rise in whatever their profession or occupation may be. They desire to become the heads of whatever their businesses are, and as departmental chiefs they keep their authority and make themselves respected and 'looked up to' by their subordinates. They should endeavour to carry out their most important plans and ideas on all days that vibrate their own number, such as on the 1st, 10th, 19th, or 28th of any month, but especially in periods from 21st July to 28th August or from 21st March to 28th April.
"Number 2 persons are gentle by nature, imaginative, artistic, and romantic. They are not forceful in carrying out their ideas. Their qualities are more on the mental than the physical plane and they are seldom strong physically. their characteristics are more marked if they are born between the 20th June and the 27th July, this period being what is called the 'House of the Moon.' They should endeavour to carry out their chief plans on days whose numbers vibrate their own, such as on 20th June to the 27th July. The cheif faults that they should guard against are being restless and unsettled, lack of continuity in their plans and ideas, and lack of confidence. They are also over sensitive and too easily get despondent and melancholy if they are not in happy surroundings.
"Persons having a 3 for their birth number are decidedly ambitious; they are never satisfied by being in subordinate positions; their aim is to rise in the world, to have control and authority over others. They are excellent in execution of commands; they love order and discipline in all things; they readily obey orders themselves, but they also insist on having their orders obeyed. They often rise to the very highest positions in any business, profession or sphere in which they may be found. They often excel in positions of authority in the army and navy, in the government and in life generally; and especially in all posts of trust and responsibility, as they are extremely conscientious in carrying out their duties. Their faults are that they are inclined to be dictatorial, to 'lay down the law' and to insist on carrying their own ideas. For this reason although they are not quarrelsome, they succeed in making many enemies. They are also singularly proud.
"Number 4 people have a distinct character of their own. They appear to view everything from an opposite angle to everyone else. In an argument they will always take the opposite side, and although not meaning to be quarrelsome, yet they bring about opposition and make a great number of secrete enemies who constantly work against them. They seem quite naturally to take a different view of anything that is presented to their minds. They instinctively rebel against rules and regulations, and if they can have their way they reverse the order of things, even in communities and governments. They often rebel against constitution authority and setup new rules and regulations either in domestic or public life. If they acquire money or have it given to them, they generally surprise people by the way they employ it or the use they put it to. Their chief faults are that they are highly strung and sensitive, inclined to feel lonely and isolated.
"The number 5 people make friends easily and get on with almost everyone. They are mentally very high strung. They are quick in thought and decisions, and impulsive in their actions. They detest any plodding kind of work and see naturally to drift into all methods of making money quickly. They have a keen sense of making money by inventions and new ideas. They are born speculators, prone to stock exchange transactions, and generally are willing and ready to run risks in all they undertake. They have the most wonderful elasticity of character. They rebound quickly from the heaviest blow; nothing seems to effect from them very long. Blows of fate have no indentations on their character if they are good they remain good; if bad, not all the preaching in the world will have the slightest effect on them. Their greatest drawback is that they exhaust their nervous strength to such an extent that they often fall victims to nervous breakdowns of the worst kind.
"The number 6 people are extremely magnetic; they attract others to them and they are loved and often worshipped by those under them. They are very determined in carrying out their plans and may, in fact, be deemed obstinate and unyielding except when they themselves become deeply attached: in such a case, they become devoted slaves to those they love. They learn to be romantic and ideal in all matters of affections. They make most artistic homes, are fond of rich colours, also paintings, statuary and music. If rich, they are most generous to art and artists. They love to entertain their friends and make everyone happy about them. But the one thing they cannot stand is discord and jealousy. When roused by anger they will brook no opposition and will fight to the death for whatever person or cause they espouse, or out of their sense of duty. They also have a great power of making friends. They are strongly advised to wear a piece of turquoise matrix, next to their skin.
"The number 7 people are very independent, original and have strongly marked individuality. At heart, they love change and travel, being restless in their natures. If they have the means of gratifying their desires, they visit foreign countries and become keenly interested in the affairs of far-off lands. They devour books on travel and have a universal knowledge of the world at large. They often make good writers, painters, or poets, but in everything they do, they sooner or later show a peculiar philosophical outlook on life that tinges all their work. They care little about the material things of life; they often become rich by their original ideas or methods of business. They become interested in matters concerning the sea and in business, they often become merchants, exporters and importers, dealing with foreign countries. They also have a gift of intuition, clairvoyance, and a peculiar quieting magnetism of their own that has great influence over others.
"Number 8 people are invariably much misunderstood in their lives and perhaps for this reason they feel intensely lonely at heart. They have deep and intense natures, great strength of individuality; they generally play some important role on life's stage, but usually one that is fatalistic, or as the instrument of fate for others. If at all religious, they go to extremes. In any cause they take up, they attempt to carry it through in spite of all opposition, in this process, they generally make bitter enemies. They often appear cold and undemonstrative, though in reality they have warm hearts towards the oppressed; but they hide their feelings and allow people to think just what they please. They are great successes or failures. If ambitious, they generally aim for public life or government responsibility of some kind and often hold very high positions involving great sacrifice on their part. Such people could face the greatest sorrows, losses, and humiliations.
"Number 9 persons are fighters in all they attempt in life. They usually have difficult times in their early years, but generally they are, in the end, successful by their grit, strong will and determination. They are hasty in temper, impulsive, and independent and desire to be their own masters. They have great courage and make excellent soldiers or leaders in any cause they espouse. Their greatest dangers arise from foolhardiness and impulsiveness in word and action. They are also peculiarly prone to accidents from fire and explosions and rarely get through life without injury from such causes. Generally, they undergo many operations by the surgeon's knife. They usually experience much strife in their home life. They always have a good opinion of themselves, brooking no interference with their plans. They like to be recognised as 'the head of the house.' They are resourceful and excellent in organisation, but they must have the fullest control. If not, they lose heart.
"-- Lucky Days --
"Sunday and Monday.
"Sunday, Monday and Friday.
"Thursday, Friday and Tuesday.
"Saturday, Sunday and Monday.
"Wednesday And Friday.
"Tuesday, Thursday and Friday.
"Sunday and Monday.
"Saturday, Sunday and Monday.
"Tuesday, Thursday And Friday.
"-- Lucky Periods --
"from July 21st to August 28th and from March 21st to April 28th.
"from June 20th to July 27th.
"from February 19th to March 20th-27th and from November 21st to December 20th-27th.
"from June 21st to July 20th-27th and from July 22nd to the end of August.
"from May 21st to June 20th-27th and from August 21st to September 20th-27th.
"from April 20th to May 20th-27th and from September 21st to October 20th-27th.
"from June 21st to July 31st.
"from December 21st to February 19th-26th.
"from March 21st to April 19th-26th and from October 21st to November 20th-27th.
"-- Lucky Colors --
"all shades of gold, yellows and bronze to golden brown.
"all shades of green, from the darkest to the lightest, also cream and white, but as far as possible, avoid all dark colors, especially black, purple and dark red.
"any shade of mauve, violet or purple. All shades of blue, crimson and rose are also favourable.
"all half-shades, half-tones or electric colors. Electric blues and grays seem the best of all.
"all shades of light gray, white and glistening materials. Avoid dark colors.
"all shades of blue, from the lightest to the darkest. Also all shades of rose or pink. Avoid black or dark purple.
"all shades of green. Also white and yellow. Avoid all dark colors.
"all shades of dark gray, black, dark blue and purple.
"all shades of crimson or red. Also all tones of rose and pink.
"-- Lucky Jewels --
"topaz, amber, yellow diamond and all stones of these colors.
"purples, moonstones, pale green stones.
"amethyst.
"sapphire (light or dark).
"diamond and all glittering and shimmering things. Also ornaments made of platinum or silver.
"turquoise.
"moonstones and pearls.
"amethyst, dark toned sapphire, black pearl and black diamond.
"ruby, garnet and bloodstone.
"-- Characteristic Number Predictions --
"Symbolised as the wheel of fortune.It is a number of honour, of faith and self confidence, of rise and fall. One's name will be known for good or evil, according to one's desires. It is a fortunate number in the sense that one's plans are likely to be carried out.
"This is an ominous number to occultists. It gives warning of hidden dangers, trial, and treachery from others. It has a symbol of 'a clenched hand.' And 'a lion muzzled,' and of a person who will have great difficulties to contend against.
"The symbolism of this number is suffering and anxiety of mind. It is also indicated as 'the sacrifice of the victim' and generally foreshadows one being sacrificed for the plans or intrigues of others.
"This is a number indicating change of plans, place, and such-like, and is not unfortunate, as is generally supposed. In some of the ancient writing it is said, 'he who understands the number 13 will be given power and dominion.' It is symbolised by the picture of a 'skeleton' or 'death,' with a scythe reaping down men, in a field of new-grown grass where young faces and heads appear cropping up on every side. It is a number of upheaval and destruction. It is a symbol of 'power' which if wrongly used will wreak destruction upon itself. It is a number of warning of the unknown or unexpected.
"This is a number of movement, combination of people and things, and danger from natural forces, such as tempests, water, air, or fire. This number is fortunate for dealings with money, speculation, and changes in business, but there is always a strong element of risk and danger attached to it, but generally owing to the actions and foolhardiness of others. If this number becomes out in calculations of future events the person should be warned to act with caution and prudence.
"This is a number of occult significance, of magic and mystery. But as a rule, it does not represent the higher side of occultism, its meaning being that the persons represented by it will use every art of magic they can to carry out their purpose. It is peculiarly associated with 'good takers,' often eloquence, gifts of music and art and a dramatic personality, combined with a certain voluptuous temperament and strong personal magnetism. For obtaining money, gifts and favours from others, it is a fortunate number.
"This number has a most peculiar occult symbolism. It is pictured by 'a tower struck by lightining from which a man is falling with a crown on his head.' It gives warning of some strange fatality awaiting one, also danger of accidents and defeat of one's plans. It is also a warning sign that should be carefully noted and plans made in advance in the endeavour to avert its fatalistic tendency.
"This is a highly spiritual number, and is expressed in symbolism by the 8 pointed star of Venus. A symbol of 'peace and love. The person it represents has risen superior in spirit to the trials and difficulties of his life or his career. It is considered a 'number of immortality' and that the person's name 'lives after him.' It is a fortunate number if it works out in relation to future events, provided it is not associated with the single numbers of fours and eights.
"This number has a difficult symbolism to translate. It is pictured as 'a rayed moon from which drops of blood are falling. A wolf and a hungry dog are seen below catching the falling drops of blood in their opened mouths, while still lower a crab is seen hastening to join them.' It is a symbolic of materialism striving to destroy the spiritual side of the nature. It generally associates a person with bitter quarrels, even family ones, also with war, social upheavals, revolutions and in some cases it indicates making money and position through wars or by wars. It is however, a warning of treachery, deception by others, also danger from elements, such as storms, danger from water, fires and explosions.
"This number is regarded as fortunate and extremely favourable. It is symbolised as 'the sun' and is called 'the prince of heaven.' It is a number promising happiness, success, esteem, and honour and promises success in one's plans for the future.
"This number is called 'the awakening' also 'the judgement.' It is symbolised by the figure of a winged angel sounding a trumpet, while from below a man, a woman and a child are seen rising from a tomb with their hands clasped in prayer. This number has a peculiar interpretation: the awakening of new purpose, new plans, new ambitions, the call to action, but for some great purpose, cause, or duty. It is not a material number and consequently is a doubtful one as far as wordly success is concerned. If used in relation to a future event, it denotes delays, hindrances to one's plans, which can only be conquered through the development of the spiritual side of the nature.
"This number is symbolised by the picture of 'the universe,' and it is also called 'the Crown of the Magi.' It is a number of advancement, honours, elevation in life, and general success. It means victory after a long fight, for the 'Crown of the Magi' is only gained after long initiation and tests of determination. It is a fortunate number of promise if it appears in any connection with future events.
"This number is symbolised by 'a Good Man blinded by the folly of others, with a knapsack on his back full of errors.' In this picture, he appears to offer no defense against a ferocious tiger which is attacking him. It is a warning number of illusion and delusion. A good person who lives in a fool's paradise, a dreamer of dreams who awakens only when surrounded by danger. It is also a number of false judgements owing to the influence of others. As a number in connection with future events, its warning and meaning should be carefully noted.
"This number is called 'the royal star of the lion.' It is a promise of success, help from superiors and protection from those in high places. In dealing with future events it is a most fortunate number and a promise of success from one's plans.
"This number is fortunate. It promises the assistance and association of those of rank and position with one's plans. It also denotes gain through love and the opposite sex. It is a favourible number when it comes out in relation to future events.
"This is a number denoting strength gained through experience, and benefits obtained through observation of people and things. It is not deemed exactly 'lucky,' as its success is given through strife and trials in the earlier life. It is favourable when it appears in regard to the future.
"This number is full of the gravest warnings for the future. It foreshadows disasters brought about by association with others, run by bad speculations, by partnerships, unions and bad advice. If it comes out in connection with future evensts, one should carefully consider the path one is treading.
"This is a good number and is symbolised as 'the sceptre.' It is a promise of authority, power, and command. It indicates that reward will come from the productive intellect, that the creative faculties have sown good seeds that will reap a harvest. Persons with this 'compound' number at their back should carry out their own ideas and plans. It is a fortunate number if it appears in any connection with future events.
"This number is full of contradictions. It indicates a person of great promise and possibilities who is likely to see all taken away from him unless he carefully provides for the future. It indicates loss through trust in others, opposition and competition in trade, danger of loss through law, and the likelihood of having to begin life's road over and over again. It is not a fortunate number for the indication of future events.
"This number indicates uncertainties, treachery, and deception of others. It foreshadows trials, turbulation, and unexpected dangers, unreliable friends, and grief and deception caused by members of the opposite sex. It gives grave warning if it comes out in anything concerning future events.
"This is a number of thoughtful deduction, retrospection, and mental superiority over one's fellows, but as it seems to belong completely to the mental plane, the persons it represents are likely to put all material things on one side, not because they have to, but because they wish to do so. For this reason, it is neither fortunate nor unfortunate, for either depends on the mental outlook of the person it represents. It can be all powerful, but it is just as often indifferent according to the will or desire of the person.
"The person that this number represents is self contained, lonely, and isolated from his/her fellows. It is not a fortunate number from a worldly or material steadpoint.
"This number has a magical power. It is usually associated with combinations of people or nations. It is a fortunate number if the person it represents holds to his own judgement and opinions. If not, his plans are likely to become wrecked by the stubbornness and stupidity of others. It is a favourable number if it appears in connection with the future events.
"This number has a distinct potency of its own. It is a number of good and fortunate friendships in love and in combination connected with the opposite sex. It is also good for partnerships of all kinds. It is a fortunate indication if it appears in connection with future events.
"This is an unfortunate number. It is symbolised by the sign of revolution, upheaval, failure, and prevention, and is not a fortunate number if it comes out in calculations relating to future events.
"This number has a very powerful potency of its own. It represents the nature of the warrior. It promises sudden advancement in whatever one undertakes. It is especially favourable for those in military or naval life and for leaders in any cause. At the same time, it threatens enemies, danger, and the likelihood of assassination.
exit
|
_________________ VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
|
|