10 print ":::::::::: Infonet Members Finder 2005 blackogre productions ::::::::::"
20 print:print ":: Pick Class"
30 print ":: 1.  Adventurer"
31 print ":: 2.  Agent"
32 print ":: 3.  Bureaucrat"
33 print ":: 4.  Doctor"
34 print ":: 5.  Enforcer"
35 print ":: 6.  Engineer"
36 print ":: 7.  Fixer"
37 print ":: 8.  Keeper"
38 print ":: 9.  Martial artist"
39 print ":: 10.  Meta-physicist"
40 print ":: 11.  Nano-technician"
41 print ":: 12.  Shade"
42 print ":: 13.  Soldier"
43 print ":: 14.  Trader"
45 print:print "Which one (1-14)";:input a
47 if a<1 or a>14 then print "(1-14) genius.":goto 20
50 if a=1 then a$="'Adventurer'":goto 70
51 if a=2 then a$="'Agent'":goto 70
52 if a=3 then a$="'Bureaucrat'":goto 70
53 if a=4 then a$="'Doctor'":goto 70
54 if a=5 then a$="'Enforcer'":goto 70
55 if a=6 then a$="'Engineer'":goto 70
56 if a=7 then a$="'Fixer'":goto 70
57 if a=8 then a$="'Keeper'":goto 70
58 if a=9 then a$="'Martial artist'":goto 70
59 if a=10 then a$="'Meta-physicist'":goto 70
60 if a=11 then a$="'Nano-technician'":goto 70
61 if a=12 then a$="'Shade'":goto 70
62 if a=13 then a$="'Soldier'":goto 70
63 if a=14 then a$="'Trader'":goto 70
65 goto 20
70 print:print ":: What will be the minimum level?(1-220, 0 to go back and rechoose class)";:input a
71 if a<=1 then 20
72 if a>0 and a<221 then 75
73 print:print "(1-220, 0 to go back and rechoose class) genius.":goto 70
75 a=a-1
80 print:print "::RESULTS::  copy and paste this following code into chat:"
82 print:print "/tell infonet members online and profession = ";a$;" and level > ";a
85 print:print "Press Enter to restart.........";:input r$:cls:goto 10
