- my $finddefensetarget = $DBH->prepare(q{SELECT c.id FROM calls c JOIN users u ON c.member = u.uid WHERE u.planet = $1 AND c.landing_tick = $2});
- my $informDefChannel = $DBH->prepare(q{INSERT INTO defense_missions (fleet,call) VALUES (?,?)});
- my $addattackpoint = $DBH->prepare('UPDATE users SET attack_points = attack_points + 1 WHERE uid = ?');
- my $launchedtarget = $DBH->prepare('UPDATE raid_claims SET launched = True WHERE uid = ? AND target = ? AND wave = ?');
- my $addfleet = $DBH->prepare(qq{INSERT INTO fleets (uid,target,mission,landing_tick,fleet,eta,back) VALUES (?,?,?,?,(SELECT max(fleet)+1 from fleets WHERE uid = ?),?,?)});
- my $addships = $DBH->prepare('INSERT INTO fleet_ships (fleet,ship,amount) VALUES (?,?,?)');
-
- my $fleet = $DBH->prepare("SELECT id FROM fleets WHERE uid = ? AND fleet = 0");
- my ($basefleet) = $DBH->selectrow_array($fleet,undef,$ND::UID) or $ND::ERROR .= p $DBH->errstr;;
- unless ($basefleet){
- my $insert = $DBH->prepare(q{INSERT INTO fleets (uid,target,mission,landing_tick,fleet,eta,back) VALUES (?,?,'Full fleet',0,0,0,0)});
- $insert->execute($ND::UID,$self->{PLANET}) or $ND::ERROR .= p $DBH->errstr;;
- }
+ my $finddefensetarget = $DBH->prepare(q{SELECT c.id FROM calls c
+ JOIN users u ON c.member = u.uid
+ WHERE u.planet = $1 AND c.landing_tick = $2
+ });
+ my $informDefChannel = $DBH->prepare(q{INSERT INTO defense_missions
+ (fleet,call) VALUES (?,?)});
+ my $addattackpoint = $DBH->prepare(q{UPDATE users SET
+ attack_points = attack_points + 1 WHERE uid = ?});
+ my $launchedtarget = $DBH->prepare(q{UPDATE raid_claims SET launched = True
+ WHERE uid = ? AND target = ? AND wave = ?});
+ my $addfleet = $DBH->prepare(q{INSERT INTO fleets
+ (uid,name,mission,sender,target,tick,eta,back,amount)
+ VALUES (?,?,?,?,?,?,?,?,?) RETURNING id
+ });
+ my $addships = $DBH->prepare(q{INSERT INTO fleet_ships (id,ship,amount)
+ VALUES (?,?,?)});