Phoenix

my guild name not showing please help!  screenHercules001.jpg   122.24K   38 downloads

//===== Hercules Script ======================================<br />
//= Euphy's Quest Shop<br />
//===== By: ==================================================<br />
//= Euphy<br />
//===== Current Version: =====================================<br />
//= 1.6a<br />
//===== Compatible With: =====================================<br />
//= Hercules<br />
//===== Description: =========================================<br />
//= A dynamic quest shop based on Lunar's, with easier config.<br />
//= Includes support for multiple shops & cashpoints.<br />
//= Item Preview script by ToastOfDoom.<br />
//===== Additional Comments: =================================<br />
//= 1.0 Initial script.<br />
//= 1.2 Added category support.<br />
//= 1.3 More options and fixes.<br />
//= 1.4 Added debug settings.<br />
//= 1.5 Replaced categories with shop IDs.<br />
//= 1.6 Added support for purchasing stackables.<br />
//= 1.6a Added support for previewing costumes and robes.<br />
//============================================================<br />
<br />
// Shop NPCs -- supplying no argument displays entire menu.<br />
// callfunc "qshop"{,{,{,...}}};<br />
//============================================================<br />
prontera,164,211,6 script More Head Gear 998,{ callfunc "aqshop",1,2; }<br />
<br />
<br />
// Script Core<br />
//============================================================<br />
- script quest_ashop -1,{<br />
function Add; function Chk; function Slot; function A_An;<br />
OnInit:<br />
freeloop(1);<br />
<br />
// -----------------------------------------------------------<br />
// Basic shop settings.<br />
// -----------------------------------------------------------<br />
<br />
set .Announce,1; // Announce quest completion? (1: yes / 0: no)<br />
set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)<br />
set .ShowID,0; // Show item IDs? (1: yes / 0: no)<br />
set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)<br />
set .MaxStack,800; // Max number of quest items purchased at one time.<br />
<br />
// -----------------------------------------------------------<br />
// Points variable -- optional quest requirement.<br />
// setarray .Points$[0],"","";<br />
// -----------------------------------------------------------<br />
<br />
setarray .Points$[0],"#CASHPOINTS","Cash Points";<br />
<br />
// -----------------------------------------------------------<br />
// Shop IDs -- to add shops, copy dummy data at bottom of file.<br />
// setarray .Shops$[1],"",""{,...};<br />
// -----------------------------------------------------------<br />
<br />
setarray .Shops$[1],"More Headgears","Weapons","Other";<br />
<br />
// -----------------------------------------------------------<br />
// Quest items -- do NOT use a reward item more than once!<br />
// Add(,,,<br />
// ,,<br />
// ,{,...});<br />
// -----------------------------------------------------------<br />
<br />
Add(1,5254,1,5000000,0,642,1,5038,1,7023,5,7038,50,7511,20);<br />
Add(1,5038,1,5000000,0,1038,600,7048,40);<br />
Add(1,5211,1,1000000,0,529,20,530,20,538,20,539,20,748,15,10007,1,975,3,7166,40);<br />
Add(1,5170,1,1000000,0,5172,1,7063,100,982,1);<br />
Add(1,5374,1,5000000,0,2256,5,7799,30,7798,50,750,1);<br />
<br />
Add(1,5666,1,5000000,0,2235,5,2246,5,969,200);<br />
Add(1,5372,1,5000000,0,7116,500,923,100,7111,100,519,50,982,10);<br />
Add(1,5253,1,1000000,0,754,5,905,500,521,350);<br />
Add(1,5527,1,1000000,0,622,5,4006,3,705,100,949,100,982,1);<br />
Add(1,5506,1,5000000,0,978,2,7065,50,7166,70,7038,1);<br />
Add(1,5507,1,5000000,0,975,2,1028,50,7038,1,7166,1);<br />
Add(1,5094,1,10000000,0,968,100,909,500,931,500,7086,5);<br />
Add(1,5360,1,1000000,0,2213,1,983,1,914,200,996,5,995,3,7066,50);<br />
Add(1,5058,1,1000000,0,2233,1,983,300,7206,300,7030,1);<br />
<br />
Add(1,5137,1,5000000,0,7047,250,5141,5,501,2);<br />
Add(1,5766,1,5000000,0,7107,200,7106,500,982,5);<br />
Add(1,5132,1,1000000,0,2220,1,2254,1,4054,1,7063,250,982,1);<br />
Add(1,5264,1,5000000,0,2226,5,978,10,502,2);<br />
Add(1,5312,1,9000000,0,7150,250,7151,250,7187,100,983,5);<br />
Add(1,5491,1,5000000,0,903,100,7290,5,7152,200,4073,1);<br />
Add(1,5264,1,1000000,0,7038,300,2226,1,982,10);<br />
Add(1,5382,1,1000000,0,2244,1,7297,3,10016,1,969,100);<br />
Add(1,5183,1,1000000,0,604,20,905,100,711,40,7203,50);<br />
Add(1,5765,1,1000000,0,2209,5,2208,5,2507,1,983,5);<br />
<br />
Add(2,5378,1,1000000,0,515,50,10007,1,1065,1,7038,5,622);<br />
Add(2,5184,1,9000000,0,5016,1,7321,50,7327,20,12119,10);<br />
Add(2,5477,1,5000000,0,1024,50,7111,50,970,10,974,10,1059,150,7345,100,2656,1,983,1);<br />
Add(2,5320,1,9000000,0,7298,300,7198,300,567,100,568,100,706,5,1202,2,973,5,2221,1);<br />
Add(2,5200,1,5000000,0,7300,5,7113,3,7169,3,7108,1,1029,1,7086,1);<br />
<br />
<br />
<br />
// -----------------------------------------------------------<br />
<br />
freeloop(0);<br />
set .menu$,"";<br />
for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {<br />
set .menu$, .menu$+.Shops$[.@i]+":";<br />
npcshopdelitem "aqshop"+.@i,909;<br />
}<br />
end;<br />
<br />
OnMenu:<br />
set .@size, getarraysize(@i);<br />
if (!.@size) set .@i, select(.menu$);<br />
else if (.@size == 1) set .@i, @i[0];<br />
else {<br />
for(set .@j,0; .@j<.@size; set .@j,.@j+1)<br />
set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";<br />
set .@i, @i[select(.@menu$)-1];<br />
}<br />
deletearray @i[0],getarraysize(@i);<br />
if (.Shops$[.@i] == "") {<br />
message strcharinfo(0),"An error has occurred.";<br />
end;<br />
}<br />
dispbottom "Select one item at a time.";<br />
callshop "aqshop"+.@i,1;<br />
npcshopattach "aqshop"+.@i;<br />
end;<br />
<br />
OnBuyItem:<br />
// .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... }<br />
setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);<br />
copyarray .@q[3],getd(".q_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@q[0]));<br />
set .@q[2],.@q[1]*.@q[3];<br />
if (!.@q[2] || .@q[2] > 30000) {<br />
message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+".";<br />
end;<br />
}<br />
mes "[Quest Shop]";<br />
mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";<br />
mes "Requirements:";<br />
if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";<br />
if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000";<br />
if (.@q[6]) for(set .@i,6; .@i mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000";<br />
next;<br />
setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11);<br />
if (@qe[2] > 0 && ((@qe[1] & 1) || (@qe[1] & 256) || (@qe[1] & 512) || (@qe[1] & 1024) || (@qe[1] & 2048) || (@qe[1] & 4096) || (@qe[1] & 4) || (@qe[1] & 8192)))<br />
set .@preview,1;<br />
addtimer 1000, strnpcinfo(0)+"::OnEnd";<br />
while(1) {<br />
switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {<br />
case 1:<br />
if (@qe[0]) {<br />
mes "[Quest Shop]";<br />
mes "You're missing one or more quest requirements.";<br />
close;<br />
}<br />
if (!checkweight(.@q[0],.@q[2])) {<br />
mes "[Quest Shop]";<br />
mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";<br />
close;<br />
}<br />
if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]);<br />
if (.@q[5]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]);<br />
if (.@q[6]) for(set .@i,6; .@i delitem .@q[.@i],.@q[.@i+1]*.@q[1];<br />
getitem .@q[0],.@q[2];<br />
if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):A_An(getitemname(.@q[0])))+"!",0;<br />
specialeffect2 EF_FLOWERLEAF;<br />
close;<br />
case 2:<br />
setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1;<br />
if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2];<br />
else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2];<br />
else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2];<br />
else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2];<br />
break;<br />
case 3:<br />
close;<br />
}<br />
}<br />
<br />
OnEnd:<br />
if (@qe[7]) {<br />
changelook LOOK_HEAD_BOTTOM, @qe[3];<br />
changelook LOOK_HEAD_TOP, @qe[4];<br />
changelook LOOK_HEAD_MID, @qe[5];<br />
changelook LOOK_ROBE, @qe[6];<br />
}<br />
deletearray @qe[0],8;<br />
end;<br />
<br />
function Add {<br />
if (getitemname(getarg(1)) == "null") {<br />
debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";<br />
return;<br />
}<br />
setarray .@j[0],getarg(2),getarg(3),getarg(4);<br />
for(set .@i,5; .@i if (getitemname(getarg(.@i)) == "null") {<br />
debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped).";<br />
return;<br />
} else<br />
setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1);<br />
}<br />
copyarray getd(".q_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j);<br />
npcshopadditem "aqshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);<br />
return;<br />
}<br />
<br />
function Chk {<br />
if (getarg(0) < getarg(1)) {<br />
set @qe[0],1;<br />
return "^FF0000";<br />
} else<br />
return "^00FF00";<br />
}<br />
<br />
function Slot {<br />
set .@s$,getitemname(getarg(0));<br />
switch(.ShowSlot) {<br />
case 1: if (!getitemslots(getarg(0))) return .@s$;<br />
case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";<br />
default: return .@s$;<br />
}<br />
}<br />
<br />
function A_An {<br />
setarray .@A$[0],"a","e","i","o","u";<br />
set .@B$, "_"+getarg(0);<br />
for(set .@i,0; .@i<5; set .@i,.@i+1)<br />
if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);<br />
return "a "+getarg(0);<br />
}<br />
}<br />
<br />
function script aqshop {<br />
deletearray @i[0],getarraysize(@i);<br />
for(set .@i,0; .@i set @i[.@i],getarg(.@i);<br />
doevent "quest_ashop::OnMenu";<br />
end;<br />
}<br />
<br />
<br />
// Dummy shop data -- copy as needed.<br />
//============================================================<br />
- shop aqshop1 -1,909:-1<br />
- shop aqshop2 -1,909:-1<br />
- shop aqshop3 -1,909:-1<br />
- shop aqshop4 -1,909:-1<br />
- shop aqshop5 -1,909:-1

i put krato's guide

its good for first log in! i use /fog in game

when i try to log in again boom error pumping 

 Untitled.png   194.83K   66 downloads

i use 2013 client i run as admin loki and the clients but i still error i'l try the other server use 2013 and loki launcher but i still get this error

 error.jpg   137.71K   72 downloads

how to fix this i'm using win 7 64bit