Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alberta,222,23,6 script Ripple In Water 723,{
- function Fishing; function SelectBait; function SelectRod;
- function GettingPts; function MapChecking; function MesError;
- function ClearSets; function GettingCutin; function CheckDelay;
- function NpcSaid;
- ClearSets ( "all" );
- SelectRod ( 2764, 5855 );
- SelectBait;
- MapChecking;
- Fishing ( @bait, @rod, @map, @loop );
- end;
- function GettingPts {
- switch(getarg(3)){
- case 1: // alberta
- if(getarg(0) == 2764){
- switch(getarg(1)){
- case 909:
- getitem 6775, 1;
- break;
- case 567:
- getitem 6782, 1;
- break;
- case 957:
- getitem 6773, 1;
- break;
- case 966:
- getitem 6775, 1;
- break;
- case 962:
- getitem 6773, 1;
- break;
- case 960:
- getitem 6772, 1;
- break;
- case 1055:
- getitem 6775, 1;
- break;
- case 623:
- getitem 6776, 1;
- break;
- case 928:
- getitem 6773, 1;
- break;
- case 955:
- getitem 6776, 1;
- break;
- case 1024:
- getitem 6772, 1;
- break;
- case 579:
- getitem 6776, 1;
- break;
- case 517:
- getitem 6772, 1;
- break;
- }
- } else if(getarg(0) == 5855){
- switch(getarg(1)){
- case 909:
- getitem 6775, 1;
- break;
- case 567:
- getitem 6782, 1;
- break;
- case 957:
- getitem 6773, 1;
- break;
- case 966:
- getitem 6775, 1;
- break;
- case 962:
- getitem 6773, 1;
- break;
- case 960:
- getitem 6772, 1;
- break;
- case 1055:
- getitem 6775, 1;
- break;
- case 623:
- getitem 6776, 1;
- break;
- case 928:
- getitem 6773, 1;
- break;
- case 955:
- getitem 6776, 1;
- break;
- case 1024:
- getitem 6772, 1;
- break;
- case 579:
- getitem 6776, 1;
- break;
- case 517:
- getitem 6772, 1;
- break;
- }
- }
- case 2: //nifelheim
- if(getarg(0) == 2764){
- switch(getarg(1)){
- case 909:
- getitem 6770, 1;
- break;
- case 567:
- getitem 6777, 1;
- break;
- case 957:
- getitem 6773, 1;
- break;
- case 966:
- getitem 6777, 1;
- break;
- case 962:
- getitem 6773, 1;
- break;
- case 960:
- getitem 6773, 1;
- break;
- case 1055:
- getitem 6777, 1;
- break;
- case 623:
- getitem 6778, 1;
- break;
- case 928:
- getitem 6773, 1;
- break;
- case 955:
- getitem 6778, 1;
- break;
- case 1024:
- getitem 6773, 1;
- break;
- case 579:
- getitem 6775, 1;
- break;
- case 517:
- getitem 6774, 1;
- break;
- }
- } else if(getarg(0) == 5855){
- switch(getarg(1)){
- case 909:
- getitem 6777, 1;
- break;
- case 567:
- getitem 6777, 1;
- break;
- case 957:
- getitem 6773, 1;
- break;
- case 966:
- getitem 6770, 1;
- break;
- case 962:
- getitem 6773, 1;
- break;
- case 960:
- getitem 6773, 1;
- break;
- case 1055:
- getitem 6770, 1;
- break;
- case 623:
- getitem 6778, 1;
- break;
- case 928:
- getitem 6773, 1;
- break;
- case 955:
- getitem 6778, 1;
- break;
- case 1024:
- getitem 6770, 1;
- break;
- case 579:
- getitem 6773, 1;
- break;
- case 517:
- getitem 6774, 1;
- break;
- }
- }
- case 3: //prontera
- if(getarg(0) == 2764){
- switch(getarg(1)){
- case 909:
- getitem 6775, 1;
- break;
- case 567:
- getitem 6772, 1;
- break;
- case 957:
- getitem 6778, 1;
- break;
- case 966:
- getitem 6775, 1;
- break;
- case 962:
- getitem 6772, 1;
- break;
- case 960:
- getitem 6773, 1;
- break;
- case 1055:
- getitem 6899, 1;
- break;
- case 623:
- getitem 6778, 1;
- break;
- case 928:
- getitem 6775, 1;
- break;
- case 955:
- getitem 6772, 1;
- break;
- case 1024:
- getitem 6902, 1;
- break;
- case 579:
- getitem 6770, 1;
- break;
- case 517:
- getitem 6775, 1;
- break;
- }
- } else if(getarg(0) == 5855){
- switch(getarg(1)){
- case 909:
- getitem 6775, 1;
- break;
- case 567:
- getitem 6774, 1;
- break;
- case 957:
- getitem 6773, 1;
- break;
- case 966:
- getitem 6770, 1;
- break;
- case 962:
- getitem 6773, 1;
- break;
- case 960:
- getitem 6901, 1;
- break;
- case 1055:
- getitem 6902, 1;
- break;
- case 623:
- getitem 6778, 1;
- break;
- case 928:
- getitem 6773, 1;
- break;
- case 955:
- getitem 6778, 1;
- break;
- case 1024:
- getitem 6900, 1;
- break;
- case 579:
- getitem 6901, 1;
- break;
- case 517:
- getitem 6900, 1;
- break;
- }
- }
- } //setarray .BaitID[0], 909, 567, 957, 966, 962, 960, 1055, 623, 928, 955, 1024, 579, 517;
- return;
- }
- function GettingCutin {
- if(getarg(0) == "start") return cutin("2013_summer_fish_1",3);
- if(getarg(0) == "off") return cutin("",255);
- if(getarg(0) == "nothing") return cutin("2013_summer_fish_6",3);
- if(getarg(0) == "win") cutin("2013_summer_fish_5",3);
- if(getarg(0) == "fish") cutin("2013_summer_fish_3",3);
- if(getarg(0) == "start1") cutin("2013_summer_fish_2",3);
- }
- function Fishing {
- // checking if not cheater
- if(!getarg(0) || !getarg(1) || !getarg(2) || !getarg(3)){
- mes MesError() + ".";
- close;
- }
- CheckDelay ( 2443, 2550, 2758, 5317 );
- //debugmes "delay = " + CheckDelay ( 2443, 2550, 2758, 5317 ) + " map "+@map+" loop "+@loop+" rod "+@rod+" bait "+@bait+" for "+strcharinfo(0);
- while(@loop) {
- @loop -= 1;
- delitem @bait, 1;
- GettingCutin ( "start" );
- sleep2 300;
- GettingCutin ( "start1" );
- sleep2 300;
- GettingCutin ( "start2" );
- progressbar "green", @Delay;
- if(@rod == 2764) {
- mes NpcSaid(2);
- GettingCutin ( "fish" );
- @i = rand(5);
- switch(select("Подсекнуть:Продолжить рыбалку:Крутить катушку")){
- case 1:
- if(@i == 0) {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 1) {
- if(rand(1,3) == 2){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 1, @map ); //1 = подсекнул
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- } else if(@i == 2){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 1, @map ); //1 = подсекнул
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- case 2:
- break;
- case 3:
- if(@i == 0) {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 1) {
- if(rand(1,3) == 2){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- } else if(@i == 2){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- break;
- } else if(@i == 3){
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 4){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- break;
- } else if(@i == 5){
- if(rand(1,2) == 1){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- }
- }
- } else if(@rod == 5855){
- mes NpcSaid(2);
- GettingCutin ( "fish" );
- @i = rand(5);
- switch(select("Подсекнуть:Продолжить рыбалку:Крутить катушку")){
- case 1:
- if(@i == 0) {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 1) {
- if(rand(1,3) == 2){
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 1, @map ); //1 = подсекнул
- mes NpcSaid(3);
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- } else if(@i == 2){;
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 1, @map ); //1 = подсекнул
- mes NpcSaid(3);
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- case 2:
- break;
- case 3:
- if(@i == 0) {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 1) {
- if(rand(1,3) == 2){
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- mes NpcSaid(3);
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- } else if(@i == 2){
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- mes NpcSaid(3);
- break;
- } else if(@i == 3){
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- } else if(@i == 4){
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- mes NpcSaid(3);
- break;
- } else if(@i == 5){
- if(rand(1,2) == 1){
- mes NpcSaid(3);
- GettingCutin ( "win" );
- GettingPts ( @rod, @bait, 2, @map ); //2 = вытащил
- break;
- } else {
- mes NpcSaid(1);
- GettingCutin ( "nothing" );
- break;
- }
- }
- }
- }
- close2;
- //
- if(cur_Level < 600) {
- cur_Level += 3;
- dispbottom "[Рыбная Ловля] : +3. Всего "+cur_Level+"/600";
- }
- }
- GettingCutin("off");
- dispbottom "Наживка закончилась!";
- end;
- }
- function NpcSaid {
- if(getarg(0) == 1) return "Сорвалось...";
- if(getarg(0) == 2) return "^FF0000Кажется я что-то видел!^000000";
- if(getarg(0) == 3) return "Получилось!";
- }
- function CheckDelay {
- @Delay = 15;
- if(isequipped(getarg(0))) @Delay -= 2;
- if(isequipped(getarg(1))) @Delay -= 2;
- if(isequipped(getarg(2))) @Delay -= 2;
- if(isequipped(getarg(3))) @Delay -= 2;
- return @Delay;
- }
- function SelectBait {
- set .@menu$, "";
- for(set .@i,0; .@i < getarraysize(.BaitID); set .@i, .@i +1){
- if(.BaitID[.@i] != 0) {
- set .@menu$, .@menu$ + getitemname(.BaitID[.@i])+" x "+countitem(.BaitID[.@i]);
- set .@menu$, .@menu$ + ":";
- }
- }
- set @baits,select(.@menu$)-1;
- @loop = countitem(.BaitID[@baits]);
- return @bait = .BaitID[@baits];
- }
- function MapChecking {
- if(strcharinfo(3) == "alberta") return @map = 1; // alberta
- if(strcharinfo(3) == "niflheim") return @map = 2; // niflheim
- if(strcharinfo(3) == "prontera") return @map = 3; // prontera
- if(strcharinfo(3) == "prt_fild08") return @map = 3; // prontera
- return @map = 0; // невозможно найти мапу
- }
- function SelectRod {
- if(select(( getargcount())? getitemname(getarg(0))+".":"",
- (getargcount())? getitemname(getarg(1)) +".":"") == 1) {
- @rod = getarg(0);
- if(!countitem(@rod)) mes "-" + MesError ( @rod, 5855 );
- if(!isequipped(@rod)) mes "-" + MesError ( @rod );
- else return @rod;
- close;
- }
- @rod = getarg(1);
- if(!countitem(@rod)) mes "-" + MesError ( @rod, 2764 );
- if(!isequipped(@rod)) mes "-" + MesError ( @rod );
- else return @rod;
- close;
- }
- function ClearSets {
- if(getarg(0) == "all"){
- @rod = 0;
- @map = 0;
- @bait = 0;
- @i = 0;
- @Delay = 0;
- }
- }
- function MesError {
- switch(getargcount()){
- case 0: return "У Вас нет этой наживки!"; //unknown error
- case 1: return "Вам нужно экипировать Вашу удочку. ID: ^FF0000"+getarg(0)+"^000000."; // need equip a rod
- case 2: return "Вам нужна удочка. ID : ^FF0000"+getarg(0)+"^000000 или ^FF0000"+getarg(1)+"^000000."; // need rod
- }
- }
- OnInit:
- setarray .BaitID[0], 909, 567, 957, 966, 962, 960, 1055, 623, 928, 955, 1024, 579, 517;
- end;
- }
- niflheim,115,192,6 duplicate(Ripple In Water) Ripple In Water#1 723
- niflheim,115,106,6 duplicate(Ripple In Water) Ripple In Water#2 723
- alberta,244,130,6 duplicate(Ripple In Water) Ripple In Water#3 723
- prontera,172,345,6 duplicate(Ripple In Water) Ripple In Water#4 723
- prt_fild08,338,310,6 duplicate(Ripple In Water) Ripple In Water#5 723
- prontera,183,193,6 script Рыбный Автомат 564,{
- mes " - Автомат - ";
- mes "Что будем менять?";
- next;
- set .@menu$, "";
- for(set .@i,0; .@i < getarraysize(.FishID); set .@i, .@i +1){
- if(.FishID[.@i] != 0) {
- set .@menu$, .@menu$ + getitemname(.FishID[.@i])+" "+.FishCost[.@i]+"pts";
- set .@menu$, .@menu$ + ":";
- }
- }
- set @fish,select(.@menu$)-1;
- if(countitem(.FishID[@fish]) <= 0){
- mes " - Автомат - ";
- mes "У Вас нет такого предмета!";
- close;
- }
- mes " - Автомат - ";
- mes "За эту рыбу я дам тебе " + .FishCost[@fish] + " поинтов";
- next;
- if(select("Обменять всё:Ввести кол-во") == 1){
- getitem 6897, .FishCost[@fish] * countitem(.FishID[@fish]);
- delitem .FishID[@fish], countitem(.FishID[@fish]);
- close;
- }
- @exchange = 0;
- input @exchange;
- if(@exchange == 0 || countitem(.FishID[@fish]) < @exchange) {
- mes " - Автомат - ";
- mes "А где рыбка?!";
- close;
- }
- getitem 6897, .FishCost[@fish] * @exchange;
- delitem .FishID[@fish], @exchange;
- close;
- OnInit:
- setarray .FishID, 6900,
- 6901,
- 6902,
- 6770,
- 6778,
- 6899,
- 6772,
- 6774,
- 6773,
- 6777,
- 6775,
- 6782;
- setarray .FishCost, 15,
- 5,
- 15,
- 10,
- 5,
- 15,
- 5,
- 5,
- 5,
- 5,
- 5,
- 5;
- }
- alberta,174,138,6 script Том 560,{
- if(countitem(6897) > 0){
- mes "[Том]";
- mes "В этом сезоне у меня есть следующие награды:";
- next;
- set .@menu$, "";
- for(set .@i,0; .@i < getarraysize(.rewardID); set .@i, .@i +1){
- if(.rewardID[.@i] != 0) {
- set .@menu$, .@menu$ + getitemname(.rewardID[.@i])+" "+.rewardCost[.@i]+" points";
- set .@menu$, .@menu$ + ":";
- }
- }
- set @rew,select(.@menu$)-1;
- if(countitem(6897) <= .rewardCost[@rew]){
- mes "[Том]";
- mes "У тебя мало поинтов!!";
- close;
- }
- mes "[Том]";
- mes "За этот предмет я возьму " + .rewardCost[@rew] + " поинтов";
- next;
- select("Обменять!");
- getitem .rewardID[@rew],1;
- delitem 6897, .rewardCost[@rew];
- close;
- }
- mes "[Том]";
- mes "Мрррр~";
- next;
- mes "[Том]";
- mes "Чего желаешь...мммррр?";
- next;
- mes "[Том]";
- mes "Все любят рыбку... мррр";
- next;
- mes "[Том]";
- mes "А я люблю её ловить...!";
- next;
- mes "[Том]";
- mes "И могу смастерить для тебя удочку";
- mes "Но не за просто так, мрррр~";
- next;
- mes "[Том]";
- mes "Принеси мне";
- mes getitemname(1068) + " 10шт";
- mes getitemname(998) + " 15шт";
- mes getitemname(1025) + " 20шт";
- next;
- mes "[Том]";
- mes "Ах...мрррр~";
- mes "Задумался о рыбке и совсем забыл";
- mes "Еще мне нужно 50.000 зени!";
- next;
- if(select("Сделать мне удочку:Отмена") == 2){
- mes "[Том]";
- mes "Мрррр~";
- close;
- }
- if(countitem(1068) < 10 || countitem(998) < 15 || countitem(1025) < 20 || zeny < 50000){
- mes "[Том]";
- mes "Мрррр~";
- mes "А где то, что я просил?";
- close;
- }
- delitem 1068, 10;
- delitem 998, 15;
- delitem 1025, 20;
- zeny -= 50000;
- getitem 2764, 1;
- mes "[Том]";
- mes "Мрррр~";
- mes "Забирай~~";
- close;
- OnInit:
- setarray .rewardID, 19026,
- 15138,
- 20756,
- 22059,
- 22621;
- setarray .rewardCost, 600,
- 400,
- 400,
- 400,
- 50;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement