darkfate

Ну есть же нормальный. Переведите только пару строк, если вам русский нужен //===== eAthena Script ======================================= //= Euphy's Quest Shop //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.4a - eAthena //===== Description: ========================================= //= A dynamic quest shop based on Lunar's, with easier config. //= Includes support for multiple shops & cashpoints. //= Item Preview script by ToastOfDoom. //============================================================ prontera,164,203,6 script Quest Shop 998,{ function Add; function Chk; function Slot; function A_An; if(.Shops$ != "") set .@i,1; else { set .@menu$,""; for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) set .@menu$, .@menu$+.Shops$[.@i]+":"; set .@i, select(.@menu$); } dispbottom "Select one item at a time."; callshop "qshop"+.@i,1; npcshopattach "qshop"+.@i; end; function Add { if (getitemname(getarg(1))=="null") { debugmes "Quest reward #"+getarg(1)+" invalid (skipped)."; return; } for(set .@n,5; .@n<127; set .@n,.@n+2) { if (!getarg(.@n,0)) break; if (getitemname(getarg(.@n))=="null") { debugmes "Quest requirement #"+getarg(.@n)+" invalid (skipped)."; return; } } for(set .@i,2; .@i<.@n; set .@i,.@i+1) set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i); npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); sleep 1; return; } function Chk { if (getarg(0)<getarg(1)) { set @qe0,1; return "^FF0000"; } else return "^00FF00"; } function Slot { set .@s$,getitemname(getarg(0)); switch(.ShowSlot){ case 1: if (!getitemslots(getarg(0))) return .@s$; case 2: if (getiteminfo(getarg(0),11)>0) return .@s$+" ["+getitemslots(getarg(0))+"]"; default: return .@s$; } } function A_An { setarray .@A$[0],"a","e","i","o","u"; set .@B$, "_"+getarg(0); for(set .@i,0; .@i<5; set .@i,.@i+1) if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0); return "a "+getarg(0); } OnBuyItem: set .@q[0],@bought_nameid; copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]")); if (!.@q[1]) { message strcharinfo(0),"An error has occurred."; end; } mes "[Quest Shop]"; mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000"; mes "Requirements:"; if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000"; if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000"; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000"; next; set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11); addtimer 1000, strnpcinfo(1)+"::onend"; while(1){ switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && !@qe6)?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (@qe0) { mes "[Quest Shop]"; mes "You're missing one or more quest requirements."; close; } if (!checkweight(.@q[0],.@q[1])) { mes "[Quest Shop]"; mes "^FF0000You need "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } if (.@q[2]) set Zeny, Zeny-.@q[2]; if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3]; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) delitem .@q[.@i],.@q[.@i+1]; getitem .@q[0],.@q[1]; if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[0]))+"!",0; specialeffect2 699; close; case 2: set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5); if (@qe1&1) atcommand "@changelook 3 "+@qe2; if (@qe1&256) atcommand "@changelook 1 "+@qe2; if (@qe1&512) atcommand "@changelook 2 "+@qe2; set @qe6,1; break; case 3: close; } } onend: if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; } for(set .@i,0; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,0; end; OnInit: // --------------------- Config --------------------- // Custom points, if needed: "<variable>","<name to display>" setarray .Points$[0],"#CASHPOINTS","Cash Points"; set .Announce,1; // Announce quest completion? (1: yes / 0: no) set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never) set .DisplayID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) // Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...}; // Duplicate dummy data for any additional shops (bottom of script). // If no categories, use the second line instead (remove //). setarray .Shops$[1],"Headgears","Weapons","Other"; // set .Shops$,"n/a"; // Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>, // <required item ID>,<required item amount>{,...}); // Shop number corresponds with order above (default is 1). // Note: Do NOT use a reward item more than once! Add(1,5022,1,0,0,7086,1,969,10,999,40,1003,50,984,2); Add(1,5032,1,0,0,1059,250,2221,1,2227,1,7063,600); Add(1,5027,1,0,0,2252,1,1036,400,7001,50,4052,1); Add(1,5045,1,0,0,2252,1,1054,450,943,1200); Add(2,1224,1,0,0,7297,30,969,10,999,50,714,10); Add(2,1225,1,0,0,7292,30,969,10,999,50,714,10); Add(3,531,1,3,0,512,1,713,1); Add(3,532,1,3,0,513,1,713,1); Add(3,533,1,3,0,514,1,713,1); Add(3,534,1,3,0,515,1,713,1); // -------------------------------------------------- for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) npcshopdelitem "qshop"+.@i,909; end; } // -------- Dummy data (duplicate as needed) -------- - shop qshop1 -1,909:-1 - shop qshop2 -1,909:-1 - shop qshop3 -1,909:-1

