//==================== =======================================
//= Kartensammler Putty - V1.4
//============================================================
gm_haus,29,60,6 script TEST#Card1 953,{
if (!.card[1]) {
setarray .card1[0], 4001,4006,4009,4019,4075,4033,4012,4016,4026,4022,
4027,4028,4038,4025,4021,4050,4079,4081,4090,4094,
4101,4104,4110,4114,4119,4108,4095,4231,4280,4008,
4011,4013,4014,4015,4020,4032,4037,4039,4041,4045,
4046,4010,4023,4029,4052,4048,4056,4071,4093,4031,
4036,4034,4042,4055,4061,4087,4096,4116,4122,4170,
4215,4220,4228,4226,4212,4227,4267,4257,4278,4286,
4287,4292,4311,4315,4319,4322,4084,4078,4113,4149,
4153,4196,4240,4247,4256,4057,4066,4067,4112,4150,
4152,4186,4187,4181,4173,4167,4162,4176,4195,4193,
4200,4223,4194,4190,4189,4192,4224,4244,4248,4261,
4260,4259,4274,4275,4313,4299,4304,4294,4076,4127,
4260,4259,4274,4275,4313,4299,4304,4294,4076,4127,
4154,4157,4156,4213,4214,4225,4235,4303,4312,4300;
setarray .card2[0], 4293,4297,4288,4283,4295,4307,4308,4309,4132,4326,
4341,4335,4337,4345,4344,4331,4333,4332,4089,4161,
4177,4178,4180,4184,4191,4206,4199,4273,4282,4268,
4289,4321,4316,4343,4339,4369,4377,4385,4383,4382,
4380,4381,4378,4379,4390,4389,4388,4391,4405,4400,
4401,4402,4404,4002,4003,4004,4005,4007,4017,4024,
4030,4035,4040,4043,4044,4049,4051,4053,4058,4060,
4062,4063,4064,4065,4068,4069,4070,4072,4073,4074,
4077,4080,4082,4083,4085,4086,4088,4091,4092,4097,
4098,4099,4100,4102,4103,4106,4107,4109,4111,4115,
4117,4118,4120,4124,4125,4126,4138,4139,4141,4151,
4158,4164,4165,4182,4185,4159,4160,4166,4172,4175,
4188,4201,4202,4204,4205,4208,4209,4395,4396,4265;
setarray .card3[0], 4120,4216,4217,4219,4210,4221,4222,4230,4234,4233,4232,
4237,4238,4242,4243,4245,4246,4249,4252,4255,4258,
4262,4264,4276,4270,4271,4218,4239,4251,4253,4269,
4334,4105,4133,4136,4229,4272,4277,4279,4281,4284,
4285,4290,4296,4298,4301,4310,4314,4317,4325,4327,
4328,4329,4338,4340,4346,4347,4348,4349,4350,4351,
4353,4354,4355,4356,4358,4360,4362,4364,4366,4368,
4370,4371,4373,4375,4387,4406,4129,4155,4291,4392,
4393,4394,4409,4410,4411,4412,4413,4414,4415,4416,
4417,4418,4420,4421,4422,4423,4424,4427,4427,4428,
4429,4431,4432,4433,4434,4435,4436,4437,4438,4439,
4440,4442,4443,4444,4445,4447,4448,4449,4450,4452,
4453;
setarray .card[1], getarraysize(.card1), getarraysize(.card2), getarraysize(.card3);
}
set .@points,oversea_event9;
if (!.@points) {
mes "[Putty]";
mes "Hallo du!";
mes "Ich sammle mein Leben gerne Cards aus aller Welt! ..";
mes "... Das ist meine Leidenschaft!";
next;
switch(select("Nach mehr Information fragen!","Ich habe keine Cards bei mir.")) {
case 1:
mes "[Putty]";
mes "Ich gebe dir einen Punkt für jede Card, die du mir bringt.";
mes "Mit diesen Punkten kannst du dir später folgendes kaufen...";
next;
mes "[Putty]";
mes "Für ^CC00001000 Punkte^000000: ^0000CC1 Pet Box^000000.";
mes "Für ^CC00001500 Punkte^000000: ^0000CC1 Headgear Box^000000.";
mes "Für ^CC00005000 Punkte^000000: ^0000CC1 Custom Box^000000.";
mes "Für ^CC000010000 Punkte^000000: ^0000CC1 Diamond Dust^000000.";
next;
break;
case 2:
mes "[Putty]";
mes "Schade .. ich brauche Cards!";
close;
break;
}
} else {
mes "[Putty]";
mes "Willkommen zurück";
mes "Dein Punktestand beträgt ^00cc00" + .@points + "^000000 Punkte.";
next;
mes "[Putty]";
mes "Möchtest du deine ^00cc00Punkte^000000 einlösen oder";
mes "möchtest du Cards abgeben?";
next;
}
switch(select("Ich möchte Cards abgeben.","Ich möchte meine Punkte einlösen.")) {
case 1:
set .@i,0;
// Loop durchs Inventar
while(.@i<getarraysize(@inventorylist_id) && getarraysize(.@found)<128) {
set .@match,0;
set .@m,0;
// Loop durch das pseudo-zweidimensionale Array
while(!.@match && .@m<4) {
set .@n,0;
// Loop durch die "innere" Dimension des "Arrays"
while(!.@match && .@n<getarraysize(getd("".card"+.@m+"))){
set .@match,@inventorylist_id[.@i]==getd(".card"+.@m+"["+.@n+"]")
set .@n,.@n+1;
}
set .@m,@m+1;
}
if(.@match) {
set .@found[getarraysize(.@foundcards)], @inventorylist_id[.@i];
set .@foundcnt[getarraysize(.@foundcards)], @inventorylist_amount[.@i];
set .@total,.@total+@inventorylist_amount[.@i];
}
set .@i,.@i+1;
}
mes "[Putty]";
mes "Das wären dann folgende Karten:";
for(set .@k,0; .@k<getarraysize(.@found); set .@k,.@k+1) {
mes .@foundcnt[.@k]+"x "+getitemname(.@found[.@k]);
}
next;
mes "[Putty]";
mes "also insgesamt "+.@total+" Punkte. In Ordnung?";
next;
switch(select("Ja, bitte!","Nein, danke.")) {
case 1:
for(set .@k,0; .@k<getarraysize(.@found); set .@k,.@k+1) {
delitem .@found[.@k],.@foundcnt[.@k];
}
set oversea_event9, oversea_event9+.@total;
mes "[Putty]";
mes "Prima, du hast ^CC0000"+.@count+"^000000 Punkte erhalten.";
break;
case 2:
mes "[Putty]";
mes "Okay, lass es mich wissen, wenn ich dir helfen kann.";
break;
}
close;
case 2:
if (.@points) {
mes "[Putty]";
mes "Diese Items kann ich dir anbieten.";
next;
switch(select("Pet Box - 1000 Punkte","Headgear Box - 1500 Punkte","Custom Box - 5000 Punkte","Diamond Dust - 10000 Punkte","^777777Nichts^000000")) {
case 1:
if (.@points < 1000) break;
mes "[Putty]";
mes "Pet Box? Bist du dir sicher?";
mes "Wenn es das ist, was du möchtest dann hier!";
set oversea_event9, .@points - 1000;
getitem 22081,1;
close;
case 2:
if (.@points < 1500) break;
mes "[Putty]";
mes "Headgear Box? Bist du dir sicher?";
mes "Wenn es das ist, was du möchtest dann hier!";
set oversea_event9, .@points - 1500;
getitem 22077,1;
close;
case 3:
if (.@points < 5000) break;
mes "[Putty]";
mes "Custom Box? Bist du dir sicher?";
mes "Wenn es das ist, was du möchtest dann hier!";
set oversea_event9, .@points - 5000;
getitem 22078,1;
close;
case 4:
if (.@points < 10000) break;
mes "[Putty]";
mes "Diamond Dust? Bist du dir sicher?";
mes "Wenn es das ist, was du möchtest dann hier!";
set oversea_event9, .@points - 10000;
getitem 22104,1;
close;
case 5:
mes "[Putty]";
mes "Komm wieder wenn du mehr Punkte hast.";
close;
}
mes "[Putty]";
mes "Du hast leider zu wenig Punkte.";
close;
} else {
mes "[Putty]";
mes "Du hast 0 Punkte. Du benötigst mindestens 1000 Punkte um etwas zu kaufen.";
}
break;
}
close;
OnInit:
waitingroom "Kartensammler",0;
end;
}
On line 95 is the error but I'm to stupid to find it!
Question
Lenya
Check this:
On line 95 is the error but I'm to stupid to find it!
Link to comment
Share on other sites
3 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.