<%@ LANGUAGE="VBSCRIPT" %> <%'option explicit%> <% Response.buffer = true Response.Expires = 0 dim ls_teststr action = Request.Form("ACTION") Select case action Case "getinfo" uid = 151 call Response.Write("tokens=100&points=8000&CompanyID=4&StoreID=2&DepartmentID=3&SupervisorID=148&UserLevel=10&count=1&success=true") Case "getposs" 'get the probability table from DB 28 Nov 05 select case Request.Form("GameID") case 101 ' Static String for Balloon Game call Response.Write("throwid0=1&points0=5000&poss0=1&spinid0=500001&throwid1=2&points1=900&poss1=5&spinid1=500002&throwid2=3&points2=600&poss2=8&spinid2=500003&throwid3=4&points3=400&poss3=12&spinid3=500004&throwid4=5&points4=230&poss4=40&spinid4=500005&throwid5=6&points5=100&poss5=50&spinid5=500006&throwid6=7&points6=75&poss6=75&spinid6=500007&throwid7=8&points7=50&poss7=140&spinid7=500008&throwid8=9&points8=20&poss8=240&spinid8=500009&throwid9=10&points9=14&poss9=340&spinid9=500010&throwid10=11&points10=8&poss10=800&spinid10=500011&throwid11=12&points11=3&poss11=2000&spinid11=500012&throwid12=13&points12=2&poss12=3000&spinid12=500013&count=13&success=true") case 102 ' Static String for Horserace call Response.Write("throwid0=1&points0=5000&poss0=1&spinid0=500024&throwid1=2&points1=850&poss1=2&spinid1=500025&throwid2=3&points2=700&poss2=8&spinid2=500026&throwid3=4&points3=400&poss3=10&spinid3=500027&throwid4=5&points4=40&poss4=13&spinid4=500028&throwid5=6&points5=10&poss5=175&spinid5=500029&throwid6=7&points6=7&poss6=1000&spinid6=500030&throwid7=8&points7=2&poss7=1400&spinid7=500031&count=8&success=true") case 103 ' Static String for Fishing call Response.Write("throwid0=1&points0=5000&poss0=1&spinid0=500014&throwid1=2&points1=800&poss1=3&spinid1=500015&throwid2=3&points2=550&poss2=6&spinid2=500016&throwid3=4&points3=250&poss3=9&spinid3=500017&throwid4=5&points4=150&poss4=20&spinid4=500018&throwid5=6&points5=40&poss5=100&spinid5=500019&throwid6=7&points6=16&poss6=150&spinid6=500020&throwid7=8&points7=8&poss7=600&spinid7=500021&throwid8=9&points8=4&poss8=1000&spinid8=500022&throwid9=10&points9=2&poss9=1200&spinid9=500023&count=10&success=true") ' Static String for Slot case 104 call response.write("throwid0=1&points0=5000&poss0=1&spinid0=500032&throwid1=2&points1=1500&poss1=3&spinid1=500033&throwid2=3&points2=700&poss2=8&spinid2=500034&throwid3=4&points3=400&poss3=10&spinid3=500035&throwid4=5&points4=200&poss4=20&spinid4=500036&throwid5=6&points5=50&poss5=40&spinid5=500037&throwid6=7&points6=20&poss6=100&spinid6=500038&throwid7=8&points7=10&poss7=600&spinid7=500039&throwid8=9&points8=8&poss8=800&spinid8=500040&throwid9=10&points9=6&poss9=1000&spinid9=500041&throwid10=11&points10=4&poss10=1100&spinid10=500042&throwid11=12&points11=2&poss11=1300&spinid11=500043&count=12&success=true") ' Static String for Wheel case 105 call response.write("throwid0=1&points0=5000&poss0=1&spinid0=500044&throwid1=2&points1=700&poss1=2&spinid1=500045&throwid2=3&points2=600&poss2=3&spinid2=500046&throwid3=4&points3=400&poss3=4&spinid3=500047&throwid4=5&points4=230&poss4=6&spinid4=500048&throwid5=6&points5=100&poss5=30&spinid5=500049&throwid6=7&points6=12&poss6=75&spinid6=500050&throwid7=8&points7=8&poss7=600&spinid7=500051&throwid8=9&points8=5&poss8=700&spinid8=500052&throwid9=10&points9=2&poss9=900&spinid9=500053&count=10&success=true") case 106 ' Static String for ghost Game call Response.Write("throwid0=1&points0=5000&poss0=1&spinid0=500001&throwid1=2&points1=900&poss1=5&spinid1=500002&throwid2=3&points2=600&poss2=8&spinid2=500003&throwid3=4&points3=400&poss3=12&spinid3=500004&throwid4=5&points4=230&poss4=40&spinid4=500005&throwid5=6&points5=100&poss5=50&spinid5=500006&throwid6=7&points6=75&poss6=75&spinid6=500007&throwid7=8&points7=50&poss7=140&spinid7=500008&throwid8=9&points8=20&poss8=240&spinid8=500009&throwid9=10&points9=14&poss9=340&spinid9=500010&throwid10=11&points10=8&poss10=800&spinid10=500011&throwid11=12&points11=3&poss11=2000&spinid11=500012&throwid12=13&points12=2&poss12=3000&spinid12=500013&count=13&success=true") case 107 ' Static String for scratch Off Game call Response.Write("throwid0=1&points0=5000&poss0=1&spinid0=500062&throwid1=2&points1=800&poss1=3&spinid1=500058&throwid2=3&points2=550&poss2=6&spinid2=500059&throwid3=4&points3=250&poss3=9&spinid3=500060&throwid4=5&points4=150&poss4=20&spinid4=500061&throwid5=6&points5=40&poss5=100&spinid5=500062&throwid6=7&points6=16&poss6=150&spinid6=500063&throwid7=8&points7=8&poss7=600&spinid7=500064&throwid8=9&points8=4&poss8=1000&spinid8=500065&throwid9=10&points9=2&poss9=1200&spinid9=500066&count=10&success=true") end select case "playtokens" select case Request.Form("gameid") case 101 'throwid point spinid '----------- ----------- ----------- '1 5000 500001 '2 900 500002 '3 600 500003 '4 400 500004 '5 230 500005 '6 100 500006 '7 75 500007 '8 50 500008 '9 20 500009 '10 14 500010 '11 8 500011 '12 3 500012 '13 2 500013 call Response.Write("points=8300&tokens=2500&newpoints=60&displayid=500008&displaypoints=50&success=true") case 102 ' Snowfly Derby 'throwid point spinid '----------- ----------- ----------- '1 5000 500024 '2 850 500025 '3 700 500026 '4 400 500027 '5 40 500028 '6 10 500029 '7 7 500030 '8 2 500031 call Response.Write("points=8300&tokens=2500&newpoints=60&displayid=500028&displaypoints=40&success=true") case 103 ' Fishing 'throwid point spinid '----------- ----------- ----------- '1 5000 500014 '2 800 500015 '3 550 500016 '4 250 500017 '5 150 500018 '6 40 500019 '7 16 500020 '8 8 500021 '9 4 500022 '10 2 500023 call Response.Write("points=8300&tokens=2500&newpoints=60&displayid=500021&displaypoints=8&success=true") ' Snowfly Slots 'throwid point spinid '----------- ----------- ----------- '1 5000 500032 '2 1500 500033 '3 700 500034 '4 400 500035 '5 200 500036 '6 50 500037 '7 20 500038 '8 10 500039 '9 8 500040 '10 6 500041 '11 4 500042 '12 2 500043 case 104 call Response.Write("points=8300&tokens=2500&newpoints=60&displayid=500041&displaypoints=6&success=true") ' Snowfly Wheel 'throwid point spinid '----------- ----------- ----------- '1 5000 500044 '2 700 500045 '3 600 500046 '4 400 500047 '5 230 500048 '6 100 500049 '7 12 500050 '8 8 500051 '9 5 500052 '10 2 500053 case 105 call Response.Write("points=8300&tokens=2500&newpoints=60&displayid=500050&displaypoints=7&success=true") case 107 call Response.Write("points=8300&tokens=2500&newpoints=50&displayid=500058&displaypoints=7&success=true") end select Case Else Response.Write "ERR=Undefinded Action!" End Select %>