Ну почему с roservers.ru еще неплохой трафик идет, хоть и частично накрученный) Ты хотел сказать не частично, а честно

Забейте вы уже на этот неадекватный саппорт и РФ правила Тут все равно большинство не правильно рекламу настраивает. Для РФ достаточно накрутки гейм100руса, остальное вообще бесполезно и не несет трафика, а если и несет, то он как правило накручен.

17 WMZ = 600 голосов другое временно не принимаю, меньше не делаю Сроки выполнения: 2-3 суток Icq#3530666

Хех, после моей жесткой и активной рекламы (15к кликов) перестали принимать Ragnarok по жалобе от правообладателей Обход есть, но он приватный, и я не буду его выкладывать. Мне удалось просунуть объяву через неделю, но рекламить уже нечего Уже отрекламил всю потенциальную аудиторию

И добавлять новые)) Ставил, норм работает? Пока не проверял, надо глянуть на днях. Глянул, у меня он уже стоит) Но проблема то не решена. + Еще с комбо логикой азура с комбо у монка в мисс летит

И добавлять новые)) Ставил, норм работает?

Такая же хрень и у меня на еамоде) Я в ранкерах ничего не понимаю, но объяснили таким образом.

Отпиши в аську) снова тебя поймать не могу)

http://rathena.org/board/topic/60817-extended-vending-system-18/

Проверь только, но должно работать)) Макс кол-во в коде указывается if( .@Amount < 1 || .@Amount > 10 ) prontera,146,187,4 script TCG Girl 864,{ mes "[ ^FFA500TCG Girl^000000 ]"; mes "Hello! I can change your"; mes "^FF0000Cash Points^000000 on ^FF0000TCG^000000 and conversely!"; mes "Choose:"; switch( select("Buy TCG:Sell TCG:Exit")){ next; case 1: mes "[ ^FFA500TCG Girl^000000 ]"; mes "You want to buy ^FF7300TCG?^000000"; mes "On your account:"; mes "[ ^0000FF"+#CASHPOINTS+"^000000 ] Cash Points."; next; switch(select("^0000FF1x TCG^000000 - ^FF00005x Cash Points^000000:Exit")){ set .@Value, 0; case 1: set .@Tcgitem, 7227; set .@Value, 5; break; case 2: mes "[ ^FFA500TCG Girl^000000 ]"; break; } mes "[ ^FFA500TCG Girl^000000 ]"; mes "How ^0000FFTCG^000000 you want to buy?"; mes "(^FF0000Mininum 1, Maximim 10^000000)"; next; input .@Amount; if( .@Amount < 1 || .@Amount > 10 ){ mes "[ ^FFA500TCG Girl^000000 ]"; mes "Sorry, but I can sell you only on ^FF00001^000000 until ^FF000010^000000 TCG for one time."; close; } set .@Cost, .@Amount * .@Value; if( #CASHPOINTS < .@Cost ){ mes "[ ^FFA500TCG Girl^000000 ]"; mes "You do not have so much ^FF0000Cash Points^000000 to buy."; mes "It costs: [ ^0000FF"+.@Cost+"^000000 ] Cash Points."; close; } getitem .@Tcgitem, .@Amount; set #CASHPOINTS, #CASHPOINTS - .@Cost; dispbottom "In your account: [ "+#CASHPOINTS+" ] Cash Points."; mes "[ ^FFA500TCG Girl^000000 ]"; mes "Congratulations you on your purchase!"; break; case 2: mes "[ ^FFA500TCG Girl^000000 ]"; mes "What ^0000FFTCG^000000 do you want to sell me?"; mes "You now have:"; mes "- [ ^0000FF"+countitem(7227)+"^000000 ]x ^FF0000TCG^000000"; next; switch(select("^0000FF1x TCG^000000 - ^FF00005x Cash Points^000000:Exit")){ set .@Value, 0; case 1: set .@Tcgitem, 7227; set .@Value, 5; break; case 2: mes "[ ^FFA500TCG Girl^000000 ]"; break; } mes "[ ^FFA500TCG Girl^000000 ]"; mes "How ^0000FFTCG^000000 you want to sell?"; mes "(^FF0000Minimum 1, Maximum 10^000000)"; next; input .@Amount; if( .@Amount < 1 || .@Amount > 10 ){ mes "[ ^FFA500TCG Girl^000000 ]"; mes "Sorry, but I can buy you only on ^FF00001^000000 until ^FF000010^000000 TCG for one time."; close; } if( countitem(.@Tcgitem) < .@Amount ) { mes "[ ^FFA500TCG Girl^000000 ]"; mes "You do not have enough ^FF0000TCG.^000000"; close; } set .@Cost, .@Amount * .@Value; delitem .@Tcgitem, .@Amount; set #CASHPOINTS, #CASHPOINTS + .@Cost; dispbottom "You have: [ "+#CASHPOINTS+" ] Cash Points."; mes "[ ^FFA500TCG Girl^000000 ]"; mes "Congratulations on sale!"; break; case 3: break; } close; }

Да, есть свой конфиг с установкой задержек и параметров. Но это не конкретно по каждому skill. На данный момент 11 параметров вместе с включением и отключением самой защиты.

В клиенте можно порезать анимацию через nodelay и тогда скиллы будут кидаться быстрее. Мыслишь правильно, но не до конца. Если скиллы будут кидаться быстрее, то защита на стороне сервера как раз их вычислит и не даст кастануть более определенного количества в секунду. Здесь работа не только в задержке скиллов, но и количестве возможных скиллов в секунду. Идет коррекция скиллов, причем на мой взгляд (возможно не прав, определял на глаз) с nodelay там после того как не дали скастовать скилл еще добавляется + к задержке, в результате ты только теряешь во времени. Тестировал на eathena eamod для сервера tervistro.net

Кстати тоже вариант. Спасибо, попробую как рестартить сервер будем. Я думал копать в сторону ников в чате, но так как совершенно в этом не разбираюсь решил попросить помощи здесь. Обидно просто, ибо уже баксов 500 ушло какому-то азиату (или каким-то), да еще и я виноватым остаюсь. Приходится объяснять, что я вообще там никогда не был Да и нормальные люди не могут найти мой скайп, ибо много одинаковых с той же авой и ником, и с похожим логином.

Помогите пофиксить баг в клиенте. Людям как-то удается зайти в любой чат, при этом справа не будет указано ника. Далее они делают табуляцию для того, чтобы мой ник был написан с новой строки. Люди ведутся, и после уходят в скайп. Умные люди шлют на***, но ведется тоже довольно много. Схема развода простая, и могу сказать, что Азиаты, которое это придумали делают до 500 баксов в неделю с буржуев. На русских это совершенно не работает. Есть инфа, что это один из админов дример ро. Так как на Филиппинах хрен пойми какое распределение IP, то остается либо банить всю страну, либо фиксить баг, либо смириться. Из-за этой херни у меня теперь десятки фейков в скайпе, и люди отдают им деньги просто так. EXE: 2010-07-30 eAmod eAthena Готов оплатить немножко, только фейку не напишите))

