API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 6th, 2017
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 12.41 KB | None | 0 0
raw download clone embed print report
  1. <%
  2. Dim sConnection, objConn, objRS
  3.  
  4. sConnection = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=aq; UID=root;PASSWORD=root; OPTION=3"
  5.  
  6. Set objConn = Server.CreateObject("ADODB.Connection")
  7.  
  8. objConn.Open(sConnection)
  9.  
  10. Dim charid
  11. charid=Request.Form("charid")
  12.  
  13. Set objRS = objConn.Execute("SELECT * FROM aq_characters WHERE id='"& charid &"' LIMIT 1")
  14. Set objRS2 = objConn.Execute("SELECT * FROM aq_characters WHERE id='"& charid &"' LIMIT 1")
  15. Set objRS3 = objConn.Execute("SELECT * FROM aq_users WHERE username='"& objRS2.Fields("username") &"' LIMIT 1")
  16.  
  17. Set getequip1 = objConn.Execute("SELECT * FROM aq_items WHERE CharId='"& charid &"' AND ItemCat='weapon' ORDER BY ItemLevel ASC LIMIT 8")
  18. Set getequip2 = objConn.Execute("SELECT * FROM aq_items WHERE CharId='"& charid &"' AND ItemCat='armor' ORDER BY ItemLevel ASC LIMIT 8")
  19.  
  20. Dim Count
  21. Count=0
  22.  
  23. While Not objRS.EOF
  24. ' Response.Write objRS.Fields("LastName") & ", " & objRS.Fields("FirstName") & "<br>"
  25. ' Response.Write("&status=success")
  26. Count = Count + 1
  27. objRS.MoveNext
  28. Wend
  29.  
  30. If charid<>"" Then
  31.  
  32. If Count<>"0" Then
  33.   Response.Write("&status=success")
  34.   Response.Write("&idLore_Characters=" & objRS2.Fields("id"))
  35.   Response.Write("&idLore_Users=" & objRS3.Fields("id"))
  36.   Response.Write("&strCharacterName=" & objRS2.Fields("charname"))
  37.   Response.Write("&strCharType=" & objRS2.Fields("chartype"))
  38.   Response.Write("&intCharType=" & objRS2.Fields("type"))
  39.   Response.Write("&intAccessLevel=20") '& objRS2.Fields("access"))
  40.  
  41.  If objRS2.Fields("class")="0" Then
  42.   Response.Write("&strClassName=Fighter")
  43.   End If
  44.  If objRS2.Fields("class")="1" Then
  45.   Response.Write("&strClassName=Mage")
  46.   End If
  47.  If objRS2.Fields("class")="2" Then
  48.   Response.Write("&strClassName=Rogue")
  49.  End If
  50.   Response.Write("&strRaceName=Human")
  51.   Response.Write("&strSubRaceName=Beta+tester")
  52.   Response.Write("&strGuildName=1337")
  53.   Response.Write("&intLevel=" & objRS2.Fields("level"))
  54.   Response.Write("&intGold=" & objRS2.Fields("gold"))
  55.   Response.Write("&intTokens=" & objRS2.Fields("tokens"))
  56.   Response.Write("&intExp=" & objRS2.Fields("exp"))
  57.  
  58.   Response.Write("&intSTR=" & objRS2.Fields("strength"))
  59.   Response.Write("&intDEX=" & objRS2.Fields("dexterity"))
  60.   Response.Write("&intINT=" & objRS2.Fields("intelligence"))
  61.   Response.Write("&intCHA=" & objRS2.Fields("charm"))
  62.   Response.Write("&intEND=" & objRS2.Fields("endurance"))
  63.   Response.Write("&intLUK=" & objRS2.Fields("luck"))
  64.  
  65.   Response.Write("&intArmorMELEE=50")
  66.   Response.Write("&intArmorRANGED=50")
  67.   Response.Write("&intArmorMAGIC=50")
  68.  
  69.   Response.Write("&intArmorFIRE=0")
  70.   Response.Write("&intArmorWATER=0")
  71.   Response.Write("&intArmorWIND=0")
  72.   Response.Write("&intArmorICE=0")
  73.   Response.Write("&intArmorEARTH=0")
  74.   Response.Write("&intArmorENERGY=0")
  75.   Response.Write("&intArmorLIGHT=0")
  76.   Response.Write("&intArmorDARKNESS=0")
  77.  
  78. '  Response.Write("&strArmorName=Beta+Armor")
  79. '  Response.Write("&strWeaponName1=Beta+Sword")
  80. '  Response.Write("&strArmorFileName=armor-guardian-plate5.swf")
  81. '  Response.Write("&strArmorCustomSkinFileName=0x333333,0xFFFFFF,0xFF0000")
  82. '  Response.Write("&strWeaponFileName1=weapon-special-beta.swf")
  83.  
  84.   Response.Write("&idLore_Faces=" & objRS2.Fields("face"))
  85.  
  86.  If objRS2.Fields("face")="54" Then
  87.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl1.swf")
  88.   Response.Write("&strFaceSideFileName=anime/head-anime-girl1.swf")
  89.   End If
  90.  If objRS2.Fields("face")="55" Then
  91.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl2.swf")
  92.   Response.Write("&strFaceSideFileName=anime/head-anime-girl2.swf")
  93.   End If
  94.  If objRS2.Fields("face")="56" Then
  95.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl3.swf")
  96.   Response.Write("&strFaceSideFileName=anime/head-anime-girl3.swf")
  97.   End If
  98.  If objRS2.Fields("face")="57" Then
  99.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl4.swf")
  100.   Response.Write("&strFaceSideFileName=anime/head-anime-girl4.swf")
  101.   End If
  102.  If objRS2.Fields("face")="58" Then
  103.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy1.swf")
  104.   Response.Write("&strFaceSideFileName=anime/head-anime-boy1.swf")
  105.   End If
  106.  If objRS2.Fields("face")="59" Then
  107.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy2.swf")
  108.   Response.Write("&strFaceSideFileName=anime/head-anime-boy2.swf")
  109.   End If
  110.  If objRS2.Fields("face")="60" Then
  111.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy3.swf")
  112.   Response.Write("&strFaceSideFileName=anime/head-anime-boy3.swf")
  113.   End If
  114.  If objRS2.Fields("face")="61" Then
  115.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy4.swf")
  116.   Response.Write("&strFaceSideFileName=anime/head-anime-boy4.swf")
  117.   End If
  118.  If objRS2.Fields("face")="63" Then
  119.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy5.swf")
  120.   Response.Write("&strFaceSideFileName=anime/head-anime-boy5.swf")
  121.   End If
  122.  If objRS2.Fields("face")="64" Then
  123.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy6.swf")
  124.   Response.Write("&strFaceSideFileName=anime/head-anime-boy6.swf")
  125.   End If
  126.  If objRS2.Fields("face")="65" Then
  127.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy7.swf")
  128.   Response.Write("&strFaceSideFileName=anime/head-anime-boy7.swf")
  129.   End If
  130.  If objRS2.Fields("face")="66" Then
  131.   Response.Write("&strFaceFrontFileName=anime/head-anime-boy8.swf")
  132.   Response.Write("&strFaceSideFileName=anime/head-anime-boy8.swf")
  133.   End If
  134.  If objRS2.Fields("face")="67" Then
  135.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl5.swf")
  136.   Response.Write("&strFaceSideFileName=anime/head-anime-girl5.swf")
  137.   End If
  138.  If objRS2.Fields("face")="68" Then
  139.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl6.swf")
  140.   Response.Write("&strFaceSideFileName=anime/head-anime-girl6.swf")
  141.   End If
  142.  If objRS2.Fields("face")="69" Then
  143.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl7.swf")
  144.   Response.Write("&strFaceSideFileName=anime/head-anime-girl7.swf")
  145.   End If
  146.  If objRS2.Fields("face")="70" Then
  147.   Response.Write("&strFaceFrontFileName=anime/head-anime-girl8.swf")
  148.   Response.Write("&strFaceSideFileName=anime/head-anime-girl8.swf")
  149.   End If
  150.  If objRS2.Fields("face")="71" Then
  151.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale01.swf")
  152.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale01.swf")
  153.   End If
  154.  If objRS2.Fields("face")="72" Then
  155.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale02.swf")
  156.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale02.swf")
  157.   End If
  158.  If objRS2.Fields("face")="73" Then
  159.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale01.swf")
  160.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale01.swf")
  161.   End If
  162.  If objRS2.Fields("face")="74" Then
  163.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale02.swf")
  164.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale02.swf")
  165.   End If
  166.  If objRS2.Fields("face")="75" Then
  167.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale03.swf")
  168.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale03.swf")
  169.   End If
  170.  If objRS2.Fields("face")="76" Then
  171.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale04.swf")
  172.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale04.swf")
  173.   End If
  174.  If objRS2.Fields("face")="77" Then
  175.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale05.swf")
  176.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale05.swf")
  177.   End If
  178.  If objRS2.Fields("face")="78" Then
  179.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale03.swf")
  180.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale03.swf")
  181.   End If
  182.  If objRS2.Fields("face")="79" Then
  183.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale05.swf")
  184.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale05.swf")
  185.   End If
  186.  If objRS2.Fields("face")="80" Then
  187.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale04.swf")
  188.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale04.swf")
  189.   End If
  190.  If objRS2.Fields("face")="81" Then
  191.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenMale06.swf")
  192.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenMale06.swf")
  193.   End If
  194.  If objRS2.Fields("face")="82" Then
  195.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale06.swf")
  196.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale06.swf")
  197.   End If
  198.  If objRS2.Fields("face")="83" Then
  199.   Response.Write("&strFaceFrontFileName=anime/head-anime-ArklenFemale07.swf")
  200.   Response.Write("&strFaceSideFileName=anime/head-anime-ArklenFemale07.swf")
  201.   End If
  202.  
  203.   Response.Write("&strFaceColors=" & objRS2.Fields("facecolors"))
  204.   Response.Write("&intFace=" & objRS2.Fields("face"))
  205.  
  206.   Response.Write("&intShowAd=0")
  207.  
  208.   dim i, intweptype
  209.   i=1
  210.   While Not getequip1.EOF
  211.  
  212.   If getequip1.Fields("ItemType") = "Melee" Then
  213.   intweptype="1"
  214.   ElseIf getequip1.Fields("ItemType") = "Ranged" Then
  215.   intweptype="2"
  216.   Else
  217.   intweptype="3"
  218.   End If
  219.  
  220.   Response.Write("&idLore_Adj_Weapons"& i &"="& getequip1.Fields("AdjustId"))
  221.   Response.Write("&intWeaponSortOrder"& i &"="& i)
  222.   Response.Write("&idLore_Weapons"& i &"="& getequip1.Fields("ItemId"))
  223.   Response.Write("&charid"& i &"="& getequip1.Fields("ItemId"))
  224.   Response.Write("&strWeaponName"& i &"="& getequip1.Fields("ItemName"))
  225.   Response.Write("&strWeaponDescription"& i &"="& getequip1.Fields("ItemDesc"))
  226.   Response.Write("&intWeaponElement"& i &"="& getequip1.Fields("ItemElement"))
  227.   Response.Write("&intWeaponType"& i &"="& intweptype) '' 1 - melee
  228.   Response.Write("&intWeaponPowerLevel"& i &"=10")
  229.   Response.Write("&intWeaponLevel"& i &"=10")
  230.   Response.Write("&intWeaponPowerExp"& i &"=0")
  231.   Response.Write("&intWeaponBaseDamage"& i &"="& getequip1.Fields("ItemBase"))
  232.   Response.Write("&intWeaponRandDamage"& i &"="& getequip1.Fields("ItemRandom"))
  233.   Response.Write("&intWeaponBonusToHit"& i &"="& getequip1.Fields("ItemBonus"))
  234.   Response.Write("&strWeaponElement"& i &"="& getequip1.Fields("ItemElement"))
  235.   Response.Write("&strWeaponType"& i &"="& getequip1.Fields("ItemType"))
  236.   Response.Write("&strWeaponPassword"& i &"=")
  237.   Response.Write("&strWeaponFileName"& i &"="& getequip1.Fields("Extra"))
  238.  
  239.  
  240.   i=i+1
  241.   getequip1.MoveNext
  242.  
  243.   Wend
  244.  
  245.  
  246.       dim e
  247.   e=1
  248.   While Not getequip2.EOF
  249.  
  250.   Response.Write("&idLore_Adj_Armors"& e &"="& getequip2.Fields("AdjustId"))
  251.   Response.Write("&intArmorSortOrder"& e &"="& e)
  252.   Response.Write("&idLore_Armors"& e &"="& getequip2.Fields("ItemId"))
  253.   Response.Write("&charid"& e &"="& getequip2.Fields("ItemId"))
  254.   Response.Write("&strArmorName"& e &"="& getequip2.Fields("ItemName"))
  255.   Response.Write("&strArmorDescription"& e &"="& getequip2.Fields("ItemDesc"))
  256.   Response.Write("&intArmorElement"& e &"="& getequip2.Fields("ItemElement"))
  257.   Response.Write("&intArmorPowerLevel"& e &"=10")'& objRS2.Fields("level"))
  258.   Response.Write("&strArmorCustomSkinFileName"& e &"=0x333333,0xFFFFFF,0xFF0000")
  259.   Response.Write("&strArmorSkinFileName"& e &"=")
  260.   Response.Write("&intArmorLevel"& e &"=10")'& objRS2.Fields("level"))
  261.   Response.Write("&intArmorPowerExp"& e &"=0")
  262.   Response.Write("&strArmorPassword"& e &"=")
  263.   Response.Write("&strArmorFileName"& e &"="& getequip2.Fields("Extra"))
  264.  
  265.   Response.Write("&intArmorFIRE"& e &"=-5")
  266.   Response.Write("&intArmorWATER"& e &"=-5")
  267.   Response.Write("&intArmorICE"& e &"=-5")
  268.   Response.Write("&intArmorWIND"& e &"=-5")
  269.   Response.Write("&intArmorEARTH"& e &"=-5")
  270.   Response.Write("&intArmorENERGY"& e &"=-5")
  271.   Response.Write("&intArmorLIGHT"& e &"=-5")
  272.   Response.Write("&intArmorDARKNESS"& e &"=-5")
  273.   Response.Write("&intArmorMELEE"& e &"=20")
  274.   Response.Write("&intArmorRANGED"& e &"=20")
  275.   Response.Write("&intArmorMAGIC"& e &"=20")
  276.  
  277.  
  278.  
  279.   e=e+1
  280.   getequip2.MoveNext
  281.  
  282.   Wend
  283.  
  284.  
  285.   Response.Write("&intShopBitmask=1")
  286.   Response.Write("&intActiveWeapon=1")
  287.   Response.Write("&intWeaponsNum="& i)
  288.  
  289.   Response.Write("&intActiveArmor=1")
  290.   Response.Write("&intArmorsNum="& e)
  291.    
  292.   Response.Write("&strPet=none")
  293.   Response.Write("&strGuest=none")
  294.  
  295.   Response.Write("&intActiveMisc=0")
  296.  
  297. Else
  298.   Response.Write("&status=error")
  299. End If
  300.  
  301. Else
  302.   Response.Write("&status=error")
  303. End If
  304.  
  305. objRS2.Close
  306. Set objRS2 = Nothing
  307. objRS.Close
  308. Set objRS = Nothing
  309. objConn.Close
  310. Set objConn = Nothing
  311. %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!