Примеры работ хоть бы выложил, чтобы видеть на сколько умеешь выполнять такую работу. Да и клиентов больше будет, если увидят примеры, а не ноунейма с 1 постом

Все отлично с робо) Получил много выплат, донатят даже с итальянских кредиток иногда) Автовыплаты можешь настроить раз в неделю или раз в месяц. Вручную тоже есть. Но выводят обычно на 1-2 дня позже. Т.е. если стоит вывод по понедельникам, то получишь во вторник Есть еще по сумме, вроде от 10к рублей Как я без нее жил раньше не знаю

FluxCP однозначно

Нашел человека, не актуально =)

Up! Акция! Возьму человека на 500 голосов за 8 WMZ + Отзыв в этой теме На медленную накрутку (2-3 дня) в game100rus

советую идти на RMS в соотстветствующий раздел) за пайпал точно купят, если еще цену поставишь рядом. даже без натягивания

Автоматические выплаты бы и статистику в личном кабинете. Естественно с реф ссылкой, и промо-материалами. Я бы сливал временами, ибо траффика рошного много =) А так смысла нет - это нельзя назвать ПП. Скорее - подскажи другу, получи бонус

На кой тебе это дерьмо? Оно лагает (проседает фпс до 5) и обходится легко

Jelly тестировал данную защиту. Kami даёт доступ на свой сервер своим покупателям, если требуется. Немного позже установлю себе на RagnaOk вместо Harmony (я понимаю, что это не комплекс защиты, но гармония меня вообще не устраивает). Уже купил, но сейчас времени не так много, ближе к февралю потестирую, ибо в эмуляторе нужно удалить вначале все связанное с гармонией. Разработчик знает хорошо, что делает. Посмотрите сайт и видео для примера По нагрузке ничего не скажу, но альтернатив на данный момент нет, а вот таже гармония дает заметное ухудшение производительности. Я думаю, что проект будет существовать и дорабатываться, поэтому в случае реальной высокой нагрузки можно попробовать предложить использовать и твой вариант

Вопрос не в бабле, а в бюрократии. Сертификат authenticode кому попало не дают. Есть знакомый из Microsoft. Могу попробовать у него узнать, как получить этот сертификат без создания организации. И их вроде на год продают несколько компаний, или это не то?